diff options
| author | barras | 2006-09-29 15:47:49 +0000 |
|---|---|---|
| committer | barras | 2006-09-29 15:47:49 +0000 |
| commit | 7cd945fb3db868bc28d4c0dce101b03b2de9ffe3 (patch) | |
| tree | f2c63d443f005119985d50c22efa335e55ed5c92 /contrib/setoid_ring/RealField.v | |
| parent | f8d64ae9e9b9a3c3a3010d1a9e97e979ee63b162 (diff) | |
args implicites dans Field
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9192 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/setoid_ring/RealField.v')
| -rw-r--r-- | contrib/setoid_ring/RealField.v | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/contrib/setoid_ring/RealField.v b/contrib/setoid_ring/RealField.v index 256354d78c..194c396ea8 100644 --- a/contrib/setoid_ring/RealField.v +++ b/contrib/setoid_ring/RealField.v @@ -1,5 +1,5 @@ Require Import Raxioms. -Require Export Rdefinitions. +Require Import Rdefinitions. Require Import Ring Field. Open Local Scope R_scope. @@ -22,8 +22,7 @@ constructor. exact Rplus_opp_r. Qed. -Lemma Rfield : - field_theory R 0 1 Rplus Rmult Rminus Ropp Rdiv Rinv (eq(A:=R)). +Lemma Rfield : field_theory 0 1 Rplus Rmult Rminus Ropp Rdiv Rinv (eq(A:=R)). Proof. constructor. exact RTheory. @@ -101,6 +100,6 @@ Lemma Zeq_bool_complete : forall x y, InitialRing.gen_phiZ 0%R 1%R Rplus Rmult Ropp x = InitialRing.gen_phiZ 0%R 1%R Rplus Rmult Ropp y -> Zeq_bool x y = true. -Proof gen_phiZ_complete _ _ _ _ _ _ _ _ _ _ Rset Rext Rfield Rgen_phiPOS_not_0. +Proof gen_phiZ_complete Rset Rext Rfield Rgen_phiPOS_not_0. Add Field RField : Rfield (infinite Zeq_bool_complete). |