X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Fcic_transformations%2FtacticAst2Box.ml;h=80e3effce2e31c0580b3330a3ee09f36c6eeec43;hb=6912a028bef118d8e9d7c2847200510a9b055c6a;hp=1d82c0aebd0fbe29fa23895d28b352f5f77a24e3;hpb=29969baf115afff7eb9ea9e2ca98d40ab7006dcc;p=helm.git

diff --git a/helm/ocaml/cic_transformations/tacticAst2Box.ml b/helm/ocaml/cic_transformations/tacticAst2Box.ml
index 1d82c0aeb..80e3effce 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 
@@ -76,7 +78,7 @@ let rec count_tactic current_size tac =
     | Left -> current_size + 4
     | LetIn (term, ident) ->
 	countterm (current_size + 5 + String.length ident) term
-    | Reduce (_, _, _) -> assert false  (* TODO *)
+    | Reduce (_, _) -> assert false  (* TODO *)
     | Reflexivity -> current_size + 11
     | Replace (t1, t2) -> 
 	let size1 = countterm (current_size + 14) t1 in (* replace, with *)
@@ -103,7 +105,7 @@ let rec small_tactic2box tac =
 
 let string_of_kind = function
   | `Reduce -> "reduce"
-  | `Simpl -> "simpl"
+  | `Simpl -> "simplify"
   | `Whd -> "whd"
 
 let dummy_tbl = Hashtbl.create 0
@@ -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))])
@@ -210,7 +214,7 @@ and big_tactic2box = function
 			  Box.smallskip;
 			  Box.Text([],"=")]);
 		Box.indent (ast2astBox term)])
-  | Reduce (_, _, _) -> assert false  (* TODO *)
+  | Reduce (_, _) -> assert false  (* TODO *)
   | Reflexivity -> Box.Text([],"reflexivity")
   | Replace (t1, t2) -> 
       Box.V([],