Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Bugfix: during normalization we used the wrong term t1 instead of t1'

  • Loading branch information...
commit 8065e8abebf90f36d5860d6a658ffa4bc683d5d3 1 parent 3428887
@yav authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/Data/Integer/Presburger/Prop.hs
View
2  src/Data/Integer/Presburger/Prop.hs
@@ -47,7 +47,7 @@ norm x p = case prop p of
Divides n t1
| k1 == 0 -> Ind p
| k1 > 0 -> Norm p { prop = CVarP k1 (NDivides n t1') }
- | otherwise -> Norm p { prop = CVarP (negate k1) (NDivides n (negate t1))}
+ | otherwise -> Norm p { prop = CVarP (negate k1) (NDivides n (negate t1'))}
where(k1,t1') = split_term x t1 -- t1 = k1 * x + t1'
FF -> Ind p
Please sign in to comment.
Something went wrong with that request. Please try again.