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