proposition: Lemma map_ren_poly_type_Gamma_W {ξ}: map (ren_poly_type ξ) Gamma_W = Gamma_W.
proof: Proof. congr cons. congr cons. apply: ren_poly_type_closed_id. rewrite allfv_poly_type_many_poly_abs. apply: allfv_poly_type_impl closed_t_1_W. move=> ? ?. rewrite iter_scons_lt; by [|lia]. Qed.
imports: List Lia Undecidability.SystemF.SysF Undecidability.SystemF.Autosubst.syntax Undecidability.SystemF.Util(Facts poly_type_facts pure_term_facts term_facts typing_facts pure_typing_facts pure_typable_prenex) ssreflect ssrbool ssrfun