diff options
| author |  Ralf Jung <post@ralfj.de> | 2018-06-10 22:55:01 +0200 |
|---|---|---|
| committer | Ralf Jung <post@ralfj.de> | 2018-06-10 22:55:01 +0200 |
| commit | 22a8bf74be802a591e2e691ed5fb457e9b71ca21 (patch) | |
| tree | a6a8d84df204992b4f4901cf6b2882e5d75db725 /theories | |
| parent | 51a56b1aacb516af513de64c00dd7e796f661484 (diff) | |
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 5a8931a8c..d4cdb064f 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 ']'"). |