fact: Fixpoint cbv_cbn (t : term) : term := match t with | var n => lam (app (var 0) (var (S n))) | app s t => lam (app (ren S (cbv_cbn s)) (lam (app (ren S (ren S (cbv_cbn t))) (lam (app (app (var 1) (var 0)) (var 2)))))) | lam s => lam (app (var 0) (ren S (lam (cbv_cbn s)))) end.
imports: Undecidability.LambdaCalculus(Lambda Util.term_facts Util.wCBN_facts) Undecidability(L.Util.L_facts) Coq(Relations Wellfounded.Transitive_Closure List Lia) Coq(ssreflect)