Skip to content
Snippets Groups Projects
Commit 3570accc authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Add Inhabited in bi_index.

parent 4ad2b78f
No related branches found
No related tags found
No related merge requests found
...@@ -5,10 +5,11 @@ From iris.bi Require Import derived_laws. ...@@ -5,10 +5,11 @@ From iris.bi Require Import derived_laws.
Structure bi_index := Structure bi_index :=
BiIndex BiIndex
{ bi_index_type :> Type; { bi_index_type :> Type;
bi_index_inhabited : Inhabited bi_index_type;
bi_index_rel : SqSubsetEq bi_index_type; bi_index_rel : SqSubsetEq bi_index_type;
bi_index_rel_preorder : PreOrder () }. bi_index_rel_preorder : PreOrder () }.
Existing Instances bi_index_rel bi_index_rel_preorder. Existing Instances bi_index_inhabited bi_index_rel bi_index_rel_preorder.
Section Ofe_Cofe. Section Ofe_Cofe.
Context {I : bi_index} {PROP : bi}. Context {I : bi_index} {PROP : bi}.
...@@ -483,9 +484,9 @@ Proof. ...@@ -483,9 +484,9 @@ Proof.
by apply absorbing, bi.forall_absorbing. by apply absorbing, bi.forall_absorbing.
Qed. Qed.
Global Instance monPred_all_affine P : Global Instance monPred_all_affine P :
Inhabited I Affine P Affine (@monPred_all I PROP P). Affine P Affine (@monPred_all I PROP P).
Proof. Proof.
move=>? []. unfold Affine. unseal=>Hp. split => ?. move=> []. unfold Affine. unseal=>Hp. split => ?.
by apply affine, bi.forall_affine. by apply affine, bi.forall_affine.
Qed. Qed.
End bi_facts. End bi_facts.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment