diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-09-10 22:49:32 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-09-10 22:49:32 +0000 |
| commit | 8089ee3421c4228fbf606f24ed49b33d6ec3145b (patch) | |
| tree | af7706aa547c4ed2113b9f231da1dc47f2c67455 /proofs | |
| parent | 112e6dced6dad495857a71c7a822f90d7d93d7d9 (diff) | |
simplification de clenv
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6096 85f007b7-540e-0410-9357-904b9bb8a0f7
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 bc50fdd2a..2d972068d 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 1695db2f5..c463d75e3 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 |