Metamath Proof Explorer


Theorem coe1term

Description: The coefficient function of a monomial. (Contributed by Mario Carneiro, 26-Jul-2014)

Ref Expression
Hypothesis coe1term.1 โŠข ๐น = ( ๐‘ง โˆˆ โ„‚ โ†ฆ ( ๐ด ยท ( ๐‘ง โ†‘ ๐‘ ) ) )
Assertion coe1term ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( coeff โ€˜ ๐น ) โ€˜ ๐‘€ ) = if ( ๐‘€ = ๐‘ , ๐ด , 0 ) )

Proof

Step Hyp Ref Expression
1 coe1term.1 โŠข ๐น = ( ๐‘ง โˆˆ โ„‚ โ†ฆ ( ๐ด ยท ( ๐‘ง โ†‘ ๐‘ ) ) )
2 1 coe1termlem โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( coeff โ€˜ ๐น ) = ( ๐‘› โˆˆ โ„•0 โ†ฆ if ( ๐‘› = ๐‘ , ๐ด , 0 ) ) โˆง ( ๐ด โ‰  0 โ†’ ( deg โ€˜ ๐น ) = ๐‘ ) ) )
3 2 simpld โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( coeff โ€˜ ๐น ) = ( ๐‘› โˆˆ โ„•0 โ†ฆ if ( ๐‘› = ๐‘ , ๐ด , 0 ) ) )
4 3 fveq1d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( coeff โ€˜ ๐น ) โ€˜ ๐‘€ ) = ( ( ๐‘› โˆˆ โ„•0 โ†ฆ if ( ๐‘› = ๐‘ , ๐ด , 0 ) ) โ€˜ ๐‘€ ) )
5 4 3adant3 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( coeff โ€˜ ๐น ) โ€˜ ๐‘€ ) = ( ( ๐‘› โˆˆ โ„•0 โ†ฆ if ( ๐‘› = ๐‘ , ๐ด , 0 ) ) โ€˜ ๐‘€ ) )
6 eqid โŠข ( ๐‘› โˆˆ โ„•0 โ†ฆ if ( ๐‘› = ๐‘ , ๐ด , 0 ) ) = ( ๐‘› โˆˆ โ„•0 โ†ฆ if ( ๐‘› = ๐‘ , ๐ด , 0 ) )
7 eqeq1 โŠข ( ๐‘› = ๐‘€ โ†’ ( ๐‘› = ๐‘ โ†” ๐‘€ = ๐‘ ) )
8 7 ifbid โŠข ( ๐‘› = ๐‘€ โ†’ if ( ๐‘› = ๐‘ , ๐ด , 0 ) = if ( ๐‘€ = ๐‘ , ๐ด , 0 ) )
9 simp3 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ๐‘€ โˆˆ โ„•0 )
10 simp1 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ๐ด โˆˆ โ„‚ )
11 0cn โŠข 0 โˆˆ โ„‚
12 ifcl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง 0 โˆˆ โ„‚ ) โ†’ if ( ๐‘€ = ๐‘ , ๐ด , 0 ) โˆˆ โ„‚ )
13 10 11 12 sylancl โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ if ( ๐‘€ = ๐‘ , ๐ด , 0 ) โˆˆ โ„‚ )
14 6 8 9 13 fvmptd3 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( ๐‘› โˆˆ โ„•0 โ†ฆ if ( ๐‘› = ๐‘ , ๐ด , 0 ) ) โ€˜ ๐‘€ ) = if ( ๐‘€ = ๐‘ , ๐ด , 0 ) )
15 5 14 eqtrd โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„•0 ) โ†’ ( ( coeff โ€˜ ๐น ) โ€˜ ๐‘€ ) = if ( ๐‘€ = ๐‘ , ๐ด , 0 ) )