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 /theories | |
| parent | f279b75b83f727c44c7fa0e6951c6c061d72c640 (diff) | |
Bug in sqrt321
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10444 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |