fixed LApply pretty printing

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:

diff --git a/helm/ocaml/cic_transformations/tacticAstPp.ml b/helm/ocaml/cic_transformations/tacticAstPp.ml
index 263382ef10cfbd2b9aa9c3c3cc885b1092cede61..f916a2b8605070000adf169ce21b0dc08fe3d977 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAstPp.ml
+++ b/helm/ocaml/cic_transformations/tacticAstPp.ml
@@ -119,6 +119,9 @@ let rec pp_tactic = function
   | Symmetry _ -> "symmetry"
   | Transitivity (_, term) -> "transitivity " ^ pp_term_ast term
   | FwdSimpl (_, term) -> sprintf "fwd %s" (pp_term_ast term)
+  | LApply (_, term_opt, term) -> 
+      sprintf "lapply %s%s" (pp_term_ast term) 
+        (match term_opt with | None -> "" | Some t -> " to " ^ pp_term_ast t)
 
 let pp_flavour = function
   | `Definition -> "Definition"

diff --git a/helm/ocaml/tactics/autoTactic.ml b/helm/ocaml/tactics/autoTactic.ml
index c7cdc97acf202e72a46439e1434a1085f01602ef..ea29499a4b198ffaf95f326b4d578e1aa1e31202 100644 (file)
--- a/helm/ocaml/tactics/autoTactic.ml
+++ b/helm/ocaml/tactics/autoTactic.ml
@@ -23,7 +23,7 @@
  * http://cs.unibo.it/helm/.
  *)
 
- let debug_print = prerr_endline 
+ let debug_print = ignore (*prerr_endline *)
 
 (* let debug_print = fun _ -> () *)