diff options
Diffstat (limited to 'test/mono/assert2.sail')
| -rw-r--r-- | test/mono/assert2.sail | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/test/mono/assert2.sail b/test/mono/assert2.sail index edf92710..90874b68 100644 --- a/test/mono/assert2.sail +++ b/test/mono/assert2.sail @@ -1,14 +1,5 @@ -$include <smt.sail> -$include <flow.sail> default Order dec -type bits ('n : Int) = vector('n, dec, bit) -val operator & = "and_bool" : (bool, bool) -> bool -val eq_vec = {ocaml: "eq_list", lem: "eq_vec"} : forall 'n. (bits('n), bits('n)) -> bool -overload operator == = {eq_int, eq_vec} -val mult_int = {ocaml: "mult", lem: "integerMult"} : (int, int) -> int -overload operator * = {mult_range, mult_int, mult_real} -val replicate_bits = "replicate_bits" : forall 'n 'm. (bits('n), atom('m)) -> bits('n * 'm) -overload operator < = {lt_atom, lt_int} +$include <prelude.sail> /* Should find a set constraint below the let */ @@ -28,4 +19,4 @@ val run : unit -> unit effect {escape} function run () = { f(8); f(16); -}
\ No newline at end of file +} |
