proposition: Lemma SameADTs_find_iff {av} m1 m2 : SameADTs m1 m2 <-> (forall k v, StringMap.find k m1 = Some (@ADT av v) <-> StringMap.find k m2 = Some (@ADT av v)).
proof: Proof. unfold SameADTs; setoid_rewrite find_mapsto_iff; reflexivity. Qed.
imports: Coq.Classes.Morphisms CertifiedExtraction.CoreLemmas CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.FacadeLemmas