diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-03-12 17:49:21 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-03-12 17:49:21 +0000 |
| commit | cb1ae314411d78952062e5092804b85d981ad6e1 (patch) | |
| tree | 52b9a4058c89b5849d875a4c1129951f35e9c1b1 /theories/Reals/ArithProp.v | |
| parent | 7cb6a61133b6e3c2cd5601282a1f472ff0104c1f (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3761 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/ArithProp.v')
| -rw-r--r-- | theories/Reals/ArithProp.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/theories/Reals/ArithProp.v b/theories/Reals/ArithProp.v index 3436a2558..18e833e69 100644 --- a/theories/Reals/ArithProp.v +++ b/theories/Reals/ArithProp.v @@ -12,6 +12,7 @@ Require Rbase. Require Rbasic_fun. Require Even. Require Div2. +Import R_scope. Lemma minus_neq_O : (n,i:nat) (lt i n) -> ~(minus n i)=O. Intros; Red; Intro. @@ -128,4 +129,4 @@ Replace (plus (S n) O) with (S n); [Apply le_n_Sn | Ring]. Replace (plus (S n) (S i)) with (S (plus (S n) i)). Apply le_S; Assumption. Apply INR_eq; Rewrite S_INR; Do 2 Rewrite plus_INR; Do 2 Rewrite S_INR; Ring. -Qed.
\ No newline at end of file +Qed. |