fact: Fixpoint eterm_size (u : eterm) : nat := let '(closure ctx t) := u in 1 + list_sum (map eterm_size ctx) + (term_size t).
imports: Undecidability.LambdaCalculus(Krivine Lambda Util.term_facts) Undecidability.L.Util.L_facts List Lia Relations ssreflect