summaryrefslogtreecommitdiff
path: root/lib/vector_inc.sail
diff options
context:
space:
mode:
Diffstat (limited to 'lib/vector_inc.sail')
-rw-r--r--lib/vector_inc.sail3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/vector_inc.sail b/lib/vector_inc.sail
index 1db466db..c45fec6b 100644
--- a/lib/vector_inc.sail
+++ b/lib/vector_inc.sail
@@ -15,7 +15,7 @@ val eq_bits = {
overload operator == = {eq_bit, eq_bits}
-val bitvector_length = "length" : forall 'n. bits('n) -> atom('n)
+val bitvector_length = {coq: "length_mword", _:"length"} : forall 'n. bits('n) -> atom('n)
val vector_length = {
ocaml: "length",
@@ -36,6 +36,7 @@ val "zero_extend" : forall 'n 'm, 'm >= 'n. (bits('n), atom('m)) -> bits('m)
val truncate = {
ocaml: "vector_truncate",
lem: "vector_truncate",
+ coq: "vector_truncate",
c: "truncate"
} : forall 'm 'n, 'm >= 0 & 'm <= 'n. (vector('n, inc, bit), atom('m)) -> vector('m, inc, bit)