Metamath Proof Explorer


Theorem wallispilem3

Description: I maps to real values. (Contributed by Glauco Siliprandi, 29-Jun-2017)

Ref Expression
Hypothesis wallispilem3.1 โŠข ๐ผ = ( ๐‘› โˆˆ โ„•0 โ†ฆ โˆซ ( 0 (,) ฯ€ ) ( ( sin โ€˜ ๐‘ฅ ) โ†‘ ๐‘› ) d ๐‘ฅ )
Assertion wallispilem3 ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐ผ โ€˜ ๐‘ ) โˆˆ โ„+ )

Proof

Step Hyp Ref Expression
1 wallispilem3.1 โŠข ๐ผ = ( ๐‘› โˆˆ โ„•0 โ†ฆ โˆซ ( 0 (,) ฯ€ ) ( ( sin โ€˜ ๐‘ฅ ) โ†‘ ๐‘› ) d ๐‘ฅ )
2 breq2 โŠข ( ๐‘ค = 0 โ†’ ( ๐‘š โ‰ค ๐‘ค โ†” ๐‘š โ‰ค 0 ) )
3 2 imbi1d โŠข ( ๐‘ค = 0 โ†’ ( ( ๐‘š โ‰ค ๐‘ค โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” ( ๐‘š โ‰ค 0 โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
4 3 ralbidv โŠข ( ๐‘ค = 0 โ†’ ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ค โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค 0 โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
5 breq2 โŠข ( ๐‘ค = ๐‘ฆ โ†’ ( ๐‘š โ‰ค ๐‘ค โ†” ๐‘š โ‰ค ๐‘ฆ ) )
6 5 imbi1d โŠข ( ๐‘ค = ๐‘ฆ โ†’ ( ( ๐‘š โ‰ค ๐‘ค โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
7 6 ralbidv โŠข ( ๐‘ค = ๐‘ฆ โ†’ ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ค โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
8 breq2 โŠข ( ๐‘ค = ( ๐‘ฆ + 1 ) โ†’ ( ๐‘š โ‰ค ๐‘ค โ†” ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) )
9 8 imbi1d โŠข ( ๐‘ค = ( ๐‘ฆ + 1 ) โ†’ ( ( ๐‘š โ‰ค ๐‘ค โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” ( ๐‘š โ‰ค ( ๐‘ฆ + 1 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
10 9 ralbidv โŠข ( ๐‘ค = ( ๐‘ฆ + 1 ) โ†’ ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ค โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ( ๐‘ฆ + 1 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
11 breq2 โŠข ( ๐‘ค = ๐‘ โ†’ ( ๐‘š โ‰ค ๐‘ค โ†” ๐‘š โ‰ค ๐‘ ) )
12 11 imbi1d โŠข ( ๐‘ค = ๐‘ โ†’ ( ( ๐‘š โ‰ค ๐‘ค โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” ( ๐‘š โ‰ค ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
13 12 ralbidv โŠข ( ๐‘ค = ๐‘ โ†’ ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ค โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
14 simpr โŠข ( ( ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค 0 ) โ†’ ๐‘š โ‰ค 0 )
15 nn0ge0 โŠข ( ๐‘š โˆˆ โ„•0 โ†’ 0 โ‰ค ๐‘š )
16 15 adantr โŠข ( ( ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค 0 ) โ†’ 0 โ‰ค ๐‘š )
17 nn0re โŠข ( ๐‘š โˆˆ โ„•0 โ†’ ๐‘š โˆˆ โ„ )
18 17 adantr โŠข ( ( ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค 0 ) โ†’ ๐‘š โˆˆ โ„ )
19 0red โŠข ( ( ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค 0 ) โ†’ 0 โˆˆ โ„ )
20 18 19 letri3d โŠข ( ( ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค 0 ) โ†’ ( ๐‘š = 0 โ†” ( ๐‘š โ‰ค 0 โˆง 0 โ‰ค ๐‘š ) ) )
21 14 16 20 mpbir2and โŠข ( ( ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค 0 ) โ†’ ๐‘š = 0 )
22 21 fveq2d โŠข ( ( ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค 0 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) = ( ๐ผ โ€˜ 0 ) )
23 1 wallispilem2 โŠข ( ( ๐ผ โ€˜ 0 ) = ฯ€ โˆง ( ๐ผ โ€˜ 1 ) = 2 โˆง ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) = ( ( ( ๐‘š โˆ’ 1 ) / ๐‘š ) ยท ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) ) ) )
24 23 simp1i โŠข ( ๐ผ โ€˜ 0 ) = ฯ€
25 pirp โŠข ฯ€ โˆˆ โ„+
26 24 25 eqeltri โŠข ( ๐ผ โ€˜ 0 ) โˆˆ โ„+
27 22 26 eqeltrdi โŠข ( ( ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค 0 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
28 27 ex โŠข ( ๐‘š โˆˆ โ„•0 โ†’ ( ๐‘š โ‰ค 0 โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
29 28 rgen โŠข โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค 0 โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
30 nfv โŠข โ„ฒ ๐‘š ๐‘ฆ โˆˆ โ„•0
31 nfra1 โŠข โ„ฒ ๐‘š โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
32 30 31 nfan โŠข โ„ฒ ๐‘š ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
33 simpllr โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
34 simplr โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โˆˆ โ„•0 )
35 rsp โŠข ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†’ ( ๐‘š โˆˆ โ„•0 โ†’ ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
36 33 34 35 sylc โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
37 fveq2 โŠข ( ๐‘š = 1 โ†’ ( ๐ผ โ€˜ ๐‘š ) = ( ๐ผ โ€˜ 1 ) )
38 23 simp2i โŠข ( ๐ผ โ€˜ 1 ) = 2
39 2rp โŠข 2 โˆˆ โ„+
40 38 39 eqeltri โŠข ( ๐ผ โ€˜ 1 ) โˆˆ โ„+
41 37 40 eqeltrdi โŠข ( ๐‘š = 1 โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
42 41 a1i โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š = 1 โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
43 23 simp3i โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) = ( ( ( ๐‘š โˆ’ 1 ) / ๐‘š ) ยท ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) ) )
44 43 adantl โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐ผ โ€˜ ๐‘š ) = ( ( ( ๐‘š โˆ’ 1 ) / ๐‘š ) ยท ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) ) )
45 eluz2nn โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐‘š โˆˆ โ„• )
46 nnre โŠข ( ๐‘š โˆˆ โ„• โ†’ ๐‘š โˆˆ โ„ )
47 1red โŠข ( ๐‘š โˆˆ โ„• โ†’ 1 โˆˆ โ„ )
48 46 47 resubcld โŠข ( ๐‘š โˆˆ โ„• โ†’ ( ๐‘š โˆ’ 1 ) โˆˆ โ„ )
49 45 48 syl โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘š โˆ’ 1 ) โˆˆ โ„ )
50 1m1e0 โŠข ( 1 โˆ’ 1 ) = 0
51 1red โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 1 โˆˆ โ„ )
52 eluzelre โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐‘š โˆˆ โ„ )
53 eluz2b2 โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†” ( ๐‘š โˆˆ โ„• โˆง 1 < ๐‘š ) )
54 53 simprbi โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 1 < ๐‘š )
55 51 52 51 54 ltsub1dd โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( 1 โˆ’ 1 ) < ( ๐‘š โˆ’ 1 ) )
56 50 55 eqbrtrrid โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 0 < ( ๐‘š โˆ’ 1 ) )
57 49 56 elrpd โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘š โˆ’ 1 ) โˆˆ โ„+ )
58 45 nnrpd โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐‘š โˆˆ โ„+ )
59 57 58 rpdivcld โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( ๐‘š โˆ’ 1 ) / ๐‘š ) โˆˆ โ„+ )
60 59 adantl โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ( ๐‘š โˆ’ 1 ) / ๐‘š ) โˆˆ โ„+ )
61 breq1 โŠข ( ๐‘š = ๐‘˜ โ†’ ( ๐‘š โ‰ค ๐‘ฆ โ†” ๐‘˜ โ‰ค ๐‘ฆ ) )
62 fveq2 โŠข ( ๐‘š = ๐‘˜ โ†’ ( ๐ผ โ€˜ ๐‘š ) = ( ๐ผ โ€˜ ๐‘˜ ) )
63 62 eleq1d โŠข ( ๐‘š = ๐‘˜ โ†’ ( ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ โ†” ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ ) )
64 61 63 imbi12d โŠข ( ๐‘š = ๐‘˜ โ†’ ( ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” ( ๐‘˜ โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ ) ) )
65 64 cbvralvw โŠข ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” โˆ€ ๐‘˜ โˆˆ โ„•0 ( ๐‘˜ โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ ) )
66 65 biimpi โŠข ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†’ โˆ€ ๐‘˜ โˆˆ โ„•0 ( ๐‘˜ โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ ) )
67 66 ad3antlr โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ โˆ€ ๐‘˜ โˆˆ โ„•0 ( ๐‘˜ โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ ) )
68 uznn0sub โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘š โˆ’ 2 ) โˆˆ โ„•0 )
69 68 adantl โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐‘š โˆ’ 2 ) โˆˆ โ„•0 )
70 67 69 jca โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( โˆ€ ๐‘˜ โˆˆ โ„•0 ( ๐‘˜ โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ ) โˆง ( ๐‘š โˆ’ 2 ) โˆˆ โ„•0 ) )
71 simplll โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ๐‘ฆ โˆˆ โ„•0 )
72 simplr โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ๐‘š = ( ๐‘ฆ + 1 ) )
73 simpr โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) )
74 simp2 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ๐‘š = ( ๐‘ฆ + 1 ) )
75 74 oveq1d โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐‘š โˆ’ 2 ) = ( ( ๐‘ฆ + 1 ) โˆ’ 2 ) )
76 nn0re โŠข ( ๐‘ฆ โˆˆ โ„•0 โ†’ ๐‘ฆ โˆˆ โ„ )
77 76 3ad2ant1 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ๐‘ฆ โˆˆ โ„ )
78 77 recnd โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ๐‘ฆ โˆˆ โ„‚ )
79 df-2 โŠข 2 = ( 1 + 1 )
80 79 a1i โŠข ( ๐‘ฆ โˆˆ โ„‚ โ†’ 2 = ( 1 + 1 ) )
81 80 oveq2d โŠข ( ๐‘ฆ โˆˆ โ„‚ โ†’ ( ( ๐‘ฆ + 1 ) โˆ’ 2 ) = ( ( ๐‘ฆ + 1 ) โˆ’ ( 1 + 1 ) ) )
82 id โŠข ( ๐‘ฆ โˆˆ โ„‚ โ†’ ๐‘ฆ โˆˆ โ„‚ )
83 1cnd โŠข ( ๐‘ฆ โˆˆ โ„‚ โ†’ 1 โˆˆ โ„‚ )
84 82 83 83 pnpcan2d โŠข ( ๐‘ฆ โˆˆ โ„‚ โ†’ ( ( ๐‘ฆ + 1 ) โˆ’ ( 1 + 1 ) ) = ( ๐‘ฆ โˆ’ 1 ) )
85 81 84 eqtrd โŠข ( ๐‘ฆ โˆˆ โ„‚ โ†’ ( ( ๐‘ฆ + 1 ) โˆ’ 2 ) = ( ๐‘ฆ โˆ’ 1 ) )
86 78 85 syl โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ( ๐‘ฆ + 1 ) โˆ’ 2 ) = ( ๐‘ฆ โˆ’ 1 ) )
87 75 86 eqtrd โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐‘š โˆ’ 2 ) = ( ๐‘ฆ โˆ’ 1 ) )
88 77 lem1d โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐‘ฆ โˆ’ 1 ) โ‰ค ๐‘ฆ )
89 87 88 eqbrtrd โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐‘š โˆ’ 2 ) โ‰ค ๐‘ฆ )
90 71 72 73 89 syl3anc โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐‘š โˆ’ 2 ) โ‰ค ๐‘ฆ )
91 breq1 โŠข ( ๐‘˜ = ( ๐‘š โˆ’ 2 ) โ†’ ( ๐‘˜ โ‰ค ๐‘ฆ โ†” ( ๐‘š โˆ’ 2 ) โ‰ค ๐‘ฆ ) )
92 fveq2 โŠข ( ๐‘˜ = ( ๐‘š โˆ’ 2 ) โ†’ ( ๐ผ โ€˜ ๐‘˜ ) = ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) )
93 92 eleq1d โŠข ( ๐‘˜ = ( ๐‘š โˆ’ 2 ) โ†’ ( ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ โ†” ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) โˆˆ โ„+ ) )
94 91 93 imbi12d โŠข ( ๐‘˜ = ( ๐‘š โˆ’ 2 ) โ†’ ( ( ๐‘˜ โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ ) โ†” ( ( ๐‘š โˆ’ 2 ) โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) โˆˆ โ„+ ) ) )
95 94 rspccva โŠข ( ( โˆ€ ๐‘˜ โˆˆ โ„•0 ( ๐‘˜ โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘˜ ) โˆˆ โ„+ ) โˆง ( ๐‘š โˆ’ 2 ) โˆˆ โ„•0 ) โ†’ ( ( ๐‘š โˆ’ 2 ) โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) โˆˆ โ„+ ) )
96 70 90 95 sylc โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) โˆˆ โ„+ )
97 60 96 rpmulcld โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ( ( ๐‘š โˆ’ 1 ) / ๐‘š ) ยท ( ๐ผ โ€˜ ( ๐‘š โˆ’ 2 ) ) ) โˆˆ โ„+ )
98 44 97 eqeltrd โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
99 98 adantllr โŠข ( ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
100 99 ex โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
101 simplll โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ๐‘ฆ โˆˆ โ„•0 )
102 simplr โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โˆˆ โ„•0 )
103 simpr โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š = ( ๐‘ฆ + 1 ) )
104 simp3 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š = ( ๐‘ฆ + 1 ) )
105 nn0p1nn โŠข ( ๐‘ฆ โˆˆ โ„•0 โ†’ ( ๐‘ฆ + 1 ) โˆˆ โ„• )
106 105 3ad2ant1 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘ฆ + 1 ) โˆˆ โ„• )
107 104 106 eqeltrd โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โˆˆ โ„• )
108 elnnuz โŠข ( ๐‘š โˆˆ โ„• โ†” ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 1 ) )
109 107 108 sylib โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 1 ) )
110 uzp1 โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 1 ) โ†’ ( ๐‘š = 1 โˆจ ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ ( 1 + 1 ) ) ) )
111 1p1e2 โŠข ( 1 + 1 ) = 2
112 111 fveq2i โŠข ( โ„คโ‰ฅ โ€˜ ( 1 + 1 ) ) = ( โ„คโ‰ฅ โ€˜ 2 )
113 112 eleq2i โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ ( 1 + 1 ) ) โ†” ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) )
114 113 orbi2i โŠข ( ( ๐‘š = 1 โˆจ ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ ( 1 + 1 ) ) ) โ†” ( ๐‘š = 1 โˆจ ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) )
115 110 114 sylib โŠข ( ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 1 ) โ†’ ( ๐‘š = 1 โˆจ ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) )
116 109 115 syl โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š = 1 โˆจ ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) )
117 101 102 103 116 syl3anc โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š = 1 โˆจ ๐‘š โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) ) )
118 42 100 117 mpjaod โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
119 118 adantlr โŠข ( ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
120 119 ex โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š = ( ๐‘ฆ + 1 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
121 simplll โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ๐‘ฆ โˆˆ โ„•0 )
122 simpr โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โ‰ค ( ๐‘ฆ + 1 ) )
123 simpl1 โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘ฆ โˆˆ โ„•0 )
124 simpl2 โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โˆˆ โ„•0 )
125 simpr โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š < ( ๐‘ฆ + 1 ) )
126 simpr โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = 0 ) โ†’ ๐‘š = 0 )
127 nn0ge0 โŠข ( ๐‘ฆ โˆˆ โ„•0 โ†’ 0 โ‰ค ๐‘ฆ )
128 127 adantr โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = 0 ) โ†’ 0 โ‰ค ๐‘ฆ )
129 126 128 eqbrtrd โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š = 0 ) โ†’ ๐‘š โ‰ค ๐‘ฆ )
130 129 3ad2antl1 โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โˆง ๐‘š = 0 ) โ†’ ๐‘š โ‰ค ๐‘ฆ )
131 simpl1 โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ โ„• ) โ†’ ๐‘ฆ โˆˆ โ„•0 )
132 simpr โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ โ„• ) โ†’ ๐‘š โˆˆ โ„• )
133 simpl3 โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ โ„• ) โ†’ ๐‘š < ( ๐‘ฆ + 1 ) )
134 simp3 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š < ( ๐‘ฆ + 1 ) )
135 simp2 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โˆˆ โ„• )
136 simp1 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘ฆ โˆˆ โ„•0 )
137 0red โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ 0 โˆˆ โ„ )
138 48 3ad2ant2 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โˆ’ 1 ) โˆˆ โ„ )
139 76 3ad2ant1 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘ฆ โˆˆ โ„ )
140 nnm1ge0 โŠข ( ๐‘š โˆˆ โ„• โ†’ 0 โ‰ค ( ๐‘š โˆ’ 1 ) )
141 140 3ad2ant2 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ 0 โ‰ค ( ๐‘š โˆ’ 1 ) )
142 46 3ad2ant2 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โˆˆ โ„ )
143 1red โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ 1 โˆˆ โ„ )
144 142 143 139 ltsubaddd โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ( ( ๐‘š โˆ’ 1 ) < ๐‘ฆ โ†” ๐‘š < ( ๐‘ฆ + 1 ) ) )
145 134 144 mpbird โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โˆ’ 1 ) < ๐‘ฆ )
146 137 138 139 141 145 lelttrd โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ 0 < ๐‘ฆ )
147 146 gt0ne0d โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘ฆ โ‰  0 )
148 elnnne0 โŠข ( ๐‘ฆ โˆˆ โ„• โ†” ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘ฆ โ‰  0 ) )
149 136 147 148 sylanbrc โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘ฆ โˆˆ โ„• )
150 nnleltp1 โŠข ( ( ๐‘š โˆˆ โ„• โˆง ๐‘ฆ โˆˆ โ„• ) โ†’ ( ๐‘š โ‰ค ๐‘ฆ โ†” ๐‘š < ( ๐‘ฆ + 1 ) ) )
151 135 149 150 syl2anc โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โ‰ค ๐‘ฆ โ†” ๐‘š < ( ๐‘ฆ + 1 ) ) )
152 134 151 mpbird โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„• โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โ‰ค ๐‘ฆ )
153 131 132 133 152 syl3anc โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โˆง ๐‘š โˆˆ โ„• ) โ†’ ๐‘š โ‰ค ๐‘ฆ )
154 elnn0 โŠข ( ๐‘š โˆˆ โ„•0 โ†” ( ๐‘š โˆˆ โ„• โˆจ ๐‘š = 0 ) )
155 154 biimpi โŠข ( ๐‘š โˆˆ โ„•0 โ†’ ( ๐‘š โˆˆ โ„• โˆจ ๐‘š = 0 ) )
156 155 orcomd โŠข ( ๐‘š โˆˆ โ„•0 โ†’ ( ๐‘š = 0 โˆจ ๐‘š โˆˆ โ„• ) )
157 156 3ad2ant2 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š = 0 โˆจ ๐‘š โˆˆ โ„• ) )
158 130 153 157 mpjaodan โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โ‰ค ๐‘ฆ )
159 158 orcd โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โ‰ค ๐‘ฆ โˆจ ๐‘š = ( ๐‘ฆ + 1 ) ) )
160 123 124 125 159 syl3anc โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โˆง ๐‘š < ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โ‰ค ๐‘ฆ โˆจ ๐‘š = ( ๐‘ฆ + 1 ) ) )
161 simpr โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š = ( ๐‘ฆ + 1 ) )
162 161 olcd โŠข ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โˆง ๐‘š = ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โ‰ค ๐‘ฆ โˆจ ๐‘š = ( ๐‘ฆ + 1 ) ) )
163 simp3 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โ‰ค ( ๐‘ฆ + 1 ) )
164 17 3ad2ant2 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ๐‘š โˆˆ โ„ )
165 76 3ad2ant1 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ๐‘ฆ โˆˆ โ„ )
166 1red โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ 1 โˆˆ โ„ )
167 165 166 readdcld โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘ฆ + 1 ) โˆˆ โ„ )
168 164 167 leloed โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โ‰ค ( ๐‘ฆ + 1 ) โ†” ( ๐‘š < ( ๐‘ฆ + 1 ) โˆจ ๐‘š = ( ๐‘ฆ + 1 ) ) ) )
169 163 168 mpbid โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š < ( ๐‘ฆ + 1 ) โˆจ ๐‘š = ( ๐‘ฆ + 1 ) ) )
170 160 162 169 mpjaodan โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง ๐‘š โˆˆ โ„•0 โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โ‰ค ๐‘ฆ โˆจ ๐‘š = ( ๐‘ฆ + 1 ) ) )
171 121 34 122 170 syl3anc โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ( ๐‘š โ‰ค ๐‘ฆ โˆจ ๐‘š = ( ๐‘ฆ + 1 ) ) )
172 36 120 171 mpjaod โŠข ( ( ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โˆง ๐‘š โˆˆ โ„•0 ) โˆง ๐‘š โ‰ค ( ๐‘ฆ + 1 ) ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ )
173 172 exp31 โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โ†’ ( ๐‘š โˆˆ โ„•0 โ†’ ( ๐‘š โ‰ค ( ๐‘ฆ + 1 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
174 32 173 ralrimi โŠข ( ( ๐‘ฆ โˆˆ โ„•0 โˆง โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) โ†’ โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ( ๐‘ฆ + 1 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
175 174 ex โŠข ( ๐‘ฆ โˆˆ โ„•0 โ†’ ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ฆ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†’ โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ( ๐‘ฆ + 1 ) โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) ) )
176 4 7 10 13 29 175 nn0ind โŠข ( ๐‘ โˆˆ โ„•0 โ†’ โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) )
177 176 ancri โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โˆง ๐‘ โˆˆ โ„•0 ) )
178 nn0re โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„ )
179 178 leidd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โ‰ค ๐‘ )
180 breq1 โŠข ( ๐‘š = ๐‘ โ†’ ( ๐‘š โ‰ค ๐‘ โ†” ๐‘ โ‰ค ๐‘ ) )
181 fveq2 โŠข ( ๐‘š = ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘š ) = ( ๐ผ โ€˜ ๐‘ ) )
182 181 eleq1d โŠข ( ๐‘š = ๐‘ โ†’ ( ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ โ†” ( ๐ผ โ€˜ ๐‘ ) โˆˆ โ„+ ) )
183 180 182 imbi12d โŠข ( ๐‘š = ๐‘ โ†’ ( ( ๐‘š โ‰ค ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โ†” ( ๐‘ โ‰ค ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘ ) โˆˆ โ„+ ) ) )
184 183 rspccva โŠข ( ( โˆ€ ๐‘š โˆˆ โ„•0 ( ๐‘š โ‰ค ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘š ) โˆˆ โ„+ ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘ โ‰ค ๐‘ โ†’ ( ๐ผ โ€˜ ๐‘ ) โˆˆ โ„+ ) )
185 177 179 184 sylc โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐ผ โ€˜ ๐‘ ) โˆˆ โ„+ )