fact: Definition enc_halt_cbn : term := lam (lam (lam (lam ( call [var 2 ; lam (call [var 1; call [enc_halt_cbn_var0; var 7 ; var 6 ; var 4 ]; lam (call [enc_halt_cbn_varS; var 8 ; var 7 ; var 1 ; var 5 ]) ]); lam (lam (call [enc_halt_cbn_app; var 7 ; var 6 ; var 2 ; var 1 ; var 4 ])); lam (call [enc_halt_cbn_lam; var 6 ; var 5 ; var 1 ; var 3 ]) ])))).
imports: Undecidability.LambdaCalculus(Krivine Lambda Util.Krivine_facts) Undecidability.LambdaCalculus.Util.term_facts Undecidability.Shared.deterministic_simulation Relations List ssreflect