summaryrefslogtreecommitdiff
path: root/test/mono/assert2.sail
diff options
context:
space:
mode:
Diffstat (limited to 'test/mono/assert2.sail')
-rw-r--r--test/mono/assert2.sail13
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
+}