fact: Definition upExtRen_poly_type_poly_type (xi : ( nat ) -> nat ) (zeta : ( nat ) -> nat ) (Eq : forall x, xi x = zeta x) : forall x, (upRen_poly_type_poly_type xi) x = (upRen_poly_type_poly_type zeta) x := fun n => match n with | S n => ap shift (Eq n) | 0 => eq_refl end.
imports: Undecidability.SystemF.Autosubst.unscoped Undecidability.SystemF.SysF Morphisms