diff options
| -rw-r--r-- | test-suite/success/Omega.v | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/success/Omega.v b/test-suite/success/Omega.v index 2b5dd9a1a7..0132a9c894 100644 --- a/test-suite/success/Omega.v +++ b/test-suite/success/Omega.v @@ -25,3 +25,17 @@ Proof. Intros. Omega. Qed. + +(* Proposed by Yves Bertot: because a section var, L was wrongly renamed L0 *) +Section A. +Variables R1,R2,S1,S2,H,S:Z. +Hypothesis I:`R1 < 0`->`R2 = R1+(2*S1-1)`. +Hypothesis J:`R1 < 0`->`S2 = S1-1`. +Hypothesis K:`R1 >= 0`->`R2 = R1`. +Hypothesis L:`R1 >= 0`->`S2 = S1`. +Hypothesis M:`H <= 2*S`. +Hypothesis N:`S < H`. +Lemma lem4 : `H > 0`. +Omega. +Qed. +End A. |