blob: 29902af629a05af36c81cca5bc94f08c525bde36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
default Order dec
$include <prelude.sail>
$property
function prop forall 'n 'm, 0 <= 'n <= 128 & 0 <= 'm <= 64. (x: int('m), y: int('n), z: int) -> bool = {
let add_neg_zero = x + negate(x) == 0;
let add_neg_sub = x + negate(y) == x - y;
let neg_neg = negate(negate(x)) == x;
add_neg_zero & add_neg_sub & neg_neg
}
|
