diff options
| -rw-r--r-- | theories/Init/Notations.v | 3 | ||||
| -rw-r--r-- | theories/Init/Specif.v | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/theories/Init/Notations.v b/theories/Init/Notations.v index a7bdba90aa..07d7f91506 100644 --- a/theories/Init/Notations.v +++ b/theories/Init/Notations.v @@ -69,6 +69,9 @@ Reserved Notation "{ x }" (at level 0, x at level 99). Reserved Notation "{ x | P }" (at level 0, x at level 99). Reserved Notation "{ x | P & Q }" (at level 0, x at level 99). +Reserved Notation "{ x & P }" (at level 0, x at level 99). +Reserved Notation "{ x & P & Q }" (at level 0, x at level 99). + Reserved Notation "{ x : A | P }" (at level 0, x at level 99). Reserved Notation "{ x : A | P & Q }" (at level 0, x at level 99). diff --git a/theories/Init/Specif.v b/theories/Init/Specif.v index 1384901b70..ecdbef7f61 100644 --- a/theories/Init/Specif.v +++ b/theories/Init/Specif.v @@ -48,6 +48,8 @@ Notation "{ x | P & Q }" := (sig2 (fun x => P) (fun x => Q)) : type_scope. Notation "{ x : A | P }" := (sig (A:=A) (fun x => P)) : type_scope. Notation "{ x : A | P & Q }" := (sig2 (A:=A) (fun x => P) (fun x => Q)) : type_scope. +Notation "{ x & P }" := (sigT (fun x => P)) : type_scope. +Notation "{ x & P & Q }" := (sigT2 (fun x => P) (fun x => Q)) : type_scope. Notation "{ x : A & P }" := (sigT (A:=A) (fun x => P)) : type_scope. Notation "{ x : A & P & Q }" := (sigT2 (A:=A) (fun x => P) (fun x => Q)) : type_scope. |