Step |
Hyp |
Ref |
Expression |
1 |
|
elreal |
โข ( ๐ด โ โ โ โ ๐ฅ โ R โจ ๐ฅ , 0R โฉ = ๐ด ) |
2 |
|
elreal |
โข ( ๐ต โ โ โ โ ๐ฆ โ R โจ ๐ฆ , 0R โฉ = ๐ต ) |
3 |
|
oveq1 |
โข ( โจ ๐ฅ , 0R โฉ = ๐ด โ ( โจ ๐ฅ , 0R โฉ ยท โจ ๐ฆ , 0R โฉ ) = ( ๐ด ยท โจ ๐ฆ , 0R โฉ ) ) |
4 |
3
|
eleq1d |
โข ( โจ ๐ฅ , 0R โฉ = ๐ด โ ( ( โจ ๐ฅ , 0R โฉ ยท โจ ๐ฆ , 0R โฉ ) โ โ โ ( ๐ด ยท โจ ๐ฆ , 0R โฉ ) โ โ ) ) |
5 |
|
oveq2 |
โข ( โจ ๐ฆ , 0R โฉ = ๐ต โ ( ๐ด ยท โจ ๐ฆ , 0R โฉ ) = ( ๐ด ยท ๐ต ) ) |
6 |
5
|
eleq1d |
โข ( โจ ๐ฆ , 0R โฉ = ๐ต โ ( ( ๐ด ยท โจ ๐ฆ , 0R โฉ ) โ โ โ ( ๐ด ยท ๐ต ) โ โ ) ) |
7 |
|
mulresr |
โข ( ( ๐ฅ โ R โง ๐ฆ โ R ) โ ( โจ ๐ฅ , 0R โฉ ยท โจ ๐ฆ , 0R โฉ ) = โจ ( ๐ฅ ยทR ๐ฆ ) , 0R โฉ ) |
8 |
|
mulclsr |
โข ( ( ๐ฅ โ R โง ๐ฆ โ R ) โ ( ๐ฅ ยทR ๐ฆ ) โ R ) |
9 |
|
opelreal |
โข ( โจ ( ๐ฅ ยทR ๐ฆ ) , 0R โฉ โ โ โ ( ๐ฅ ยทR ๐ฆ ) โ R ) |
10 |
8 9
|
sylibr |
โข ( ( ๐ฅ โ R โง ๐ฆ โ R ) โ โจ ( ๐ฅ ยทR ๐ฆ ) , 0R โฉ โ โ ) |
11 |
7 10
|
eqeltrd |
โข ( ( ๐ฅ โ R โง ๐ฆ โ R ) โ ( โจ ๐ฅ , 0R โฉ ยท โจ ๐ฆ , 0R โฉ ) โ โ ) |
12 |
1 2 4 6 11
|
2gencl |
โข ( ( ๐ด โ โ โง ๐ต โ โ ) โ ( ๐ด ยท ๐ต ) โ โ ) |