(* Reduction from: Turing Machine Halting (HaltTM 1) to: System F Inhabitation (SysF_INH) *)
Require Undecidability.FRACTRAN.Reductions.HaltTM_1_to_FRACTRAN_HALTING.
Require Undecidability.DiophantineConstraints.Reductions.FRACTRAN_to_H10C_SAT.
Require Undecidability.SystemF.Reductions.H10C_SAT_to_SysF_INH.

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