proposition: Lemma MapsTo_SCA_not_mapsto_adt : forall {av} k w fmap, StringMap.MapsTo k (SCA av w) fmap -> not_mapsto_adt k fmap = true.
proof: Proof. intros; unfold not_mapsto_adt, is_mapsto_adt, is_some_p. MoreStringMapFacts.normalize; reflexivity. Qed.
imports: CertifiedExtraction.Core CertifiedExtraction.PureUtils CertifiedExtraction.StringMapUtils CertifiedExtraction.FacadeUtils Coq.Setoids.Setoid