diff options
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 |