fact: Fixpoint term_size (M : term) := match M with | var _ => 1 | app M' N' => 1 + term_size M' + term_size N' | lam M' => 1 + term_size M' end.
imports: Undecidability.LambdaCalculus.Lambda PeanoNat Lia List Relations ssreflect