proposition: Lemma SameValues_not_In_Telescope_not_in_Ext_remove: forall {av} (tenv : Telescope av) (var : StringMap.key) (ext : StringMap.t (Value av)) (initial_state : State av), var ∉ ext -> NotInTelescope var tenv -> initial_state ≲ tenv ∪ ext -> StringMap.remove var initial_state ≲ tenv ∪ ext.
proof: Proof. induction tenv; intros; simpl in *; SameValues_Fiat_t; SameValues_Facade_t. eexists; rewrite remove_remove_comm by congruence; SameValues_Facade_t. Qed.
imports: Coq.Classes.Morphisms CertifiedExtraction.CoreLemmas CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.FacadeLemmas