diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-04-02 18:12:58 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-04-22 11:19:55 +0200 |
| commit | 103210f0de563132c61fc33177be31adb8e0ab29 (patch) | |
| tree | 9b91de96bf965e4bc141a0a9add7aca707228dc6 /tactics/tacticals.mli | |
| parent | 7a79b6dd25db742d37d14d2531f4cb14d53fc6bf (diff) | |
Simplifying interface of elimination tactics. They used dummy clausenvs, and
that should be changed anyway.
Diffstat (limited to 'tactics/tacticals.mli')
| -rw-r--r-- | tactics/tacticals.mli | 35 |
1 files changed, 3 insertions, 32 deletions
diff --git a/tactics/tacticals.mli b/tactics/tacticals.mli index 46d62123c..d6c9e87f9 100644 --- a/tactics/tacticals.mli +++ b/tactics/tacticals.mli @@ -137,33 +137,6 @@ val elimination_sort_of_goal : goal sigma -> sorts_family val elimination_sort_of_hyp : Id.t -> goal sigma -> sorts_family val elimination_sort_of_clause : Id.t option -> goal sigma -> sorts_family -val general_elim_then_using : - (inductive -> goal sigma -> constr) -> rec_flag -> - intro_pattern_expr located option -> (branch_args -> tactic) -> - constr option -> (arg_bindings * arg_bindings) -> inductive -> clausenv -> - tactic - -val elimination_then_using : - (branch_args -> tactic) -> constr option -> - (arg_bindings * arg_bindings) -> constr -> tactic - -val elimination_then : - (branch_args -> tactic) -> - (arg_bindings * arg_bindings) -> constr -> tactic - -val case_then_using : - intro_pattern_expr located option -> (branch_args -> tactic) -> - constr option -> (arg_bindings * arg_bindings) -> - inductive -> clausenv -> tactic - -val case_nodep_then_using : - intro_pattern_expr located option -> (branch_args -> tactic) -> - constr option -> (arg_bindings * arg_bindings) -> - inductive -> clausenv -> tactic - -val simple_elimination_then : - (branch_args -> tactic) -> constr -> tactic - val elim_on_ba : (branch_assumptions -> tactic) -> branch_args -> tactic val case_on_ba : (branch_assumptions -> tactic) -> branch_args -> tactic @@ -266,17 +239,15 @@ module New : sig val elimination_then : (branch_args -> unit Proofview.tactic) -> - (arg_bindings * arg_bindings) -> constr -> unit Proofview.tactic + constr -> unit Proofview.tactic val case_then_using : intro_pattern_expr located option -> (branch_args -> unit Proofview.tactic) -> - constr option -> (arg_bindings * arg_bindings) -> - inductive -> clausenv -> unit Proofview.tactic + constr option -> inductive -> clausenv -> unit Proofview.tactic val case_nodep_then_using : intro_pattern_expr located option -> (branch_args -> unit Proofview.tactic) -> - constr option -> (arg_bindings * arg_bindings) -> - inductive -> clausenv -> unit Proofview.tactic + constr option -> inductive -> clausenv -> unit Proofview.tactic val elim_on_ba : (branch_assumptions -> unit Proofview.tactic) -> branch_args -> unit Proofview.tactic val case_on_ba : (branch_assumptions -> unit Proofview.tactic) -> branch_args -> unit Proofview.tactic |