New argument (the identifier) to generalize.

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

diff --git a/helm/ocaml/cic_transformations/tacticAst.ml b/helm/ocaml/cic_transformations/tacticAst.ml
index 8b66ca0e6c008daa3399221e971d64869c421d43..47f275a6892130a348d27005331b7169da9faec3 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAst.ml
+++ b/helm/ocaml/cic_transformations/tacticAst.ml
@@ -51,7 +51,7 @@ type ('term, 'ident) tactic =
   | Fold of loc * reduction_kind * 'term
   | Fourier of loc
   | FwdSimpl of loc * 'term
-  | Generalize of loc * 'term * ('term, 'ident) pattern
+  | Generalize of loc * 'term * 'ident option * ('term, 'ident) pattern
   | Goal of loc * int (* change current goal, argument is goal number 1-based *)
   | Injection of loc * 'term
   | Intros of loc * int option * 'ident list