(* Reduction from: Turing Machine Halting (HaltTM 1) to: System F Typability (SysF_TYP) *)
Require Undecidability.StackMachines.Reductions.HaltTM_1_to_CSSM_UB.
Require Undecidability.SemiUnification.Reductions.CSSM_UB_to_SSemiU.
Require Undecidability.SemiUnification.Reductions.SSemiU_to_RU2SemiU.
Require Undecidability.SemiUnification.Reductions.RU2SemiU_to_LU2SemiU.
Require Undecidability.SystemF.Reductions.LU2SemiU_to_SysF_TYP.

(* Many-one reduction from Turing machine halting to System F typability*)
Theorem reduction : HaltTM 1 ⪯ SysF_TYP.