MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  bposlem6 Structured version   Visualization version   GIF version

Theorem bposlem6 26782
Description: Lemma for bpos 26786. By using the various bounds at our disposal, arrive at an inequality that is false for 𝑁 large enough. (Contributed by Mario Carneiro, 14-Mar-2014.) (Revised by Wolf Lammen, 12-Sep-2020.)
Hypotheses
Ref Expression
bpos.1 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜5))
bpos.2 (πœ‘ β†’ Β¬ βˆƒπ‘ ∈ β„™ (𝑁 < 𝑝 ∧ 𝑝 ≀ (2 Β· 𝑁)))
bpos.3 𝐹 = (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, (𝑛↑(𝑛 pCnt ((2 Β· 𝑁)C𝑁))), 1))
bpos.4 𝐾 = (βŒŠβ€˜((2 Β· 𝑁) / 3))
bpos.5 𝑀 = (βŒŠβ€˜(βˆšβ€˜(2 Β· 𝑁)))
Assertion
Ref Expression
bposlem6 (πœ‘ β†’ ((4↑𝑁) / 𝑁) < (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5))))
Distinct variable groups:   𝐹,𝑝   𝑛,𝑝,𝐾   𝑀,𝑝   𝑛,𝑁,𝑝   πœ‘,𝑛,𝑝
Allowed substitution hints:   𝐹(𝑛)   𝑀(𝑛)

Proof of Theorem bposlem6
StepHypRef Expression
1 4nn 12292 . . . . 5 4 ∈ β„•
2 5nn 12295 . . . . . . 7 5 ∈ β„•
3 bpos.1 . . . . . . 7 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜5))
4 eluznn 12899 . . . . . . 7 ((5 ∈ β„• ∧ 𝑁 ∈ (β„€β‰₯β€˜5)) β†’ 𝑁 ∈ β„•)
52, 3, 4sylancr 588 . . . . . 6 (πœ‘ β†’ 𝑁 ∈ β„•)
65nnnn0d 12529 . . . . 5 (πœ‘ β†’ 𝑁 ∈ β„•0)
7 nnexpcl 14037 . . . . 5 ((4 ∈ β„• ∧ 𝑁 ∈ β„•0) β†’ (4↑𝑁) ∈ β„•)
81, 6, 7sylancr 588 . . . 4 (πœ‘ β†’ (4↑𝑁) ∈ β„•)
98nnred 12224 . . 3 (πœ‘ β†’ (4↑𝑁) ∈ ℝ)
109, 5nndivred 12263 . 2 (πœ‘ β†’ ((4↑𝑁) / 𝑁) ∈ ℝ)
11 fzctr 13610 . . . . 5 (𝑁 ∈ β„•0 β†’ 𝑁 ∈ (0...(2 Β· 𝑁)))
126, 11syl 17 . . . 4 (πœ‘ β†’ 𝑁 ∈ (0...(2 Β· 𝑁)))
13 bccl2 14280 . . . 4 (𝑁 ∈ (0...(2 Β· 𝑁)) β†’ ((2 Β· 𝑁)C𝑁) ∈ β„•)
1412, 13syl 17 . . 3 (πœ‘ β†’ ((2 Β· 𝑁)C𝑁) ∈ β„•)
1514nnred 12224 . 2 (πœ‘ β†’ ((2 Β· 𝑁)C𝑁) ∈ ℝ)
16 2nn 12282 . . . . . . 7 2 ∈ β„•
17 nnmulcl 12233 . . . . . . 7 ((2 ∈ β„• ∧ 𝑁 ∈ β„•) β†’ (2 Β· 𝑁) ∈ β„•)
1816, 5, 17sylancr 588 . . . . . 6 (πœ‘ β†’ (2 Β· 𝑁) ∈ β„•)
1918nnrpd 13011 . . . . 5 (πœ‘ β†’ (2 Β· 𝑁) ∈ ℝ+)
2018nnred 12224 . . . . . . . 8 (πœ‘ β†’ (2 Β· 𝑁) ∈ ℝ)
2119rpge0d 13017 . . . . . . . 8 (πœ‘ β†’ 0 ≀ (2 Β· 𝑁))
2220, 21resqrtcld 15361 . . . . . . 7 (πœ‘ β†’ (βˆšβ€˜(2 Β· 𝑁)) ∈ ℝ)
23 3nn 12288 . . . . . . 7 3 ∈ β„•
24 nndivre 12250 . . . . . . 7 (((βˆšβ€˜(2 Β· 𝑁)) ∈ ℝ ∧ 3 ∈ β„•) β†’ ((βˆšβ€˜(2 Β· 𝑁)) / 3) ∈ ℝ)
2522, 23, 24sylancl 587 . . . . . 6 (πœ‘ β†’ ((βˆšβ€˜(2 Β· 𝑁)) / 3) ∈ ℝ)
26 2re 12283 . . . . . 6 2 ∈ ℝ
27 readdcl 11190 . . . . . 6 ((((βˆšβ€˜(2 Β· 𝑁)) / 3) ∈ ℝ ∧ 2 ∈ ℝ) β†’ (((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2) ∈ ℝ)
2825, 26, 27sylancl 587 . . . . 5 (πœ‘ β†’ (((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2) ∈ ℝ)
2919, 28rpcxpcld 26232 . . . 4 (πœ‘ β†’ ((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) ∈ ℝ+)
3029rpred 13013 . . 3 (πœ‘ β†’ ((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) ∈ ℝ)
31 2rp 12976 . . . . 5 2 ∈ ℝ+
32 nnmulcl 12233 . . . . . . . . 9 ((4 ∈ β„• ∧ 𝑁 ∈ β„•) β†’ (4 Β· 𝑁) ∈ β„•)
331, 5, 32sylancr 588 . . . . . . . 8 (πœ‘ β†’ (4 Β· 𝑁) ∈ β„•)
3433nnred 12224 . . . . . . 7 (πœ‘ β†’ (4 Β· 𝑁) ∈ ℝ)
35 nndivre 12250 . . . . . . 7 (((4 Β· 𝑁) ∈ ℝ ∧ 3 ∈ β„•) β†’ ((4 Β· 𝑁) / 3) ∈ ℝ)
3634, 23, 35sylancl 587 . . . . . 6 (πœ‘ β†’ ((4 Β· 𝑁) / 3) ∈ ℝ)
37 5re 12296 . . . . . 6 5 ∈ ℝ
38 resubcl 11521 . . . . . 6 ((((4 Β· 𝑁) / 3) ∈ ℝ ∧ 5 ∈ ℝ) β†’ (((4 Β· 𝑁) / 3) βˆ’ 5) ∈ ℝ)
3936, 37, 38sylancl 587 . . . . 5 (πœ‘ β†’ (((4 Β· 𝑁) / 3) βˆ’ 5) ∈ ℝ)
40 rpcxpcl 26176 . . . . 5 ((2 ∈ ℝ+ ∧ (((4 Β· 𝑁) / 3) βˆ’ 5) ∈ ℝ) β†’ (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5)) ∈ ℝ+)
4131, 39, 40sylancr 588 . . . 4 (πœ‘ β†’ (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5)) ∈ ℝ+)
4241rpred 13013 . . 3 (πœ‘ β†’ (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5)) ∈ ℝ)
4330, 42remulcld 11241 . 2 (πœ‘ β†’ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5))) ∈ ℝ)
44 df-5 12275 . . . . 5 5 = (4 + 1)
45 4z 12593 . . . . . 6 4 ∈ β„€
46 uzid 12834 . . . . . 6 (4 ∈ β„€ β†’ 4 ∈ (β„€β‰₯β€˜4))
47 peano2uz 12882 . . . . . 6 (4 ∈ (β„€β‰₯β€˜4) β†’ (4 + 1) ∈ (β„€β‰₯β€˜4))
4845, 46, 47mp2b 10 . . . . 5 (4 + 1) ∈ (β„€β‰₯β€˜4)
4944, 48eqeltri 2830 . . . 4 5 ∈ (β„€β‰₯β€˜4)
50 eqid 2733 . . . . 5 (β„€β‰₯β€˜4) = (β„€β‰₯β€˜4)
5150uztrn2 12838 . . . 4 ((5 ∈ (β„€β‰₯β€˜4) ∧ 𝑁 ∈ (β„€β‰₯β€˜5)) β†’ 𝑁 ∈ (β„€β‰₯β€˜4))
5249, 3, 51sylancr 588 . . 3 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜4))
53 bclbnd 26773 . . 3 (𝑁 ∈ (β„€β‰₯β€˜4) β†’ ((4↑𝑁) / 𝑁) < ((2 Β· 𝑁)C𝑁))
5452, 53syl 17 . 2 (πœ‘ β†’ ((4↑𝑁) / 𝑁) < ((2 Β· 𝑁)C𝑁))
55 bpos.3 . . . . . . . 8 𝐹 = (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, (𝑛↑(𝑛 pCnt ((2 Β· 𝑁)C𝑁))), 1))
56 id 22 . . . . . . . . . 10 (𝑛 ∈ β„™ β†’ 𝑛 ∈ β„™)
57 pccl 16779 . . . . . . . . . 10 ((𝑛 ∈ β„™ ∧ ((2 Β· 𝑁)C𝑁) ∈ β„•) β†’ (𝑛 pCnt ((2 Β· 𝑁)C𝑁)) ∈ β„•0)
5856, 14, 57syl2anr 598 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„™) β†’ (𝑛 pCnt ((2 Β· 𝑁)C𝑁)) ∈ β„•0)
5958ralrimiva 3147 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘› ∈ β„™ (𝑛 pCnt ((2 Β· 𝑁)C𝑁)) ∈ β„•0)
6055, 59pcmptcl 16821 . . . . . . 7 (πœ‘ β†’ (𝐹:β„•βŸΆβ„• ∧ seq1( Β· , 𝐹):β„•βŸΆβ„•))
6160simprd 497 . . . . . 6 (πœ‘ β†’ seq1( Β· , 𝐹):β„•βŸΆβ„•)
62 bpos.2 . . . . . . . . 9 (πœ‘ β†’ Β¬ βˆƒπ‘ ∈ β„™ (𝑁 < 𝑝 ∧ 𝑝 ≀ (2 Β· 𝑁)))
63 bpos.4 . . . . . . . . 9 𝐾 = (βŒŠβ€˜((2 Β· 𝑁) / 3))
64 bpos.5 . . . . . . . . 9 𝑀 = (βŒŠβ€˜(βˆšβ€˜(2 Β· 𝑁)))
653, 62, 55, 63, 64bposlem4 26780 . . . . . . . 8 (πœ‘ β†’ 𝑀 ∈ (3...𝐾))
66 elfzuz 13494 . . . . . . . 8 (𝑀 ∈ (3...𝐾) β†’ 𝑀 ∈ (β„€β‰₯β€˜3))
6765, 66syl 17 . . . . . . 7 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜3))
68 eluznn 12899 . . . . . . 7 ((3 ∈ β„• ∧ 𝑀 ∈ (β„€β‰₯β€˜3)) β†’ 𝑀 ∈ β„•)
6923, 67, 68sylancr 588 . . . . . 6 (πœ‘ β†’ 𝑀 ∈ β„•)
7061, 69ffvelcdmd 7085 . . . . 5 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜π‘€) ∈ β„•)
7170nnred 12224 . . . 4 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜π‘€) ∈ ℝ)
72 2z 12591 . . . . . . . . 9 2 ∈ β„€
73 nndivre 12250 . . . . . . . . . . . 12 (((2 Β· 𝑁) ∈ ℝ ∧ 3 ∈ β„•) β†’ ((2 Β· 𝑁) / 3) ∈ ℝ)
7420, 23, 73sylancl 587 . . . . . . . . . . 11 (πœ‘ β†’ ((2 Β· 𝑁) / 3) ∈ ℝ)
7574flcld 13760 . . . . . . . . . 10 (πœ‘ β†’ (βŒŠβ€˜((2 Β· 𝑁) / 3)) ∈ β„€)
7663, 75eqeltrid 2838 . . . . . . . . 9 (πœ‘ β†’ 𝐾 ∈ β„€)
77 zmulcl 12608 . . . . . . . . 9 ((2 ∈ β„€ ∧ 𝐾 ∈ β„€) β†’ (2 Β· 𝐾) ∈ β„€)
7872, 76, 77sylancr 588 . . . . . . . 8 (πœ‘ β†’ (2 Β· 𝐾) ∈ β„€)
792nnzi 12583 . . . . . . . 8 5 ∈ β„€
80 zsubcl 12601 . . . . . . . 8 (((2 Β· 𝐾) ∈ β„€ ∧ 5 ∈ β„€) β†’ ((2 Β· 𝐾) βˆ’ 5) ∈ β„€)
8178, 79, 80sylancl 587 . . . . . . 7 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ 5) ∈ β„€)
8281zred 12663 . . . . . 6 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ 5) ∈ ℝ)
83 rpcxpcl 26176 . . . . . 6 ((2 ∈ ℝ+ ∧ ((2 Β· 𝐾) βˆ’ 5) ∈ ℝ) β†’ (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ∈ ℝ+)
8431, 82, 83sylancr 588 . . . . 5 (πœ‘ β†’ (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ∈ ℝ+)
8584rpred 13013 . . . 4 (πœ‘ β†’ (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ∈ ℝ)
8671, 85remulcld 11241 . . 3 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜π‘€) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))) ∈ ℝ)
873, 62, 55, 63bposlem3 26779 . . . 4 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜πΎ) = ((2 Β· 𝑁)C𝑁))
88 elfzuz3 13495 . . . . . . . . . 10 (𝑀 ∈ (3...𝐾) β†’ 𝐾 ∈ (β„€β‰₯β€˜π‘€))
8965, 88syl 17 . . . . . . . . 9 (πœ‘ β†’ 𝐾 ∈ (β„€β‰₯β€˜π‘€))
9055, 59, 69, 89pcmptdvds 16824 . . . . . . . 8 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜π‘€) βˆ₯ (seq1( Β· , 𝐹)β€˜πΎ))
9170nnzd 12582 . . . . . . . . 9 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜π‘€) ∈ β„€)
9270nnne0d 12259 . . . . . . . . 9 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜π‘€) β‰  0)
93 uztrn 12837 . . . . . . . . . . . . 13 ((𝐾 ∈ (β„€β‰₯β€˜π‘€) ∧ 𝑀 ∈ (β„€β‰₯β€˜3)) β†’ 𝐾 ∈ (β„€β‰₯β€˜3))
9489, 67, 93syl2anc 585 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐾 ∈ (β„€β‰₯β€˜3))
95 eluznn 12899 . . . . . . . . . . . 12 ((3 ∈ β„• ∧ 𝐾 ∈ (β„€β‰₯β€˜3)) β†’ 𝐾 ∈ β„•)
9623, 94, 95sylancr 588 . . . . . . . . . . 11 (πœ‘ β†’ 𝐾 ∈ β„•)
9761, 96ffvelcdmd 7085 . . . . . . . . . 10 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜πΎ) ∈ β„•)
9897nnzd 12582 . . . . . . . . 9 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜πΎ) ∈ β„€)
99 dvdsval2 16197 . . . . . . . . 9 (((seq1( Β· , 𝐹)β€˜π‘€) ∈ β„€ ∧ (seq1( Β· , 𝐹)β€˜π‘€) β‰  0 ∧ (seq1( Β· , 𝐹)β€˜πΎ) ∈ β„€) β†’ ((seq1( Β· , 𝐹)β€˜π‘€) βˆ₯ (seq1( Β· , 𝐹)β€˜πΎ) ↔ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ∈ β„€))
10091, 92, 98, 99syl3anc 1372 . . . . . . . 8 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜π‘€) βˆ₯ (seq1( Β· , 𝐹)β€˜πΎ) ↔ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ∈ β„€))
10190, 100mpbid 231 . . . . . . 7 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ∈ β„€)
102101zred 12663 . . . . . 6 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ∈ ℝ)
10369nnred 12224 . . . . . . . . 9 (πœ‘ β†’ 𝑀 ∈ ℝ)
10476zred 12663 . . . . . . . . 9 (πœ‘ β†’ 𝐾 ∈ ℝ)
105 eluzle 12832 . . . . . . . . . 10 (𝐾 ∈ (β„€β‰₯β€˜π‘€) β†’ 𝑀 ≀ 𝐾)
10689, 105syl 17 . . . . . . . . 9 (πœ‘ β†’ 𝑀 ≀ 𝐾)
107 efchtdvds 26653 . . . . . . . . 9 ((𝑀 ∈ ℝ ∧ 𝐾 ∈ ℝ ∧ 𝑀 ≀ 𝐾) β†’ (expβ€˜(ΞΈβ€˜π‘€)) βˆ₯ (expβ€˜(ΞΈβ€˜πΎ)))
108103, 104, 106, 107syl3anc 1372 . . . . . . . 8 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜π‘€)) βˆ₯ (expβ€˜(ΞΈβ€˜πΎ)))
109 efchtcl 26605 . . . . . . . . . . 11 (𝑀 ∈ ℝ β†’ (expβ€˜(ΞΈβ€˜π‘€)) ∈ β„•)
110103, 109syl 17 . . . . . . . . . 10 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜π‘€)) ∈ β„•)
111110nnzd 12582 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜π‘€)) ∈ β„€)
112110nnne0d 12259 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜π‘€)) β‰  0)
113 efchtcl 26605 . . . . . . . . . . 11 (𝐾 ∈ ℝ β†’ (expβ€˜(ΞΈβ€˜πΎ)) ∈ β„•)
114104, 113syl 17 . . . . . . . . . 10 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜πΎ)) ∈ β„•)
115114nnzd 12582 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜πΎ)) ∈ β„€)
116 dvdsval2 16197 . . . . . . . . 9 (((expβ€˜(ΞΈβ€˜π‘€)) ∈ β„€ ∧ (expβ€˜(ΞΈβ€˜π‘€)) β‰  0 ∧ (expβ€˜(ΞΈβ€˜πΎ)) ∈ β„€) β†’ ((expβ€˜(ΞΈβ€˜π‘€)) βˆ₯ (expβ€˜(ΞΈβ€˜πΎ)) ↔ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ β„€))
117111, 112, 115, 116syl3anc 1372 . . . . . . . 8 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜π‘€)) βˆ₯ (expβ€˜(ΞΈβ€˜πΎ)) ↔ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ β„€))
118108, 117mpbid 231 . . . . . . 7 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ β„€)
119118zred 12663 . . . . . 6 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ ℝ)
120 prmz 16609 . . . . . . . . . . . . . . . . . 18 (𝑝 ∈ β„™ β†’ 𝑝 ∈ β„€)
121 fllt 13768 . . . . . . . . . . . . . . . . . 18 (((βˆšβ€˜(2 Β· 𝑁)) ∈ ℝ ∧ 𝑝 ∈ β„€) β†’ ((βˆšβ€˜(2 Β· 𝑁)) < 𝑝 ↔ (βŒŠβ€˜(βˆšβ€˜(2 Β· 𝑁))) < 𝑝))
12222, 120, 121syl2an 597 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((βˆšβ€˜(2 Β· 𝑁)) < 𝑝 ↔ (βŒŠβ€˜(βˆšβ€˜(2 Β· 𝑁))) < 𝑝))
12364breq1i 5155 . . . . . . . . . . . . . . . . 17 (𝑀 < 𝑝 ↔ (βŒŠβ€˜(βˆšβ€˜(2 Β· 𝑁))) < 𝑝)
124122, 123bitr4di 289 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((βˆšβ€˜(2 Β· 𝑁)) < 𝑝 ↔ 𝑀 < 𝑝))
125120zred 12663 . . . . . . . . . . . . . . . . 17 (𝑝 ∈ β„™ β†’ 𝑝 ∈ ℝ)
126 ltnle 11290 . . . . . . . . . . . . . . . . 17 ((𝑀 ∈ ℝ ∧ 𝑝 ∈ ℝ) β†’ (𝑀 < 𝑝 ↔ Β¬ 𝑝 ≀ 𝑀))
127103, 125, 126syl2an 597 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑀 < 𝑝 ↔ Β¬ 𝑝 ≀ 𝑀))
128124, 127bitrd 279 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((βˆšβ€˜(2 Β· 𝑁)) < 𝑝 ↔ Β¬ 𝑝 ≀ 𝑀))
129 bposlem1 26777 . . . . . . . . . . . . . . . . . . . 20 ((𝑁 ∈ β„• ∧ 𝑝 ∈ β„™) β†’ (𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) ≀ (2 Β· 𝑁))
1305, 129sylan 581 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) ≀ (2 Β· 𝑁))
131125adantl 483 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ 𝑝 ∈ ℝ)
132 id 22 . . . . . . . . . . . . . . . . . . . . . 22 (𝑝 ∈ β„™ β†’ 𝑝 ∈ β„™)
133 pccl 16779 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑝 ∈ β„™ ∧ ((2 Β· 𝑁)C𝑁) ∈ β„•) β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ∈ β„•0)
134132, 14, 133syl2anr 598 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ∈ β„•0)
135131, 134reexpcld 14125 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) ∈ ℝ)
13620adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (2 Β· 𝑁) ∈ ℝ)
137131resqcld 14087 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝↑2) ∈ ℝ)
138 lelttr 11301 . . . . . . . . . . . . . . . . . . . 20 (((𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) ∈ ℝ ∧ (2 Β· 𝑁) ∈ ℝ ∧ (𝑝↑2) ∈ ℝ) β†’ (((𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) ≀ (2 Β· 𝑁) ∧ (2 Β· 𝑁) < (𝑝↑2)) β†’ (𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) < (𝑝↑2)))
139135, 136, 137, 138syl3anc 1372 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (((𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) ≀ (2 Β· 𝑁) ∧ (2 Β· 𝑁) < (𝑝↑2)) β†’ (𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) < (𝑝↑2)))
140130, 139mpand 694 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((2 Β· 𝑁) < (𝑝↑2) β†’ (𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) < (𝑝↑2)))
141 resqrtth 15199 . . . . . . . . . . . . . . . . . . . . 21 (((2 Β· 𝑁) ∈ ℝ ∧ 0 ≀ (2 Β· 𝑁)) β†’ ((βˆšβ€˜(2 Β· 𝑁))↑2) = (2 Β· 𝑁))
14220, 21, 141syl2anc 585 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ ((βˆšβ€˜(2 Β· 𝑁))↑2) = (2 Β· 𝑁))
143142breq1d 5158 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (((βˆšβ€˜(2 Β· 𝑁))↑2) < (𝑝↑2) ↔ (2 Β· 𝑁) < (𝑝↑2)))
144143adantr 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (((βˆšβ€˜(2 Β· 𝑁))↑2) < (𝑝↑2) ↔ (2 Β· 𝑁) < (𝑝↑2)))
145134nn0zd 12581 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ∈ β„€)
14672a1i 11 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ 2 ∈ β„€)
147 prmgt1 16631 . . . . . . . . . . . . . . . . . . . 20 (𝑝 ∈ β„™ β†’ 1 < 𝑝)
148147adantl 483 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ 1 < 𝑝)
149131, 145, 146, 148ltexp2d 14211 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((𝑝 pCnt ((2 Β· 𝑁)C𝑁)) < 2 ↔ (𝑝↑(𝑝 pCnt ((2 Β· 𝑁)C𝑁))) < (𝑝↑2)))
150140, 144, 1493imtr4d 294 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (((βˆšβ€˜(2 Β· 𝑁))↑2) < (𝑝↑2) β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) < 2))
151 df-2 12272 . . . . . . . . . . . . . . . . . 18 2 = (1 + 1)
152151breq2i 5156 . . . . . . . . . . . . . . . . 17 ((𝑝 pCnt ((2 Β· 𝑁)C𝑁)) < 2 ↔ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) < (1 + 1))
153150, 152imbitrdi 250 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (((βˆšβ€˜(2 Β· 𝑁))↑2) < (𝑝↑2) β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) < (1 + 1)))
15422adantr 482 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (βˆšβ€˜(2 Β· 𝑁)) ∈ ℝ)
15520, 21sqrtge0d 15364 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 0 ≀ (βˆšβ€˜(2 Β· 𝑁)))
156155adantr 482 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ 0 ≀ (βˆšβ€˜(2 Β· 𝑁)))
157 prmnn 16608 . . . . . . . . . . . . . . . . . . . 20 (𝑝 ∈ β„™ β†’ 𝑝 ∈ β„•)
158157nnrpd 13011 . . . . . . . . . . . . . . . . . . 19 (𝑝 ∈ β„™ β†’ 𝑝 ∈ ℝ+)
159158rpge0d 13017 . . . . . . . . . . . . . . . . . 18 (𝑝 ∈ β„™ β†’ 0 ≀ 𝑝)
160159adantl 483 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ 0 ≀ 𝑝)
161154, 131, 156, 160lt2sqd 14216 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((βˆšβ€˜(2 Β· 𝑁)) < 𝑝 ↔ ((βˆšβ€˜(2 Β· 𝑁))↑2) < (𝑝↑2)))
162 1z 12589 . . . . . . . . . . . . . . . . 17 1 ∈ β„€
163 zleltp1 12610 . . . . . . . . . . . . . . . . 17 (((𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ∈ β„€ ∧ 1 ∈ β„€) β†’ ((𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ≀ 1 ↔ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) < (1 + 1)))
164145, 162, 163sylancl 587 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ≀ 1 ↔ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) < (1 + 1)))
165153, 161, 1643imtr4d 294 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((βˆšβ€˜(2 Β· 𝑁)) < 𝑝 β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ≀ 1))
166128, 165sylbird 260 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (Β¬ 𝑝 ≀ 𝑀 β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ≀ 1))
167166imp 408 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ Β¬ 𝑝 ≀ 𝑀) β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ≀ 1)
168167adantrl 715 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀)) β†’ (𝑝 pCnt ((2 Β· 𝑁)C𝑁)) ≀ 1)
169 iftrue 4534 . . . . . . . . . . . . 13 ((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 Β· 𝑁)C𝑁)))
170169adantl 483 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀)) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 Β· 𝑁)C𝑁)))
171 iftrue 4534 . . . . . . . . . . . . 13 ((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0) = 1)
172171adantl 483 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀)) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0) = 1)
173168, 170, 1723brtr4d 5180 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀)) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0) ≀ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0))
174 0le0 12310 . . . . . . . . . . . . 13 0 ≀ 0
175 iffalse 4537 . . . . . . . . . . . . . 14 (Β¬ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0) = 0)
176 iffalse 4537 . . . . . . . . . . . . . 14 (Β¬ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0) = 0)
177175, 176breq12d 5161 . . . . . . . . . . . . 13 (Β¬ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀) β†’ (if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0) ≀ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0) ↔ 0 ≀ 0))
178174, 177mpbiri 258 . . . . . . . . . . . 12 (Β¬ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0) ≀ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0))
179178adantl 483 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ Β¬ (𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀)) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0) ≀ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0))
180173, 179pm2.61dan 812 . . . . . . . . . 10 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0) ≀ if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0))
18159adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ βˆ€π‘› ∈ β„™ (𝑛 pCnt ((2 Β· 𝑁)C𝑁)) ∈ β„•0)
18269adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ 𝑀 ∈ β„•)
183 simpr 486 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ 𝑝 ∈ β„™)
184 oveq1 7413 . . . . . . . . . . 11 (𝑛 = 𝑝 β†’ (𝑛 pCnt ((2 Β· 𝑁)C𝑁)) = (𝑝 pCnt ((2 Β· 𝑁)C𝑁)))
18589adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ 𝐾 ∈ (β„€β‰₯β€˜π‘€))
18655, 181, 182, 183, 184, 185pcmpt2 16823 . . . . . . . . . 10 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝 pCnt ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€))) = if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), (𝑝 pCnt ((2 Β· 𝑁)C𝑁)), 0))
187 eqid 2733 . . . . . . . . . . . . . . . 16 (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)) = (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1))
188187prmorcht 26672 . . . . . . . . . . . . . . 15 (𝐾 ∈ β„• β†’ (expβ€˜(ΞΈβ€˜πΎ)) = (seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜πΎ))
18996, 188syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜πΎ)) = (seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜πΎ))
190187prmorcht 26672 . . . . . . . . . . . . . . 15 (𝑀 ∈ β„• β†’ (expβ€˜(ΞΈβ€˜π‘€)) = (seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜π‘€))
19169, 190syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜π‘€)) = (seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜π‘€))
192189, 191oveq12d 7424 . . . . . . . . . . . . 13 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) = ((seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜πΎ) / (seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜π‘€)))
193192adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) = ((seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜πΎ) / (seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜π‘€)))
194193oveq2d 7422 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝 pCnt ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€)))) = (𝑝 pCnt ((seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜πΎ) / (seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜π‘€))))
195 nncn 12217 . . . . . . . . . . . . . . . 16 (𝑛 ∈ β„• β†’ 𝑛 ∈ β„‚)
196195exp1d 14103 . . . . . . . . . . . . . . 15 (𝑛 ∈ β„• β†’ (𝑛↑1) = 𝑛)
197196ifeq1d 4547 . . . . . . . . . . . . . 14 (𝑛 ∈ β„• β†’ if(𝑛 ∈ β„™, (𝑛↑1), 1) = if(𝑛 ∈ β„™, 𝑛, 1))
198197mpteq2ia 5251 . . . . . . . . . . . . 13 (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, (𝑛↑1), 1)) = (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1))
199198eqcomi 2742 . . . . . . . . . . . 12 (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)) = (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, (𝑛↑1), 1))
200 1nn0 12485 . . . . . . . . . . . . . . 15 1 ∈ β„•0
201200a1i 11 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ β„™) β†’ 1 ∈ β„•0)
202201ralrimiva 3147 . . . . . . . . . . . . 13 (πœ‘ β†’ βˆ€π‘› ∈ β„™ 1 ∈ β„•0)
203202adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ βˆ€π‘› ∈ β„™ 1 ∈ β„•0)
204 eqidd 2734 . . . . . . . . . . . 12 (𝑛 = 𝑝 β†’ 1 = 1)
205199, 203, 182, 183, 204, 185pcmpt2 16823 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝 pCnt ((seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜πΎ) / (seq1( Β· , (𝑛 ∈ β„• ↦ if(𝑛 ∈ β„™, 𝑛, 1)))β€˜π‘€))) = if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0))
206194, 205eqtrd 2773 . . . . . . . . . 10 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝 pCnt ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€)))) = if((𝑝 ≀ 𝐾 ∧ Β¬ 𝑝 ≀ 𝑀), 1, 0))
207180, 186, 2063brtr4d 5180 . . . . . . . . 9 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑝 pCnt ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€))) ≀ (𝑝 pCnt ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€)))))
208207ralrimiva 3147 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘ ∈ β„™ (𝑝 pCnt ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€))) ≀ (𝑝 pCnt ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€)))))
209 pc2dvds 16809 . . . . . . . . 9 ((((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ∈ β„€ ∧ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ β„€) β†’ (((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) βˆ₯ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ↔ βˆ€π‘ ∈ β„™ (𝑝 pCnt ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€))) ≀ (𝑝 pCnt ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))))))
210101, 118, 209syl2anc 585 . . . . . . . 8 (πœ‘ β†’ (((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) βˆ₯ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ↔ βˆ€π‘ ∈ β„™ (𝑝 pCnt ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€))) ≀ (𝑝 pCnt ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))))))
211208, 210mpbird 257 . . . . . . 7 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) βˆ₯ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))))
212114nnred 12224 . . . . . . . . . 10 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜πΎ)) ∈ ℝ)
213110nnred 12224 . . . . . . . . . 10 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜π‘€)) ∈ ℝ)
214114nngt0d 12258 . . . . . . . . . 10 (πœ‘ β†’ 0 < (expβ€˜(ΞΈβ€˜πΎ)))
215110nngt0d 12258 . . . . . . . . . 10 (πœ‘ β†’ 0 < (expβ€˜(ΞΈβ€˜π‘€)))
216212, 213, 214, 215divgt0d 12146 . . . . . . . . 9 (πœ‘ β†’ 0 < ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))))
217 elnnz 12565 . . . . . . . . 9 (((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ β„• ↔ (((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ β„€ ∧ 0 < ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€)))))
218118, 216, 217sylanbrc 584 . . . . . . . 8 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ β„•)
219 dvdsle 16250 . . . . . . . 8 ((((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ∈ β„€ ∧ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) ∈ β„•) β†’ (((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) βˆ₯ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) β†’ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ≀ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€)))))
220101, 218, 219syl2anc 585 . . . . . . 7 (πœ‘ β†’ (((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) βˆ₯ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) β†’ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ≀ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€)))))
221211, 220mpd 15 . . . . . 6 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) ≀ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))))
222 nndivre 12250 . . . . . . . 8 (((expβ€˜(ΞΈβ€˜πΎ)) ∈ ℝ ∧ 4 ∈ β„•) β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / 4) ∈ ℝ)
223212, 1, 222sylancl 587 . . . . . . 7 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / 4) ∈ ℝ)
224 4re 12293 . . . . . . . . . 10 4 ∈ ℝ
225224a1i 11 . . . . . . . . 9 (πœ‘ β†’ 4 ∈ ℝ)
226 6re 12299 . . . . . . . . . 10 6 ∈ ℝ
227226a1i 11 . . . . . . . . 9 (πœ‘ β†’ 6 ∈ ℝ)
228 4lt6 12391 . . . . . . . . . 10 4 < 6
229228a1i 11 . . . . . . . . 9 (πœ‘ β†’ 4 < 6)
230 cht3 26667 . . . . . . . . . . . 12 (ΞΈβ€˜3) = (logβ€˜6)
231230fveq2i 6892 . . . . . . . . . . 11 (expβ€˜(ΞΈβ€˜3)) = (expβ€˜(logβ€˜6))
232 6pos 12319 . . . . . . . . . . . . 13 0 < 6
233226, 232elrpii 12974 . . . . . . . . . . . 12 6 ∈ ℝ+
234 reeflog 26081 . . . . . . . . . . . 12 (6 ∈ ℝ+ β†’ (expβ€˜(logβ€˜6)) = 6)
235233, 234ax-mp 5 . . . . . . . . . . 11 (expβ€˜(logβ€˜6)) = 6
236231, 235eqtri 2761 . . . . . . . . . 10 (expβ€˜(ΞΈβ€˜3)) = 6
237 3re 12289 . . . . . . . . . . . . 13 3 ∈ ℝ
238237a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ 3 ∈ ℝ)
239 eluzle 12832 . . . . . . . . . . . . 13 (𝑀 ∈ (β„€β‰₯β€˜3) β†’ 3 ≀ 𝑀)
24067, 239syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ 3 ≀ 𝑀)
241 chtwordi 26650 . . . . . . . . . . . 12 ((3 ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ 3 ≀ 𝑀) β†’ (ΞΈβ€˜3) ≀ (ΞΈβ€˜π‘€))
242238, 103, 240, 241syl3anc 1372 . . . . . . . . . . 11 (πœ‘ β†’ (ΞΈβ€˜3) ≀ (ΞΈβ€˜π‘€))
243 chtcl 26603 . . . . . . . . . . . . 13 (3 ∈ ℝ β†’ (ΞΈβ€˜3) ∈ ℝ)
244237, 243ax-mp 5 . . . . . . . . . . . 12 (ΞΈβ€˜3) ∈ ℝ
245 chtcl 26603 . . . . . . . . . . . . 13 (𝑀 ∈ ℝ β†’ (ΞΈβ€˜π‘€) ∈ ℝ)
246103, 245syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (ΞΈβ€˜π‘€) ∈ ℝ)
247 efle 16058 . . . . . . . . . . . 12 (((ΞΈβ€˜3) ∈ ℝ ∧ (ΞΈβ€˜π‘€) ∈ ℝ) β†’ ((ΞΈβ€˜3) ≀ (ΞΈβ€˜π‘€) ↔ (expβ€˜(ΞΈβ€˜3)) ≀ (expβ€˜(ΞΈβ€˜π‘€))))
248244, 246, 247sylancr 588 . . . . . . . . . . 11 (πœ‘ β†’ ((ΞΈβ€˜3) ≀ (ΞΈβ€˜π‘€) ↔ (expβ€˜(ΞΈβ€˜3)) ≀ (expβ€˜(ΞΈβ€˜π‘€))))
249242, 248mpbid 231 . . . . . . . . . 10 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜3)) ≀ (expβ€˜(ΞΈβ€˜π‘€)))
250236, 249eqbrtrrid 5184 . . . . . . . . 9 (πœ‘ β†’ 6 ≀ (expβ€˜(ΞΈβ€˜π‘€)))
251225, 227, 213, 229, 250ltletrd 11371 . . . . . . . 8 (πœ‘ β†’ 4 < (expβ€˜(ΞΈβ€˜π‘€)))
252 4pos 12316 . . . . . . . . . 10 0 < 4
253252a1i 11 . . . . . . . . 9 (πœ‘ β†’ 0 < 4)
254 ltdiv2 12097 . . . . . . . . 9 (((4 ∈ ℝ ∧ 0 < 4) ∧ ((expβ€˜(ΞΈβ€˜π‘€)) ∈ ℝ ∧ 0 < (expβ€˜(ΞΈβ€˜π‘€))) ∧ ((expβ€˜(ΞΈβ€˜πΎ)) ∈ ℝ ∧ 0 < (expβ€˜(ΞΈβ€˜πΎ)))) β†’ (4 < (expβ€˜(ΞΈβ€˜π‘€)) ↔ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) < ((expβ€˜(ΞΈβ€˜πΎ)) / 4)))
255225, 253, 213, 215, 212, 214, 254syl222anc 1387 . . . . . . . 8 (πœ‘ β†’ (4 < (expβ€˜(ΞΈβ€˜π‘€)) ↔ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) < ((expβ€˜(ΞΈβ€˜πΎ)) / 4)))
256251, 255mpbid 231 . . . . . . 7 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) < ((expβ€˜(ΞΈβ€˜πΎ)) / 4))
25726a1i 11 . . . . . . . . . . . . 13 (πœ‘ β†’ 2 ∈ ℝ)
258 2lt3 12381 . . . . . . . . . . . . . 14 2 < 3
259258a1i 11 . . . . . . . . . . . . 13 (πœ‘ β†’ 2 < 3)
260238, 103, 104, 240, 106letrd 11368 . . . . . . . . . . . . 13 (πœ‘ β†’ 3 ≀ 𝐾)
261257, 238, 104, 259, 260ltletrd 11371 . . . . . . . . . . . 12 (πœ‘ β†’ 2 < 𝐾)
262 chtub 26705 . . . . . . . . . . . 12 ((𝐾 ∈ ℝ ∧ 2 < 𝐾) β†’ (ΞΈβ€˜πΎ) < ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)))
263104, 261, 262syl2anc 585 . . . . . . . . . . 11 (πœ‘ β†’ (ΞΈβ€˜πΎ) < ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)))
264 chtcl 26603 . . . . . . . . . . . . 13 (𝐾 ∈ ℝ β†’ (ΞΈβ€˜πΎ) ∈ ℝ)
265104, 264syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (ΞΈβ€˜πΎ) ∈ ℝ)
266 relogcl 26076 . . . . . . . . . . . . . 14 (2 ∈ ℝ+ β†’ (logβ€˜2) ∈ ℝ)
26731, 266ax-mp 5 . . . . . . . . . . . . 13 (logβ€˜2) ∈ ℝ
268 3z 12592 . . . . . . . . . . . . . . 15 3 ∈ β„€
269 zsubcl 12601 . . . . . . . . . . . . . . 15 (((2 Β· 𝐾) ∈ β„€ ∧ 3 ∈ β„€) β†’ ((2 Β· 𝐾) βˆ’ 3) ∈ β„€)
27078, 268, 269sylancl 587 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ 3) ∈ β„€)
271270zred 12663 . . . . . . . . . . . . 13 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ 3) ∈ ℝ)
272 remulcl 11192 . . . . . . . . . . . . 13 (((logβ€˜2) ∈ ℝ ∧ ((2 Β· 𝐾) βˆ’ 3) ∈ ℝ) β†’ ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)) ∈ ℝ)
273267, 271, 272sylancr 588 . . . . . . . . . . . 12 (πœ‘ β†’ ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)) ∈ ℝ)
274 eflt 16057 . . . . . . . . . . . 12 (((ΞΈβ€˜πΎ) ∈ ℝ ∧ ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)) ∈ ℝ) β†’ ((ΞΈβ€˜πΎ) < ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)) ↔ (expβ€˜(ΞΈβ€˜πΎ)) < (expβ€˜((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)))))
275265, 273, 274syl2anc 585 . . . . . . . . . . 11 (πœ‘ β†’ ((ΞΈβ€˜πΎ) < ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)) ↔ (expβ€˜(ΞΈβ€˜πΎ)) < (expβ€˜((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)))))
276263, 275mpbid 231 . . . . . . . . . 10 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜πΎ)) < (expβ€˜((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3))))
277 reexplog 26095 . . . . . . . . . . . 12 ((2 ∈ ℝ+ ∧ ((2 Β· 𝐾) βˆ’ 3) ∈ β„€) β†’ (2↑((2 Β· 𝐾) βˆ’ 3)) = (expβ€˜(((2 Β· 𝐾) βˆ’ 3) Β· (logβ€˜2))))
27831, 270, 277sylancr 588 . . . . . . . . . . 11 (πœ‘ β†’ (2↑((2 Β· 𝐾) βˆ’ 3)) = (expβ€˜(((2 Β· 𝐾) βˆ’ 3) Β· (logβ€˜2))))
279270zcnd 12664 . . . . . . . . . . . . 13 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ 3) ∈ β„‚)
280267recni 11225 . . . . . . . . . . . . 13 (logβ€˜2) ∈ β„‚
281 mulcom 11193 . . . . . . . . . . . . 13 ((((2 Β· 𝐾) βˆ’ 3) ∈ β„‚ ∧ (logβ€˜2) ∈ β„‚) β†’ (((2 Β· 𝐾) βˆ’ 3) Β· (logβ€˜2)) = ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)))
282279, 280, 281sylancl 587 . . . . . . . . . . . 12 (πœ‘ β†’ (((2 Β· 𝐾) βˆ’ 3) Β· (logβ€˜2)) = ((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3)))
283282fveq2d 6893 . . . . . . . . . . 11 (πœ‘ β†’ (expβ€˜(((2 Β· 𝐾) βˆ’ 3) Β· (logβ€˜2))) = (expβ€˜((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3))))
284278, 283eqtrd 2773 . . . . . . . . . 10 (πœ‘ β†’ (2↑((2 Β· 𝐾) βˆ’ 3)) = (expβ€˜((logβ€˜2) Β· ((2 Β· 𝐾) βˆ’ 3))))
285276, 284breqtrrd 5176 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜πΎ)) < (2↑((2 Β· 𝐾) βˆ’ 3)))
286 3p2e5 12360 . . . . . . . . . . . . . . . 16 (3 + 2) = 5
287286oveq1i 7416 . . . . . . . . . . . . . . 15 ((3 + 2) βˆ’ 2) = (5 βˆ’ 2)
288 3cn 12290 . . . . . . . . . . . . . . . 16 3 ∈ β„‚
289 2cn 12284 . . . . . . . . . . . . . . . 16 2 ∈ β„‚
290288, 289pncan3oi 11473 . . . . . . . . . . . . . . 15 ((3 + 2) βˆ’ 2) = 3
291287, 290eqtr3i 2763 . . . . . . . . . . . . . 14 (5 βˆ’ 2) = 3
292291oveq2i 7417 . . . . . . . . . . . . 13 ((2 Β· 𝐾) βˆ’ (5 βˆ’ 2)) = ((2 Β· 𝐾) βˆ’ 3)
29378zcnd 12664 . . . . . . . . . . . . . 14 (πœ‘ β†’ (2 Β· 𝐾) ∈ β„‚)
294 5cn 12297 . . . . . . . . . . . . . . 15 5 ∈ β„‚
295 subsub 11487 . . . . . . . . . . . . . . 15 (((2 Β· 𝐾) ∈ β„‚ ∧ 5 ∈ β„‚ ∧ 2 ∈ β„‚) β†’ ((2 Β· 𝐾) βˆ’ (5 βˆ’ 2)) = (((2 Β· 𝐾) βˆ’ 5) + 2))
296294, 289, 295mp3an23 1454 . . . . . . . . . . . . . 14 ((2 Β· 𝐾) ∈ β„‚ β†’ ((2 Β· 𝐾) βˆ’ (5 βˆ’ 2)) = (((2 Β· 𝐾) βˆ’ 5) + 2))
297293, 296syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ (5 βˆ’ 2)) = (((2 Β· 𝐾) βˆ’ 5) + 2))
298292, 297eqtr3id 2787 . . . . . . . . . . . 12 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ 3) = (((2 Β· 𝐾) βˆ’ 5) + 2))
299298oveq2d 7422 . . . . . . . . . . 11 (πœ‘ β†’ (2↑𝑐((2 Β· 𝐾) βˆ’ 3)) = (2↑𝑐(((2 Β· 𝐾) βˆ’ 5) + 2)))
300 2ne0 12313 . . . . . . . . . . . 12 2 β‰  0
301 cxpexpz 26167 . . . . . . . . . . . 12 ((2 ∈ β„‚ ∧ 2 β‰  0 ∧ ((2 Β· 𝐾) βˆ’ 3) ∈ β„€) β†’ (2↑𝑐((2 Β· 𝐾) βˆ’ 3)) = (2↑((2 Β· 𝐾) βˆ’ 3)))
302289, 300, 270, 301mp3an12i 1466 . . . . . . . . . . 11 (πœ‘ β†’ (2↑𝑐((2 Β· 𝐾) βˆ’ 3)) = (2↑((2 Β· 𝐾) βˆ’ 3)))
30381zcnd 12664 . . . . . . . . . . . 12 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ 5) ∈ β„‚)
304 2cnne0 12419 . . . . . . . . . . . . 13 (2 ∈ β„‚ ∧ 2 β‰  0)
305 cxpadd 26179 . . . . . . . . . . . . 13 (((2 ∈ β„‚ ∧ 2 β‰  0) ∧ ((2 Β· 𝐾) βˆ’ 5) ∈ β„‚ ∧ 2 ∈ β„‚) β†’ (2↑𝑐(((2 Β· 𝐾) βˆ’ 5) + 2)) = ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· (2↑𝑐2)))
306304, 289, 305mp3an13 1453 . . . . . . . . . . . 12 (((2 Β· 𝐾) βˆ’ 5) ∈ β„‚ β†’ (2↑𝑐(((2 Β· 𝐾) βˆ’ 5) + 2)) = ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· (2↑𝑐2)))
307303, 306syl 17 . . . . . . . . . . 11 (πœ‘ β†’ (2↑𝑐(((2 Β· 𝐾) βˆ’ 5) + 2)) = ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· (2↑𝑐2)))
308299, 302, 3073eqtr3d 2781 . . . . . . . . . 10 (πœ‘ β†’ (2↑((2 Β· 𝐾) βˆ’ 3)) = ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· (2↑𝑐2)))
309 2nn0 12486 . . . . . . . . . . . . 13 2 ∈ β„•0
310 cxpexp 26168 . . . . . . . . . . . . 13 ((2 ∈ β„‚ ∧ 2 ∈ β„•0) β†’ (2↑𝑐2) = (2↑2))
311289, 309, 310mp2an 691 . . . . . . . . . . . 12 (2↑𝑐2) = (2↑2)
312 sq2 14158 . . . . . . . . . . . 12 (2↑2) = 4
313311, 312eqtri 2761 . . . . . . . . . . 11 (2↑𝑐2) = 4
314313oveq2i 7417 . . . . . . . . . 10 ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· (2↑𝑐2)) = ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· 4)
315308, 314eqtrdi 2789 . . . . . . . . 9 (πœ‘ β†’ (2↑((2 Β· 𝐾) βˆ’ 3)) = ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· 4))
316285, 315breqtrd 5174 . . . . . . . 8 (πœ‘ β†’ (expβ€˜(ΞΈβ€˜πΎ)) < ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· 4))
317224, 252pm3.2i 472 . . . . . . . . . 10 (4 ∈ ℝ ∧ 0 < 4)
318317a1i 11 . . . . . . . . 9 (πœ‘ β†’ (4 ∈ ℝ ∧ 0 < 4))
319 ltdivmul2 12088 . . . . . . . . 9 (((expβ€˜(ΞΈβ€˜πΎ)) ∈ ℝ ∧ (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ∈ ℝ ∧ (4 ∈ ℝ ∧ 0 < 4)) β†’ (((expβ€˜(ΞΈβ€˜πΎ)) / 4) < (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ↔ (expβ€˜(ΞΈβ€˜πΎ)) < ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· 4)))
320212, 85, 318, 319syl3anc 1372 . . . . . . . 8 (πœ‘ β†’ (((expβ€˜(ΞΈβ€˜πΎ)) / 4) < (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ↔ (expβ€˜(ΞΈβ€˜πΎ)) < ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) Β· 4)))
321316, 320mpbird 257 . . . . . . 7 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / 4) < (2↑𝑐((2 Β· 𝐾) βˆ’ 5)))
322119, 223, 85, 256, 321lttrd 11372 . . . . . 6 (πœ‘ β†’ ((expβ€˜(ΞΈβ€˜πΎ)) / (expβ€˜(ΞΈβ€˜π‘€))) < (2↑𝑐((2 Β· 𝐾) βˆ’ 5)))
323102, 119, 85, 221, 322lelttrd 11369 . . . . 5 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) < (2↑𝑐((2 Β· 𝐾) βˆ’ 5)))
32497nnred 12224 . . . . . 6 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜πΎ) ∈ ℝ)
325 nnre 12216 . . . . . . . 8 ((seq1( Β· , 𝐹)β€˜π‘€) ∈ β„• β†’ (seq1( Β· , 𝐹)β€˜π‘€) ∈ ℝ)
326 nngt0 12240 . . . . . . . 8 ((seq1( Β· , 𝐹)β€˜π‘€) ∈ β„• β†’ 0 < (seq1( Β· , 𝐹)β€˜π‘€))
327325, 326jca 513 . . . . . . 7 ((seq1( Β· , 𝐹)β€˜π‘€) ∈ β„• β†’ ((seq1( Β· , 𝐹)β€˜π‘€) ∈ ℝ ∧ 0 < (seq1( Β· , 𝐹)β€˜π‘€)))
32870, 327syl 17 . . . . . 6 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜π‘€) ∈ ℝ ∧ 0 < (seq1( Β· , 𝐹)β€˜π‘€)))
329 ltdivmul 12086 . . . . . 6 (((seq1( Β· , 𝐹)β€˜πΎ) ∈ ℝ ∧ (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ∈ ℝ ∧ ((seq1( Β· , 𝐹)β€˜π‘€) ∈ ℝ ∧ 0 < (seq1( Β· , 𝐹)β€˜π‘€))) β†’ (((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) < (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ↔ (seq1( Β· , 𝐹)β€˜πΎ) < ((seq1( Β· , 𝐹)β€˜π‘€) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5)))))
330324, 85, 328, 329syl3anc 1372 . . . . 5 (πœ‘ β†’ (((seq1( Β· , 𝐹)β€˜πΎ) / (seq1( Β· , 𝐹)β€˜π‘€)) < (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ↔ (seq1( Β· , 𝐹)β€˜πΎ) < ((seq1( Β· , 𝐹)β€˜π‘€) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5)))))
331323, 330mpbid 231 . . . 4 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜πΎ) < ((seq1( Β· , 𝐹)β€˜π‘€) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))))
33287, 331eqbrtrrd 5172 . . 3 (πœ‘ β†’ ((2 Β· 𝑁)C𝑁) < ((seq1( Β· , 𝐹)β€˜π‘€) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))))
33330, 85remulcld 11241 . . . 4 (πœ‘ β†’ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))) ∈ ℝ)
3343, 62, 55, 63, 64bposlem5 26781 . . . . 5 (πœ‘ β†’ (seq1( Β· , 𝐹)β€˜π‘€) ≀ ((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)))
33571, 30, 84lemul1d 13056 . . . . 5 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜π‘€) ≀ ((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) ↔ ((seq1( Β· , 𝐹)β€˜π‘€) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))) ≀ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5)))))
336334, 335mpbid 231 . . . 4 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜π‘€) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))) ≀ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))))
33778zred 12663 . . . . . . 7 (πœ‘ β†’ (2 Β· 𝐾) ∈ ℝ)
33837a1i 11 . . . . . . 7 (πœ‘ β†’ 5 ∈ ℝ)
339 flle 13761 . . . . . . . . . . 11 (((2 Β· 𝑁) / 3) ∈ ℝ β†’ (βŒŠβ€˜((2 Β· 𝑁) / 3)) ≀ ((2 Β· 𝑁) / 3))
34074, 339syl 17 . . . . . . . . . 10 (πœ‘ β†’ (βŒŠβ€˜((2 Β· 𝑁) / 3)) ≀ ((2 Β· 𝑁) / 3))
34163, 340eqbrtrid 5183 . . . . . . . . 9 (πœ‘ β†’ 𝐾 ≀ ((2 Β· 𝑁) / 3))
342 2pos 12312 . . . . . . . . . . . 12 0 < 2
34326, 342pm3.2i 472 . . . . . . . . . . 11 (2 ∈ ℝ ∧ 0 < 2)
344343a1i 11 . . . . . . . . . 10 (πœ‘ β†’ (2 ∈ ℝ ∧ 0 < 2))
345 lemul2 12064 . . . . . . . . . 10 ((𝐾 ∈ ℝ ∧ ((2 Β· 𝑁) / 3) ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) β†’ (𝐾 ≀ ((2 Β· 𝑁) / 3) ↔ (2 Β· 𝐾) ≀ (2 Β· ((2 Β· 𝑁) / 3))))
346104, 74, 344, 345syl3anc 1372 . . . . . . . . 9 (πœ‘ β†’ (𝐾 ≀ ((2 Β· 𝑁) / 3) ↔ (2 Β· 𝐾) ≀ (2 Β· ((2 Β· 𝑁) / 3))))
347341, 346mpbid 231 . . . . . . . 8 (πœ‘ β†’ (2 Β· 𝐾) ≀ (2 Β· ((2 Β· 𝑁) / 3)))
34818nncnd 12225 . . . . . . . . . 10 (πœ‘ β†’ (2 Β· 𝑁) ∈ β„‚)
349 3ne0 12315 . . . . . . . . . . . 12 3 β‰  0
350288, 349pm3.2i 472 . . . . . . . . . . 11 (3 ∈ β„‚ ∧ 3 β‰  0)
351 divass 11887 . . . . . . . . . . 11 ((2 ∈ β„‚ ∧ (2 Β· 𝑁) ∈ β„‚ ∧ (3 ∈ β„‚ ∧ 3 β‰  0)) β†’ ((2 Β· (2 Β· 𝑁)) / 3) = (2 Β· ((2 Β· 𝑁) / 3)))
352289, 350, 351mp3an13 1453 . . . . . . . . . 10 ((2 Β· 𝑁) ∈ β„‚ β†’ ((2 Β· (2 Β· 𝑁)) / 3) = (2 Β· ((2 Β· 𝑁) / 3)))
353348, 352syl 17 . . . . . . . . 9 (πœ‘ β†’ ((2 Β· (2 Β· 𝑁)) / 3) = (2 Β· ((2 Β· 𝑁) / 3)))
3545nncnd 12225 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑁 ∈ β„‚)
355 mulass 11195 . . . . . . . . . . . 12 ((2 ∈ β„‚ ∧ 2 ∈ β„‚ ∧ 𝑁 ∈ β„‚) β†’ ((2 Β· 2) Β· 𝑁) = (2 Β· (2 Β· 𝑁)))
356289, 289, 354, 355mp3an12i 1466 . . . . . . . . . . 11 (πœ‘ β†’ ((2 Β· 2) Β· 𝑁) = (2 Β· (2 Β· 𝑁)))
357 2t2e4 12373 . . . . . . . . . . . 12 (2 Β· 2) = 4
358357oveq1i 7416 . . . . . . . . . . 11 ((2 Β· 2) Β· 𝑁) = (4 Β· 𝑁)
359356, 358eqtr3di 2788 . . . . . . . . . 10 (πœ‘ β†’ (2 Β· (2 Β· 𝑁)) = (4 Β· 𝑁))
360359oveq1d 7421 . . . . . . . . 9 (πœ‘ β†’ ((2 Β· (2 Β· 𝑁)) / 3) = ((4 Β· 𝑁) / 3))
361353, 360eqtr3d 2775 . . . . . . . 8 (πœ‘ β†’ (2 Β· ((2 Β· 𝑁) / 3)) = ((4 Β· 𝑁) / 3))
362347, 361breqtrd 5174 . . . . . . 7 (πœ‘ β†’ (2 Β· 𝐾) ≀ ((4 Β· 𝑁) / 3))
363337, 36, 338, 362lesub1dd 11827 . . . . . 6 (πœ‘ β†’ ((2 Β· 𝐾) βˆ’ 5) ≀ (((4 Β· 𝑁) / 3) βˆ’ 5))
364 1lt2 12380 . . . . . . . 8 1 < 2
365364a1i 11 . . . . . . 7 (πœ‘ β†’ 1 < 2)
366257, 365, 82, 39cxpled 26220 . . . . . 6 (πœ‘ β†’ (((2 Β· 𝐾) βˆ’ 5) ≀ (((4 Β· 𝑁) / 3) βˆ’ 5) ↔ (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ≀ (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5))))
367363, 366mpbid 231 . . . . 5 (πœ‘ β†’ (2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ≀ (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5)))
36885, 42, 29lemul2d 13057 . . . . 5 (πœ‘ β†’ ((2↑𝑐((2 Β· 𝐾) βˆ’ 5)) ≀ (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5)) ↔ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))) ≀ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5)))))
369367, 368mpbid 231 . . . 4 (πœ‘ β†’ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))) ≀ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5))))
37086, 333, 43, 336, 369letrd 11368 . . 3 (πœ‘ β†’ ((seq1( Β· , 𝐹)β€˜π‘€) Β· (2↑𝑐((2 Β· 𝐾) βˆ’ 5))) ≀ (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5))))
37115, 86, 43, 332, 370ltletrd 11371 . 2 (πœ‘ β†’ ((2 Β· 𝑁)C𝑁) < (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5))))
37210, 15, 43, 54, 371lttrd 11372 1 (πœ‘ β†’ ((4↑𝑁) / 𝑁) < (((2 Β· 𝑁)↑𝑐(((βˆšβ€˜(2 Β· 𝑁)) / 3) + 2)) Β· (2↑𝑐(((4 Β· 𝑁) / 3) βˆ’ 5))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542   ∈ wcel 2107   β‰  wne 2941  βˆ€wral 3062  βˆƒwrex 3071  ifcif 4528   class class class wbr 5148   ↦ cmpt 5231  βŸΆwf 6537  β€˜cfv 6541  (class class class)co 7406  β„‚cc 11105  β„cr 11106  0cc0 11107  1c1 11108   + caddc 11110   Β· cmul 11112   < clt 11245   ≀ cle 11246   βˆ’ cmin 11441   / cdiv 11868  β„•cn 12209  2c2 12264  3c3 12265  4c4 12266  5c5 12267  6c6 12268  β„•0cn0 12469  β„€cz 12555  β„€β‰₯cuz 12819  β„+crp 12971  ...cfz 13481  βŒŠcfl 13752  seqcseq 13963  β†‘cexp 14024  Ccbc 14259  βˆšcsqrt 15177  expce 16002   βˆ₯ cdvds 16194  β„™cprime 16605   pCnt cpc 16766  logclog 26055  β†‘𝑐ccxp 26056  ΞΈccht 26585
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-inf2 9633  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-pre-sup 11185  ax-addf 11186  ax-mulf 11187
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-of 7667  df-om 7853  df-1st 7972  df-2nd 7973  df-supp 8144  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-2o 8464  df-oadd 8467  df-er 8700  df-map 8819  df-pm 8820  df-ixp 8889  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fsupp 9359  df-fi 9403  df-sup 9434  df-inf 9435  df-oi 9502  df-dju 9893  df-card 9931  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-xnn0 12542  df-z 12556  df-dec 12675  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  df-ioc 13326  df-ico 13327  df-icc 13328  df-fz 13482  df-fzo 13625  df-fl 13754  df-mod 13832  df-seq 13964  df-exp 14025  df-fac 14231  df-bc 14260  df-hash 14288  df-shft 15011  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-limsup 15412  df-clim 15429  df-rlim 15430  df-sum 15630  df-ef 16008  df-sin 16010  df-cos 16011  df-pi 16013  df-dvds 16195  df-gcd 16433  df-prm 16606  df-pc 16767  df-struct 17077  df-sets 17094  df-slot 17112  df-ndx 17124  df-base 17142  df-ress 17171  df-plusg 17207  df-mulr 17208  df-starv 17209  df-sca 17210  df-vsca 17211  df-ip 17212  df-tset 17213  df-ple 17214  df-ds 17216  df-unif 17217  df-hom 17218  df-cco 17219  df-rest 17365  df-topn 17366  df-0g 17384  df-gsum 17385  df-topgen 17386  df-pt 17387  df-prds 17390  df-xrs 17445  df-qtop 17450  df-imas 17451  df-xps 17453  df-mre 17527  df-mrc 17528  df-acs 17530  df-mgm 18558  df-sgrp 18607  df-mnd 18623  df-submnd 18669  df-mulg 18946  df-cntz 19176  df-cmn 19645  df-psmet 20929  df-xmet 20930  df-met 20931  df-bl 20932  df-mopn 20933  df-fbas 20934  df-fg 20935  df-cnfld 20938  df-top 22388  df-topon 22405  df-topsp 22427  df-bases 22441  df-cld 22515  df-ntr 22516  df-cls 22517  df-nei 22594  df-lp 22632  df-perf 22633  df-cn 22723  df-cnp 22724  df-haus 22811  df-tx 23058  df-hmeo 23251  df-fil 23342  df-fm 23434  df-flim 23435  df-flf 23436  df-xms 23818  df-ms 23819  df-tms 23820  df-cncf 24386  df-limc 25375  df-dv 25376  df-log 26057  df-cxp 26058  df-cht 26591  df-ppi 26594
This theorem is referenced by:  bposlem9  26785
  Copyright terms: Public domain W3C validator