proposition: Lemma SameSCAs_pop_SCA_left : forall {av} k (v: W) (m1 m2: StringMap.t (Value av)), k ∉ m1 -> SameSCAs (StringMap.add k (wrap v) m1) m2 -> SameSCAs m1 m2.
proof: Proof. unfold SameSCAs; intros; eauto using MapsTo_NotIn_inv, StringMap.add_2. Qed.
imports: Coq.Classes.Morphisms CertifiedExtraction.CoreLemmas CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.FacadeLemmas