diff options
| author | Brian Campbell | 2018-05-29 12:31:39 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-06-08 15:03:37 +0100 |
| commit | 273095efe710550df5bd16348242d6704190cdc8 (patch) | |
| tree | 40b06ef049e2f98a21e44d06f764e692ec6b5c83 /lib | |
| parent | 3398a9debf4aaf084db28bd4aa8606b264d47df9 (diff) | |
Add missing Coq builtin info to vector_inc
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/vector_inc.sail | 3 |
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) |