Skip to content
Snippets Groups Projects
Commit 13040135 authored by Ralf Jung's avatar Ralf Jung
Browse files

re-state and not just register ownM_ne, cmra_valid_ne

parent 78014def
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/base_logic/bi.v
+ 3
− 2
View file @ 13040135
...@@ -167,8 +167,9 @@ Implicit Types A : Type. ...@@ -167,8 +167,9 @@ Implicit Types A : Type.
Notation "P ⊢ Q" := (bi_entails (PROP:=uPredI M) P%I Q%I). Notation "P ⊢ Q" := (bi_entails (PROP:=uPredI M) P%I Q%I).
Notation "P ⊣⊢ Q" := (equiv (A:=uPredI M) P%I Q%I). Notation "P ⊣⊢ Q" := (equiv (A:=uPredI M) P%I Q%I).
Global Existing Instance uPred_primitive.ownM_ne. Global Instance ownM_ne : NonExpansive (@uPred_ownM M) := uPred_primitive.ownM_ne.
Global Existing Instance uPred_primitive.cmra_valid_ne. Global Instance cmra_valid_ne {A : cmraT} : NonExpansive (@uPred_cmra_valid M A)
:= uPred_primitive.cmra_valid_ne.
(** Re-exporting primitive Own and valid lemmas *) (** Re-exporting primitive Own and valid lemmas *)
Lemma ownM_op (a1 a2 : M) : Lemma ownM_op (a1 a2 : M) :
......
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