diff options
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Ints/Int31.v | 2 |
1 files changed, 1 insertions, 1 deletions
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 |