diff options
author | mayero <mayero@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-23 18:56:13 +0000 |
---|---|---|
committer | mayero <mayero@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-23 18:56:13 +0000 |
commit | b4f9c32a31c653f45a4daf821b860db84487f0d9 (patch) | |
tree | df521bd641bf44f15f54291676271cad8e76f515 /theories/Reals/Rbasic_fun.v | |
parent | 639992dbc0f745a6b57fdca9b4569b1afc143037 (diff) |
Ajouts Reals
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1675 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rbasic_fun.v')
-rw-r--r-- | theories/Reals/Rbasic_fun.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/theories/Reals/Rbasic_fun.v b/theories/Reals/Rbasic_fun.v index 1d96ad00d..d8c2d62f1 100644 --- a/theories/Reals/Rbasic_fun.v +++ b/theories/Reals/Rbasic_fun.v @@ -99,6 +99,11 @@ Unfold Rabsolu;Case (case_Rabsolu R0);Auto;Intro. Generalize (Rlt_antirefl R0);Intro;ElimType False;Auto. Save. +Lemma Rabsolu_R1: (Rabsolu R1)==R1. +Unfold Rabsolu; Case (case_Rabsolu R1); Auto with real. +Intros H; Absurd ``1 < 0``;Auto with real. +Save. + (*********) Lemma Rabsolu_no_R0:(r:R)~r==R0->~(Rabsolu r)==R0. Intros;Unfold Rabsolu;Case (case_Rabsolu r);Intro;Auto. |