diff options
author | Jason Gross <jgross@mit.edu> | 2017-01-19 23:31:42 -0500 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-01-19 23:31:42 -0500 |
commit | 60201dee3c04a95550bb296af9f47457fbea4268 (patch) | |
tree | 5c4e2217729545db99cf508ba41ba70abdeba875 /src/Util | |
parent | ee06e45ebac097f7518adf50b4f15fdea322eb00 (diff) |
Update notations from zetabase
Diffstat (limited to 'src/Util')
-rw-r--r-- | src/Util/Notations.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Util/Notations.v b/src/Util/Notations.v index 3f8c6810c..aab82db85 100644 --- a/src/Util/Notations.v +++ b/src/Util/Notations.v @@ -56,7 +56,7 @@ Reserved Notation "a ≢ b" (at level 70, no associativity). Reserved Notation "$$ v" (at level 40). Reserved Notation "& x" (at level 30). Reserved Notation "** x" (at level 30). -Reserved Notation "A <- X ; B" (at level 70, right associativity). +Reserved Notation "A <- X ; B" (at level 70, right associativity, format "'[v' A <- X ; '/' B ']'"). Reserved Notation "u [ i ]" (at level 30). Reserved Notation "v [[ i ]]" (at level 30). Reserved Notation "u {{ i }}" (at level 30). @@ -65,6 +65,10 @@ Reserved Notation "'plet' x := y 'in' z" (at level 200, z at level 200, format "'plet' x := y 'in' '//' z"). Reserved Notation "'slet' x := A 'in' b" (at level 200, b at level 200, format "'slet' x := A 'in' '//' b"). +Reserved Notation "'llet' x := A 'in' b" + (at level 200, b at level 200, format "'llet' x := A 'in' '//' b"). +Reserved Notation "'mlet' x := A 'in' b" + (at level 200, b at level 200, format "'mlet' x := A 'in' '//' b"). (* Note that making [Let] a keyword breaks the vernacular [Let] in Coq 8.4 *) Reserved Notation "'dlet' x := y 'in' f" (at level 200, f at level 200, format "'dlet' x := y 'in' '//' f"). |