have h5 : ∀ y z, f y = f z → f (-y) = f (-z) :=
  λ y z h5 ↦ by rw [← h3, h5, h3]
R : Type u_1
D : Type u_2
inst✝ : DivisionRing D
f✝ : D → D
h✝ : good f✝
h : 2 ≠ 0
f : D → D
h0 : good f
h1 : f 0 = 1
h3 : ∀ (y : D), f (2 * f y) + 1 + f y = f (-y)
h2 : ∀ (y : D), f y = f (-y) → y = 0
a b : D
h4 : f a = f b
⊢ f (a - b) = f (-(a - b))
R : Type u_1
D : Type u_2
inst✝ : DivisionRing D
f✝ : D → D
h✝ : good f✝
h : 2 ≠ 0
f : D → D
h0 : good f
h1 : f 0 = 1
h3 : ∀ (y : D), f (2 * f y) + 1 + f y = f (-y)
h2 : ∀ (y : D), f y = f (-y) → y = 0
a b : D
h4 : f a = f b
h5 : ∀ (y z : D), f y = f z → f (-y) = f (-z)
⊢ f (a - b) = f (-(a - b))