Metamath Proof Explorer


Theorem cju

Description: The complex conjugate of a complex number is unique. (Contributed by Mario Carneiro, 6-Nov-2013)

Ref Expression
Assertion cju ⊢ A ∈ ℂ → ∃! x ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ

Proof

Step Hyp Ref Expression
1 cnre ⊢ A ∈ ℂ → ∃ y ∈ ℝ ∃ z ∈ ℝ A = y + i ⁢ z
2 recn ⊢ y ∈ ℝ → y ∈ ℂ
3 ax-icn ⊢ i ∈ ℂ
4 recn ⊢ z ∈ ℝ → z ∈ ℂ
5 mulcl ⊢ i ∈ ℂ ∧ z ∈ ℂ → i ⁢ z ∈ ℂ
6 3 4 5 sylancr ⊢ z ∈ ℝ → i ⁢ z ∈ ℂ
7 subcl ⊢ y ∈ ℂ ∧ i ⁢ z ∈ ℂ → y − i ⁢ z ∈ ℂ
8 2 6 7 syl2an ⊢ y ∈ ℝ ∧ z ∈ ℝ → y − i ⁢ z ∈ ℂ
9 2 adantr ⊢ y ∈ ℝ ∧ z ∈ ℝ → y ∈ ℂ
10 6 adantl ⊢ y ∈ ℝ ∧ z ∈ ℝ → i ⁢ z ∈ ℂ
11 9 10 9 ppncand ⊢ y ∈ ℝ ∧ z ∈ ℝ → y + i ⁢ z + y − i ⁢ z = y + y
12 readdcl ⊢ y ∈ ℝ ∧ y ∈ ℝ → y + y ∈ ℝ
13 12 anidms ⊢ y ∈ ℝ → y + y ∈ ℝ
14 13 adantr ⊢ y ∈ ℝ ∧ z ∈ ℝ → y + y ∈ ℝ
15 11 14 eqeltrd ⊢ y ∈ ℝ ∧ z ∈ ℝ → y + i ⁢ z + y − i ⁢ z ∈ ℝ
16 9 10 10 pnncand ⊢ y ∈ ℝ ∧ z ∈ ℝ → y + i ⁢ z - y − i ⁢ z = i ⁢ z + i ⁢ z
17 3 a1i ⊢ y ∈ ℝ ∧ z ∈ ℝ → i ∈ ℂ
18 4 adantl ⊢ y ∈ ℝ ∧ z ∈ ℝ → z ∈ ℂ
19 17 18 18 adddid ⊢ y ∈ ℝ ∧ z ∈ ℝ → i ⁢ z + z = i ⁢ z + i ⁢ z
20 16 19 eqtr4d ⊢ y ∈ ℝ ∧ z ∈ ℝ → y + i ⁢ z - y − i ⁢ z = i ⁢ z + z
21 20 oveq2d ⊢ y ∈ ℝ ∧ z ∈ ℝ → i ⁢ y + i ⁢ z - y − i ⁢ z = i ⁢ i ⁢ z + z
22 18 18 addcld ⊢ y ∈ ℝ ∧ z ∈ ℝ → z + z ∈ ℂ
23 mulass ⊢ i ∈ ℂ ∧ i ∈ ℂ ∧ z + z ∈ ℂ → i ⁢ i ⁢ z + z = i ⁢ i ⁢ z + z
24 3 3 22 23 mp3an12i ⊢ y ∈ ℝ ∧ z ∈ ℝ → i ⁢ i ⁢ z + z = i ⁢ i ⁢ z + z
25 21 24 eqtr4d ⊢ y ∈ ℝ ∧ z ∈ ℝ → i ⁢ y + i ⁢ z - y − i ⁢ z = i ⁢ i ⁢ z + z
26 ixi ⊢ i ⁢ i = − 1
27 1re ⊢ 1 ∈ ℝ
28 27 renegcli ⊢ − 1 ∈ ℝ
29 26 28 eqeltri ⊢ i ⁢ i ∈ ℝ
30 simpr ⊢ y ∈ ℝ ∧ z ∈ ℝ → z ∈ ℝ
31 30 30 readdcld ⊢ y ∈ ℝ ∧ z ∈ ℝ → z + z ∈ ℝ
32 remulcl ⊢ i ⁢ i ∈ ℝ ∧ z + z ∈ ℝ → i ⁢ i ⁢ z + z ∈ ℝ
33 29 31 32 sylancr ⊢ y ∈ ℝ ∧ z ∈ ℝ → i ⁢ i ⁢ z + z ∈ ℝ
34 25 33 eqeltrd ⊢ y ∈ ℝ ∧ z ∈ ℝ → i ⁢ y + i ⁢ z - y − i ⁢ z ∈ ℝ
35 oveq2 ⊢ x = y − i ⁢ z → y + i ⁢ z + x = y + i ⁢ z + y − i ⁢ z
36 35 eleq1d ⊢ x = y − i ⁢ z → y + i ⁢ z + x ∈ ℝ ↔ y + i ⁢ z + y − i ⁢ z ∈ ℝ
37 oveq2 ⊢ x = y − i ⁢ z → y + i ⁢ z - x = y + i ⁢ z - y − i ⁢ z
38 37 oveq2d ⊢ x = y − i ⁢ z → i ⁢ y + i ⁢ z - x = i ⁢ y + i ⁢ z - y − i ⁢ z
39 38 eleq1d ⊢ x = y − i ⁢ z → i ⁢ y + i ⁢ z - x ∈ ℝ ↔ i ⁢ y + i ⁢ z - y − i ⁢ z ∈ ℝ
40 36 39 anbi12d ⊢ x = y − i ⁢ z → y + i ⁢ z + x ∈ ℝ ∧ i ⁢ y + i ⁢ z - x ∈ ℝ ↔ y + i ⁢ z + y − i ⁢ z ∈ ℝ ∧ i ⁢ y + i ⁢ z - y − i ⁢ z ∈ ℝ
41 40 rspcev ⊢ y − i ⁢ z ∈ ℂ ∧ y + i ⁢ z + y − i ⁢ z ∈ ℝ ∧ i ⁢ y + i ⁢ z - y − i ⁢ z ∈ ℝ → ∃ x ∈ ℂ y + i ⁢ z + x ∈ ℝ ∧ i ⁢ y + i ⁢ z - x ∈ ℝ
42 8 15 34 41 syl12anc ⊢ y ∈ ℝ ∧ z ∈ ℝ → ∃ x ∈ ℂ y + i ⁢ z + x ∈ ℝ ∧ i ⁢ y + i ⁢ z - x ∈ ℝ
43 oveq1 ⊢ A = y + i ⁢ z → A + x = y + i ⁢ z + x
44 43 eleq1d ⊢ A = y + i ⁢ z → A + x ∈ ℝ ↔ y + i ⁢ z + x ∈ ℝ
45 oveq1 ⊢ A = y + i ⁢ z → A − x = y + i ⁢ z - x
46 45 oveq2d ⊢ A = y + i ⁢ z → i ⁢ A − x = i ⁢ y + i ⁢ z - x
47 46 eleq1d ⊢ A = y + i ⁢ z → i ⁢ A − x ∈ ℝ ↔ i ⁢ y + i ⁢ z - x ∈ ℝ
48 44 47 anbi12d ⊢ A = y + i ⁢ z → A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ↔ y + i ⁢ z + x ∈ ℝ ∧ i ⁢ y + i ⁢ z - x ∈ ℝ
49 48 rexbidv ⊢ A = y + i ⁢ z → ∃ x ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ↔ ∃ x ∈ ℂ y + i ⁢ z + x ∈ ℝ ∧ i ⁢ y + i ⁢ z - x ∈ ℝ
50 42 49 syl5ibrcom ⊢ y ∈ ℝ ∧ z ∈ ℝ → A = y + i ⁢ z → ∃ x ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ
51 50 rexlimivv ⊢ ∃ y ∈ ℝ ∃ z ∈ ℝ A = y + i ⁢ z → ∃ x ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ
52 1 51 syl ⊢ A ∈ ℂ → ∃ x ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ
53 an4 ⊢ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ∧ A + y ∈ ℝ ∧ i ⁢ A − y ∈ ℝ ↔ A + x ∈ ℝ ∧ A + y ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ∧ i ⁢ A − y ∈ ℝ
54 resubcl ⊢ A + x ∈ ℝ ∧ A + y ∈ ℝ → A + x - A + y ∈ ℝ
55 pnpcan ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A + x - A + y = x − y
56 55 3expb ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A + x - A + y = x − y
57 56 eleq1d ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A + x - A + y ∈ ℝ ↔ x − y ∈ ℝ
58 54 57 imbitrid ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A + x ∈ ℝ ∧ A + y ∈ ℝ → x − y ∈ ℝ
59 resubcl ⊢ i ⁢ A − y ∈ ℝ ∧ i ⁢ A − x ∈ ℝ → i ⁢ A − y − i ⁢ A − x ∈ ℝ
60 59 ancoms ⊢ i ⁢ A − x ∈ ℝ ∧ i ⁢ A − y ∈ ℝ → i ⁢ A − y − i ⁢ A − x ∈ ℝ
61 3 a1i ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → i ∈ ℂ
62 subcl ⊢ A ∈ ℂ ∧ y ∈ ℂ → A − y ∈ ℂ
63 62 adantrl ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A − y ∈ ℂ
64 subcl ⊢ A ∈ ℂ ∧ x ∈ ℂ → A − x ∈ ℂ
65 64 adantrr ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A − x ∈ ℂ
66 61 63 65 subdid ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → i ⁢ A - y - A − x = i ⁢ A − y − i ⁢ A − x
67 nnncan1 ⊢ A ∈ ℂ ∧ y ∈ ℂ ∧ x ∈ ℂ → A - y - A − x = x − y
68 67 3com23 ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A - y - A − x = x − y
69 68 3expb ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A - y - A − x = x − y
70 69 oveq2d ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → i ⁢ A - y - A − x = i ⁢ x − y
71 66 70 eqtr3d ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → i ⁢ A − y − i ⁢ A − x = i ⁢ x − y
72 71 eleq1d ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → i ⁢ A − y − i ⁢ A − x ∈ ℝ ↔ i ⁢ x − y ∈ ℝ
73 60 72 imbitrid ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → i ⁢ A − x ∈ ℝ ∧ i ⁢ A − y ∈ ℝ → i ⁢ x − y ∈ ℝ
74 58 73 anim12d ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A + x ∈ ℝ ∧ A + y ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ∧ i ⁢ A − y ∈ ℝ → x − y ∈ ℝ ∧ i ⁢ x − y ∈ ℝ
75 rimul ⊢ x − y ∈ ℝ ∧ i ⁢ x − y ∈ ℝ → x − y = 0
76 75 a1i ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → x − y ∈ ℝ ∧ i ⁢ x − y ∈ ℝ → x − y = 0
77 subeq0 ⊢ x ∈ ℂ ∧ y ∈ ℂ → x − y = 0 ↔ x = y
78 77 biimpd ⊢ x ∈ ℂ ∧ y ∈ ℂ → x − y = 0 → x = y
79 78 adantl ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → x − y = 0 → x = y
80 74 76 79 3syld ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A + x ∈ ℝ ∧ A + y ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ∧ i ⁢ A − y ∈ ℝ → x = y
81 53 80 biimtrid ⊢ A ∈ ℂ ∧ x ∈ ℂ ∧ y ∈ ℂ → A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ∧ A + y ∈ ℝ ∧ i ⁢ A − y ∈ ℝ → x = y
82 81 ralrimivva ⊢ A ∈ ℂ → ∀ x ∈ ℂ ∀ y ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ∧ A + y ∈ ℝ ∧ i ⁢ A − y ∈ ℝ → x = y
83 oveq2 ⊢ x = y → A + x = A + y
84 83 eleq1d ⊢ x = y → A + x ∈ ℝ ↔ A + y ∈ ℝ
85 oveq2 ⊢ x = y → A − x = A − y
86 85 oveq2d ⊢ x = y → i ⁢ A − x = i ⁢ A − y
87 86 eleq1d ⊢ x = y → i ⁢ A − x ∈ ℝ ↔ i ⁢ A − y ∈ ℝ
88 84 87 anbi12d ⊢ x = y → A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ↔ A + y ∈ ℝ ∧ i ⁢ A − y ∈ ℝ
89 88 reu4 ⊢ ∃! x ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ↔ ∃ x ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ∧ ∀ x ∈ ℂ ∀ y ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ ∧ A + y ∈ ℝ ∧ i ⁢ A − y ∈ ℝ → x = y
90 52 82 89 sylanbrc ⊢ A ∈ ℂ → ∃! x ∈ ℂ A + x ∈ ℝ ∧ i ⁢ A − x ∈ ℝ