fixed LApply pretty printing

[helm.git] / helm / ocaml / cic_transformations / tacticAstPp.ml

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"