diff options
Diffstat (limited to 'tactics/contradiction.ml')
-rw-r--r-- | tactics/contradiction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/contradiction.ml b/tactics/contradiction.ml index faeb9fc25..805ecc3eb 100644 --- a/tactics/contradiction.ml +++ b/tactics/contradiction.ml @@ -24,7 +24,7 @@ let absurd c gls = let sigma, j = Coercion.inh_coerce_to_sort Loc.ghost env sigma j in let c = j.Environ.utj_val in (tclTHENS - (tclTHEN (elim_type (build_coq_False ())) (Proofview.V82.of_tactic (cut c))) + (tclTHEN (Proofview.V82.of_tactic (elim_type (build_coq_False ()))) (Proofview.V82.of_tactic (cut c))) ([(tclTHENS (Proofview.V82.of_tactic (cut (mkApp(build_coq_not (),[|c|])))) ([(tclTHEN (Proofview.V82.of_tactic intros) |