proposition: Lemma SameValues_remove_W: forall (av0 : Type) (tenv' : Telescope av0) (ext : StringMap.t (Value av0)) (k : StringMap.key) (final_state : State av0) (x : W), StringMap.MapsTo k (wrap x) final_state -> StringMap.remove (elt:=Value av0) k final_state ≲ tenv' ∪ ext -> final_state ≲ tenv' ∪ ext.
proof: Proof. intros; eauto using (SameValues_remove_SCA FacadeWrapper_SCA). Qed.
imports: Coq.Classes.Morphisms CertifiedExtraction.CoreLemmas CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.FacadeLemmas