Skip to content

GitLab

I
Iris
Commit 66a41586 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files
Options

Add lemma monPred_car_embed.

parent 39967f22
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 0 deletions
theories/bi/monpred.v
View file @ 66a41586
...@@ -413,6 +413,10 @@ Proof. unseal. rewrite bi.forall_elim bi.pure_impl_forall bi.forall_elim //. Qed ...@@ -413,6 +413,10 @@ Proof. unseal. rewrite bi.forall_elim bi.pure_impl_forall bi.forall_elim //. Qed
Lemma monPred_impl_force P Q i : (P → Q) i -∗ (P i → Q i). Lemma monPred_impl_force P Q i : (P → Q) i -∗ (P i → Q i).
Proof. unseal. rewrite bi.forall_elim bi.pure_impl_forall bi.forall_elim //. Qed. Proof. unseal. rewrite bi.forall_elim bi.pure_impl_forall bi.forall_elim //. Qed.
Lemma monPred_car_embed (P : PROP) (i : I) :
(bi_embed (B := monPred _ _) P) i ⊣⊢ P.
Proof. by unseal. Qed.
Lemma monPred_persistently_if_eq p P i: Lemma monPred_persistently_if_eq p P i:
(bi_persistently_if p P) i = bi_persistently_if p (P i). (bi_persistently_if p P) i = bi_persistently_if p (P i).
Proof. rewrite /bi_persistently_if. unseal. by destruct p. Qed. Proof. rewrite /bi_persistently_if. unseal. by destruct p. Qed.
......
Markdown is supported
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