diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-05-22 10:33:06 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-05-22 10:33:06 +0000 |
commit | b106d57de090ed0033a984247e6ba6546da6629c (patch) | |
tree | 976e385c25c45e08c1ddba9254e896d5082905fc /test-suite/success/Omega0.v | |
parent | 3fe1b36a59fe6b20f94c188eb01c9b07368da3af (diff) |
encore un exemple ne marchant pas, ni avec omega ni avec romega
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8839 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Omega0.v')
-rw-r--r-- | test-suite/success/Omega0.v | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test-suite/success/Omega0.v b/test-suite/success/Omega0.v index 20340c989..4614c90db 100644 --- a/test-suite/success/Omega0.v +++ b/test-suite/success/Omega0.v @@ -3,6 +3,22 @@ Open Scope Z_scope. (* Pierre L: examples gathered while debugging romega. *) +Lemma test_romega_0 : + forall m m', + 0<= m <= 1 -> 0<= m' <= 1 -> (0 < m <-> 0 < m') -> m = m'. +Proof. +intros. +(*omega.*) +Admitted. + +Lemma test_romega_0b : + forall m m', + 0<= m <= 1 -> 0<= m' <= 1 -> (0 < m <-> 0 < m') -> m = m'. +Proof. +intros m m'. +(*omega.*) +Admitted. + Lemma test_romega_1 : forall (z z1 z2 : Z), z2 <= z1 -> |