diff options
author | 2008-06-21 15:19:01 +0000 | |
---|---|---|
committer | 2008-06-21 15:19:01 +0000 | |
commit | 15682aeca70802dba6f7e13b66521d4ab9e13af9 (patch) | |
tree | 4a0912638123a4fe76b66362929ef7c5eed706da /tactics | |
parent | 09fc6147a76bad87d8017620c519fda2d7075a7b (diff) |
Correction petit bug sur révision 11159 (res_pf fait un effet de bord
sur le sigma, utilisation de refine à la place).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11162 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/equality.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 3bfc719e2..842856066 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -571,8 +571,9 @@ let discr_positions env sigma (lbeq,(t,t1,t2)) eq_clause cpath dirn sort = let (pf, absurd_term) = discrimination_pf e (t,t1,t2) discriminator lbeq in let pf_ty = mkArrow eqn absurd_term in let absurd_clause = apply_on_clause (pf,pf_ty) eq_clause in + let pf = clenv_value_cast_meta absurd_clause in tclTHENS (cut_intro absurd_term) - [onLastHyp gen_absurdity; res_pf absurd_clause] + [onLastHyp gen_absurdity; refine pf] let discrEq (lbeq,(t,t1,t2) as u) eq_clause gls = let sigma = Evd.evars_of eq_clause.evd in |