diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-11-02 15:10:52 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-11-02 15:10:52 +0000 |
| commit | cce4c64a95e5f835cfd28bb3589c535903cbd011 (patch) | |
| tree | 23d4dfb0f7c2a504c57d5c7be50ba59f5b06768d /theories/Numbers/Integer | |
| parent | 8e5cae9a9f8edbedc2fb2451d32dc18af89cfa40 (diff) | |
NZSqrt : since spec is complete, no need for morphism axiom sqrt_wd
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13609 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Integer')
| -rw-r--r-- | theories/Numbers/Integer/Binary/ZBinary.v | 2 | ||||
| -rw-r--r-- | theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/theories/Numbers/Integer/Binary/ZBinary.v b/theories/Numbers/Integer/Binary/ZBinary.v index d4796d106..b92b303f0 100644 --- a/theories/Numbers/Integer/Binary/ZBinary.v +++ b/theories/Numbers/Integer/Binary/ZBinary.v @@ -151,8 +151,6 @@ Definition pow := Zpower. (** NB : we use a new Zsqrt defined in Zsqrt_def, the previous module Zsqrt.v is now Zsqrt_compat.v *) -Program Instance sqrt_wd : Proper (eq==>eq) Zsqrt. - Definition sqrt_spec := Zsqrt_spec. Definition sqrt_neg := Zsqrt_neg. Definition sqrt := Zsqrt. diff --git a/theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v b/theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v index 69feb9315..6689875cb 100644 --- a/theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v +++ b/theories/Numbers/Integer/SpecViaZ/ZSigZAxioms.v @@ -280,8 +280,6 @@ Qed. (** Sqrt *) -Program Instance sqrt_wd : Proper (eq==>eq) sqrt. - Lemma sqrt_spec : forall n, 0<=n -> (sqrt n)*(sqrt n) <= n /\ n < (succ (sqrt n))*(succ (sqrt n)). Proof. |