diff options
| author | Hugo Herbelin | 2018-06-14 01:19:02 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-06-14 01:19:02 +0200 |
| commit | 2b03bdd3e19016fb107446713f9a8e786bea00e2 (patch) | |
| tree | 21e7819caa2e500320d412021fb82e2c1a382ffe /theories | |
| parent | 9f8cea70ed5c6bff03eada4f2808be0da7fa4412 (diff) | |
| parent | 22a8bf74be802a591e2e691ed5fb457e9b71ca21 (diff) | |
Merge PR #7771: Tweak printing boxes for unicode binders
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Unicode/Utf8_core.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/Unicode/Utf8_core.v b/theories/Unicode/Utf8_core.v index 5a8931a8c8..d4cdb064f3 100644 --- a/theories/Unicode/Utf8_core.v +++ b/theories/Unicode/Utf8_core.v @@ -14,10 +14,10 @@ (* Logic *) Notation "∀ x .. y , P" := (forall x, .. (forall y, P) ..) (at level 200, x binder, y binder, right associativity, - format "'[ ' ∀ x .. y ']' , P") : type_scope. + format "'[ ' '[ ' ∀ x .. y ']' , '/' P ']'") : type_scope. Notation "∃ x .. y , P" := (exists x, .. (exists y, P) ..) (at level 200, x binder, y binder, right associativity, - format "'[ ' ∃ x .. y ']' , P") : type_scope. + format "'[ ' '[ ' ∃ x .. y ']' , '/' P ']'") : type_scope. Notation "x ∨ y" := (x \/ y) (at level 85, right associativity) : type_scope. Notation "x ∧ y" := (x /\ y) (at level 80, right associativity) : type_scope. @@ -31,4 +31,4 @@ Notation "x ≠ y" := (x <> y) (at level 70) : type_scope. (* Abstraction *) Notation "'λ' x .. y , t" := (fun x => .. (fun y => t) ..) (at level 200, x binder, y binder, right associativity, - format "'[ ' 'λ' x .. y ']' , t"). + format "'[ ' '[ ' 'λ' x .. y ']' , '/' t ']'"). |