diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenvtac.ml | 6 | ||||
| -rw-r--r-- | proofs/clenvtac.mli | 12 |
2 files changed, 9 insertions, 9 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index bc50fdd2ac..2d972068de 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -50,7 +50,7 @@ let clenv_cast_meta clenv = (try match Metamap.find mv clenv.env with | Cltyp b -> - let b' = clenv_instance clenv b in + let b' = clenv_nf_meta clenv b.rebus in if occur_meta b' then u else mkCast (mkMeta mv, b') | Clval(_) -> u with Not_found -> @@ -66,12 +66,12 @@ let clenv_cast_meta clenv = let clenv_refine clenv gls = tclTHEN (tclEVARS clenv.hook.sigma) - (refine (clenv_instance_template clenv)) gls + (refine (clenv_value clenv)) gls let clenv_refine_cast clenv gls = tclTHEN (tclEVARS clenv.hook.sigma) - (refine (clenv_cast_meta clenv (clenv_instance_template clenv))) + (refine (clenv_cast_meta clenv (clenv_value clenv))) gls let res_pf clenv gls = diff --git a/proofs/clenvtac.mli b/proofs/clenvtac.mli index 1695db2f50..c463d75e3f 100644 --- a/proofs/clenvtac.mli +++ b/proofs/clenvtac.mli @@ -20,9 +20,9 @@ open Proof_type (* Tactics *) val unify : constr -> tactic -val clenv_refine : wc clausenv -> tactic -val res_pf : wc clausenv -> tactic -val res_pf_cast : wc clausenv -> tactic -val elim_res_pf : wc clausenv -> bool -> tactic -val e_res_pf : wc clausenv -> tactic -val elim_res_pf_THEN_i : wc clausenv -> (wc clausenv -> tactic array) -> tactic +val clenv_refine : clausenv -> tactic +val res_pf : clausenv -> tactic +val res_pf_cast : clausenv -> tactic +val elim_res_pf : clausenv -> bool -> tactic +val e_res_pf : clausenv -> tactic +val elim_res_pf_THEN_i : clausenv -> (clausenv -> tactic array) -> tactic |