Metamath Proof Explorer


Theorem fprodn0f

Description: A finite product of nonzero terms is nonzero. A version of fprodn0 using bound-variable hypotheses instead of distinct variable conditions. (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses fprodn0f.kph โŠข โ„ฒ ๐‘˜ ๐œ‘
fprodn0f.a โŠข ( ๐œ‘ โ†’ ๐ด โˆˆ Fin )
fprodn0f.b โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ๐ด ) โ†’ ๐ต โˆˆ โ„‚ )
fprodn0f.bne0 โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ๐ด ) โ†’ ๐ต โ‰  0 )
Assertion fprodn0f ( ๐œ‘ โ†’ โˆ ๐‘˜ โˆˆ ๐ด ๐ต โ‰  0 )

Proof

Step Hyp Ref Expression
1 fprodn0f.kph โŠข โ„ฒ ๐‘˜ ๐œ‘
2 fprodn0f.a โŠข ( ๐œ‘ โ†’ ๐ด โˆˆ Fin )
3 fprodn0f.b โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ๐ด ) โ†’ ๐ต โˆˆ โ„‚ )
4 fprodn0f.bne0 โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ๐ด ) โ†’ ๐ต โ‰  0 )
5 difssd โŠข ( ๐œ‘ โ†’ ( โ„‚ โˆ– { 0 } ) โŠ† โ„‚ )
6 eldifi โŠข ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โ†’ ๐‘ฅ โˆˆ โ„‚ )
7 6 adantr โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ๐‘ฅ โˆˆ โ„‚ )
8 eldifi โŠข ( ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) โ†’ ๐‘ฆ โˆˆ โ„‚ )
9 8 adantl โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ๐‘ฆ โˆˆ โ„‚ )
10 7 9 mulcld โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ โ„‚ )
11 eldifsni โŠข ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โ†’ ๐‘ฅ โ‰  0 )
12 11 adantr โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ๐‘ฅ โ‰  0 )
13 eldifsni โŠข ( ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) โ†’ ๐‘ฆ โ‰  0 )
14 13 adantl โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ๐‘ฆ โ‰  0 )
15 7 9 12 14 mulne0d โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โ‰  0 )
16 15 neneqd โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ยฌ ( ๐‘ฅ ยท ๐‘ฆ ) = 0 )
17 ovex โŠข ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ V
18 17 elsn โŠข ( ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ { 0 } โ†” ( ๐‘ฅ ยท ๐‘ฆ ) = 0 )
19 16 18 sylnibr โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ยฌ ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ { 0 } )
20 10 19 eldifd โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )
21 20 adantl โŠข ( ( ๐œ‘ โˆง ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )
22 4 neneqd โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ๐ด ) โ†’ ยฌ ๐ต = 0 )
23 elsng โŠข ( ๐ต โˆˆ โ„‚ โ†’ ( ๐ต โˆˆ { 0 } โ†” ๐ต = 0 ) )
24 3 23 syl โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ๐ด ) โ†’ ( ๐ต โˆˆ { 0 } โ†” ๐ต = 0 ) )
25 22 24 mtbird โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ๐ด ) โ†’ ยฌ ๐ต โˆˆ { 0 } )
26 3 25 eldifd โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ ๐ด ) โ†’ ๐ต โˆˆ ( โ„‚ โˆ– { 0 } ) )
27 ax-1cn โŠข 1 โˆˆ โ„‚
28 ax-1ne0 โŠข 1 โ‰  0
29 1ex โŠข 1 โˆˆ V
30 29 elsn โŠข ( 1 โˆˆ { 0 } โ†” 1 = 0 )
31 28 30 nemtbir โŠข ยฌ 1 โˆˆ { 0 }
32 eldif โŠข ( 1 โˆˆ ( โ„‚ โˆ– { 0 } ) โ†” ( 1 โˆˆ โ„‚ โˆง ยฌ 1 โˆˆ { 0 } ) )
33 27 31 32 mpbir2an โŠข 1 โˆˆ ( โ„‚ โˆ– { 0 } )
34 33 a1i โŠข ( ๐œ‘ โ†’ 1 โˆˆ ( โ„‚ โˆ– { 0 } ) )
35 1 5 21 2 26 34 fprodcllemf โŠข ( ๐œ‘ โ†’ โˆ ๐‘˜ โˆˆ ๐ด ๐ต โˆˆ ( โ„‚ โˆ– { 0 } ) )
36 eldifsni โŠข ( โˆ ๐‘˜ โˆˆ ๐ด ๐ต โˆˆ ( โ„‚ โˆ– { 0 } ) โ†’ โˆ ๐‘˜ โˆˆ ๐ด ๐ต โ‰  0 )
37 35 36 syl โŠข ( ๐œ‘ โ†’ โˆ ๐‘˜ โˆˆ ๐ด ๐ต โ‰  0 )