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