Metamath Proof Explorer


Theorem knoppcnlem5

Description: Lemma for knoppcn . (Contributed by Asger C. Ipsen, 4-Apr-2021) (Revised by Asger C. Ipsen, 5-Jul-2021)

Ref Expression
Hypotheses knoppcnlem5.t โŠข ๐‘‡ = ( ๐‘ฅ โˆˆ โ„ โ†ฆ ( abs โ€˜ ( ( โŒŠ โ€˜ ( ๐‘ฅ + ( 1 / 2 ) ) ) โˆ’ ๐‘ฅ ) ) )
knoppcnlem5.f โŠข ๐น = ( ๐‘ฆ โˆˆ โ„ โ†ฆ ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ๐ถ โ†‘ ๐‘› ) ยท ( ๐‘‡ โ€˜ ( ( ( 2 ยท ๐‘ ) โ†‘ ๐‘› ) ยท ๐‘ฆ ) ) ) ) )
knoppcnlem5.n โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
knoppcnlem5.1 โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„ )
Assertion knoppcnlem5 ( ๐œ‘ โ†’ ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) : โ„•0 โŸถ ( โ„‚ โ†‘m โ„ ) )

Proof

Step Hyp Ref Expression
1 knoppcnlem5.t โŠข ๐‘‡ = ( ๐‘ฅ โˆˆ โ„ โ†ฆ ( abs โ€˜ ( ( โŒŠ โ€˜ ( ๐‘ฅ + ( 1 / 2 ) ) ) โˆ’ ๐‘ฅ ) ) )
2 knoppcnlem5.f โŠข ๐น = ( ๐‘ฆ โˆˆ โ„ โ†ฆ ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ๐ถ โ†‘ ๐‘› ) ยท ( ๐‘‡ โ€˜ ( ( ( 2 ยท ๐‘ ) โ†‘ ๐‘› ) ยท ๐‘ฆ ) ) ) ) )
3 knoppcnlem5.n โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
4 knoppcnlem5.1 โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„ )
5 3 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘ง โˆˆ โ„ ) โ†’ ๐‘ โˆˆ โ„• )
6 4 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘ง โˆˆ โ„ ) โ†’ ๐ถ โˆˆ โ„ )
7 simpr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘ง โˆˆ โ„ ) โ†’ ๐‘ง โˆˆ โ„ )
8 simplr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘ง โˆˆ โ„ ) โ†’ ๐‘š โˆˆ โ„•0 )
9 1 2 5 6 7 8 knoppcnlem3 โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘ง โˆˆ โ„ ) โ†’ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) โˆˆ โ„ )
10 9 recnd โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘ง โˆˆ โ„ ) โ†’ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) โˆˆ โ„‚ )
11 10 fmpttd โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„•0 ) โ†’ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) : โ„ โŸถ โ„‚ )
12 cnex โŠข โ„‚ โˆˆ V
13 reex โŠข โ„ โˆˆ V
14 12 13 pm3.2i โŠข ( โ„‚ โˆˆ V โˆง โ„ โˆˆ V )
15 elmapg โŠข ( ( โ„‚ โˆˆ V โˆง โ„ โˆˆ V ) โ†’ ( ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) โˆˆ ( โ„‚ โ†‘m โ„ ) โ†” ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) : โ„ โŸถ โ„‚ ) )
16 14 15 ax-mp โŠข ( ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) โˆˆ ( โ„‚ โ†‘m โ„ ) โ†” ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) : โ„ โŸถ โ„‚ )
17 11 16 sylibr โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„•0 ) โ†’ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) โˆˆ ( โ„‚ โ†‘m โ„ ) )
18 17 fmpttd โŠข ( ๐œ‘ โ†’ ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) : โ„•0 โŸถ ( โ„‚ โ†‘m โ„ ) )