Commit 15e4ed53 authored by Ralf Jung's avatar Ralf Jung

Hoare existential rule

parent 119f7f41
......@@ -154,4 +154,9 @@ Proof.
iIntros (?) "#Hwp !# [HP HR]".
iApply wp_frame_step_r'; try done. iFrame "HR". by iApply "Hwp".
Qed.
Lemma ht_exists (T : Type) s E (P : T iProp Σ) Φ e :
( x, {{ P x }} e @ s; E {{ Φ }}) {{ x, P x }} e @ s; E {{ Φ }}.
Proof. iIntros "#HT !# HP". iDestruct "HP" as (x) "HP". by iApply "HT". Qed.
End hoare.
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