diff options
| author | Brian Campbell | 2018-04-11 18:37:16 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-04-11 18:37:40 +0100 |
| commit | a8f082f35f19467593ded44a484390a659b0a183 (patch) | |
| tree | c28506c4500be05e989f0278e43980a539bcebe5 | |
| parent | fd006380aa205fdf1119a4842d1eeff58ea29bbe (diff) | |
Fix test prelude
| -rw-r--r-- | test/mono/varmatch.sail | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/mono/varmatch.sail b/test/mono/varmatch.sail index c3c2994d..479abea2 100644 --- a/test/mono/varmatch.sail +++ b/test/mono/varmatch.sail @@ -1,5 +1,8 @@ -val operator & = "and_bool" : (bool, bool) -> bool -val operator == = {ocaml: "(fun (x, y) -> x = y)", lem: "eq"} : forall ('a : Type). ('a, 'a) -> bool +$include <flow.sail> + +val eq_all = {ocaml: "(fun (x, y) -> x = y)", lem: "eq"} : forall ('a : Type). ('a, 'a) -> bool +overload operator == = {eq_all} + /* Check that when we case split on a variable that the constant propagation handles the default case correctly. */ |
