Theorem: LO.FirstOrder.Arith.Model.ext_add_of_dvd_sq_left (Arithmetization/ISigmaZero/Exponential/Exp.lean)

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
u z₁ z₂ : M
pos : 0 < u
h : u ^ 2 ∣ z₁
⊢ ext u (z₁ + z₂) = ext u z₂
Tactic:
rw [add_comm]
State after:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
u z₁ z₂ : M
pos : 0 < u
h : u ^ 2 ∣ z₁
⊢ ext u (z₂ + z₁) = ext u z₂

State before:
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
u z₁ z₂ : M
pos : 0 < u
h : u ^ 2 ∣ z₁
⊢ ext u (z₂ + z₁) = ext u z₂
Tactic:
exact ext_add_of_dvd_sq_right pos h
State after:
no goals