Step | Hyp | Ref
| Expression |
1 | | df-c 7817 |
. 2
โข โ =
(R ร R) |
2 | | eqeq1 2184 |
. . 3
โข
(โจ๐ง, ๐คโฉ = ๐ด โ (โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ)) โ ๐ด = (๐ฅ + (i ยท ๐ฆ)))) |
3 | 2 | 2rexbidv 2502 |
. 2
โข
(โจ๐ง, ๐คโฉ = ๐ด โ (โ๐ฅ โ โ โ๐ฆ โ โ โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ)) โ โ๐ฅ โ โ โ๐ฆ โ โ ๐ด = (๐ฅ + (i ยท ๐ฆ)))) |
4 | | opelreal 7826 |
. . . . . 6
โข
(โจ๐ง,
0Rโฉ โ โ โ ๐ง โ R) |
5 | | opelreal 7826 |
. . . . . 6
โข
(โจ๐ค,
0Rโฉ โ โ โ ๐ค โ R) |
6 | 4, 5 | anbi12i 460 |
. . . . 5
โข
((โจ๐ง,
0Rโฉ โ โ โง โจ๐ค, 0Rโฉ โ
โ) โ (๐ง โ
R โง ๐ค
โ R)) |
7 | 6 | biimpri 133 |
. . . 4
โข ((๐ง โ R โง
๐ค โ R)
โ (โจ๐ง,
0Rโฉ โ โ โง โจ๐ค, 0Rโฉ โ
โ)) |
8 | | df-i 7820 |
. . . . . . . . 9
โข i =
โจ0R,
1Rโฉ |
9 | 8 | oveq1i 5885 |
. . . . . . . 8
โข (i
ยท โจ๐ค,
0Rโฉ) = (โจ0R,
1Rโฉ ยท โจ๐ค,
0Rโฉ) |
10 | | 0r 7749 |
. . . . . . . . . 10
โข
0R โ R |
11 | | 1sr 7750 |
. . . . . . . . . . 11
โข
1R โ R |
12 | | mulcnsr 7834 |
. . . . . . . . . . 11
โข
(((0R โ R โง
1R โ R) โง (๐ค โ R โง
0R โ R)) โ
(โจ0R, 1Rโฉ ยท
โจ๐ค,
0Rโฉ) = โจ((0R
ยทR ๐ค) +R
(-1R ยทR
(1R ยทR
0R))), ((1R
ยทR ๐ค) +R
(0R ยทR
0R))โฉ) |
13 | 10, 11, 12 | mpanl12 436 |
. . . . . . . . . 10
โข ((๐ค โ R โง
0R โ R) โ
(โจ0R, 1Rโฉ ยท
โจ๐ค,
0Rโฉ) = โจ((0R
ยทR ๐ค) +R
(-1R ยทR
(1R ยทR
0R))), ((1R
ยทR ๐ค) +R
(0R ยทR
0R))โฉ) |
14 | 10, 13 | mpan2 425 |
. . . . . . . . 9
โข (๐ค โ R โ
(โจ0R, 1Rโฉ ยท
โจ๐ค,
0Rโฉ) = โจ((0R
ยทR ๐ค) +R
(-1R ยทR
(1R ยทR
0R))), ((1R
ยทR ๐ค) +R
(0R ยทR
0R))โฉ) |
15 | | mulcomsrg 7756 |
. . . . . . . . . . . . . 14
โข
((0R โ R โง ๐ค โ R) โ
(0R ยทR ๐ค) = (๐ค ยทR
0R)) |
16 | 10, 15 | mpan 424 |
. . . . . . . . . . . . 13
โข (๐ค โ R โ
(0R ยทR ๐ค) = (๐ค ยทR
0R)) |
17 | | 00sr 7768 |
. . . . . . . . . . . . 13
โข (๐ค โ R โ
(๐ค
ยทR 0R) =
0R) |
18 | 16, 17 | eqtrd 2210 |
. . . . . . . . . . . 12
โข (๐ค โ R โ
(0R ยทR ๐ค) =
0R) |
19 | 18 | oveq1d 5890 |
. . . . . . . . . . 11
โข (๐ค โ R โ
((0R ยทR ๐ค) +R
(-1R ยทR
(1R ยทR
0R))) = (0R
+R (-1R
ยทR (1R
ยทR
0R)))) |
20 | | 00sr 7768 |
. . . . . . . . . . . . . . . 16
โข
(1R โ R โ
(1R ยทR
0R) = 0R) |
21 | 11, 20 | ax-mp 5 |
. . . . . . . . . . . . . . 15
โข
(1R ยทR
0R) = 0R |
22 | 21 | oveq2i 5886 |
. . . . . . . . . . . . . 14
โข
(-1R ยทR
(1R ยทR
0R)) = (-1R
ยทR
0R) |
23 | | m1r 7751 |
. . . . . . . . . . . . . . 15
โข
-1R โ R |
24 | | 00sr 7768 |
. . . . . . . . . . . . . . 15
โข
(-1R โ R โ
(-1R ยทR
0R) = 0R) |
25 | 23, 24 | ax-mp 5 |
. . . . . . . . . . . . . 14
โข
(-1R ยทR
0R) = 0R |
26 | 22, 25 | eqtri 2198 |
. . . . . . . . . . . . 13
โข
(-1R ยทR
(1R ยทR
0R)) = 0R |
27 | 26 | oveq2i 5886 |
. . . . . . . . . . . 12
โข
(0R +R
(-1R ยทR
(1R ยทR
0R))) = (0R
+R 0R) |
28 | | 0idsr 7766 |
. . . . . . . . . . . . 13
โข
(0R โ R โ
(0R +R
0R) = 0R) |
29 | 10, 28 | ax-mp 5 |
. . . . . . . . . . . 12
โข
(0R +R
0R) = 0R |
30 | 27, 29 | eqtri 2198 |
. . . . . . . . . . 11
โข
(0R +R
(-1R ยทR
(1R ยทR
0R))) = 0R |
31 | 19, 30 | eqtrdi 2226 |
. . . . . . . . . 10
โข (๐ค โ R โ
((0R ยทR ๐ค) +R
(-1R ยทR
(1R ยทR
0R))) = 0R) |
32 | | mulcomsrg 7756 |
. . . . . . . . . . . . . 14
โข
((1R โ R โง ๐ค โ R) โ
(1R ยทR ๐ค) = (๐ค ยทR
1R)) |
33 | 11, 32 | mpan 424 |
. . . . . . . . . . . . 13
โข (๐ค โ R โ
(1R ยทR ๐ค) = (๐ค ยทR
1R)) |
34 | | 1idsr 7767 |
. . . . . . . . . . . . 13
โข (๐ค โ R โ
(๐ค
ยทR 1R) = ๐ค) |
35 | 33, 34 | eqtrd 2210 |
. . . . . . . . . . . 12
โข (๐ค โ R โ
(1R ยทR ๐ค) = ๐ค) |
36 | 35 | oveq1d 5890 |
. . . . . . . . . . 11
โข (๐ค โ R โ
((1R ยทR ๐ค) +R
(0R ยทR
0R)) = (๐ค +R
(0R ยทR
0R))) |
37 | | 00sr 7768 |
. . . . . . . . . . . . . 14
โข
(0R โ R โ
(0R ยทR
0R) = 0R) |
38 | 10, 37 | ax-mp 5 |
. . . . . . . . . . . . 13
โข
(0R ยทR
0R) = 0R |
39 | 38 | oveq2i 5886 |
. . . . . . . . . . . 12
โข (๐ค +R
(0R ยทR
0R)) = (๐ค +R
0R) |
40 | | 0idsr 7766 |
. . . . . . . . . . . 12
โข (๐ค โ R โ
(๐ค
+R 0R) = ๐ค) |
41 | 39, 40 | eqtrid 2222 |
. . . . . . . . . . 11
โข (๐ค โ R โ
(๐ค
+R (0R
ยทR 0R)) = ๐ค) |
42 | 36, 41 | eqtrd 2210 |
. . . . . . . . . 10
โข (๐ค โ R โ
((1R ยทR ๐ค) +R
(0R ยทR
0R)) = ๐ค) |
43 | 31, 42 | opeq12d 3787 |
. . . . . . . . 9
โข (๐ค โ R โ
โจ((0R ยทR ๐ค) +R
(-1R ยทR
(1R ยทR
0R))), ((1R
ยทR ๐ค) +R
(0R ยทR
0R))โฉ = โจ0R, ๐คโฉ) |
44 | 14, 43 | eqtrd 2210 |
. . . . . . . 8
โข (๐ค โ R โ
(โจ0R, 1Rโฉ ยท
โจ๐ค,
0Rโฉ) = โจ0R, ๐คโฉ) |
45 | 9, 44 | eqtrid 2222 |
. . . . . . 7
โข (๐ค โ R โ
(i ยท โจ๐ค,
0Rโฉ) = โจ0R, ๐คโฉ) |
46 | 45 | oveq2d 5891 |
. . . . . 6
โข (๐ค โ R โ
(โจ๐ง,
0Rโฉ + (i ยท โจ๐ค, 0Rโฉ)) =
(โจ๐ง,
0Rโฉ + โจ0R, ๐คโฉ)) |
47 | 46 | adantl 277 |
. . . . 5
โข ((๐ง โ R โง
๐ค โ R)
โ (โจ๐ง,
0Rโฉ + (i ยท โจ๐ค, 0Rโฉ)) =
(โจ๐ง,
0Rโฉ + โจ0R, ๐คโฉ)) |
48 | | addcnsr 7833 |
. . . . . . 7
โข (((๐ง โ R โง
0R โ R) โง
(0R โ R โง ๐ค โ R)) โ (โจ๐ง,
0Rโฉ + โจ0R, ๐คโฉ) = โจ(๐ง +R
0R), (0R
+R ๐ค)โฉ) |
49 | 10, 48 | mpanl2 435 |
. . . . . 6
โข ((๐ง โ R โง
(0R โ R โง ๐ค โ R)) โ (โจ๐ง,
0Rโฉ + โจ0R, ๐คโฉ) = โจ(๐ง +R
0R), (0R
+R ๐ค)โฉ) |
50 | 10, 49 | mpanr1 437 |
. . . . 5
โข ((๐ง โ R โง
๐ค โ R)
โ (โจ๐ง,
0Rโฉ + โจ0R, ๐คโฉ) = โจ(๐ง +R
0R), (0R
+R ๐ค)โฉ) |
51 | | 0idsr 7766 |
. . . . . 6
โข (๐ง โ R โ
(๐ง
+R 0R) = ๐ง) |
52 | | addcomsrg 7754 |
. . . . . . . 8
โข
((0R โ R โง ๐ค โ R) โ
(0R +R ๐ค) = (๐ค +R
0R)) |
53 | 10, 52 | mpan 424 |
. . . . . . 7
โข (๐ค โ R โ
(0R +R ๐ค) = (๐ค +R
0R)) |
54 | 53, 40 | eqtrd 2210 |
. . . . . 6
โข (๐ค โ R โ
(0R +R ๐ค) = ๐ค) |
55 | | opeq12 3781 |
. . . . . 6
โข (((๐ง +R
0R) = ๐ง โง (0R
+R ๐ค) = ๐ค) โ โจ(๐ง +R
0R), (0R
+R ๐ค)โฉ = โจ๐ง, ๐คโฉ) |
56 | 51, 54, 55 | syl2an 289 |
. . . . 5
โข ((๐ง โ R โง
๐ค โ R)
โ โจ(๐ง
+R 0R),
(0R +R ๐ค)โฉ = โจ๐ง, ๐คโฉ) |
57 | 47, 50, 56 | 3eqtrrd 2215 |
. . . 4
โข ((๐ง โ R โง
๐ค โ R)
โ โจ๐ง, ๐คโฉ = (โจ๐ง,
0Rโฉ + (i ยท โจ๐ค,
0Rโฉ))) |
58 | | vex 2741 |
. . . . . 6
โข ๐ง โ V |
59 | | opexg 4229 |
. . . . . 6
โข ((๐ง โ V โง
0R โ R) โ โจ๐ง,
0Rโฉ โ V) |
60 | 58, 10, 59 | mp2an 426 |
. . . . 5
โข
โจ๐ง,
0Rโฉ โ V |
61 | | vex 2741 |
. . . . . 6
โข ๐ค โ V |
62 | | opexg 4229 |
. . . . . 6
โข ((๐ค โ V โง
0R โ R) โ โจ๐ค,
0Rโฉ โ V) |
63 | 61, 10, 62 | mp2an 426 |
. . . . 5
โข
โจ๐ค,
0Rโฉ โ V |
64 | | eleq1 2240 |
. . . . . . 7
โข (๐ฅ = โจ๐ง, 0Rโฉ โ
(๐ฅ โ โ โ
โจ๐ง,
0Rโฉ โ โ)) |
65 | | eleq1 2240 |
. . . . . . 7
โข (๐ฆ = โจ๐ค, 0Rโฉ โ
(๐ฆ โ โ โ
โจ๐ค,
0Rโฉ โ โ)) |
66 | 64, 65 | bi2anan9 606 |
. . . . . 6
โข ((๐ฅ = โจ๐ง, 0Rโฉ โง
๐ฆ = โจ๐ค,
0Rโฉ) โ ((๐ฅ โ โ โง ๐ฆ โ โ) โ (โจ๐ง,
0Rโฉ โ โ โง โจ๐ค, 0Rโฉ โ
โ))) |
67 | | oveq1 5882 |
. . . . . . . 8
โข (๐ฅ = โจ๐ง, 0Rโฉ โ
(๐ฅ + (i ยท ๐ฆ)) = (โจ๐ง, 0Rโฉ + (i
ยท ๐ฆ))) |
68 | | oveq2 5883 |
. . . . . . . . 9
โข (๐ฆ = โจ๐ค, 0Rโฉ โ (i
ยท ๐ฆ) = (i ยท
โจ๐ค,
0Rโฉ)) |
69 | 68 | oveq2d 5891 |
. . . . . . . 8
โข (๐ฆ = โจ๐ค, 0Rโฉ โ
(โจ๐ง,
0Rโฉ + (i ยท ๐ฆ)) = (โจ๐ง, 0Rโฉ + (i
ยท โจ๐ค,
0Rโฉ))) |
70 | 67, 69 | sylan9eq 2230 |
. . . . . . 7
โข ((๐ฅ = โจ๐ง, 0Rโฉ โง
๐ฆ = โจ๐ค,
0Rโฉ) โ (๐ฅ + (i ยท ๐ฆ)) = (โจ๐ง, 0Rโฉ + (i
ยท โจ๐ค,
0Rโฉ))) |
71 | 70 | eqeq2d 2189 |
. . . . . 6
โข ((๐ฅ = โจ๐ง, 0Rโฉ โง
๐ฆ = โจ๐ค,
0Rโฉ) โ (โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ)) โ โจ๐ง, ๐คโฉ = (โจ๐ง, 0Rโฉ + (i
ยท โจ๐ค,
0Rโฉ)))) |
72 | 66, 71 | anbi12d 473 |
. . . . 5
โข ((๐ฅ = โจ๐ง, 0Rโฉ โง
๐ฆ = โจ๐ค,
0Rโฉ) โ (((๐ฅ โ โ โง ๐ฆ โ โ) โง โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ))) โ ((โจ๐ง, 0Rโฉ โ
โ โง โจ๐ค,
0Rโฉ โ โ) โง โจ๐ง, ๐คโฉ = (โจ๐ง, 0Rโฉ + (i
ยท โจ๐ค,
0Rโฉ))))) |
73 | 60, 63, 72 | spc2ev 2834 |
. . . 4
โข
(((โจ๐ง,
0Rโฉ โ โ โง โจ๐ค, 0Rโฉ โ
โ) โง โจ๐ง,
๐คโฉ = (โจ๐ง,
0Rโฉ + (i ยท โจ๐ค, 0Rโฉ))) โ
โ๐ฅโ๐ฆ((๐ฅ โ โ โง ๐ฆ โ โ) โง โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ)))) |
74 | 7, 57, 73 | syl2anc 411 |
. . 3
โข ((๐ง โ R โง
๐ค โ R)
โ โ๐ฅโ๐ฆ((๐ฅ โ โ โง ๐ฆ โ โ) โง โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ)))) |
75 | | r2ex 2497 |
. . 3
โข
(โ๐ฅ โ
โ โ๐ฆ โ
โ โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ)) โ โ๐ฅโ๐ฆ((๐ฅ โ โ โง ๐ฆ โ โ) โง โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ)))) |
76 | 74, 75 | sylibr 134 |
. 2
โข ((๐ง โ R โง
๐ค โ R)
โ โ๐ฅ โ
โ โ๐ฆ โ
โ โจ๐ง, ๐คโฉ = (๐ฅ + (i ยท ๐ฆ))) |
77 | 1, 3, 76 | optocl 4703 |
1
โข (๐ด โ โ โ
โ๐ฅ โ โ
โ๐ฆ โ โ
๐ด = (๐ฅ + (i ยท ๐ฆ))) |