Step |
Hyp |
Ref |
Expression |
1 |
|
df-br |
โข ( ๐ โฅ ๐ โ โจ ๐ , ๐ โฉ โ โฅ ) |
2 |
|
df-dvds |
โข โฅ = { โจ ๐ฅ , ๐ฆ โฉ โฃ ( ( ๐ฅ โ โค โง ๐ฆ โ โค ) โง โ ๐ โ โค ( ๐ ยท ๐ฅ ) = ๐ฆ ) } |
3 |
2
|
eleq2i |
โข ( โจ ๐ , ๐ โฉ โ โฅ โ โจ ๐ , ๐ โฉ โ { โจ ๐ฅ , ๐ฆ โฉ โฃ ( ( ๐ฅ โ โค โง ๐ฆ โ โค ) โง โ ๐ โ โค ( ๐ ยท ๐ฅ ) = ๐ฆ ) } ) |
4 |
1 3
|
bitri |
โข ( ๐ โฅ ๐ โ โจ ๐ , ๐ โฉ โ { โจ ๐ฅ , ๐ฆ โฉ โฃ ( ( ๐ฅ โ โค โง ๐ฆ โ โค ) โง โ ๐ โ โค ( ๐ ยท ๐ฅ ) = ๐ฆ ) } ) |
5 |
|
oveq2 |
โข ( ๐ฅ = ๐ โ ( ๐ ยท ๐ฅ ) = ( ๐ ยท ๐ ) ) |
6 |
5
|
eqeq1d |
โข ( ๐ฅ = ๐ โ ( ( ๐ ยท ๐ฅ ) = ๐ฆ โ ( ๐ ยท ๐ ) = ๐ฆ ) ) |
7 |
6
|
rexbidv |
โข ( ๐ฅ = ๐ โ ( โ ๐ โ โค ( ๐ ยท ๐ฅ ) = ๐ฆ โ โ ๐ โ โค ( ๐ ยท ๐ ) = ๐ฆ ) ) |
8 |
|
eqeq2 |
โข ( ๐ฆ = ๐ โ ( ( ๐ ยท ๐ ) = ๐ฆ โ ( ๐ ยท ๐ ) = ๐ ) ) |
9 |
8
|
rexbidv |
โข ( ๐ฆ = ๐ โ ( โ ๐ โ โค ( ๐ ยท ๐ ) = ๐ฆ โ โ ๐ โ โค ( ๐ ยท ๐ ) = ๐ ) ) |
10 |
7 9
|
opelopab2 |
โข ( ( ๐ โ โค โง ๐ โ โค ) โ ( โจ ๐ , ๐ โฉ โ { โจ ๐ฅ , ๐ฆ โฉ โฃ ( ( ๐ฅ โ โค โง ๐ฆ โ โค ) โง โ ๐ โ โค ( ๐ ยท ๐ฅ ) = ๐ฆ ) } โ โ ๐ โ โค ( ๐ ยท ๐ ) = ๐ ) ) |
11 |
4 10
|
bitrid |
โข ( ( ๐ โ โค โง ๐ โ โค ) โ ( ๐ โฅ ๐ โ โ ๐ โ โค ( ๐ ยท ๐ ) = ๐ ) ) |