induction p <;> simp[elim, neg, *]
L : Language
μ : Type v
inst✝⁴ : (k : ℕ) → Primcodable (L.Func k)
inst✝³ : (k : ℕ) → Primcodable (L.Rel k)
inst✝² : UniformlyPrimcodable L.Func
inst✝¹ : UniformlyPrimcodable L.Rel
inst✝ : Primcodable μ
this :
  Primrec
    (elim falsum verum (fun {k} f v => nrel ⟨k, (f, v)⟩.snd.1 ⟨k, (f, v)⟩.snd.2)
      (fun {k} f v => rel ⟨k, (f, v)⟩.snd.1 ⟨k, (f, v)⟩.snd.2) or and ex all)
p : UFormula L μ
⊢ elim falsum verum (fun {k} f v => nrel f v) (fun {k} f v => rel f v) or and ex all p = p.neg
no goals