From e0fc20211c796fd90db43b9caece8f9aa1c75390 Mon Sep 17 00:00:00 2001
From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Wed, 3 Nov 2004 14:27:55 +0000
Subject: [PATCH] added Auto and Hint tactic

---
 helm/ocaml/cic_transformations/tacticAst.ml     | 1 +
 helm/ocaml/cic_transformations/tacticAst2Box.ml | 4 ++++
 helm/ocaml/cic_transformations/tacticAstPp.ml   | 1 +
 3 files changed, 6 insertions(+)

diff --git a/helm/ocaml/cic_transformations/tacticAst.ml b/helm/ocaml/cic_transformations/tacticAst.ml
index 5bc446298..fd5bde904 100644
--- a/helm/ocaml/cic_transformations/tacticAst.ml
+++ b/helm/ocaml/cic_transformations/tacticAst.ml
@@ -35,6 +35,7 @@ type ('term, 'ident) tactic =
 
   | Absurd of 'term
   | Apply of 'term
+  | Auto
   | Assumption
   | Change of 'term * 'term * 'ident option (* what, with what, where *)
   | Change_pattern of 'term pattern * 'term * 'ident option
diff --git a/helm/ocaml/cic_transformations/tacticAst2Box.ml b/helm/ocaml/cic_transformations/tacticAst2Box.ml
index 1d82c0aeb..5afb38ca8 100644
--- a/helm/ocaml/cic_transformations/tacticAst2Box.ml
+++ b/helm/ocaml/cic_transformations/tacticAst2Box.ml
@@ -42,6 +42,7 @@ let rec count_tactic current_size tac =
       LocatedTactic (_, tac) -> count_tactic current_size tac
     | Absurd term -> countterm (current_size + 6) term
     | Apply term -> countterm (current_size + 6) term
+    | Auto -> current_size + 4
     | Assumption -> current_size + 10
     | Change (t1, t2, where) ->
 	let size1 = countterm (current_size + 12) t1 in (* change, with *)
@@ -68,6 +69,7 @@ let rec count_tactic current_size tac =
     | Fold (kind, term) ->
 	countterm (current_size + 5) term
     | Fourier -> current_size + 7
+    | Hint -> current_size + 4
     | Injection ident -> current_size + 10 + (String.length ident)
     | Intros (num, idents) ->
 	List.fold_left 
@@ -133,6 +135,7 @@ and big_tactic2box = function
       Box.V([],[Box.Text([],"apply");
 		ast2astBox term])
   | Assumption -> Box.Text([],"assumption")
+  | Auto -> Box.Text([],"auto")
   | Change (t1, t2, where) ->
       let where =
 	(match where with 
@@ -189,6 +192,7 @@ and big_tactic2box = function
 			  Box.Text([],string_of_kind kind)]);
 		Box.indent(ast2astBox term)])
   | Fourier -> Box.Text([],"fourier")
+  | Hint -> Box.Text([],"hint")
   | Injection ident -> 
       Box.V([],[Box.Text([],"transitivity");
 		Box.indent (Box.Text([],ident))])
diff --git a/helm/ocaml/cic_transformations/tacticAstPp.ml b/helm/ocaml/cic_transformations/tacticAstPp.ml
index e98e7acfe..f21aca6ba 100644
--- a/helm/ocaml/cic_transformations/tacticAstPp.ml
+++ b/helm/ocaml/cic_transformations/tacticAstPp.ml
@@ -40,6 +40,7 @@ let rec pp_tactic = function
   | LocatedTactic (loc, tac) -> pp_tactic tac
   | Absurd term -> "absurd" ^ pp_term term
   | Apply term -> "apply " ^ pp_term term
+  | Auto -> "auto"
   | Assumption -> "assumption"
   | Change (t1, t2, where) ->
       sprintf "change %s with %s%s" (pp_term t1) (pp_term t2)
-- 
2.39.2