diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-01 01:13:42 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-01 01:16:39 +0200 |
commit | 636af8ab15807a93ce08778fac18cbe273fcf49d (patch) | |
tree | a0de07a4a6b3db536d5aed724a4edc91cc89fd04 /tactics/contradiction.ml | |
parent | 1ac702e5b1dd2cdf7024b3c454f042e9ec252775 (diff) |
Removing some tactic compatibility layer.
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) |