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