X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Facic_procedural%2FproceduralTeX.ml;h=294fefb045f747da13590401c42e01be32a5655a;hb=72cd94b68037956a70b98cfa54f316fd54e52bae;hp=5f4d8d150d0cff31f3e2dbe3018d6553412b186e;hpb=951e8fda6fbef9b4149e37e4d406b2f82fd64a98;p=helm.git

diff --git a/helm/software/components/acic_procedural/proceduralTeX.ml b/helm/software/components/acic_procedural/proceduralTeX.ml
index 5f4d8d150..294fefb04 100644
--- a/helm/software/components/acic_procedural/proceduralTeX.ml
+++ b/helm/software/components/acic_procedural/proceduralTeX.ml
@@ -202,6 +202,8 @@ let rec xl frm = function
       F.fprintf frm "\\Intro{%a}{%a}" xx r xl l
    | T.LetIn (r, v, _) :: l                                ->
       F.fprintf frm "\\Pose{%a}{%a}{%a}" xx r xat v xl l
+   | T.LApply (r, v, _) :: l                               ->
+      F.fprintf frm "\\LApply{%a}{%a}{%a}" xx r xat v xl l
    | T.Change (u, _, None, _, _) :: l                      ->
       F.fprintf frm "\\Change{%a}{}{%a}" xat u xl l
    | T.Change (u, _, Some (s, _), _, _) :: l               ->