diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-09-17 17:45:39 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-09-17 17:54:39 +0200 |
| commit | 95c915ce89cc168ec34ab36797c78de94fcc0a18 (patch) | |
| tree | a07639d54aeebdf0dd8f75f3ec0e4ccfc8e03163 /theories/QArith/Qreals.v | |
| parent | 9060a941d8b7566220f6fb6a191ac2fd7eca7315 (diff) | |
Add some missing Proof statements.
Diffstat (limited to 'theories/QArith/Qreals.v')
| -rw-r--r-- | theories/QArith/Qreals.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/theories/QArith/Qreals.v b/theories/QArith/Qreals.v index f363fd7c2..8f827dab9 100644 --- a/theories/QArith/Qreals.v +++ b/theories/QArith/Qreals.v @@ -14,6 +14,7 @@ Require Export QArith_base. Definition Q2R (x : Q) : R := (IZR (Qnum x) * / IZR (QDen x))%R. Lemma IZR_nz : forall p : positive, IZR (Zpos p) <> 0%R. +Proof. intros; apply not_O_IZR; auto with qarith. Qed. @@ -162,6 +163,7 @@ field; auto. Qed. Lemma Q2R_minus : forall x y : Q, Q2R (x-y) = (Q2R x - Q2R y)%R. +Proof. unfold Qminus; intros; rewrite Q2R_plus; rewrite Q2R_opp; auto. Qed. |