proposition: Lemma ProgOk_Transitivity_Name_SCA : forall {av} k env ext t1 (t2: W -> Telescope av) prog1 (v: Comp W), {{ t1 }} prog1 {{ [[`k ~~> v as kk]]::t2 kk }} ∪ {{ ext }} // env -> {{ t1 }} prog1 {{ [[v as kk]]::t2 kk }} ∪ {{ ext }} // env.
proof: Proof. SameValues_Facade_t. eauto using SameValues_Dealloc_W. Qed.
imports: CertifiedExtraction.StringMapUtils CertifiedExtraction.ExtendedLemmas CertifiedExtraction.TelAppend