From Undecidability.L Require Import L Seval LM_heap_def LM_heap_correct.
(* * L to TM *)
-Definition HaltLclosed (s : {s : term | closed s}) := exists t, eval (proj1_sig s) t. (* Halting problem for call-by-value lambda-calculus *)
Definition eva_LM_lin sigma := exists tau, evaluates step sigma tau.

Lemma LM_halting_LM_halting : HaltLclosed ⪯ eva_LM_lin.