GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-09-17 17:09:35 +03:00
Code Issues Projects Releases Wiki Activity

Improve simplifification of addition

Browse Source
This commit is contained in:
Iavor S. Diatchki 2015-04-17 10:20:21 -07:00
parent 819e71a667
commit 8df51593b7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Cryptol/TypeCheck/Solver/Numeric/Simplify.hs
View File

@ -547,7 +547,7 @@ crySimpExprMaybe expr =
-- XXX: Add rules to group togethere occurances of variables
-- XXX: Add rules to group together occurances of variables
-- | Make a simplification step, assuming the expression is well-formed.
@ -562,10 +562,10 @@ crySimpExprStep expr =
(K (Nat 0), _) -> Just y
(K Inf, _) -> Just inf
(K a, K b) -> Just (K (IN.nAdd a b))
(K a, K b :+ c) -> Just (K (IN.nAdd a b) :+ c)
-- Normalize a bit
(_, K b) -> Just (K b :+ x)
(_, K b :+ c) -> Just ((K b :+ x) :+ c)
(_, b :- c) -> Just ((x :+ b) :- c)
(a :+ b, _) -> Just (a :+ (b :+ y))