diff options
| author | thery | 2008-01-17 08:53:28 +0000 |
|---|---|---|
| committer | thery | 2008-01-17 08:53:28 +0000 |
| commit | eb28d2cbb17543389d41584db7528a3fc34c0bd9 (patch) | |
| tree | 6847ed44f9c69af59b991c6241ec18f59772b85c | |
| parent | f279b75b83f727c44c7fa0e6951c6c061d72c640 (diff) | |
Bug in sqrt321
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10444 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | Makefile.common | 1 | ||||
| -rw-r--r-- | theories/Ints/Int31.v | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/Makefile.common b/Makefile.common index 69a2931ed9..a9a6ca8fa4 100644 --- a/Makefile.common +++ b/Makefile.common @@ -522,6 +522,7 @@ INTSVO:=\ theories/Ints/num/GenDiv.vo theories/Ints/num/GenSqrt.vo \ theories/Ints/num/GenLift.vo theories/Ints/num/Zn2Z.vo\ theories/Ints/num/Nbasic.vo theories/Ints/num/NMake.vo \ + theories/Ints/num/MemoFn.vo \ theories/Ints/BigN.vo theories/Ints/num/ZMake.vo \ theories/Ints/BigZ.vo theories/Ints/num/BigQ.vo # spiwack : should use the genN.ml to create NMake eventually diff --git a/theories/Ints/Int31.v b/theories/Ints/Int31.v index 918c542329..d7e80d4a28 100644 --- a/theories/Ints/Int31.v +++ b/theories/Ints/Int31.v @@ -311,7 +311,7 @@ Definition sqrt312 (ih il:int31) := let closer_to_upper (r upper lower:int31) := let (quo,_) := (upper-r)/Twon in match quo ?= On with - | Eq => match r ?= upper with | Lt => r+quo | _ => r end + | Eq => upper | _ => r+quo end in |