diff options
| author |  desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-09 09:21:38 +0000 |
|---|---|---|
| committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-09 09:21:38 +0000 |
| commit | 854948d1ebf547ee60414b73e0be1a7827c6d1c8 (patch) | |
| tree | e67b9a6f0d236d216ed7e552f440003f53fcad0a /theories/Reals/Rsqrt_def.v | |
| parent | 9093b6f1691f3f13a7559d5bb7e3381bf115893b (diff) | |
MAJ pour modification dans Rcomplet
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3107 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rsqrt_def.v')
| -rw-r--r-- | theories/Reals/Rsqrt_def.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Reals/Rsqrt_def.v b/theories/Reals/Rsqrt_def.v index d09b377ae..948d16610 100644 --- a/theories/Reals/Rsqrt_def.v +++ b/theories/Reals/Rsqrt_def.v @@ -430,7 +430,7 @@ Cut (n:nat)``0<=(f (Wn n))``. Intros. Assert H9 := (H6 H8). Assert H10 := (H5 H7). -Apply Rle_Rle_eq; Assumption. +Apply Rle_antisym; Assumption. Intro. Unfold Wn. Cut (z:R) (cond_pos z)=true <-> ``0<=z``. |