diff options
| -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 |