diff options
| author | herbelin | 2003-10-19 21:38:22 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-19 21:38:22 +0000 |
| commit | 7c58006651a73c74bbb5564ee79d9ff8d59eb3d8 (patch) | |
| tree | 73d68bd600207a40dd727ca224940b3c14309dc1 /contrib/fourier/fourierR.ml | |
| parent | 3c3d2dbeda88b83b05baf307409c808e779a05b2 (diff) | |
Extension de l'utilisation de contradiction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4674 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/fourier/fourierR.ml')
| -rw-r--r-- | contrib/fourier/fourierR.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/fourier/fourierR.ml b/contrib/fourier/fourierR.ml index 3139db2085..8da7530ea0 100644 --- a/contrib/fourier/fourierR.ml +++ b/contrib/fourier/fourierR.ml @@ -609,7 +609,7 @@ let rec fourier gl= ])); !tac1]); tac:=(tclTHENS (cut (get coq_False)) - [tclTHEN intro contradiction; + [tclTHEN intro (contradiction None); !tac]) |_-> assert false) |_-> assert false ); |