diff options
| author | Pierre-Marie Pédrot | 2014-04-02 18:12:58 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-04-22 11:19:55 +0200 |
| commit | 103210f0de563132c61fc33177be31adb8e0ab29 (patch) | |
| tree | 9b91de96bf965e4bc141a0a9add7aca707228dc6 /proofs | |
| parent | 7a79b6dd25db742d37d14d2531f4cb14d53fc6bf (diff) | |
Simplifying interface of elimination tactics. They used dummy clausenvs, and
that should be changed anyway.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.mli | 3 | ||||
| -rw-r--r-- | proofs/clenvtac.ml | 12 | ||||
| -rw-r--r-- | proofs/clenvtac.mli | 2 |
3 files changed, 0 insertions, 17 deletions
diff --git a/proofs/clenv.mli b/proofs/clenv.mli index 9a985a842d..e74c4875fc 100644 --- a/proofs/clenv.mli +++ b/proofs/clenv.mli @@ -85,9 +85,6 @@ val clenv_missing : clausenv -> metavariable list exception NoSuchBinding val clenv_constrain_last_binding : constr -> clausenv -> clausenv -(** defines metas corresponding to the name of the bindings *) -val clenv_match_args : arg_bindings -> clausenv -> clausenv - val clenv_unify_meta_types : ?flags:unify_flags -> clausenv -> clausenv (** start with a clenv to refine with a given term with bindings *) diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 29211c71ad..c0036d1928 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -79,18 +79,6 @@ let dft = default_unify_flags let res_pf clenv ?(with_evars=false) ?(flags=dft) gls = clenv_refine with_evars (clenv_unique_resolver ~flags clenv gls) gls -let elim_res_pf_THEN_i clenv tac gls = - let clenv' = (clenv_unique_resolver ~flags:elim_flags clenv gls) in - tclTHENLASTn (clenv_refine false clenv') (tac clenv') gls - -let new_elim_res_pf_THEN_i clenv tac = - Proofview.Goal.enter begin fun gl -> - let clenv' = Tacmach.New.of_old (clenv_unique_resolver ~flags:elim_flags clenv) gl in - Proofview.tclTHEN - (Proofview.V82.tactic (clenv_refine false clenv')) - (Proofview.tclEXTEND [] (Proofview.tclUNIT()) (Array.to_list (tac clenv'))) - end - let e_res_pf clenv = res_pf clenv ~with_evars:true ~flags:dft diff --git a/proofs/clenvtac.mli b/proofs/clenvtac.mli index 86d567ef2f..f635012fe6 100644 --- a/proofs/clenvtac.mli +++ b/proofs/clenvtac.mli @@ -16,8 +16,6 @@ open Unification val unify : ?flags:unify_flags -> constr -> tactic val clenv_refine : evars_flag -> ?with_classes:bool -> clausenv -> tactic val res_pf : clausenv -> ?with_evars:evars_flag -> ?flags:unify_flags -> tactic -val elim_res_pf_THEN_i : clausenv -> (clausenv -> tactic array) -> tactic -val new_elim_res_pf_THEN_i : clausenv -> (clausenv -> unit Proofview.tactic array) -> unit Proofview.tactic val clenv_pose_dependent_evars : evars_flag -> clausenv -> clausenv val clenv_value_cast_meta : clausenv -> constr |