Add regression tests for issue #135.

This commit is contained in:
Brian Huffman 2014-11-04 12:03:07 -08:00
parent 80ec38fcf5
commit 0a7b39f944
2 changed files with 5 additions and 0 deletions

View File

@ -0,0 +1,2 @@
:sat \(x : Bit) (y : Bit) -> x < y
:prove \(x : Bit) (y : Bit) -> x <= y || y <= x

View File

@ -0,0 +1,3 @@
Loading module Cryptol
(\(x : Bit) (y : Bit) -> x < y) False True = True
Q.E.D.