diff options
Diffstat (limited to 'test/typecheck')
| -rw-r--r-- | test/typecheck/pass/exist_pattern.sail | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/test/typecheck/pass/exist_pattern.sail b/test/typecheck/pass/exist_pattern.sail index 96b1ecf1..ac41114f 100644 --- a/test/typecheck/pass/exist_pattern.sail +++ b/test/typecheck/pass/exist_pattern.sail @@ -1,6 +1,6 @@ -default Order inc +default Order dec -infix 4 == +$include <prelude.sail> register n : nat @@ -8,16 +8,6 @@ register x : nat register y : nat -val eq_int = {lem: "eq", coq: "Z.eqb"} : (int, int) -> bool -val eq_vec = {lem: "eq_vec", coq: "eq_vec"} : forall ('n : Int). (vector('n, inc, bit), vector('n, inc, bit)) -> bool - -overload operator == = {eq_int, eq_vec} - -val and_bool = {coq: "andb", _: "and_bool"} : (bool, bool) -> bool - -val vector_subrange = {ocaml: "subrange", lem: "subrange_vec_inc", coq: "subrange_vec_inc"} : forall ('n : Int) ('m : Int) ('o : Int), 'm <= 'o <= 'n. - (vector('n, inc, bit), atom('m), atom('o)) -> vector('o - ('m - 1), inc, bit) - type wordsize = {'n, 'n in {8, 16, 32}. range(0, 'n)} let word : wordsize = 8 : range(0, 8) @@ -46,7 +36,7 @@ function main () = { 32 => x = 128 }; match 0b010101 { - 0b01 @ _ : vector(1, inc, bit) @ 0b101 => n = 42, + 0b01 @ _ : vector(1, dec, bit) @ 0b101 => n = 42, _ => n = 0 }; n = 3; |
