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 syl5ib 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 syl5ib 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 syl5bi 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