all_goals
  simp only [predVarOccursIn]
  simp only [Formula.predVarSet]
case pred_const_
P : PredName
n : ℕ
a✝¹ : PredName
a✝ : List VarName
⊢ predVarOccursIn P n (pred_const_ a✝¹ a✝) ↔ (P, n) ∈ (pred_const_ a✝¹ a✝).predVarSet

case pred_var_
P : PredName
n : ℕ
a✝¹ : PredName
a✝ : List VarName
⊢ predVarOccursIn P n (pred_var_ a✝¹ a✝) ↔ (P, n) ∈ (pred_var_ a✝¹ a✝).predVarSet

case eq_
P : PredName
n : ℕ
a✝¹ a✝ : VarName
⊢ predVarOccursIn P n (eq_ a✝¹ a✝) ↔ (P, n) ∈ (eq_ a✝¹ a✝).predVarSet

case true_
P : PredName
n : ℕ
⊢ predVarOccursIn P n true_ ↔ (P, n) ∈ true_.predVarSet

case false_
P : PredName
n : ℕ
⊢ predVarOccursIn P n false_ ↔ (P, n) ∈ false_.predVarSet

case not_
P : PredName
n : ℕ
a✝ : Formula
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n a✝.not_ ↔ (P, n) ∈ a✝.not_.predVarSet

case imp_
P : PredName
n : ℕ
a✝¹ a✝ : Formula
a_ih✝¹ : predVarOccursIn P n a✝¹ ↔ (P, n) ∈ a✝¹.predVarSet
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n (a✝¹.imp_ a✝) ↔ (P, n) ∈ (a✝¹.imp_ a✝).predVarSet

case and_
P : PredName
n : ℕ
a✝¹ a✝ : Formula
a_ih✝¹ : predVarOccursIn P n a✝¹ ↔ (P, n) ∈ a✝¹.predVarSet
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n (a✝¹.and_ a✝) ↔ (P, n) ∈ (a✝¹.and_ a✝).predVarSet

case or_
P : PredName
n : ℕ
a✝¹ a✝ : Formula
a_ih✝¹ : predVarOccursIn P n a✝¹ ↔ (P, n) ∈ a✝¹.predVarSet
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n (a✝¹.or_ a✝) ↔ (P, n) ∈ (a✝¹.or_ a✝).predVarSet

case iff_
P : PredName
n : ℕ
a✝¹ a✝ : Formula
a_ih✝¹ : predVarOccursIn P n a✝¹ ↔ (P, n) ∈ a✝¹.predVarSet
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n (a✝¹.iff_ a✝) ↔ (P, n) ∈ (a✝¹.iff_ a✝).predVarSet

case forall_
P : PredName
n : ℕ
a✝¹ : VarName
a✝ : Formula
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n (forall_ a✝¹ a✝) ↔ (P, n) ∈ (forall_ a✝¹ a✝).predVarSet

case exists_
P : PredName
n : ℕ
a✝¹ : VarName
a✝ : Formula
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n (exists_ a✝¹ a✝) ↔ (P, n) ∈ (exists_ a✝¹ a✝).predVarSet

case def_
P : PredName
n : ℕ
a✝¹ : DefName
a✝ : List VarName
⊢ predVarOccursIn P n (def_ a✝¹ a✝) ↔ (P, n) ∈ (def_ a✝¹ a✝).predVarSet
case pred_const_
P : PredName
n : ℕ
a✝¹ : PredName
a✝ : List VarName
⊢ False ↔ (P, n) ∈ ∅

case pred_var_
P : PredName
n : ℕ
a✝¹ : PredName
a✝ : List VarName
⊢ P = a✝¹ ∧ n = a✝.length ↔ (P, n) ∈ {(a✝¹, a✝.length)}

case eq_
P : PredName
n : ℕ
a✝¹ a✝ : VarName
⊢ False ↔ (P, n) ∈ ∅

case true_
P : PredName
n : ℕ
⊢ False ↔ (P, n) ∈ ∅

case false_
P : PredName
n : ℕ
⊢ False ↔ (P, n) ∈ ∅

case not_
P : PredName
n : ℕ
a✝ : Formula
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet

case imp_
P : PredName
n : ℕ
a✝¹ a✝ : Formula
a_ih✝¹ : predVarOccursIn P n a✝¹ ↔ (P, n) ∈ a✝¹.predVarSet
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n a✝¹ ∨ predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝¹.predVarSet ∪ a✝.predVarSet

case and_
P : PredName
n : ℕ
a✝¹ a✝ : Formula
a_ih✝¹ : predVarOccursIn P n a✝¹ ↔ (P, n) ∈ a✝¹.predVarSet
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n a✝¹ ∨ predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝¹.predVarSet ∪ a✝.predVarSet

case or_
P : PredName
n : ℕ
a✝¹ a✝ : Formula
a_ih✝¹ : predVarOccursIn P n a✝¹ ↔ (P, n) ∈ a✝¹.predVarSet
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n a✝¹ ∨ predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝¹.predVarSet ∪ a✝.predVarSet

case iff_
P : PredName
n : ℕ
a✝¹ a✝ : Formula
a_ih✝¹ : predVarOccursIn P n a✝¹ ↔ (P, n) ∈ a✝¹.predVarSet
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n a✝¹ ∨ predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝¹.predVarSet ∪ a✝.predVarSet

case forall_
P : PredName
n : ℕ
a✝¹ : VarName
a✝ : Formula
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet

case exists_
P : PredName
n : ℕ
a✝¹ : VarName
a✝ : Formula
a_ih✝ : predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet
⊢ predVarOccursIn P n a✝ ↔ (P, n) ∈ a✝.predVarSet

case def_
P : PredName
n : ℕ
a✝¹ : DefName
a✝ : List VarName
⊢ False ↔ (P, n) ∈ ∅