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

Instance for `Affine (□?p P)`.

parent 564719a4
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/bi/derived_laws_bi.v
+ 2
− 0
View file @ 2e4bd8f5
...@@ -1398,6 +1398,8 @@ Global Instance affinely_if_affine p P : Affine P → Affine (<affine>?p P). ...@@ -1398,6 +1398,8 @@ Global Instance affinely_if_affine p P : Affine P → Affine (<affine>?p P).
Proof. destruct p; simpl; apply _. Qed. Proof. destruct p; simpl; apply _. Qed.
Global Instance intuitionistically_affine P : Affine (□ P). Global Instance intuitionistically_affine P : Affine (□ P).
Proof. rewrite /bi_intuitionistically. apply _. Qed. Proof. rewrite /bi_intuitionistically. apply _. Qed.
Global Instance intuitionistically_if_affine p P : Affine P → Affine (□?p P).
Proof. destruct p; simpl; apply _. Qed.
(* Absorbing instances *) (* Absorbing instances *)
Global Instance pure_absorbing φ : Absorbing (PROP:=PROP) ⌜φ⌝. Global Instance pure_absorbing φ : Absorbing (PROP:=PROP) ⌜φ⌝.
......
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