proposition: Lemma ProgOk_Transitivity_Cons : forall {av A} env ext t1 t2 prog1 prog2 (k: NameTag av A) (v: Comp A), {{ t1 }} prog1 {{ [[k ~~> v as _]]::t1 }} ∪ {{ ext }} // env -> {{ [[k ~~> v as _]]::t1 }} prog2 {{ [[k ~~> v as kk]]::t2 kk }} ∪ {{ ext }} // env -> {{ t1 }} Seq prog1 prog2 {{ [[k ~~> v as kk]]::t2 kk }} ∪ {{ ext }} // env.
proof: Proof. SameValues_Facade_t. Qed.
imports: CertifiedExtraction.StringMapUtils CertifiedExtraction.ExtendedLemmas CertifiedExtraction.TelAppend