added Hint "tactic"

diff --git a/helm/ocaml/cic_transformations/tacticAst.ml b/helm/ocaml/cic_transformations/tacticAst.ml
index 05e8458f8d04d28eee1d4581f26a9fd57ab11e6d..5bc4462980047aab40347dbd944df2dc69301f90 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAst.ml
+++ b/helm/ocaml/cic_transformations/tacticAst.ml
@@ -49,6 +49,7 @@ type ('term, 'ident) tactic =
   | Exists
   | Fold of reduction_kind * 'term
   | Fourier
+  | Hint
   | Injection of 'ident
   | Intros of int option * 'ident list
   | Left

diff --git a/helm/ocaml/cic_transformations/tacticAstPp.ml b/helm/ocaml/cic_transformations/tacticAstPp.ml
index 75977662bf3e29b638bf93c397ba6ed5fd35a0b6..e98e7acfefefc6d446033f0bca45b2abd357f46b 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAstPp.ml
+++ b/helm/ocaml/cic_transformations/tacticAstPp.ml
@@ -59,6 +59,7 @@ let rec pp_tactic = function
   | Fold (kind, term) ->
       sprintf "fold %s %s" (pp_reduction_kind kind) (pp_term term)
   | Fourier -> "fourier"
+  | Hint -> "hint"
   | Injection ident -> "injection " ^ ident
   | Intros (num, idents) ->
       sprintf "intros%s%s"