GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-16 20:03:27 +03:00
Code Issues Projects Releases Wiki Activity

Fix upper bound on the interval derived from k >= width x

Browse Source
This commit is contained in:
Trevor Elliott 2017-03-25 09:44:32 -07:00
parent 8a4eadfdac
commit f018522b31
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Cryptol/TypeCheck/Solver/Numeric/Interval.hs
View File

@ -130,7 +130,7 @@ propInterval varInts prop = catMaybes
-- record the exact upper bound when it produces values within 128
-- bits
ub = case iUpper int of
Just (Nat val) | val < 128 -> Just (Nat (2 ^ val))
Just (Nat val) | val < 128 -> Just (Nat (2 ^ val - 1))
| otherwise -> Nothing
_ -> iUpper int