Metamath Proof Explorer


Theorem knoppcnlem9

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

Ref Expression
Hypotheses knoppcnlem9.t โŠข ๐‘‡ = ( ๐‘ฅ โˆˆ โ„ โ†ฆ ( abs โ€˜ ( ( โŒŠ โ€˜ ( ๐‘ฅ + ( 1 / 2 ) ) ) โˆ’ ๐‘ฅ ) ) )
knoppcnlem9.f โŠข ๐น = ( ๐‘ฆ โˆˆ โ„ โ†ฆ ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ๐ถ โ†‘ ๐‘› ) ยท ( ๐‘‡ โ€˜ ( ( ( 2 ยท ๐‘ ) โ†‘ ๐‘› ) ยท ๐‘ฆ ) ) ) ) )
knoppcnlem9.w โŠข ๐‘Š = ( ๐‘ค โˆˆ โ„ โ†ฆ ฮฃ ๐‘– โˆˆ โ„•0 ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) )
knoppcnlem9.n โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
knoppcnlem9.1 โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„ )
knoppcnlem9.2 โŠข ( ๐œ‘ โ†’ ( abs โ€˜ ๐ถ ) < 1 )
Assertion knoppcnlem9 ( ๐œ‘ โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘Š )

Proof

Step Hyp Ref Expression
1 knoppcnlem9.t โŠข ๐‘‡ = ( ๐‘ฅ โˆˆ โ„ โ†ฆ ( abs โ€˜ ( ( โŒŠ โ€˜ ( ๐‘ฅ + ( 1 / 2 ) ) ) โˆ’ ๐‘ฅ ) ) )
2 knoppcnlem9.f โŠข ๐น = ( ๐‘ฆ โˆˆ โ„ โ†ฆ ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ๐ถ โ†‘ ๐‘› ) ยท ( ๐‘‡ โ€˜ ( ( ( 2 ยท ๐‘ ) โ†‘ ๐‘› ) ยท ๐‘ฆ ) ) ) ) )
3 knoppcnlem9.w โŠข ๐‘Š = ( ๐‘ค โˆˆ โ„ โ†ฆ ฮฃ ๐‘– โˆˆ โ„•0 ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) )
4 knoppcnlem9.n โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
5 knoppcnlem9.1 โŠข ( ๐œ‘ โ†’ ๐ถ โˆˆ โ„ )
6 knoppcnlem9.2 โŠข ( ๐œ‘ โ†’ ( abs โ€˜ ๐ถ ) < 1 )
7 1 2 4 5 6 knoppcnlem6 โŠข ( ๐œ‘ โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) โˆˆ dom ( โ‡๐‘ข โ€˜ โ„ ) )
8 seqex โŠข seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) โˆˆ V
9 8 eldm โŠข ( seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) โˆˆ dom ( โ‡๐‘ข โ€˜ โ„ ) โ†” โˆƒ ๐‘“ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ )
10 7 9 sylib โŠข ( ๐œ‘ โ†’ โˆƒ ๐‘“ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ )
11 simpr โŠข ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ )
12 ulmcl โŠข ( seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ โ†’ ๐‘“ : โ„ โŸถ โ„‚ )
13 12 feqmptd โŠข ( seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ โ†’ ๐‘“ = ( ๐‘ค โˆˆ โ„ โ†ฆ ( ๐‘“ โ€˜ ๐‘ค ) ) )
14 13 adantl โŠข ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โ†’ ๐‘“ = ( ๐‘ค โˆˆ โ„ โ†ฆ ( ๐‘“ โ€˜ ๐‘ค ) ) )
15 nn0uz โŠข โ„•0 = ( โ„คโ‰ฅ โ€˜ 0 )
16 0zd โŠข ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โ†’ 0 โˆˆ โ„ค )
17 eqidd โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘– โˆˆ โ„•0 ) โ†’ ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) = ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) )
18 4 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘– โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„• )
19 5 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘– โˆˆ โ„•0 ) โ†’ ๐ถ โˆˆ โ„ )
20 simplr โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘– โˆˆ โ„•0 ) โ†’ ๐‘ค โˆˆ โ„ )
21 simpr โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘– โˆˆ โ„•0 ) โ†’ ๐‘– โˆˆ โ„•0 )
22 1 2 18 19 20 21 knoppcnlem3 โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘– โˆˆ โ„•0 ) โ†’ ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) โˆˆ โ„ )
23 22 adantllr โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘– โˆˆ โ„•0 ) โ†’ ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) โˆˆ โ„ )
24 23 recnd โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘– โˆˆ โ„•0 ) โ†’ ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) โˆˆ โ„‚ )
25 1 2 4 5 knoppcnlem8 โŠข ( ๐œ‘ โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) : โ„•0 โŸถ ( โ„‚ โ†‘m โ„ ) )
26 25 ad2antrr โŠข ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) : โ„•0 โŸถ ( โ„‚ โ†‘m โ„ ) )
27 simpr โŠข ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โ†’ ๐‘ค โˆˆ โ„ )
28 seqex โŠข seq 0 ( + , ( ๐น โ€˜ ๐‘ค ) ) โˆˆ V
29 28 a1i โŠข ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โ†’ seq 0 ( + , ( ๐น โ€˜ ๐‘ค ) ) โˆˆ V )
30 4 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„• )
31 5 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ๐ถ โˆˆ โ„ )
32 simpr โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ๐‘˜ โˆˆ โ„•0 )
33 1 2 30 31 32 knoppcnlem7 โŠข ( ( ( ๐œ‘ โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) โ€˜ ๐‘˜ ) = ( ๐‘ฃ โˆˆ โ„ โ†ฆ ( seq 0 ( + , ( ๐น โ€˜ ๐‘ฃ ) ) โ€˜ ๐‘˜ ) ) )
34 33 adantllr โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) โ€˜ ๐‘˜ ) = ( ๐‘ฃ โˆˆ โ„ โ†ฆ ( seq 0 ( + , ( ๐น โ€˜ ๐‘ฃ ) ) โ€˜ ๐‘˜ ) ) )
35 34 fveq1d โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( ( seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) โ€˜ ๐‘˜ ) โ€˜ ๐‘ค ) = ( ( ๐‘ฃ โˆˆ โ„ โ†ฆ ( seq 0 ( + , ( ๐น โ€˜ ๐‘ฃ ) ) โ€˜ ๐‘˜ ) ) โ€˜ ๐‘ค ) )
36 eqid โŠข ( ๐‘ฃ โˆˆ โ„ โ†ฆ ( seq 0 ( + , ( ๐น โ€˜ ๐‘ฃ ) ) โ€˜ ๐‘˜ ) ) = ( ๐‘ฃ โˆˆ โ„ โ†ฆ ( seq 0 ( + , ( ๐น โ€˜ ๐‘ฃ ) ) โ€˜ ๐‘˜ ) )
37 fveq2 โŠข ( ๐‘ฃ = ๐‘ค โ†’ ( ๐น โ€˜ ๐‘ฃ ) = ( ๐น โ€˜ ๐‘ค ) )
38 37 seqeq3d โŠข ( ๐‘ฃ = ๐‘ค โ†’ seq 0 ( + , ( ๐น โ€˜ ๐‘ฃ ) ) = seq 0 ( + , ( ๐น โ€˜ ๐‘ค ) ) )
39 38 fveq1d โŠข ( ๐‘ฃ = ๐‘ค โ†’ ( seq 0 ( + , ( ๐น โ€˜ ๐‘ฃ ) ) โ€˜ ๐‘˜ ) = ( seq 0 ( + , ( ๐น โ€˜ ๐‘ค ) ) โ€˜ ๐‘˜ ) )
40 27 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ๐‘ค โˆˆ โ„ )
41 fvexd โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( seq 0 ( + , ( ๐น โ€˜ ๐‘ค ) ) โ€˜ ๐‘˜ ) โˆˆ V )
42 36 39 40 41 fvmptd3 โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( ( ๐‘ฃ โˆˆ โ„ โ†ฆ ( seq 0 ( + , ( ๐น โ€˜ ๐‘ฃ ) ) โ€˜ ๐‘˜ ) ) โ€˜ ๐‘ค ) = ( seq 0 ( + , ( ๐น โ€˜ ๐‘ค ) ) โ€˜ ๐‘˜ ) )
43 35 42 eqtrd โŠข ( ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ โ„•0 ) โ†’ ( ( seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) โ€˜ ๐‘˜ ) โ€˜ ๐‘ค ) = ( seq 0 ( + , ( ๐น โ€˜ ๐‘ค ) ) โ€˜ ๐‘˜ ) )
44 simplr โŠข ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ )
45 15 16 26 27 29 43 44 ulmclm โŠข ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โ†’ seq 0 ( + , ( ๐น โ€˜ ๐‘ค ) ) โ‡ ( ๐‘“ โ€˜ ๐‘ค ) )
46 15 16 17 24 45 isumclim โŠข ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โ†’ ฮฃ ๐‘– โˆˆ โ„•0 ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) = ( ๐‘“ โ€˜ ๐‘ค ) )
47 46 eqcomd โŠข ( ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โˆง ๐‘ค โˆˆ โ„ ) โ†’ ( ๐‘“ โ€˜ ๐‘ค ) = ฮฃ ๐‘– โˆˆ โ„•0 ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) )
48 47 mpteq2dva โŠข ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โ†’ ( ๐‘ค โˆˆ โ„ โ†ฆ ( ๐‘“ โ€˜ ๐‘ค ) ) = ( ๐‘ค โˆˆ โ„ โ†ฆ ฮฃ ๐‘– โˆˆ โ„•0 ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) ) )
49 3 a1i โŠข ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โ†’ ๐‘Š = ( ๐‘ค โˆˆ โ„ โ†ฆ ฮฃ ๐‘– โˆˆ โ„•0 ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) ) )
50 49 eqcomd โŠข ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โ†’ ( ๐‘ค โˆˆ โ„ โ†ฆ ฮฃ ๐‘– โˆˆ โ„•0 ( ( ๐น โ€˜ ๐‘ค ) โ€˜ ๐‘– ) ) = ๐‘Š )
51 14 48 50 3eqtrd โŠข ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โ†’ ๐‘“ = ๐‘Š )
52 11 51 breqtrd โŠข ( ( ๐œ‘ โˆง seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ ) โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘Š )
53 52 ex โŠข ( ๐œ‘ โ†’ ( seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘Š ) )
54 53 exlimdv โŠข ( ๐œ‘ โ†’ ( โˆƒ ๐‘“ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘“ โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘Š ) )
55 10 54 mpd โŠข ( ๐œ‘ โ†’ seq 0 ( โˆ˜f + , ( ๐‘š โˆˆ โ„•0 โ†ฆ ( ๐‘ง โˆˆ โ„ โ†ฆ ( ( ๐น โ€˜ ๐‘ง ) โ€˜ ๐‘š ) ) ) ) ( โ‡๐‘ข โ€˜ โ„ ) ๐‘Š )