Commit 7546cf67 authored by Dan Frumin's avatar Dan Frumin

Simplify the `bot_l` rule

parent 2e80e6f2
......@@ -10,14 +10,12 @@ Hint Resolve bot_typed : typeable.
Section contents.
Context `{logrelG Σ}.
Lemma bot_l ϕ Δ Γ E K t τ :
(ϕ - {E;Δ;Γ} fill K (bot #()) log t : τ) -
Lemma bot_l Δ Γ E K t τ :
{E;Δ;Γ} fill K (bot #()) log t : τ.
Proof.
iIntros "Hlog".
iLöb as "IH".
rel_rec_l.
unlock bot; simpl_subst/=.
iApply ("IH" with "Hlog").
iApply "IH".
Qed.
End contents.
......@@ -223,7 +223,7 @@ Section contents.
iApply (bin_log_related_app with "Hlog").
iApply bin_log_related_unit.
+ iMod ("Hcl" with "[-Hlog]"); first close_shoot.
rel_apply_l (bot_l False). iIntros ([]).
rel_apply_l bot_l.
Qed.
Lemma bin_log_or_bot_r Δ Γ E (v v' : val) :
......
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