From eb28d2cbb17543389d41584db7528a3fc34c0bd9 Mon Sep 17 00:00:00 2001
From: thery
Date: Thu, 17 Jan 2008 08:53:28 +0000
Subject: Bug in sqrt321

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10444 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 Makefile.common       | 1 +
 theories/Ints/Int31.v | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3