case _ =>
  simp only [c1]
  apply specId (args_v 0)
  apply IsDeduct.axiom_
  apply IsAxiom.eq_1_
P_r P_s : Formula
r s : VarName
name : PredName
n : ℕ
ih :
  ∀ (args_u args_v : Fin n → VarName),
    (∀ (i : Fin n), args_u i = args_v i ∨ args_u i = r ∧ args_v i = s) →
      IsDeduct ∅ ((eq_ r s).imp_ (List.foldr and_ true_ (List.ofFn fun i => eq_ (args_u i) (args_v i))))
args_u args_v : Fin (n + 1) → VarName
c1 : args_u 0 = args_v 0
⊢ IsDeduct ∅ (eq_ (args_u 0) (args_v 0))
no goals