Metamath Proof Explorer


Theorem negeu

Description: Existential uniqueness of negatives. Theorem I.2 of Apostol p. 18. (Contributed by NM, 22-Nov-1994) (Proof shortened by Mario Carneiro, 27-May-2016)

Ref Expression
Assertion negeu ⊢ A ∈ ℂ ∧ B ∈ ℂ → ∃! x ∈ ℂ A + x = B

Proof

Step Hyp Ref Expression
1 cnegex ⊢ A ∈ ℂ → ∃ y ∈ ℂ A + y = 0
2 1 adantr ⊢ A ∈ ℂ ∧ B ∈ ℂ → ∃ y ∈ ℂ A + y = 0
3 simpl ⊢ y ∈ ℂ ∧ A + y = 0 → y ∈ ℂ
4 simpr ⊢ A ∈ ℂ ∧ B ∈ ℂ → B ∈ ℂ
5 addcl ⊢ y ∈ ℂ ∧ B ∈ ℂ → y + B ∈ ℂ
6 3 4 5 syl2anr ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 → y + B ∈ ℂ
7 simplrr ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → A + y = 0
8 7 oveq1d ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → A + y + B = 0 + B
9 simplll ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → A ∈ ℂ
10 simplrl ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → y ∈ ℂ
11 simpllr ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → B ∈ ℂ
12 9 10 11 addassd ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → A + y + B = A + y + B
13 11 addlidd ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → 0 + B = B
14 8 12 13 3eqtr3rd ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → B = A + y + B
15 14 eqeq2d ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → A + x = B ↔ A + x = A + y + B
16 simpr ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → x ∈ ℂ
17 10 11 addcld ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → y + B ∈ ℂ
18 9 16 17 addcand ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → A + x = A + y + B ↔ x = y + B
19 15 18 bitrd ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 ∧ x ∈ ℂ → A + x = B ↔ x = y + B
20 19 ralrimiva ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 → ∀ x ∈ ℂ A + x = B ↔ x = y + B
21 reu6i ⊢ y + B ∈ ℂ ∧ ∀ x ∈ ℂ A + x = B ↔ x = y + B → ∃! x ∈ ℂ A + x = B
22 6 20 21 syl2anc ⊢ A ∈ ℂ ∧ B ∈ ℂ ∧ y ∈ ℂ ∧ A + y = 0 → ∃! x ∈ ℂ A + x = B
23 2 22 rexlimddv ⊢ A ∈ ℂ ∧ B ∈ ℂ → ∃! x ∈ ℂ A + x = B