Metamath Proof Explorer


Theorem prodf1

Description: The value of the partial products in a one-valued infinite product. (Contributed by Scott Fenton, 5-Dec-2017)

Ref Expression
Hypothesis prodf1.1 โŠข ๐‘ = ( โ„คโ‰ฅ โ€˜ ๐‘€ )
Assertion prodf1 ( ๐‘ โˆˆ ๐‘ โ†’ ( seq ๐‘€ ( ยท , ( ๐‘ ร— { 1 } ) ) โ€˜ ๐‘ ) = 1 )

Proof

Step Hyp Ref Expression
1 prodf1.1 โŠข ๐‘ = ( โ„คโ‰ฅ โ€˜ ๐‘€ )
2 1t1e1 โŠข ( 1 ยท 1 ) = 1
3 2 a1i โŠข ( ๐‘ โˆˆ ๐‘ โ†’ ( 1 ยท 1 ) = 1 )
4 1 eleq2i โŠข ( ๐‘ โˆˆ ๐‘ โ†” ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
5 4 biimpi โŠข ( ๐‘ โˆˆ ๐‘ โ†’ ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
6 ax-1cn โŠข 1 โˆˆ โ„‚
7 elfzuz โŠข ( ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) โ†’ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘€ ) )
8 7 1 eleqtrrdi โŠข ( ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) โ†’ ๐‘˜ โˆˆ ๐‘ )
9 8 adantl โŠข ( ( ๐‘ โˆˆ ๐‘ โˆง ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ) โ†’ ๐‘˜ โˆˆ ๐‘ )
10 fvconst2g โŠข ( ( 1 โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ ๐‘ ) โ†’ ( ( ๐‘ ร— { 1 } ) โ€˜ ๐‘˜ ) = 1 )
11 6 9 10 sylancr โŠข ( ( ๐‘ โˆˆ ๐‘ โˆง ๐‘˜ โˆˆ ( ๐‘€ ... ๐‘ ) ) โ†’ ( ( ๐‘ ร— { 1 } ) โ€˜ ๐‘˜ ) = 1 )
12 3 5 11 seqid3 โŠข ( ๐‘ โˆˆ ๐‘ โ†’ ( seq ๐‘€ ( ยท , ( ๐‘ ร— { 1 } ) ) โ€˜ ๐‘ ) = 1 )