diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-06-06 14:05:03 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-06-06 14:05:03 +0000 |
| commit | 9be8a1686d6e68fadbd99bf2c98dd2a2b657ee73 (patch) | |
| tree | e3d03ce5e01ed889641d40a618088208f28b2800 /test-suite/success/Omega.v | |
| parent | ec4c83146e6393226d1f417fb6a7bf4b37e08ca6 (diff) | |
Ajout exemple Yves renommage différent d'une var de section
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2759 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Omega.v')
| -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 2b5dd9a1a..0132a9c89 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. |