diff options
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. |