proposition: Lemma Lifted_MapsTo_eq: forall `{FacadeWrapper (Value av) A} ext k v tail, @Lifted_MapsTo av ext (Cons (NTSome k) (ret v) tail) k (wrap v).
proof: Proof. unfold Lifted_MapsTo, LiftPropertyToTelescope; intros. SameValues_Facade_t. Qed.
imports: CertifiedExtraction.Core CertifiedExtraction.FacadeNotations CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.ExtendedLemmas