rebuilt against ocaml 3.08.3

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

diff --git a/helm/ocaml/cic_transformations/tacticAst2Box.ml b/helm/ocaml/cic_transformations/tacticAst2Box.ml
index 5afb38ca8a1c00f485137e251963710f423bafb0..80e3effce2e31c0580b3330a3ee09f36c6eeec43 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAst2Box.ml
+++ b/helm/ocaml/cic_transformations/tacticAst2Box.ml
@@ -78,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 *)
@@ -105,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
@@ -214,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([],