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