Commit 0283ccbb authored by Ralf Jung's avatar Ralf Jung
Browse files

fewer linebreaks in the core

parent 48371b50
...@@ -13,25 +13,19 @@ Section core. ...@@ -13,25 +13,19 @@ Section core.
Context {M : ucmraT}. Context {M : ucmraT}.
Implicit Types P Q : uPred M. Implicit Types P Q : uPred M.
Lemma coreP_intro P : Lemma coreP_intro P : P - coreP P.
P - coreP P. Proof. iIntros "HP". iIntros (Q HQ HPQ). by iApply HPQ. Qed.
Proof.
iIntros "HP". iIntros (Q HQ HPQ). by iApply HPQ.
Qed.
Global Instance coreP_persistent P : Global Instance coreP_persistent P : PersistentP (coreP P).
PersistentP (coreP P).
Proof. Proof.
iIntros "HCP". iApply always_forall. iIntros (Q). iIntros "HCP". iApply always_forall. iIntros (Q).
iApply always_forall. iIntros (HQ). iApply always_forall. iApply always_forall. iIntros (HQ). iApply always_forall.
iIntros (HPQ). iApply HQ. unshelve iApply ("HCP" $! Q). done. iIntros (HPQ). iApply HQ. unshelve iApply ("HCP" $! Q). done.
Qed. Qed.
Lemma corP_elim P : Lemma corP_elim P : PersistentP P coreP P - P.
PersistentP P coreP P - P.
Proof. Proof.
iIntros (?) "HCP". unshelve iApply ("HCP" $! P). iIntros (?) "HCP". unshelve iApply ("HCP" $! P). iIntros "P". done.
iIntros "P". done.
Qed. Qed.
End core. End core.
......
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