Step |
Hyp |
Ref |
Expression |
1 |
|
exp0 |
โข ( ๐ง โ โ โ ( ๐ง โ 0 ) = 1 ) |
2 |
1
|
adantl |
โข ( ( ( ๐ โ โ โง ๐ด โ ๐ ) โง ๐ง โ โ ) โ ( ๐ง โ 0 ) = 1 ) |
3 |
2
|
oveq2d |
โข ( ( ( ๐ โ โ โง ๐ด โ ๐ ) โง ๐ง โ โ ) โ ( ๐ด ยท ( ๐ง โ 0 ) ) = ( ๐ด ยท 1 ) ) |
4 |
|
ssel2 |
โข ( ( ๐ โ โ โง ๐ด โ ๐ ) โ ๐ด โ โ ) |
5 |
4
|
adantr |
โข ( ( ( ๐ โ โ โง ๐ด โ ๐ ) โง ๐ง โ โ ) โ ๐ด โ โ ) |
6 |
5
|
mulridd |
โข ( ( ( ๐ โ โ โง ๐ด โ ๐ ) โง ๐ง โ โ ) โ ( ๐ด ยท 1 ) = ๐ด ) |
7 |
3 6
|
eqtrd |
โข ( ( ( ๐ โ โ โง ๐ด โ ๐ ) โง ๐ง โ โ ) โ ( ๐ด ยท ( ๐ง โ 0 ) ) = ๐ด ) |
8 |
7
|
mpteq2dva |
โข ( ( ๐ โ โ โง ๐ด โ ๐ ) โ ( ๐ง โ โ โฆ ( ๐ด ยท ( ๐ง โ 0 ) ) ) = ( ๐ง โ โ โฆ ๐ด ) ) |
9 |
|
fconstmpt |
โข ( โ ร { ๐ด } ) = ( ๐ง โ โ โฆ ๐ด ) |
10 |
8 9
|
eqtr4di |
โข ( ( ๐ โ โ โง ๐ด โ ๐ ) โ ( ๐ง โ โ โฆ ( ๐ด ยท ( ๐ง โ 0 ) ) ) = ( โ ร { ๐ด } ) ) |
11 |
|
0nn0 |
โข 0 โ โ0 |
12 |
|
eqid |
โข ( ๐ง โ โ โฆ ( ๐ด ยท ( ๐ง โ 0 ) ) ) = ( ๐ง โ โ โฆ ( ๐ด ยท ( ๐ง โ 0 ) ) ) |
13 |
12
|
ply1term |
โข ( ( ๐ โ โ โง ๐ด โ ๐ โง 0 โ โ0 ) โ ( ๐ง โ โ โฆ ( ๐ด ยท ( ๐ง โ 0 ) ) ) โ ( Poly โ ๐ ) ) |
14 |
11 13
|
mp3an3 |
โข ( ( ๐ โ โ โง ๐ด โ ๐ ) โ ( ๐ง โ โ โฆ ( ๐ด ยท ( ๐ง โ 0 ) ) ) โ ( Poly โ ๐ ) ) |
15 |
10 14
|
eqeltrrd |
โข ( ( ๐ โ โ โง ๐ด โ ๐ ) โ ( โ ร { ๐ด } ) โ ( Poly โ ๐ ) ) |