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