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

add missing spaces

parent 03c9ddd3
No related branches found
No related tags found
No related merge requests found
Pipeline #25359 passed
......@@ -326,7 +326,7 @@ Lemma lft_incl_intro κ κ' :
([κ'] ={lftN}=∗ [κ])) -∗ κ κ'.
Proof. reflexivity. Qed.
Lemma lft_intersect_incl_l κ κ': κ κ' κ.
Lemma lft_intersect_incl_l κ κ' : κ κ' κ.
Proof.
unfold lft_incl. iIntros "!#". iSplitR.
- iIntros (q). rewrite <-lft_tok_sep. iIntros "[H Hf]". iExists q. iFrame.
......@@ -334,13 +334,13 @@ Proof.
- iIntros "? !>". iApply lft_dead_or. auto.
Qed.
Lemma lft_intersect_incl_r κ κ': κ κ' κ'.
Lemma lft_intersect_incl_r κ κ' : κ κ' κ'.
Proof. rewrite comm. apply lft_intersect_incl_l. Qed.
Lemma lft_incl_refl κ : κ κ.
Proof. unfold lft_incl. iIntros "!#"; iSplitR; auto 10 with iFrame. Qed.
Lemma lft_incl_trans κ κ' κ'': κ κ' -∗ κ' κ'' -∗ κ κ''.
Lemma lft_incl_trans κ κ' κ'' : κ κ' -∗ κ' κ'' -∗ κ κ''.
Proof.
rewrite /lft_incl. iIntros "#[H1 H1†] #[H2 H2†] !#". iSplitR.
- iIntros (q) "Hκ".
......
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