fact: Definition upId_poly_type_term (sigma : ( nat ) -> term ) (Eq : forall x, sigma x = (var ) x) : forall x, (up_poly_type_term sigma) x = (var ) x := fun n => ap (ren_term shift id) (Eq n).
imports: Undecidability.SystemF.Autosubst.unscoped Undecidability.SystemF.SysF Morphisms