GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-18 05:21:57 +03:00
Code Issues Projects Releases Wiki Activity

A nicer way to desugar >=

Browse Source
This commit is contained in:
Iavor S. Diatchki 2014-12-17 15:39:44 -08:00
parent 0a02d7d68e
commit cdf1afd261
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/Simplify.hs
View File

@ -71,7 +71,7 @@ crySimpStep prop =
(K (Nat 0), _) -> Just (y :== zero) (K (Nat 0), _) -> Just (y :== zero)
(K Inf, _) -> Just PTrue (K Inf, _) -> Just PTrue
(_, K Inf) -> Just (x :== inf) (_, K Inf) -> Just (x :== inf)
_ -> Just (x :== y :|| x :> y) _ -> Just (x :== inf :|| x :+ one :> y)
x :==: y -> x :==: y ->
case (x,y) of case (x,y) of