Theorem: Arith.HSemiformula.ProperWithParamOn.ball (Arithmetization/Definability/Hierarchy.lean)

State before:
L : Language
inst✝⁷ : L.ORing
ξ : Type v
n : ℕ
M : Type u_1
inst✝⁶ : Zero M
inst✝⁵ : One M
inst✝⁴ : Add M
inst✝³ : Mul M
inst✝² : LT M
inst✝¹ : Structure L M
inst✝ : Structure.ORing L M
k m : ℕ
t : Semiterm L M k
p : HSemiformula L M (k + 1) (𝚫, m)
hp : ProperWithParamOn M p
⊢ ProperWithParamOn M (HSemiformula.ball t p)
Tactic:
intro e
State after:
L : Language
inst✝⁷ : L.ORing
ξ : Type v
n : ℕ
M : Type u_1
inst✝⁶ : Zero M
inst✝⁵ : One M
inst✝⁴ : Add M
inst✝³ : Mul M
inst✝² : LT M
inst✝¹ : Structure L M
inst✝ : Structure.ORing L M
k m : ℕ
t : Semiterm L M k
p : HSemiformula L M (k + 1) (𝚫, m)
hp : ProperWithParamOn M p
e : Fin k → M
⊢ (Semiformula.Evalm M e id) (HSemiformula.ball t p).sigma.val ↔
    (Semiformula.Evalm M e id) (HSemiformula.ball t p).pi.val

State before:
L : Language
inst✝⁷ : L.ORing
ξ : Type v
n : ℕ
M : Type u_1
inst✝⁶ : Zero M
inst✝⁵ : One M
inst✝⁴ : Add M
inst✝³ : Mul M
inst✝² : LT M
inst✝¹ : Structure L M
inst✝ : Structure.ORing L M
k m : ℕ
t : Semiterm L M k
p : HSemiformula L M (k + 1) (𝚫, m)
hp : ProperWithParamOn M p
e : Fin k → M
⊢ (Semiformula.Evalm M e id) (HSemiformula.ball t p).sigma.val ↔
    (Semiformula.Evalm M e id) (HSemiformula.ball t p).pi.val
Tactic:
simp [HSemiformula.ball, hp.iff]
State after:
no goals