diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Tauto.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/success/Tauto.v b/test-suite/success/Tauto.v index bbc67f669..3afe7a6bc 100644 --- a/test-suite/success/Tauto.v +++ b/test-suite/success/Tauto.v @@ -179,6 +179,13 @@ Proof. Tauto. Save. +(* sometimes, the behaviour of Tauto depends on the order of the hyps *) +Lemma old_bug3bis: + ~((A->B)->B)->((~B\/~B)/\(~B\/~A)/\(B\/~B)/\(B\/~A)->False)->False. +Proof. + Tauto. +Save. + (* A bug found by Freek Wiedijk <freek@cs.kun.nl> *) Lemma new_bug: ((A<->B)->(B<->C)) -> @@ -189,6 +196,7 @@ Proof. Tauto. Save. + (* A private club has the following rules : * * . rule 1 : Every non-scottish member wears red socks @@ -229,3 +237,4 @@ Lemma intu1:((A:Prop)A\/~A)->(x,y:nat)(x=y\/~x=y). Proof. Intuition. Save. + |