fact: Fixpoint occurs (v : nat) (t : Term) : bool := match t with | LS | LK | LI => false | LVar n => if n =? v then true else false | LApp x y => orb (occurs v x) (occurs v y) | LLam n b => if n =? v then false else occurs v b end.
imports: Hammer(Reconstr) PeanoNat Omega