fixed LApply pretty printing

[helm.git] / helm / ocaml / cic_disambiguation / cicTextualParser2.ml

diff --git a/helm/ocaml/cic_disambiguation/cicTextualParser2.ml b/helm/ocaml/cic_disambiguation/cicTextualParser2.ml
index 9a88a2cbef3e792ad49d154cfc06fc0ef89efd11..d3d6e28aebcbb4377d9ad343774b89b16b4ba601 100644 (file)
--- a/helm/ocaml/cic_disambiguation/cicTextualParser2.ml
+++ b/helm/ocaml/cic_disambiguation/cicTextualParser2.ml
@@ -417,8 +417,9 @@ EXTEND
         TacticAst.Transitivity (loc, t)
     | [ IDENT "fwd" ]; t = term ->
         TacticAst.FwdSimpl (loc, t)
-    | [ IDENT "lapply" ]; what = tactic_term; to_what = OPT [ "to" ; t = tactic_term -> t ] ->
-        TacticAst.LApply (loc, to_what, what)
+    | [ IDENT "lapply" ]; what = tactic_term; 
+        to_what = OPT [ "to" ; t = tactic_term -> t ] ->
+          TacticAst.LApply (loc, to_what, what)
     ]
   ];
   tactical: