diff --git a/theories/bi/interface.v b/theories/bi/interface.v index 4eb80f6c79b4ab114300d79bb226b66cf1d93ad9..fd09f4c2f8d34661e64afa9e9eadfdf9df58c82f 100644 --- a/theories/bi/interface.v +++ b/theories/bi/interface.v @@ -260,14 +260,14 @@ Instance bi_rewrite_relation (PROP : bi) : RewriteRelation (@bi_entails PROP) := Instance bi_inhabited {PROP : bi} : Inhabited PROP := populate (bi_pure True). Notation "P ⊢ Q" := (bi_entails P%I Q%I) : stdpp_scope. -Notation "P ⊢@{ PROP } Q" := (bi_entails (PROP:=PROP) P%I Q%I) (only parsing) : stdpp_scope. +Notation "P '⊢@{' PROP } Q" := (bi_entails (PROP:=PROP) P%I Q%I) (only parsing) : stdpp_scope. Notation "(⊢)" := bi_entails (only parsing) : stdpp_scope. -Notation "(⊢@{ PROP } )" := (bi_entails (PROP:=PROP)) (only parsing) : stdpp_scope. +Notation "('⊢@{' PROP } )" := (bi_entails (PROP:=PROP)) (only parsing) : stdpp_scope. Notation "P ⊣⊢ Q" := (equiv (A:=bi_car _) P%I Q%I) : stdpp_scope. -Notation "P ⊣⊢@{ PROP } Q" := (equiv (A:=bi_car PROP) P%I Q%I) (only parsing) : stdpp_scope. +Notation "P '⊣⊢@{' PROP } Q" := (equiv (A:=bi_car PROP) P%I Q%I) (only parsing) : stdpp_scope. Notation "(⊣⊢)" := (equiv (A:=bi_car _)) (only parsing) : stdpp_scope. -Notation "(⊣⊢@{ PROP } )" := (equiv (A:=bi_car PROP)) (only parsing) : stdpp_scope. +Notation "('⊣⊢@{' PROP } )" := (equiv (A:=bi_car PROP)) (only parsing) : stdpp_scope. Notation "P -∗ Q" := (P ⊢ Q) : stdpp_scope. diff --git a/theories/bi/notation.v b/theories/bi/notation.v index 9534481981ed54127029c7da3b46d06d01bdb884..8b268c974c55fb88b72ca229379861f7b577a495 100644 --- a/theories/bi/notation.v +++ b/theories/bi/notation.v @@ -3,10 +3,13 @@ (** Turnstiles *) Reserved Notation "P ⊢ Q" (at level 99, Q at level 200, right associativity). Reserved Notation "P '⊢@{' PROP } Q" (at level 99, Q at level 200, right associativity). -Reserved Notation "('⊢@{' PROP } )" (at level 99). +Reserved Notation "(⊢)". +Reserved Notation "('⊢@{' PROP } )". + Reserved Notation "P ⊣⊢ Q" (at level 95, no associativity). Reserved Notation "P '⊣⊢@{' PROP } Q" (at level 95, no associativity). -Reserved Notation "('⊣⊢@{' PROP } )" (at level 95). +Reserved Notation "(⊣⊢)". +Reserved Notation "('⊣⊢@{' PROP } )". (** BI connectives *) Reserved Notation "'emp'".