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