X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_procedural%2FproceduralTeX.ml;h=294fefb045f747da13590401c42e01be32a5655a;hb=e9b09b14538f770b9e65083c24e3e9cf487df648;hp=402ef54fe7d2a03e0ee72c3ec6c74f8557ff7d74;hpb=d17a38ddca548c784e9efa7c55e87c80203b024d;p=helm.git

diff --git a/helm/software/components/acic_procedural/proceduralTeX.ml b/helm/software/components/acic_procedural/proceduralTeX.ml
index 402ef54fe..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               ->
@@ -231,6 +233,7 @@ let rec xl frm = function
       F.fprintf frm "\\Elim{%a}{%a}{}{}{%a}" xat v xat t xl l
    | T.Cut (r, w, _) :: T.Branch ([l1; [T.Id _]], _) :: l2 ->
       F.fprintf frm "\\Cut{%a}{%a}{%a}{%a}" xx r xat w xl l1 xl l2
+   | T.Record _ :: _                                       -> assert false
    | T.Inductive _ :: _                                    -> assert false
    | T.Id _ :: _                                           -> assert false
    | T.Clear _ :: _                                        -> assert false