Skip to content
Snippets Groups Projects
Commit 2ae69856 authored by Jonas Kastberg's avatar Jonas Kastberg
Browse files

Clean up

parent 2f1e2d96
No related branches found
No related tags found
No related merge requests found
Pipeline #27078 passed
Hide whitespace changes
Inline Side-by-side
theories/logrel/subtyping.v
+ 4
− 4
View file @ 2ae69856
......@@ -56,9 +56,9 @@ Section subtype.
Lemma lty_bi_le_refl A : ⊢ A <:> A.
Proof. iSplit; iApply lty_le_refl. Qed.
Lemma lty_bi_le_trans A1 A2 A3 : ⊢ A1 <:> A2 -∗ A2 <:> A3 -∗ A1 <:> A3.
Lemma lty_bi_le_trans A1 A2 A3 : A1 <:> A2 -∗ A2 <:> A3 -∗ A1 <:> A3.
Proof. iIntros "#[H11 H12] #[H21 H22]". iSplit; by iApply lty_le_trans. Qed.
Lemma lty_bi_le_sym A1 A2 : ⊢ A1 <:> A2 -∗ A2 <:> A1.
Lemma lty_bi_le_sym A1 A2 : A1 <:> A2 -∗ A2 <:> A1.
Proof. iIntros "[$$]". Qed.
Lemma lty_le_copy A : ⊢ copy A <: A.
......@@ -201,9 +201,9 @@ Section subtype.
Lemma lsty_bi_le_refl S : ⊢ S <s:> S.
Proof. iSplit; iApply lsty_le_refl. Qed.
Lemma lsty_bi_le_trans S1 S2 S3 : ⊢ S1 <s:> S2 -∗ S2 <s:> S3 -∗ S1 <s:> S3.
Lemma lsty_bi_le_trans S1 S2 S3 : S1 <s:> S2 -∗ S2 <s:> S3 -∗ S1 <s:> S3.
Proof. iIntros "#[H11 H12] #[H21 H22]". iSplit; by iApply lsty_le_trans. Qed.
Lemma lsty_bi_le_sym S1 S2 : ⊢ S1 <s:> S2 -∗ S2 <s:> S1.
Lemma lsty_bi_le_sym S1 S2 : S1 <s:> S2 -∗ S2 <s:> S1.
Proof. iIntros "[$$]". Qed.
Lemma lsty_le_send A1 A2 S1 S2 :
......
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