cryptol/tests/issues/issue130.cry

parity xs = ys!0
  where ys = [False] # [y ^ x | x <- xs | y <- ys ]

foldl1 f xs = ys!0
  where ys = [xs@0] # [ f y x | y <- ys | x <- tail xs ]

par = foldl1 (^)

parOK : {n} (fin n) => [n+1] -> Bit
property parOK x = par x == parity x
Add regression test for issue #130. 2014-10-24 02:00:18 +04:00			`parity xs = ys!0`
			`where ys = [False] # [y ^ x \| x <- xs \| y <- ys ]`

			`foldl1 f xs = ys!0`
			`where ys = [xs@0] # [ f y x \| y <- ys \| x <- tail xs ]`

			`par = foldl1 (^)`

Fix #140 The Smtlib solver was translating Fin constraints to True, as it didn't know how to handle them. They should have been skipped, and returned back as unsolved goals instead. 2014-12-12 02:08:42 +03:00			`parOK : {n} (fin n) => [n+1] -> Bit`
Add regression test for issue #130. 2014-10-24 02:00:18 +04:00			`property parOK x = par x == parity x`