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