From 1c1a121ae0434e5dc6cb05bbafa6e8c2fa3cbf35 Mon Sep 17 00:00:00 2001
From: Brian Campbell
Date: Mon, 25 Jun 2018 15:44:45 +0100
Subject: Coq: automatic cast introduction

---
 lib/vector_inc.sail | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/vector_inc.sail')

diff --git a/lib/vector_inc.sail b/lib/vector_inc.sail
index 873d2d33..b295c92c 100644
--- a/lib/vector_inc.sail
+++ b/lib/vector_inc.sail
@@ -106,7 +106,7 @@ val vector_subrange = {
   c: "vector_subrange",
   coq: "subrange_vec_inc"
 } : forall ('n : Int) ('m : Int) ('o : Int), 0 <= 'm <= 'o < 'n.
-  (bits('n), atom('m), atom('o)) -> bits('o - ('m - 1))
+  (bits('n), atom('m), atom('o)) -> bits('o - 'm + 1)
 
 val vector_update_subrange = {
   ocaml: "update_subrange",
-- 
cgit v1.2.3