fact: Definition up_ren_subst_term_poly_type (xi : ( nat ) -> nat ) (tau : ( nat ) -> poly_type ) (theta : ( nat ) -> poly_type ) (Eq : forall x, (funcomp tau xi) x = theta x) : forall x, (funcomp (up_term_poly_type tau) (upRen_term_poly_type xi)) x = (up_term_poly_type theta) x := fun n => ap (ren_poly_type id) (Eq n).
imports: Undecidability.SystemF.Autosubst.unscoped Undecidability.SystemF.SysF Morphisms