proposition: Lemma not_in_SameADTs_not_mapsto_adt: forall {av : Type} (name : StringMap.key) (ext : StringMap.t (Value av)) (initial_state : State av), name ∉ ext -> SameADTs ext initial_state -> not_mapsto_adt name initial_state = true.
proof: Proof. not_mapsto_adt_t. Qed.
imports: Coq.Classes.Morphisms CertifiedExtraction.CoreLemmas CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.FacadeLemmas