fact: Fixpoint term_size (t : term) : nat := match t with | var n => n | app s t => 1 + term_size s + term_size t | lam s => 1 + term_size s end.
imports: Undecidability.LambdaCalculus(Krivine Lambda Util.term_facts) Undecidability.L.Util.L_facts List Lia Relations ssreflect