diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-11 23:40:10 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-11 23:40:10 +0000 |
| commit | 194902c54308e83aba33852eee69e3370879972c (patch) | |
| tree | 9f59473570e8b5d1fc414b2d1a7a2faf18f6ff30 /test-suite/success/Inversion.v | |
| parent | c981c0974e76eab39d916f79374b6432cf188558 (diff) | |
Ajout vieil exemple de coq-club
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5458 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Inversion.v')
| -rw-r--r-- | test-suite/success/Inversion.v | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/success/Inversion.v b/test-suite/success/Inversion.v index 636540fbd..3e5540d38 100644 --- a/test-suite/success/Inversion.v +++ b/test-suite/success/Inversion.v @@ -1,3 +1,5 @@ +Axiom magic:False. + (* Submitted by Dachuan Yu (bug #220) *) Fixpoint T[n:nat] : Type := Cases n of @@ -48,3 +50,15 @@ Lemma super_def : (I :Set)(e1, e2: (extension I)) Proof. Induction 1. Inversion 1; Auto. + Elim magic +Qed. + +(* Example from Norbert Schirmer on Coq-Club, Sep 2000 *) + +Definition Q[n,m:nat;prf:(le n m)]:=True. +Goal (n,m:nat;H:(le (S n) m))(Q (S n) m H)==True. +Intros. +Dependent Inversion_clear H. +Elim magic. +Elim magic. +Qed. |