diff options
| author | ckeller <ckeller@users.noreply.github.com> | 2022-02-15 18:27:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-02-15 18:27:33 +0100 |
| commit | c163813243e1b38b7d8c10b49d78a728d747e0e5 (patch) | |
| tree | 7d2d936fc170ad9215aaac2822aa896957456f71 /src/array | |
| parent | 1860a878ad5af74f5e2d2142c35b1e2d7c43aad3 (diff) | |
| download | smtcoq-c163813243e1b38b7d8c10b49d78a728d747e0e5.tar.gz smtcoq-c163813243e1b38b7d8c10b49d78a728d747e0e5.zip | |
Use the Register mechanism (#104)
Diffstat (limited to 'src/array')
| -rw-r--r-- | src/array/FArray.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/array/FArray.v b/src/array/FArray.v index 69e56f9..dfff5e8 100644 --- a/src/array/FArray.v +++ b/src/array/FArray.v @@ -1861,6 +1861,14 @@ Notation "a '[' i '<-' v ']'" := (store a i v) (at level 1, format "a [ i <- v ]") : farray_scope. +(* Register constants for OCaml access *) +Register FArray.farray as SMTCoq.array.FArray.farray. +Register select as SMTCoq.array.FArray.select. +Register store as SMTCoq.array.FArray.store. +Register diff as SMTCoq.array.FArray.diff. +Register FArray.equal as SMTCoq.array.FArray.equal. + + (* Local Variables: |