proposition: Lemma SameValues_add_W: forall av tel (st: StringMap.t (Value av)) k ext (v: W), k ∉ st -> st ≲ tel ∪ ext -> (StringMap.add k (wrap v) st) ≲ tel ∪ ext.
proof: Proof. intros; eauto using SameValues_add_SCA. Qed.
imports: Coq.Classes.Morphisms CertifiedExtraction.CoreLemmas CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.FacadeLemmas