Metamath Proof Explorer


Theorem sn-negex12

Description: A combination of cnegex and cnegex2 , this proof takes cnre A = r +i x. s and shows that i x. -u s + -u r is both a left and right inverse. (Contributed by SN, 5-May-2024)

Ref Expression
Assertion sn-negex12 A b A + b = 0 b + A = 0

Proof

Step Hyp Ref Expression
1 ax-icn i
2 1 a1i y i
3 rernegcl y 0 - y
4 3 recnd y 0 - y
5 2 4 mulcld y i 0 - y
6 5 adantl x y i 0 - y
7 rernegcl x 0 - x
8 7 recnd x 0 - x
9 8 adantr x y 0 - x
10 6 9 addcld x y i 0 - y + 0 - x
11 10 adantl A x y i 0 - y + 0 - x
12 eqeq1 b = i 0 - y + 0 - x b = i 0 - y + 0 - x i 0 - y + 0 - x = i 0 - y + 0 - x
13 12 adantl A x y b = i 0 - y + 0 - x b = i 0 - y + 0 - x i 0 - y + 0 - x = i 0 - y + 0 - x
14 eqidd A x y i 0 - y + 0 - x = i 0 - y + 0 - x
15 11 13 14 rspcedvd A x y b b = i 0 - y + 0 - x
16 15 ralrimivva A x y b b = i 0 - y + 0 - x
17 cnre A x y A = x + i y
18 16 17 r19.29d2r A x y b b = i 0 - y + 0 - x A = x + i y
19 oveq1 A = x + i y A + i 0 - y = x + i y + i 0 - y
20 19 adantl A x y A = x + i y A + i 0 - y = x + i y + i 0 - y
21 recn x x
22 21 adantr x y x
23 1 a1i x y i
24 recn y y
25 24 adantl x y y
26 23 25 mulcld x y i y
27 22 26 6 addassd x y x + i y + i 0 - y = x + i y + i 0 - y
28 renegid y y + 0 - y = 0
29 28 oveq2d y i y + 0 - y = i 0
30 2 24 4 adddid y i y + 0 - y = i y + i 0 - y
31 sn-it0e0 i 0 = 0
32 31 a1i y i 0 = 0
33 29 30 32 3eqtr3d y i y + i 0 - y = 0
34 33 oveq2d y x + i y + i 0 - y = x + 0
35 34 adantl x y x + i y + i 0 - y = x + 0
36 readdid1 x x + 0 = x
37 36 adantr x y x + 0 = x
38 27 35 37 3eqtrd x y x + i y + i 0 - y = x
39 38 ad2antlr A x y A = x + i y x + i y + i 0 - y = x
40 20 39 eqtrd A x y A = x + i y A + i 0 - y = x
41 40 oveq1d A x y A = x + i y A + i 0 - y + 0 - x = x + 0 - x
42 simpll A x y A = x + i y A
43 6 ad2antlr A x y A = x + i y i 0 - y
44 9 ad2antlr A x y A = x + i y 0 - x
45 42 43 44 addassd A x y A = x + i y A + i 0 - y + 0 - x = A + i 0 - y + 0 - x
46 renegid x x + 0 - x = 0
47 46 adantr x y x + 0 - x = 0
48 47 ad2antlr A x y A = x + i y x + 0 - x = 0
49 41 45 48 3eqtr3d A x y A = x + i y A + i 0 - y + 0 - x = 0
50 oveq2 A = x + i y i 0 - y + 0 - x + A = i 0 - y + 0 - x + x + i y
51 22 26 addcld x y x + i y
52 6 9 51 addassd x y i 0 - y + 0 - x + x + i y = i 0 - y + 0 - x + x + i y
53 9 22 26 addassd x y 0 - x + x + i y = 0 - x + x + i y
54 53 oveq2d x y i 0 - y + 0 - x + x + i y = i 0 - y + 0 - x + x + i y
55 renegid2 x 0 - x + x = 0
56 55 adantr x y 0 - x + x = 0
57 56 oveq1d x y 0 - x + x + i y = 0 + i y
58 sn-addid2 i y 0 + i y = i y
59 26 58 syl x y 0 + i y = i y
60 57 59 eqtrd x y 0 - x + x + i y = i y
61 60 oveq2d x y i 0 - y + 0 - x + x + i y = i 0 - y + i y
62 4 adantl x y 0 - y
63 23 62 25 adddid x y i 0 - y + y = i 0 - y + i y
64 renegid2 y 0 - y + y = 0
65 64 adantl x y 0 - y + y = 0
66 65 oveq2d x y i 0 - y + y = i 0
67 66 31 eqtrdi x y i 0 - y + y = 0
68 61 63 67 3eqtr2d x y i 0 - y + 0 - x + x + i y = 0
69 52 54 68 3eqtr2d x y i 0 - y + 0 - x + x + i y = 0
70 69 adantl A x y i 0 - y + 0 - x + x + i y = 0
71 50 70 sylan9eqr A x y A = x + i y i 0 - y + 0 - x + A = 0
72 49 71 jca A x y A = x + i y A + i 0 - y + 0 - x = 0 i 0 - y + 0 - x + A = 0
73 oveq2 b = i 0 - y + 0 - x A + b = A + i 0 - y + 0 - x
74 73 eqeq1d b = i 0 - y + 0 - x A + b = 0 A + i 0 - y + 0 - x = 0
75 oveq1 b = i 0 - y + 0 - x b + A = i 0 - y + 0 - x + A
76 75 eqeq1d b = i 0 - y + 0 - x b + A = 0 i 0 - y + 0 - x + A = 0
77 74 76 anbi12d b = i 0 - y + 0 - x A + b = 0 b + A = 0 A + i 0 - y + 0 - x = 0 i 0 - y + 0 - x + A = 0
78 72 77 syl5ibrcom A x y A = x + i y b = i 0 - y + 0 - x A + b = 0 b + A = 0
79 78 reximdv A x y A = x + i y b b = i 0 - y + 0 - x b A + b = 0 b + A = 0
80 79 expimpd A x y A = x + i y b b = i 0 - y + 0 - x b A + b = 0 b + A = 0
81 80 ancomsd A x y b b = i 0 - y + 0 - x A = x + i y b A + b = 0 b + A = 0
82 81 rexlimdvva A x y b b = i 0 - y + 0 - x A = x + i y b A + b = 0 b + A = 0
83 18 82 mpd A b A + b = 0 b + A = 0