fact: Fixpoint size (t : Term) : nat := match t with | LS | LK | LVar _ => 1 | LI => 2 | LApp x y => size x + size y + 1 | LLam _ x => size x + 1 end.
imports: Hammer(Tactics) Arith ZArith List Lia Hammer(Hints) Reals Lra Hammer(Reflect) Nat Psatz