Metamath Proof Explorer


Theorem fprodp1s

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

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

Proof

Step Hyp Ref Expression
1 fprodp1s.1 โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
2 fprodp1s.2 โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ) โ†’ ๐ด โˆˆ โ„‚ )
3 2 ralrimiva โŠข ( ๐œ‘ โ†’ โˆ€ ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ๐ด โˆˆ โ„‚ )
4 nfcsb1v โŠข โ„ฒ ๐‘˜ โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด
5 4 nfel1 โŠข โ„ฒ ๐‘˜ โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด โˆˆ โ„‚
6 csbeq1a โŠข ( ๐‘˜ = ๐‘š โ†’ ๐ด = โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด )
7 6 eleq1d โŠข ( ๐‘˜ = ๐‘š โ†’ ( ๐ด โˆˆ โ„‚ โ†” โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด โˆˆ โ„‚ ) )
8 5 7 rspc โŠข ( ๐‘š โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) โ†’ ( โˆ€ ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ๐ด โˆˆ โ„‚ โ†’ โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด โˆˆ โ„‚ ) )
9 3 8 mpan9 โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ) โ†’ โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด โˆˆ โ„‚ )
10 csbeq1 โŠข ( ๐‘š = ( ๐‘ + 1 ) โ†’ โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด = โฆ‹ ( ๐‘ + 1 ) / ๐‘˜ โฆŒ ๐ด )
11 1 9 10 fprodp1 โŠข ( ๐œ‘ โ†’ โˆ ๐‘š โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด = ( โˆ ๐‘š โˆˆ ( ๐‘€ ... ๐‘ ) โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด ยท โฆ‹ ( ๐‘ + 1 ) / ๐‘˜ โฆŒ ๐ด ) )
12 nfcv โŠข โ„ฒ ๐‘š ๐ด
13 12 4 6 cbvprodi โŠข โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ๐ด = โˆ ๐‘š โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด
14 12 4 6 cbvprodi โŠข โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ๐ด = โˆ ๐‘š โˆˆ ( ๐‘€ ... ๐‘ ) โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด
15 14 oveq1i โŠข ( โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ๐ด ยท โฆ‹ ( ๐‘ + 1 ) / ๐‘˜ โฆŒ ๐ด ) = ( โˆ ๐‘š โˆˆ ( ๐‘€ ... ๐‘ ) โฆ‹ ๐‘š / ๐‘˜ โฆŒ ๐ด ยท โฆ‹ ( ๐‘ + 1 ) / ๐‘˜ โฆŒ ๐ด )
16 11 13 15 3eqtr4g โŠข ( ๐œ‘ โ†’ โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ( ๐‘ + 1 ) ) ๐ด = ( โˆ ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ๐ด ยท โฆ‹ ( ๐‘ + 1 ) / ๐‘˜ โฆŒ ๐ด ) )