Skip to content
Snippets Groups Projects
Commit 493d7eb9 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix notation scopes of `absolutely` and `relatively`.

parent 39f190a7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 0 deletions
theories/bi/monpred.v
+ 4
− 0
View file @ 493d7eb9
...@@ -27,6 +27,8 @@ Record monPred := ...@@ -27,6 +27,8 @@ Record monPred :=
monPred_mono : Proper ((⊑) ==> (⊢)) monPred_at }. monPred_mono : Proper ((⊑) ==> (⊢)) monPred_at }.
Local Existing Instance monPred_mono. Local Existing Instance monPred_mono.
Bind Scope monPred with bi.
Implicit Types P Q : monPred. Implicit Types P Q : monPred.
(** Ofe + Cofe instances *) (** Ofe + Cofe instances *)
...@@ -207,6 +209,8 @@ Global Instance monPred_bupd `{BUpd PROP} : BUpd _ := unseal monPred_bupd_aux. ...@@ -207,6 +209,8 @@ Global Instance monPred_bupd `{BUpd PROP} : BUpd _ := unseal monPred_bupd_aux.
Definition monPred_bupd_eq `{BUpd PROP} : @bupd monPred _ = _ := seal_eq _. Definition monPred_bupd_eq `{BUpd PROP} : @bupd monPred _ = _ := seal_eq _.
End Bi. End Bi.
Arguments monPred_absolutely {_ _} _%I.
Arguments monPred_relatively {_ _} _%I.
Notation "'∀ᵢ' P" := (monPred_absolutely P) (at level 20, right associativity) : bi_scope. Notation "'∀ᵢ' P" := (monPred_absolutely P) (at level 20, right associativity) : bi_scope.
Notation "'∃ᵢ' P" := (monPred_relatively P) (at level 20, right associativity) : bi_scope. Notation "'∃ᵢ' P" := (monPred_relatively P) (at level 20, right associativity) : bi_scope.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment