proposition: Lemma SameValues_forget_Ext_helper: forall `{FacadeWrapper (Value av) A} (k : string) (cmp : Comp A) val (tmp : StringMap.key) (ext : StringMap.t (Value av)) (final_state : State av), tmp ∉ ext -> final_state ≲ [[ ` k ~~> cmp as _]]::Nil ∪ [tmp |> SCA _ val]::ext -> final_state ≲ [[ ` k ~~> cmp as _]]::Nil ∪ ext.
proof: Proof. simpl; intros. SameValues_Fiat_t. eauto using WeakEq_pop_SCA, WeakEq_Refl, WeakEq_Trans. Qed.
imports: Coq.Classes.Morphisms CertifiedExtraction.CoreLemmas CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.FacadeLemmas