diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-23 12:45:23 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-23 12:45:23 +0000 |
| commit | e50635edb2504712ae9b88951e155549adfc5d04 (patch) | |
| tree | b7b091ac9b6c4f8e133f5f71c30f409983f6ffd7 /test-suite | |
| parent | 34e7c74d7a776714364ad240a492fa480d48c409 (diff) | |
Omega échouait à effacer les hypothèses à contenu arithmétique lorsque ces hypothèses étaient dépendantes dans d'autres hypothèses
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3178 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Omega.v | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test-suite/success/Omega.v b/test-suite/success/Omega.v index 19bb5f809..680012462 100644 --- a/test-suite/success/Omega.v +++ b/test-suite/success/Omega.v @@ -52,3 +52,22 @@ Lemma lem5 : `H > 0`. Omega. Qed. End B. + +(* From Nicolas Oury (bug #180): handling -> on Set (fixed Oct 2002) *) +Lemma lem7: (A: Set) (i:Z) `i<= 0` -> (`i<= 0` -> A) -> `i<=0`. +Intros. +Omega. +Qed. + +(* Adapted from an example in Nijmegen/FTA/ftc/RefSeparating (Oct 2002) *) +Require Omega. +Section C. +Parameter g:(m:nat)~m=O->Prop. +Parameter f:(m:nat)(H:~m=O)(g m H). +Variable n:nat. +Variable ap_n:~n=O. +Local delta:=(f n ap_n). +Lemma lem6 : n=n. +Omega. +Qed. +End C. |