Metamath Proof Explorer


Theorem fprodp1

Description: Multiply in the last term in a finite product. (Contributed by Scott Fenton, 24-Dec-2017)

Ref Expression
Hypotheses fprodp1.1 โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
fprodp1.2 โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ) โ†’ ๐ด โˆˆ โ„‚ )
fprodp1.3 โŠข ( ๐‘˜ = ( ๐‘ + 1 ) โ†’ ๐ด = ๐ต )
Assertion fprodp1 ( ๐œ‘ โ†’ โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ๐ด = ( โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ๐ด ยท ๐ต ) )

Proof

Step Hyp Ref Expression
1 fprodp1.1 โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
2 fprodp1.2 โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ) โ†’ ๐ด โˆˆ โ„‚ )
3 fprodp1.3 โŠข ( ๐‘˜ = ( ๐‘ + 1 ) โ†’ ๐ด = ๐ต )
4 peano2uz โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) โ†’ ( ๐‘ + 1 ) โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
5 1 4 syl โŠข ( ๐œ‘ โ†’ ( ๐‘ + 1 ) โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
6 5 2 3 fprodm1 โŠข ( ๐œ‘ โ†’ โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ๐ด = ( โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ( ( ๐‘ + 1 ) โˆ’ 1 ) ) ๐ด ยท ๐ต ) )
7 eluzelz โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) โ†’ ๐‘ โˆˆ โ„ค )
8 1 7 syl โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„ค )
9 8 zcnd โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„‚ )
10 1cnd โŠข ( ๐œ‘ โ†’ 1 โˆˆ โ„‚ )
11 9 10 pncand โŠข ( ๐œ‘ โ†’ ( ( ๐‘ + 1 ) โˆ’ 1 ) = ๐‘ )
12 11 oveq2d โŠข ( ๐œ‘ โ†’ ( ๐‘€ ... ( ( ๐‘ + 1 ) โˆ’ 1 ) ) = ( ๐‘€ ... ๐‘ ) )
13 12 prodeq1d โŠข ( ๐œ‘ โ†’ โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ( ( ๐‘ + 1 ) โˆ’ 1 ) ) ๐ด = โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ๐ด )
14 13 oveq1d โŠข ( ๐œ‘ โ†’ ( โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ( ( ๐‘ + 1 ) โˆ’ 1 ) ) ๐ด ยท ๐ต ) = ( โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ๐ด ยท ๐ต ) )
15 6 14 eqtrd โŠข ( ๐œ‘ โ†’ โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ๐ด = ( โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ๐ด ยท ๐ต ) )