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

re-gen exercises

parent e3e3146d
Branches
Tags
No related merge requests found
Pipeline #70067 passed
......@@ -24,7 +24,7 @@ Lemma sem_gen_type_safety `{!heapGpreS Σ} e σ φ :
( `{!heapGS Σ}, A : sem_ty Σ, ( v, A v -∗ φ v) e : A)
adequate NotStuck e σ (λ v σ, φ v).
Proof.
intros Hty. apply (heap_adequacy Σ NotStuck e σ)=> // ?.
intros Hty. apply (heap_adequacy Σ NotStuck e σ)=> // ??.
specialize (Hty _) as (A & HA & Hty).
iStartProof. iDestruct (Hty $! ) as "#He".
iSpecialize ("He" with "[]"); first by rewrite /env_sem_typed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment