diff options
| author | letouzey | 2010-11-02 15:10:52 +0000 |
|---|---|---|
| committer | letouzey | 2010-11-02 15:10:52 +0000 |
| commit | cce4c64a95e5f835cfd28bb3589c535903cbd011 (patch) | |
| tree | 23d4dfb0f7c2a504c57d5c7be50ba59f5b06768d /theories/Numbers/Natural/Binary | |
| 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/Natural/Binary')
| -rw-r--r-- | theories/Numbers/Natural/Binary/NBinary.v | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/theories/Numbers/Natural/Binary/NBinary.v b/theories/Numbers/Natural/Binary/NBinary.v index 34b44d3c60..cc57171b32 100644 --- a/theories/Numbers/Natural/Binary/NBinary.v +++ b/theories/Numbers/Natural/Binary/NBinary.v @@ -165,7 +165,6 @@ Definition log2_nonpos := Nlog2_nonpos. (** Sqrt *) -Program Instance sqrt_wd : Proper (eq==>eq) Nsqrt. Definition sqrt_spec n (H:0<=n) := Nsqrt_spec n. Lemma sqrt_neg : forall a, a<0 -> Nsqrt a = 0. Proof. destruct a; discriminate. Qed. |