Step | Hyp | Ref
| Expression |
1 | | dfcnqs 7842 |
. 2
โข โ =
((R ร R) / โก E ) |
2 | | mulcnsrec 7844 |
. 2
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ([โจ๐ฅ, ๐ฆโฉ]โก E ยท [โจ๐ง, ๐คโฉ]โก E ) = [โจ((๐ฅ ยทR ๐ง) +R
(-1R ยทR (๐ฆ
ยทR ๐ค))), ((๐ฆ ยทR ๐ง) +R
(๐ฅ
ยทR ๐ค))โฉ]โก E ) |
3 | | mulcnsrec 7844 |
. 2
โข (((๐ง โ R โง
๐ค โ R)
โง (๐ฅ โ
R โง ๐ฆ
โ R)) โ ([โจ๐ง, ๐คโฉ]โก E ยท [โจ๐ฅ, ๐ฆโฉ]โก E ) = [โจ((๐ง ยทR ๐ฅ) +R
(-1R ยทR (๐ค
ยทR ๐ฆ))), ((๐ค ยทR ๐ฅ) +R
(๐ง
ยทR ๐ฆ))โฉ]โก E ) |
4 | | simpll 527 |
. . . 4
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ๐ฅ โ R) |
5 | | simprl 529 |
. . . 4
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ๐ง โ R) |
6 | | mulcomsrg 7758 |
. . . 4
โข ((๐ฅ โ R โง
๐ง โ R)
โ (๐ฅ
ยทR ๐ง) = (๐ง ยทR ๐ฅ)) |
7 | 4, 5, 6 | syl2anc 411 |
. . 3
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ (๐ฅ ยทR ๐ง) = (๐ง ยทR ๐ฅ)) |
8 | | simplr 528 |
. . . . 5
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ๐ฆ โ R) |
9 | | simprr 531 |
. . . . 5
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ๐ค โ R) |
10 | | mulcomsrg 7758 |
. . . . 5
โข ((๐ฆ โ R โง
๐ค โ R)
โ (๐ฆ
ยทR ๐ค) = (๐ค ยทR ๐ฆ)) |
11 | 8, 9, 10 | syl2anc 411 |
. . . 4
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ (๐ฆ ยทR ๐ค) = (๐ค ยทR ๐ฆ)) |
12 | 11 | oveq2d 5893 |
. . 3
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ (-1R
ยทR (๐ฆ ยทR ๐ค)) =
(-1R ยทR (๐ค
ยทR ๐ฆ))) |
13 | 7, 12 | oveq12d 5895 |
. 2
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ((๐ฅ ยทR ๐ง) +R
(-1R ยทR (๐ฆ
ยทR ๐ค))) = ((๐ง ยทR ๐ฅ) +R
(-1R ยทR (๐ค
ยทR ๐ฆ)))) |
14 | | mulcomsrg 7758 |
. . . . 5
โข ((๐ฆ โ R โง
๐ง โ R)
โ (๐ฆ
ยทR ๐ง) = (๐ง ยทR ๐ฆ)) |
15 | 8, 5, 14 | syl2anc 411 |
. . . 4
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ (๐ฆ ยทR ๐ง) = (๐ง ยทR ๐ฆ)) |
16 | | mulcomsrg 7758 |
. . . . 5
โข ((๐ฅ โ R โง
๐ค โ R)
โ (๐ฅ
ยทR ๐ค) = (๐ค ยทR ๐ฅ)) |
17 | 4, 9, 16 | syl2anc 411 |
. . . 4
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ (๐ฅ ยทR ๐ค) = (๐ค ยทR ๐ฅ)) |
18 | 15, 17 | oveq12d 5895 |
. . 3
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ((๐ฆ ยทR ๐ง) +R
(๐ฅ
ยทR ๐ค)) = ((๐ง ยทR ๐ฆ) +R
(๐ค
ยทR ๐ฅ))) |
19 | | mulclsr 7755 |
. . . . 5
โข ((๐ง โ R โง
๐ฆ โ R)
โ (๐ง
ยทR ๐ฆ) โ R) |
20 | 5, 8, 19 | syl2anc 411 |
. . . 4
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ (๐ง ยทR ๐ฆ) โ
R) |
21 | | mulclsr 7755 |
. . . . 5
โข ((๐ค โ R โง
๐ฅ โ R)
โ (๐ค
ยทR ๐ฅ) โ R) |
22 | 9, 4, 21 | syl2anc 411 |
. . . 4
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ (๐ค ยทR ๐ฅ) โ
R) |
23 | | addcomsrg 7756 |
. . . 4
โข (((๐ง
ยทR ๐ฆ) โ R โง (๐ค
ยทR ๐ฅ) โ R) โ ((๐ง
ยทR ๐ฆ) +R (๐ค
ยทR ๐ฅ)) = ((๐ค ยทR ๐ฅ) +R
(๐ง
ยทR ๐ฆ))) |
24 | 20, 22, 23 | syl2anc 411 |
. . 3
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ((๐ง ยทR ๐ฆ) +R
(๐ค
ยทR ๐ฅ)) = ((๐ค ยทR ๐ฅ) +R
(๐ง
ยทR ๐ฆ))) |
25 | 18, 24 | eqtrd 2210 |
. 2
โข (((๐ฅ โ R โง
๐ฆ โ R)
โง (๐ง โ
R โง ๐ค
โ R)) โ ((๐ฆ ยทR ๐ง) +R
(๐ฅ
ยทR ๐ค)) = ((๐ค ยทR ๐ฅ) +R
(๐ง
ยทR ๐ฆ))) |
26 | 1, 2, 3, 13, 25 | ecovicom 6645 |
1
โข ((๐ด โ โ โง ๐ต โ โ) โ (๐ด ยท ๐ต) = (๐ต ยท ๐ด)) |