diff options
| author | vblot <24938579+vblot@users.noreply.github.com> | 2021-08-25 14:56:41 +0200 |
|---|---|---|
| committer | vblot <24938579+vblot@users.noreply.github.com> | 2021-08-25 14:57:08 +0200 |
| commit | 01431eb67ed566baa2268f1382d687bc7b020d1c (patch) | |
| tree | bdb5a8bfb973b26f513ad13b4ce454226ebb45c8 /src/versions | |
| parent | b871bf9dd8aebe5dbfa08988d334f768a1021795 (diff) | |
| download | smtcoq-01431eb67ed566baa2268f1382d687bc7b020d1c.tar.gz smtcoq-01431eb67ed566baa2268f1382d687bc7b020d1c.zip | |
fix array notations clash with ssreflect
Diffstat (limited to 'src/versions')
| -rw-r--r-- | src/versions/standard/Array/PArray_standard.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/versions/standard/Array/PArray_standard.v b/src/versions/standard/Array/PArray_standard.v index f3bf606..947eb49 100644 --- a/src/versions/standard/Array/PArray_standard.v +++ b/src/versions/standard/Array/PArray_standard.v @@ -69,9 +69,11 @@ Definition map {A B:Type} (f:A -> B) (t:array A) : array B := let (t,d) := td in (Map.map f t, f d, l). +Module Export PArrayNotations. Delimit Scope array_scope with array. Notation "t '.[' i ']'" := (get t i) (at level 50) : array_scope. Notation "t '.[' i '<-' a ']'" := (set t i a) (at level 50) : array_scope. +End PArrayNotations. Local Open Scope array_scope. |