proposition: Lemma SameValues_Dealloc_W : forall {av} st k (v: Comp W) tail ext, st ≲ Cons (av := av) (NTSome k) v tail ∪ ext -> st ≲ Cons NTNone v tail ∪ ext.
proof: Proof. intros; eauto using SameValues_Dealloc_SCA. Qed.
imports: Coq.Classes.Morphisms CertifiedExtraction.CoreLemmas CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.FacadeLemmas