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

Removed unnecessary use of frame rule

parent b54a4dc9
No related branches found
No related tags found
1 merge request!8Algorithmic Typing Judgement
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 7 deletions
theories/logrel/types.v
+ 1
− 7
View file @ 78bfc78b
...@@ -205,13 +205,7 @@ Section properties. ...@@ -205,13 +205,7 @@ Section properties.
Lemma ltyped_let Γ1 Γ2 Γ3 (x : binder) e1 e2 A1 A2 : Lemma ltyped_let Γ1 Γ2 Γ3 (x : binder) e1 e2 A1 A2 :
(Γ1 ⊨ e1 : A1 ⫤ Γ2) -∗ (binder_insert x A1 Γ2 ⊨ e2 : A2 ⫤ Γ3) -∗ (Γ1 ⊨ e1 : A1 ⫤ Γ2) -∗ (binder_insert x A1 Γ2 ⊨ e2 : A2 ⫤ Γ3) -∗
Γ1 ⊨ (let: x:=e1 in e2) : A2 ⫤ ∅. Γ1 ⊨ (let: x:=e1 in e2) : A2 ⫤ ∅.
Proof. Proof. iIntros "#He1 #He2". iApply ltyped_app=> //. iApply ltyped_lam. Qed.
iIntros "#He1 #He2".
iApply ltyped_app=> //.
iApply (ltyped_frame _ _ _ _ ∅); last by iApply (ltyped_lam).
- iApply env_split_id_r.
- iApply env_split_empty.
Qed.
Lemma ltyped_rec Γ Γ' f x e A1 A2 : Lemma ltyped_rec Γ Γ' f x e A1 A2 :
env_copy Γ Γ' -∗ env_copy Γ Γ' -∗
......
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