From 86b869b24ad6cba5074bbf17bbbf7622dcf48281 Mon Sep 17 00:00:00 2001
From: Brian Campbell
Date: Fri, 22 Jun 2018 18:38:08 +0100
Subject: Fix up constraints in OCaml reg_ref test

---
 test/ocaml/reg_ref/rr.sail | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'test')

diff --git a/test/ocaml/reg_ref/rr.sail b/test/ocaml/reg_ref/rr.sail
index f6d40a08..667c7d77 100644
--- a/test/ocaml/reg_ref/rr.sail
+++ b/test/ocaml/reg_ref/rr.sail
@@ -42,12 +42,12 @@ val slice_bits : forall 'n 'm. slice('n, 'm) -> bits('m)
 function slice_bits MkSlice(_, xs) = xs
 
 /* Take a slice from a bitvector */
-val vector_slice : forall 'n 'm 'o, 0 <= 'm <= 'o <= 'n.
+val vector_slice : forall 'n 'm 'o, 0 <= 'm <= 'o < 'n.
   (bits('n), atom('o), atom('m)) -> slice('m, 'o - ('m - 1))
 
 function vector_slice (v, to, from) = MkSlice(from, v[to .. from])
 
-val slice_slice : forall 'n 'm 'o 'p, 'm <= 'o & 'o - 'p <= 'n.
+val slice_slice : forall 'n 'm 'o 'p, 0 <= 'p <= 'm <= 'o & 'o - 'p < 'n.
   (slice('p, 'n), atom('o), atom('m)) -> slice('m, 'o - ('m - 1))
 
 function slice_slice (MkSlice(start, v), to, from) = MkSlice(from, v[to - start .. from - start])
-- 
cgit v1.2.3