Metamath Proof Explorer


Theorem plyconst

Description: A constant function is a polynomial. (Contributed by Mario Carneiro, 17-Jul-2014)

Ref Expression
Assertion plyconst ( ( ๐‘† โІ โ„‚ โˆง ๐ด โˆˆ ๐‘† ) โ†’ ( โ„‚ ร— { ๐ด } ) โˆˆ ( Poly โ€˜ ๐‘† ) )

Proof

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 โ€˜ ๐‘† ) )