diff options
| -rw-r--r-- | test-suite/success/Omega0.v | 16 | ||||
| -rw-r--r-- | test-suite/success/ROmega0.v | 16 |
2 files changed, 32 insertions, 0 deletions
diff --git a/test-suite/success/Omega0.v b/test-suite/success/Omega0.v index 20340c9894..4614c90db0 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 -> diff --git a/test-suite/success/ROmega0.v b/test-suite/success/ROmega0.v index 2cb66fef1c..0efca1e13f 100644 --- a/test-suite/success/ROmega0.v +++ b/test-suite/success/ROmega0.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. +(*romega.*) +Admitted. + +Lemma test_romega_0b : + forall m m', + 0<= m <= 1 -> 0<= m' <= 1 -> (0 < m <-> 0 < m') -> m = m'. +Proof. +intros m m'. +(*romega.*) +Admitted. + Lemma test_romega_1 : forall (z z1 z2 : Z), z2 <= z1 -> |