1 files changed, 77 insertions, 14 deletions

diff --git a/tactics/hiddentac.mli b/tactics/hiddentac.mli
index 517889c16..7a83eff5e 100644
--- a/tactics/hiddentac.mli
+++ b/tactics/hiddentac.mli
@@ -13,35 +13,98 @@ open Names
 open Term
 open Proof_type
 open Tacmach
-open Tacentries
+open Tacexpr
+open Rawterm
 (*i*)
 
 (* Tactics for the interpreter. They left a trace in the proof tree
    when they are called. *)
 
-val h_clear           : identifier list -> tactic
-val h_move            : bool -> identifier -> identifier -> tactic
-val h_contradiction   : tactic
-val h_reflexivity     : tactic
-val h_symmetry        : tactic
+(* Basic tactics *)
+
+val h_intro_move      : identifier option -> identifier option -> tactic
+val h_intro           : identifier -> tactic
+val h_intros_until    : quantified_hypothesis -> tactic
+
 val h_assumption      : tactic
-val h_absurd          : constr -> tactic
 val h_exact           : constr -> tactic
+
+val h_apply           : constr with_bindings -> tactic
+
+val h_elim            : constr with_bindings ->
+                        constr with_bindings option -> tactic
+val h_elim_type       : constr -> tactic
+val h_case            : constr with_bindings -> tactic
+val h_case_type       : constr -> tactic
+
+val h_mutual_fix      : identifier -> int ->
+                        (identifier * int * constr) list -> tactic
+val h_fix             : identifier option -> int -> tactic
+val h_mutual_cofix    : identifier -> (identifier * constr) list -> tactic
+val h_cofix           : identifier option -> tactic
+
+val h_cut             : constr -> tactic 
+val h_true_cut        : identifier option -> constr -> tactic 
+val h_generalize      : constr list -> tactic 
+val h_generalize_dep  : constr -> tactic 
+val h_forward         : bool -> name -> constr -> tactic 
+val h_let_tac         : identifier -> constr -> identifier clause_pattern -> tactic
+val h_instantiate     : int -> constr -> tactic
+
+(* Derived basic tactics *)
+
+val h_old_induction   : quantified_hypothesis -> tactic
+val h_old_destruct    : quantified_hypothesis -> tactic
+val h_new_induction   : constr induction_arg -> tactic
+val h_new_destruct    : constr induction_arg -> tactic
+val h_specialize      : int option -> constr with_bindings -> tactic
+val h_lapply          : constr -> tactic
+
+(* Automation tactic : see Auto *)
+
+
+(* Context management *)
+val h_clear           : identifier list -> tactic
+val h_clear_body      : identifier list -> tactic
+val h_move            : bool -> identifier -> identifier -> tactic
+val h_rename          : identifier -> identifier -> tactic
+
+
+(* Constructors *)
+(*
+val h_any_constructor : tactic -> tactic
+*)
+val h_constructor     : int -> constr substitution -> tactic
+val h_left            : constr substitution -> tactic
+val h_right           : constr substitution -> tactic
+val h_split           : constr substitution -> tactic
+
 val h_one_constructor : int -> tactic
-val h_any_constructor : tactic
-val h_transitivity    : constr -> tactic
 val h_simplest_left   : tactic
 val h_simplest_right  : tactic
-val h_split           : constr -> tactic
-val h_apply           : constr -> constr substitution -> tactic
+
+
+(* Conversion *)
+val h_reduce          : Tacred.red_expr -> hyp_location list -> tactic
+val h_change          : constr -> hyp_location list -> tactic
+
+(* Equivalence relations *)
+val h_reflexivity     : tactic
+val h_symmetry        : tactic
+val h_transitivity    : constr -> tactic
+
+(*
+val h_reflexivity     : tactic
+val h_symmetry        : tactic
+val h_transitivity    : constr -> tactic
+*)
 val h_simplest_apply  : constr -> tactic 
-val h_cut             : constr -> tactic 
 val h_simplest_elim   : constr -> tactic
-val h_elimType        : constr -> tactic
 val h_simplest_case   : constr -> tactic
-val h_caseType        : constr -> tactic
+(*
 val h_inductionInt    : int -> tactic 
 val h_inductionId     : identifier -> tactic 
 val h_destructInt     : int -> tactic
 val h_destructId      : identifier -> tactic
+*)