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

Theorem ostth3 27484
Description: - Lemma for ostth 27485: p-adic case. (Contributed by Mario Carneiro, 10-Sep-2014.)
Hypotheses
Ref Expression
qrng.q 𝑄 = (β„‚fld β†Ύs β„š)
qabsabv.a 𝐴 = (AbsValβ€˜π‘„)
padic.j 𝐽 = (π‘ž ∈ β„™ ↦ (π‘₯ ∈ β„š ↦ if(π‘₯ = 0, 0, (π‘žβ†‘-(π‘ž pCnt π‘₯)))))
ostth.k 𝐾 = (π‘₯ ∈ β„š ↦ if(π‘₯ = 0, 0, 1))
ostth.1 (πœ‘ β†’ 𝐹 ∈ 𝐴)
ostth3.2 (πœ‘ β†’ βˆ€π‘› ∈ β„• Β¬ 1 < (πΉβ€˜π‘›))
ostth3.3 (πœ‘ β†’ 𝑃 ∈ β„™)
ostth3.4 (πœ‘ β†’ (πΉβ€˜π‘ƒ) < 1)
ostth3.5 𝑅 = -((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))
ostth3.6 𝑆 = if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ))
Assertion
Ref Expression
ostth3 (πœ‘ β†’ βˆƒπ‘Ž ∈ ℝ+ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž)))
Distinct variable groups:   𝑛,𝑝,𝑦   𝑛,𝐾   π‘₯,𝑛,π‘Ž,𝑝,π‘ž,𝑦,πœ‘   𝐽,π‘Ž,𝑝,𝑦   𝑆,π‘Ž   𝐴,π‘Ž,𝑛,𝑝,π‘ž,π‘₯,𝑦   𝑄,𝑛,π‘₯,𝑦   𝐹,π‘Ž,𝑛,𝑝,π‘ž,𝑦   𝑃,π‘Ž,𝑝,π‘ž,π‘₯,𝑦   𝑅,π‘Ž,𝑝,π‘ž,𝑦   π‘₯,𝐹
Allowed substitution hints:   𝑃(𝑛)   𝑄(π‘ž,𝑝,π‘Ž)   𝑅(π‘₯,𝑛)   𝑆(π‘₯,𝑦,𝑛,π‘ž,𝑝)   𝐽(π‘₯,𝑛,π‘ž)   𝐾(π‘₯,𝑦,π‘ž,𝑝,π‘Ž)

Proof of Theorem ostth3
Dummy variables π‘˜ 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ostth3.5 . . . 4 𝑅 = -((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))
2 ostth.1 . . . . . . . . 9 (πœ‘ β†’ 𝐹 ∈ 𝐴)
3 ostth3.3 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑃 ∈ β„™)
4 prmuz2 16640 . . . . . . . . . . . . 13 (𝑃 ∈ β„™ β†’ 𝑃 ∈ (β„€β‰₯β€˜2))
53, 4syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑃 ∈ (β„€β‰₯β€˜2))
6 eluz2b2 12912 . . . . . . . . . . . 12 (𝑃 ∈ (β„€β‰₯β€˜2) ↔ (𝑃 ∈ β„• ∧ 1 < 𝑃))
75, 6sylib 217 . . . . . . . . . . 11 (πœ‘ β†’ (𝑃 ∈ β„• ∧ 1 < 𝑃))
87simpld 494 . . . . . . . . . 10 (πœ‘ β†’ 𝑃 ∈ β„•)
9 nnq 12953 . . . . . . . . . 10 (𝑃 ∈ β„• β†’ 𝑃 ∈ β„š)
108, 9syl 17 . . . . . . . . 9 (πœ‘ β†’ 𝑃 ∈ β„š)
11 qabsabv.a . . . . . . . . . 10 𝐴 = (AbsValβ€˜π‘„)
12 qrng.q . . . . . . . . . . 11 𝑄 = (β„‚fld β†Ύs β„š)
1312qrngbas 27465 . . . . . . . . . 10 β„š = (Baseβ€˜π‘„)
1411, 13abvcl 20663 . . . . . . . . 9 ((𝐹 ∈ 𝐴 ∧ 𝑃 ∈ β„š) β†’ (πΉβ€˜π‘ƒ) ∈ ℝ)
152, 10, 14syl2anc 583 . . . . . . . 8 (πœ‘ β†’ (πΉβ€˜π‘ƒ) ∈ ℝ)
168nnne0d 12269 . . . . . . . . 9 (πœ‘ β†’ 𝑃 β‰  0)
1712qrng0 27467 . . . . . . . . . 10 0 = (0gβ€˜π‘„)
1811, 13, 17abvgt0 20667 . . . . . . . . 9 ((𝐹 ∈ 𝐴 ∧ 𝑃 ∈ β„š ∧ 𝑃 β‰  0) β†’ 0 < (πΉβ€˜π‘ƒ))
192, 10, 16, 18syl3anc 1370 . . . . . . . 8 (πœ‘ β†’ 0 < (πΉβ€˜π‘ƒ))
2015, 19elrpd 13020 . . . . . . 7 (πœ‘ β†’ (πΉβ€˜π‘ƒ) ∈ ℝ+)
2120relogcld 26471 . . . . . 6 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) ∈ ℝ)
228nnred 12234 . . . . . . 7 (πœ‘ β†’ 𝑃 ∈ ℝ)
237simprd 495 . . . . . . 7 (πœ‘ β†’ 1 < 𝑃)
2422, 23rplogcld 26477 . . . . . 6 (πœ‘ β†’ (logβ€˜π‘ƒ) ∈ ℝ+)
2521, 24rerpdivcld 13054 . . . . 5 (πœ‘ β†’ ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) ∈ ℝ)
2625renegcld 11648 . . . 4 (πœ‘ β†’ -((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) ∈ ℝ)
271, 26eqeltrid 2836 . . 3 (πœ‘ β†’ 𝑅 ∈ ℝ)
28 ostth3.4 . . . . . . . . 9 (πœ‘ β†’ (πΉβ€˜π‘ƒ) < 1)
29 1rp 12985 . . . . . . . . . 10 1 ∈ ℝ+
30 logltb 26448 . . . . . . . . . 10 (((πΉβ€˜π‘ƒ) ∈ ℝ+ ∧ 1 ∈ ℝ+) β†’ ((πΉβ€˜π‘ƒ) < 1 ↔ (logβ€˜(πΉβ€˜π‘ƒ)) < (logβ€˜1)))
3120, 29, 30sylancl 585 . . . . . . . . 9 (πœ‘ β†’ ((πΉβ€˜π‘ƒ) < 1 ↔ (logβ€˜(πΉβ€˜π‘ƒ)) < (logβ€˜1)))
3228, 31mpbid 231 . . . . . . . 8 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) < (logβ€˜1))
33 log1 26434 . . . . . . . 8 (logβ€˜1) = 0
3432, 33breqtrdi 5189 . . . . . . 7 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) < 0)
3524rpcnd 13025 . . . . . . . 8 (πœ‘ β†’ (logβ€˜π‘ƒ) ∈ β„‚)
3635mul01d 11420 . . . . . . 7 (πœ‘ β†’ ((logβ€˜π‘ƒ) Β· 0) = 0)
3734, 36breqtrrd 5176 . . . . . 6 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) < ((logβ€˜π‘ƒ) Β· 0))
38 0red 11224 . . . . . . 7 (πœ‘ β†’ 0 ∈ ℝ)
3921, 38, 24ltdivmuld 13074 . . . . . 6 (πœ‘ β†’ (((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) < 0 ↔ (logβ€˜(πΉβ€˜π‘ƒ)) < ((logβ€˜π‘ƒ) Β· 0)))
4037, 39mpbird 257 . . . . 5 (πœ‘ β†’ ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) < 0)
4125lt0neg1d 11790 . . . . 5 (πœ‘ β†’ (((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) < 0 ↔ 0 < -((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))))
4240, 41mpbid 231 . . . 4 (πœ‘ β†’ 0 < -((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)))
4342, 1breqtrrdi 5190 . . 3 (πœ‘ β†’ 0 < 𝑅)
4427, 43elrpd 13020 . 2 (πœ‘ β†’ 𝑅 ∈ ℝ+)
45 padic.j . . . . 5 𝐽 = (π‘ž ∈ β„™ ↦ (π‘₯ ∈ β„š ↦ if(π‘₯ = 0, 0, (π‘žβ†‘-(π‘ž pCnt π‘₯)))))
4612, 11, 45padicabvcxp 27478 . . . 4 ((𝑃 ∈ β„™ ∧ 𝑅 ∈ ℝ+) β†’ (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)) ∈ 𝐴)
473, 44, 46syl2anc 583 . . 3 (πœ‘ β†’ (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)) ∈ 𝐴)
48 fveq2 6891 . . . . . . . . . 10 (𝑦 = 𝑃 β†’ ((π½β€˜π‘ƒ)β€˜π‘¦) = ((π½β€˜π‘ƒ)β€˜π‘ƒ))
4948oveq1d 7427 . . . . . . . . 9 (𝑦 = 𝑃 β†’ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅) = (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅))
50 eqid 2731 . . . . . . . . 9 (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)) = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))
51 ovex 7445 . . . . . . . . 9 (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅) ∈ V
5249, 50, 51fvmpt 6998 . . . . . . . 8 (𝑃 ∈ β„š β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ) = (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅))
5310, 52syl 17 . . . . . . 7 (πœ‘ β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ) = (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅))
5445padicval 27463 . . . . . . . . . 10 ((𝑃 ∈ β„™ ∧ 𝑃 ∈ β„š) β†’ ((π½β€˜π‘ƒ)β€˜π‘ƒ) = if(𝑃 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑃))))
553, 10, 54syl2anc 583 . . . . . . . . 9 (πœ‘ β†’ ((π½β€˜π‘ƒ)β€˜π‘ƒ) = if(𝑃 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑃))))
5616neneqd 2944 . . . . . . . . . 10 (πœ‘ β†’ Β¬ 𝑃 = 0)
5756iffalsed 4539 . . . . . . . . 9 (πœ‘ β†’ if(𝑃 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑃))) = (𝑃↑-(𝑃 pCnt 𝑃)))
588nncnd 12235 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑃 ∈ β„‚)
5958exp1d 14113 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑃↑1) = 𝑃)
6059oveq2d 7428 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑃 pCnt (𝑃↑1)) = (𝑃 pCnt 𝑃))
61 1z 12599 . . . . . . . . . . . . . 14 1 ∈ β„€
62 pcid 16813 . . . . . . . . . . . . . 14 ((𝑃 ∈ β„™ ∧ 1 ∈ β„€) β†’ (𝑃 pCnt (𝑃↑1)) = 1)
633, 61, 62sylancl 585 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑃 pCnt (𝑃↑1)) = 1)
6460, 63eqtr3d 2773 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑃 pCnt 𝑃) = 1)
6564negeqd 11461 . . . . . . . . . . 11 (πœ‘ β†’ -(𝑃 pCnt 𝑃) = -1)
6665oveq2d 7428 . . . . . . . . . 10 (πœ‘ β†’ (𝑃↑-(𝑃 pCnt 𝑃)) = (𝑃↑-1))
67 neg1z 12605 . . . . . . . . . . . 12 -1 ∈ β„€
6867a1i 11 . . . . . . . . . . 11 (πœ‘ β†’ -1 ∈ β„€)
6958, 16, 68cxpexpzd 26559 . . . . . . . . . 10 (πœ‘ β†’ (𝑃↑𝑐-1) = (𝑃↑-1))
7066, 69eqtr4d 2774 . . . . . . . . 9 (πœ‘ β†’ (𝑃↑-(𝑃 pCnt 𝑃)) = (𝑃↑𝑐-1))
7155, 57, 703eqtrd 2775 . . . . . . . 8 (πœ‘ β†’ ((π½β€˜π‘ƒ)β€˜π‘ƒ) = (𝑃↑𝑐-1))
7271oveq1d 7427 . . . . . . 7 (πœ‘ β†’ (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅) = ((𝑃↑𝑐-1)↑𝑐𝑅))
7327recnd 11249 . . . . . . . . . . 11 (πœ‘ β†’ 𝑅 ∈ β„‚)
7473mulm1d 11673 . . . . . . . . . 10 (πœ‘ β†’ (-1 Β· 𝑅) = -𝑅)
751negeqi 11460 . . . . . . . . . . 11 -𝑅 = --((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))
7625recnd 11249 . . . . . . . . . . . 12 (πœ‘ β†’ ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) ∈ β„‚)
7776negnegd 11569 . . . . . . . . . . 11 (πœ‘ β†’ --((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) = ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)))
7875, 77eqtrid 2783 . . . . . . . . . 10 (πœ‘ β†’ -𝑅 = ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)))
7974, 78eqtrd 2771 . . . . . . . . 9 (πœ‘ β†’ (-1 Β· 𝑅) = ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)))
8079oveq2d 7428 . . . . . . . 8 (πœ‘ β†’ (𝑃↑𝑐(-1 Β· 𝑅)) = (𝑃↑𝑐((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))))
818nnrpd 13021 . . . . . . . . 9 (πœ‘ β†’ 𝑃 ∈ ℝ+)
82 neg1rr 12334 . . . . . . . . . 10 -1 ∈ ℝ
8382a1i 11 . . . . . . . . 9 (πœ‘ β†’ -1 ∈ ℝ)
8481, 83, 73cxpmuld 26585 . . . . . . . 8 (πœ‘ β†’ (𝑃↑𝑐(-1 Β· 𝑅)) = ((𝑃↑𝑐-1)↑𝑐𝑅))
8558, 16, 76cxpefd 26560 . . . . . . . . 9 (πœ‘ β†’ (𝑃↑𝑐((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))) = (expβ€˜(((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) Β· (logβ€˜π‘ƒ))))
8621recnd 11249 . . . . . . . . . . 11 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) ∈ β„‚)
8724rpne0d 13028 . . . . . . . . . . 11 (πœ‘ β†’ (logβ€˜π‘ƒ) β‰  0)
8886, 35, 87divcan1d 11998 . . . . . . . . . 10 (πœ‘ β†’ (((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) Β· (logβ€˜π‘ƒ)) = (logβ€˜(πΉβ€˜π‘ƒ)))
8988fveq2d 6895 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜(((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) Β· (logβ€˜π‘ƒ))) = (expβ€˜(logβ€˜(πΉβ€˜π‘ƒ))))
9020reeflogd 26472 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜(logβ€˜(πΉβ€˜π‘ƒ))) = (πΉβ€˜π‘ƒ))
9185, 89, 903eqtrd 2775 . . . . . . . 8 (πœ‘ β†’ (𝑃↑𝑐((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))) = (πΉβ€˜π‘ƒ))
9280, 84, 913eqtr3d 2779 . . . . . . 7 (πœ‘ β†’ ((𝑃↑𝑐-1)↑𝑐𝑅) = (πΉβ€˜π‘ƒ))
9353, 72, 923eqtrrd 2776 . . . . . 6 (πœ‘ β†’ (πΉβ€˜π‘ƒ) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ))
94 fveq2 6891 . . . . . . 7 (𝑃 = 𝑝 β†’ (πΉβ€˜π‘ƒ) = (πΉβ€˜π‘))
95 fveq2 6891 . . . . . . 7 (𝑃 = 𝑝 β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘))
9694, 95eqeq12d 2747 . . . . . 6 (𝑃 = 𝑝 β†’ ((πΉβ€˜π‘ƒ) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ) ↔ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘)))
9793, 96syl5ibcom 244 . . . . 5 (πœ‘ β†’ (𝑃 = 𝑝 β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘)))
9897adantr 480 . . . 4 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑃 = 𝑝 β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘)))
99 prmnn 16618 . . . . . . . . 9 (𝑝 ∈ β„™ β†’ 𝑝 ∈ β„•)
10099ad2antlr 724 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑝 ∈ β„•)
101 nnq 12953 . . . . . . . 8 (𝑝 ∈ β„• β†’ 𝑝 ∈ β„š)
102100, 101syl 17 . . . . . . 7 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑝 ∈ β„š)
103 fveq2 6891 . . . . . . . . 9 (𝑦 = 𝑝 β†’ ((π½β€˜π‘ƒ)β€˜π‘¦) = ((π½β€˜π‘ƒ)β€˜π‘))
104103oveq1d 7427 . . . . . . . 8 (𝑦 = 𝑝 β†’ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅) = (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅))
105 ovex 7445 . . . . . . . 8 (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅) ∈ V
106104, 50, 105fvmpt 6998 . . . . . . 7 (𝑝 ∈ β„š β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘) = (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅))
107102, 106syl 17 . . . . . 6 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘) = (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅))
10873ad2antrr 723 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑅 ∈ β„‚)
1091081cxpd 26555 . . . . . . 7 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (1↑𝑐𝑅) = 1)
1103ad2antrr 723 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑃 ∈ β„™)
11145padicval 27463 . . . . . . . . . 10 ((𝑃 ∈ β„™ ∧ 𝑝 ∈ β„š) β†’ ((π½β€˜π‘ƒ)β€˜π‘) = if(𝑝 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑝))))
112110, 102, 111syl2anc 583 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((π½β€˜π‘ƒ)β€˜π‘) = if(𝑝 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑝))))
113100nnne0d 12269 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑝 β‰  0)
114113neneqd 2944 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ Β¬ 𝑝 = 0)
115114iffalsed 4539 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ if(𝑝 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑝))) = (𝑃↑-(𝑃 pCnt 𝑝)))
116 pceq0 16811 . . . . . . . . . . . . . . . 16 ((𝑃 ∈ β„™ ∧ 𝑝 ∈ β„•) β†’ ((𝑃 pCnt 𝑝) = 0 ↔ Β¬ 𝑃 βˆ₯ 𝑝))
1173, 99, 116syl2an 595 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((𝑃 pCnt 𝑝) = 0 ↔ Β¬ 𝑃 βˆ₯ 𝑝))
118 dvdsprm 16647 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ (β„€β‰₯β€˜2) ∧ 𝑝 ∈ β„™) β†’ (𝑃 βˆ₯ 𝑝 ↔ 𝑃 = 𝑝))
1195, 118sylan 579 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑃 βˆ₯ 𝑝 ↔ 𝑃 = 𝑝))
120119necon3bbid 2977 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (Β¬ 𝑃 βˆ₯ 𝑝 ↔ 𝑃 β‰  𝑝))
121117, 120bitrd 279 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((𝑃 pCnt 𝑝) = 0 ↔ 𝑃 β‰  𝑝))
122121biimpar 477 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (𝑃 pCnt 𝑝) = 0)
123122negeqd 11461 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ -(𝑃 pCnt 𝑝) = -0)
124 neg0 11513 . . . . . . . . . . . 12 -0 = 0
125123, 124eqtrdi 2787 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ -(𝑃 pCnt 𝑝) = 0)
126125oveq2d 7428 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (𝑃↑-(𝑃 pCnt 𝑝)) = (𝑃↑0))
12758ad2antrr 723 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑃 ∈ β„‚)
128127exp0d 14112 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (𝑃↑0) = 1)
129126, 128eqtrd 2771 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (𝑃↑-(𝑃 pCnt 𝑝)) = 1)
130112, 115, 1293eqtrd 2775 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((π½β€˜π‘ƒ)β€˜π‘) = 1)
131130oveq1d 7427 . . . . . . 7 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅) = (1↑𝑐𝑅))
132 2re 12293 . . . . . . . . . . . . 13 2 ∈ ℝ
133132a1i 11 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 2 ∈ ℝ)
134 ostth3.6 . . . . . . . . . . . . . 14 𝑆 = if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ))
1352ad2antrr 723 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝐹 ∈ 𝐴)
13611, 13abvcl 20663 . . . . . . . . . . . . . . . . . 18 ((𝐹 ∈ 𝐴 ∧ 𝑝 ∈ β„š) β†’ (πΉβ€˜π‘) ∈ ℝ)
137135, 102, 136syl2anc 583 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (πΉβ€˜π‘) ∈ ℝ)
13811, 13, 17abvgt0 20667 . . . . . . . . . . . . . . . . . 18 ((𝐹 ∈ 𝐴 ∧ 𝑝 ∈ β„š ∧ 𝑝 β‰  0) β†’ 0 < (πΉβ€˜π‘))
139135, 102, 113, 138syl3anc 1370 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 0 < (πΉβ€˜π‘))
140137, 139elrpd 13020 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (πΉβ€˜π‘) ∈ ℝ+)
141140adantrr 714 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (πΉβ€˜π‘) ∈ ℝ+)
14220ad2antrr 723 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (πΉβ€˜π‘ƒ) ∈ ℝ+)
143141, 142ifcld 4574 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) ∈ ℝ+)
144134, 143eqeltrid 2836 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 ∈ ℝ+)
145144rprecred 13034 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (1 / 𝑆) ∈ ℝ)
146 simprr 770 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (πΉβ€˜π‘) < 1)
14728ad2antrr 723 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (πΉβ€˜π‘ƒ) < 1)
148 breq1 5151 . . . . . . . . . . . . . . . 16 ((πΉβ€˜π‘) = if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) β†’ ((πΉβ€˜π‘) < 1 ↔ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) < 1))
149 breq1 5151 . . . . . . . . . . . . . . . 16 ((πΉβ€˜π‘ƒ) = if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) β†’ ((πΉβ€˜π‘ƒ) < 1 ↔ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) < 1))
150148, 149ifboth 4567 . . . . . . . . . . . . . . 15 (((πΉβ€˜π‘) < 1 ∧ (πΉβ€˜π‘ƒ) < 1) β†’ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) < 1)
151146, 147, 150syl2anc 583 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) < 1)
152134, 151eqbrtrid 5183 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 < 1)
153144reclt1d 13036 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (𝑆 < 1 ↔ 1 < (1 / 𝑆)))
154152, 153mpbid 231 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 1 < (1 / 𝑆))
155 expnbnd 14202 . . . . . . . . . . . 12 ((2 ∈ ℝ ∧ (1 / 𝑆) ∈ ℝ ∧ 1 < (1 / 𝑆)) β†’ βˆƒπ‘˜ ∈ β„• 2 < ((1 / 𝑆)β†‘π‘˜))
156133, 145, 154, 155syl3anc 1370 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ βˆƒπ‘˜ ∈ β„• 2 < ((1 / 𝑆)β†‘π‘˜))
157144rpcnd 13025 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 ∈ β„‚)
158157adantr 480 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝑆 ∈ β„‚)
159144rpne0d 13028 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 β‰  0)
160159adantr 480 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝑆 β‰  0)
161 nnz 12586 . . . . . . . . . . . . . . . . 17 (π‘˜ ∈ β„• β†’ π‘˜ ∈ β„€)
162161adantl 481 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„€)
163158, 160, 162exprecd 14126 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((1 / 𝑆)β†‘π‘˜) = (1 / (π‘†β†‘π‘˜)))
1642ad3antrrr 727 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝐹 ∈ 𝐴)
165 ax-1ne0 11185 . . . . . . . . . . . . . . . . . 18 1 β‰  0
16612qrng1 27468 . . . . . . . . . . . . . . . . . . 19 1 = (1rβ€˜π‘„)
16711, 166, 17abv1z 20671 . . . . . . . . . . . . . . . . . 18 ((𝐹 ∈ 𝐴 ∧ 1 β‰  0) β†’ (πΉβ€˜1) = 1)
168164, 165, 167sylancl 585 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (πΉβ€˜1) = 1)
1698ad2antrr 723 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑃 ∈ β„•)
170 nnnn0 12486 . . . . . . . . . . . . . . . . . . . . 21 (π‘˜ ∈ β„• β†’ π‘˜ ∈ β„•0)
171 nnexpcl 14047 . . . . . . . . . . . . . . . . . . . . 21 ((𝑃 ∈ β„• ∧ π‘˜ ∈ β„•0) β†’ (π‘ƒβ†‘π‘˜) ∈ β„•)
172169, 170, 171syl2an 595 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘ƒβ†‘π‘˜) ∈ β„•)
173172nnzd 12592 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘ƒβ†‘π‘˜) ∈ β„€)
17499ad2antlr 724 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑝 ∈ β„•)
175 nnexpcl 14047 . . . . . . . . . . . . . . . . . . . . 21 ((𝑝 ∈ β„• ∧ π‘˜ ∈ β„•0) β†’ (π‘β†‘π‘˜) ∈ β„•)
176174, 170, 175syl2an 595 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘β†‘π‘˜) ∈ β„•)
177176nnzd 12592 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘β†‘π‘˜) ∈ β„€)
178 bezout 16492 . . . . . . . . . . . . . . . . . . 19 (((π‘ƒβ†‘π‘˜) ∈ β„€ ∧ (π‘β†‘π‘˜) ∈ β„€) β†’ βˆƒπ‘Ž ∈ β„€ βˆƒπ‘ ∈ β„€ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)))
179173, 177, 178syl2anc 583 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ βˆƒπ‘Ž ∈ β„€ βˆƒπ‘ ∈ β„€ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)))
180 simprl 768 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑃 β‰  𝑝)
1813ad2antrr 723 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑃 ∈ β„™)
182 simplr 766 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑝 ∈ β„™)
183 prmrp 16656 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑃 ∈ β„™ ∧ 𝑝 ∈ β„™) β†’ ((𝑃 gcd 𝑝) = 1 ↔ 𝑃 β‰  𝑝))
184181, 182, 183syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ ((𝑃 gcd 𝑝) = 1 ↔ 𝑃 β‰  𝑝))
185180, 184mpbird 257 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (𝑃 gcd 𝑝) = 1)
186185adantr 480 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (𝑃 gcd 𝑝) = 1)
187169adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝑃 ∈ β„•)
188174adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝑝 ∈ β„•)
189 simpr 484 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„•)
190 rppwr 16508 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑃 ∈ β„• ∧ 𝑝 ∈ β„• ∧ π‘˜ ∈ β„•) β†’ ((𝑃 gcd 𝑝) = 1 β†’ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = 1))
191187, 188, 189, 190syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((𝑃 gcd 𝑝) = 1 β†’ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = 1))
192186, 191mpd 15 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = 1)
193192adantrr 714 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = 1)
194193eqeq1d 2733 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) ↔ 1 = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))))
1952ad3antrrr 727 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝐹 ∈ 𝐴)
196172adantrr 714 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘ƒβ†‘π‘˜) ∈ β„•)
197 nnq 12953 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘ƒβ†‘π‘˜) ∈ β„• β†’ (π‘ƒβ†‘π‘˜) ∈ β„š)
198196, 197syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘ƒβ†‘π‘˜) ∈ β„š)
199 simprrl 778 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ π‘Ž ∈ β„€)
200 zq 12945 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘Ž ∈ β„€ β†’ π‘Ž ∈ β„š)
201199, 200syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ π‘Ž ∈ β„š)
202 qmulcl 12958 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π‘ƒβ†‘π‘˜) ∈ β„š ∧ π‘Ž ∈ β„š) β†’ ((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š)
203198, 201, 202syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š)
204176adantrr 714 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘β†‘π‘˜) ∈ β„•)
205 nnq 12953 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘β†‘π‘˜) ∈ β„• β†’ (π‘β†‘π‘˜) ∈ β„š)
206204, 205syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘β†‘π‘˜) ∈ β„š)
207 simprrr 779 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑏 ∈ β„€)
208 zq 12945 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑏 ∈ β„€ β†’ 𝑏 ∈ β„š)
209207, 208syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑏 ∈ β„š)
210 qmulcl 12958 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π‘β†‘π‘˜) ∈ β„š ∧ 𝑏 ∈ β„š) β†’ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š)
211206, 209, 210syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š)
212 qaddcl 12956 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š ∧ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š) β†’ (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) ∈ β„š)
213203, 211, 212syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) ∈ β„š)
21411, 13abvcl 20663 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐹 ∈ 𝐴 ∧ (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) ∈ β„š) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ∈ ℝ)
215195, 213, 214syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ∈ ℝ)
21611, 13abvcl 20663 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝐹 ∈ 𝐴 ∧ ((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) ∈ ℝ)
217195, 203, 216syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) ∈ ℝ)
21811, 13abvcl 20663 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝐹 ∈ 𝐴 ∧ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) ∈ ℝ)
219195, 211, 218syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) ∈ ℝ)
220217, 219readdcld 11250 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))) ∈ ℝ)
221 rpexpcl 14053 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑆 ∈ ℝ+ ∧ π‘˜ ∈ β„€) β†’ (π‘†β†‘π‘˜) ∈ ℝ+)
222144, 161, 221syl2an 595 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘†β†‘π‘˜) ∈ ℝ+)
223222rpred 13023 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘†β†‘π‘˜) ∈ ℝ)
224223adantrr 714 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘†β†‘π‘˜) ∈ ℝ)
225 remulcl 11201 . . . . . . . . . . . . . . . . . . . . . . . 24 ((2 ∈ ℝ ∧ (π‘†β†‘π‘˜) ∈ ℝ) β†’ (2 Β· (π‘†β†‘π‘˜)) ∈ ℝ)
226132, 224, 225sylancr 586 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (2 Β· (π‘†β†‘π‘˜)) ∈ ℝ)
227 qex 12952 . . . . . . . . . . . . . . . . . . . . . . . . . 26 β„š ∈ V
228 cnfldadd 21238 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 + = (+gβ€˜β„‚fld)
22912, 228ressplusg 17242 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (β„š ∈ V β†’ + = (+gβ€˜π‘„))
230227, 229ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25 + = (+gβ€˜π‘„)
23111, 13, 230abvtri 20669 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐹 ∈ 𝐴 ∧ ((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š ∧ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ≀ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))))
232195, 203, 211, 231syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ≀ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))))
233 cnfldmul 21239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 Β· = (.rβ€˜β„‚fld)
23412, 233ressmulr 17259 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (β„š ∈ V β†’ Β· = (.rβ€˜π‘„))
235227, 234ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 Β· = (.rβ€˜π‘„)
23611, 13, 235abvmul 20668 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝐹 ∈ 𝐴 ∧ (π‘ƒβ†‘π‘˜) ∈ β„š ∧ π‘Ž ∈ β„š) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) = ((πΉβ€˜(π‘ƒβ†‘π‘˜)) Β· (πΉβ€˜π‘Ž)))
237195, 198, 201, 236syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) = ((πΉβ€˜(π‘ƒβ†‘π‘˜)) Β· (πΉβ€˜π‘Ž)))
23810ad3antrrr 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑃 ∈ β„š)
239170ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ π‘˜ ∈ β„•0)
24012, 11qabvexp 27472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐹 ∈ 𝐴 ∧ 𝑃 ∈ β„š ∧ π‘˜ ∈ β„•0) β†’ (πΉβ€˜(π‘ƒβ†‘π‘˜)) = ((πΉβ€˜π‘ƒ)β†‘π‘˜))
241195, 238, 239, 240syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(π‘ƒβ†‘π‘˜)) = ((πΉβ€˜π‘ƒ)β†‘π‘˜))
242241oveq1d 7427 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜(π‘ƒβ†‘π‘˜)) Β· (πΉβ€˜π‘Ž)) = (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)))
243237, 242eqtrd 2771 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) = (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)))
244195, 238, 14syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘ƒ) ∈ ℝ)
245244, 239reexpcld 14135 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘ƒ)β†‘π‘˜) ∈ ℝ)
24611, 13abvcl 20663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐹 ∈ 𝐴 ∧ π‘Ž ∈ β„š) β†’ (πΉβ€˜π‘Ž) ∈ ℝ)
247195, 201, 246syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘Ž) ∈ ℝ)
248245, 247remulcld 11251 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ∈ ℝ)
249 elz 12567 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (π‘Ž ∈ β„€ ↔ (π‘Ž ∈ ℝ ∧ (π‘Ž = 0 ∨ π‘Ž ∈ β„• ∨ -π‘Ž ∈ β„•)))
250249simprbi 496 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (π‘Ž ∈ β„€ β†’ (π‘Ž = 0 ∨ π‘Ž ∈ β„• ∨ -π‘Ž ∈ β„•))
251250adantl 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (π‘Ž = 0 ∨ π‘Ž ∈ β„• ∨ -π‘Ž ∈ β„•))
25211, 17abv0 20670 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝐹 ∈ 𝐴 β†’ (πΉβ€˜0) = 0)
2532, 252syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (πœ‘ β†’ (πΉβ€˜0) = 0)
254 0le1 11744 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 0 ≀ 1
255253, 254eqbrtrdi 5187 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (πœ‘ β†’ (πΉβ€˜0) ≀ 1)
256255adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (πΉβ€˜0) ≀ 1)
257 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (π‘Ž = 0 β†’ (πΉβ€˜π‘Ž) = (πΉβ€˜0))
258257breq1d 5158 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (π‘Ž = 0 β†’ ((πΉβ€˜π‘Ž) ≀ 1 ↔ (πΉβ€˜0) ≀ 1))
259256, 258syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (π‘Ž = 0 β†’ (πΉβ€˜π‘Ž) ≀ 1))
260 ostth3.2 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (πœ‘ β†’ βˆ€π‘› ∈ β„• Β¬ 1 < (πΉβ€˜π‘›))
261 nnq 12953 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑛 ∈ β„• β†’ 𝑛 ∈ β„š)
26211, 13abvcl 20663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝐹 ∈ 𝐴 ∧ 𝑛 ∈ β„š) β†’ (πΉβ€˜π‘›) ∈ ℝ)
2632, 261, 262syl2an 595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (πΉβ€˜π‘›) ∈ ℝ)
264 1re 11221 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 1 ∈ ℝ
265 lenlt 11299 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (((πΉβ€˜π‘›) ∈ ℝ ∧ 1 ∈ ℝ) β†’ ((πΉβ€˜π‘›) ≀ 1 ↔ Β¬ 1 < (πΉβ€˜π‘›)))
266263, 264, 265sylancl 585 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((πΉβ€˜π‘›) ≀ 1 ↔ Β¬ 1 < (πΉβ€˜π‘›)))
267266ralbidva 3174 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (πœ‘ β†’ (βˆ€π‘› ∈ β„• (πΉβ€˜π‘›) ≀ 1 ↔ βˆ€π‘› ∈ β„• Β¬ 1 < (πΉβ€˜π‘›)))
268260, 267mpbird 257 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (πœ‘ β†’ βˆ€π‘› ∈ β„• (πΉβ€˜π‘›) ≀ 1)
269 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑛 = π‘Ž β†’ (πΉβ€˜π‘›) = (πΉβ€˜π‘Ž))
270269breq1d 5158 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑛 = π‘Ž β†’ ((πΉβ€˜π‘›) ≀ 1 ↔ (πΉβ€˜π‘Ž) ≀ 1))
271270rspccv 3609 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (βˆ€π‘› ∈ β„• (πΉβ€˜π‘›) ≀ 1 β†’ (π‘Ž ∈ β„• β†’ (πΉβ€˜π‘Ž) ≀ 1))
272268, 271syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (πœ‘ β†’ (π‘Ž ∈ β„• β†’ (πΉβ€˜π‘Ž) ≀ 1))
273272adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (π‘Ž ∈ β„• β†’ (πΉβ€˜π‘Ž) ≀ 1))
2742adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ 𝐹 ∈ 𝐴)
275200ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ π‘Ž ∈ β„š)
276 eqid 2731 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (invgβ€˜π‘„) = (invgβ€˜π‘„)
27711, 13, 276abvneg 20673 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝐹 ∈ 𝐴 ∧ π‘Ž ∈ β„š) β†’ (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)) = (πΉβ€˜π‘Ž))
278274, 275, 277syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)) = (πΉβ€˜π‘Ž))
279 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑛 = ((invgβ€˜π‘„)β€˜π‘Ž) β†’ (πΉβ€˜π‘›) = (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)))
280279breq1d 5158 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑛 = ((invgβ€˜π‘„)β€˜π‘Ž) β†’ ((πΉβ€˜π‘›) ≀ 1 ↔ (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)) ≀ 1))
281268adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ βˆ€π‘› ∈ β„• (πΉβ€˜π‘›) ≀ 1)
28212qrngneg 27469 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (π‘Ž ∈ β„š β†’ ((invgβ€˜π‘„)β€˜π‘Ž) = -π‘Ž)
283275, 282syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ ((invgβ€˜π‘„)β€˜π‘Ž) = -π‘Ž)
284 simprr 770 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ -π‘Ž ∈ β„•)
285283, 284eqeltrd 2832 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ ((invgβ€˜π‘„)β€˜π‘Ž) ∈ β„•)
286280, 281, 285rspcdva 3613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)) ≀ 1)
287278, 286eqbrtrrd 5172 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ (πΉβ€˜π‘Ž) ≀ 1)
288287expr 456 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (-π‘Ž ∈ β„• β†’ (πΉβ€˜π‘Ž) ≀ 1))
289259, 273, 2883jaod 1427 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ ((π‘Ž = 0 ∨ π‘Ž ∈ β„• ∨ -π‘Ž ∈ β„•) β†’ (πΉβ€˜π‘Ž) ≀ 1))
290251, 289mpd 15 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (πΉβ€˜π‘Ž) ≀ 1)
291290ralrimiva 3145 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (πœ‘ β†’ βˆ€π‘Ž ∈ β„€ (πΉβ€˜π‘Ž) ≀ 1)
292291ad3antrrr 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ βˆ€π‘Ž ∈ β„€ (πΉβ€˜π‘Ž) ≀ 1)
293 rsp 3243 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (βˆ€π‘Ž ∈ β„€ (πΉβ€˜π‘Ž) ≀ 1 β†’ (π‘Ž ∈ β„€ β†’ (πΉβ€˜π‘Ž) ≀ 1))
294292, 199, 293sylc 65 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘Ž) ≀ 1)
295264a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 1 ∈ ℝ)
296161ad2antrl 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ π‘˜ ∈ β„€)
29719ad3antrrr 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 < (πΉβ€˜π‘ƒ))
298 expgt0 14068 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πΉβ€˜π‘ƒ) ∈ ℝ ∧ π‘˜ ∈ β„€ ∧ 0 < (πΉβ€˜π‘ƒ)) β†’ 0 < ((πΉβ€˜π‘ƒ)β†‘π‘˜))
299244, 296, 297, 298syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 < ((πΉβ€˜π‘ƒ)β†‘π‘˜))
300 lemul2 12074 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πΉβ€˜π‘Ž) ∈ ℝ ∧ 1 ∈ ℝ ∧ (((πΉβ€˜π‘ƒ)β†‘π‘˜) ∈ ℝ ∧ 0 < ((πΉβ€˜π‘ƒ)β†‘π‘˜))) β†’ ((πΉβ€˜π‘Ž) ≀ 1 ↔ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· 1)))
301247, 295, 245, 299, 300syl112anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘Ž) ≀ 1 ↔ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· 1)))
302294, 301mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· 1))
303245recnd 11249 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘ƒ)β†‘π‘˜) ∈ β„‚)
304303mulridd 11238 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· 1) = ((πΉβ€˜π‘ƒ)β†‘π‘˜))
305302, 304breqtrd 5174 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ ((πΉβ€˜π‘ƒ)β†‘π‘˜))
306144rpred 13023 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 ∈ ℝ)
307306adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑆 ∈ ℝ)
308142adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘ƒ) ∈ ℝ+)
309308rpge0d 13027 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 ≀ (πΉβ€˜π‘ƒ))
310174adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑝 ∈ β„•)
311310, 101syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑝 ∈ β„š)
312195, 311, 136syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ∈ ℝ)
313 max1 13171 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πΉβ€˜π‘ƒ) ∈ ℝ ∧ (πΉβ€˜π‘) ∈ ℝ) β†’ (πΉβ€˜π‘ƒ) ≀ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)))
314244, 312, 313syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘ƒ) ≀ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)))
315314, 134breqtrrdi 5190 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘ƒ) ≀ 𝑆)
316 leexp1a 14147 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πΉβ€˜π‘ƒ) ∈ ℝ ∧ 𝑆 ∈ ℝ ∧ π‘˜ ∈ β„•0) ∧ (0 ≀ (πΉβ€˜π‘ƒ) ∧ (πΉβ€˜π‘ƒ) ≀ 𝑆)) β†’ ((πΉβ€˜π‘ƒ)β†‘π‘˜) ≀ (π‘†β†‘π‘˜))
317244, 307, 239, 309, 315, 316syl32anc 1377 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘ƒ)β†‘π‘˜) ≀ (π‘†β†‘π‘˜))
318248, 245, 224, 305, 317letrd 11378 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ (π‘†β†‘π‘˜))
319243, 318eqbrtrd 5170 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) ≀ (π‘†β†‘π‘˜))
32011, 13, 235abvmul 20668 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝐹 ∈ 𝐴 ∧ (π‘β†‘π‘˜) ∈ β„š ∧ 𝑏 ∈ β„š) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) = ((πΉβ€˜(π‘β†‘π‘˜)) Β· (πΉβ€˜π‘)))
321195, 206, 209, 320syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) = ((πΉβ€˜(π‘β†‘π‘˜)) Β· (πΉβ€˜π‘)))
32212, 11qabvexp 27472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐹 ∈ 𝐴 ∧ 𝑝 ∈ β„š ∧ π‘˜ ∈ β„•0) β†’ (πΉβ€˜(π‘β†‘π‘˜)) = ((πΉβ€˜π‘)β†‘π‘˜))
323195, 311, 239, 322syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(π‘β†‘π‘˜)) = ((πΉβ€˜π‘)β†‘π‘˜))
324323oveq1d 7427 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜(π‘β†‘π‘˜)) Β· (πΉβ€˜π‘)) = (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)))
325321, 324eqtrd 2771 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) = (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)))
326312, 239reexpcld 14135 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘)β†‘π‘˜) ∈ ℝ)
32711, 13abvcl 20663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐹 ∈ 𝐴 ∧ 𝑏 ∈ β„š) β†’ (πΉβ€˜π‘) ∈ ℝ)
328195, 209, 327syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ∈ ℝ)
329326, 328remulcld 11251 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ∈ ℝ)
330 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘Ž = 𝑏 β†’ (πΉβ€˜π‘Ž) = (πΉβ€˜π‘))
331330breq1d 5158 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘Ž = 𝑏 β†’ ((πΉβ€˜π‘Ž) ≀ 1 ↔ (πΉβ€˜π‘) ≀ 1))
332331, 292, 207rspcdva 3613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ≀ 1)
333310nnne0d 12269 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑝 β‰  0)
334195, 311, 333, 138syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 < (πΉβ€˜π‘))
335 expgt0 14068 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πΉβ€˜π‘) ∈ ℝ ∧ π‘˜ ∈ β„€ ∧ 0 < (πΉβ€˜π‘)) β†’ 0 < ((πΉβ€˜π‘)β†‘π‘˜))
336312, 296, 334, 335syl3anc 1370 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 < ((πΉβ€˜π‘)β†‘π‘˜))
337 lemul2 12074 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πΉβ€˜π‘) ∈ ℝ ∧ 1 ∈ ℝ ∧ (((πΉβ€˜π‘)β†‘π‘˜) ∈ ℝ ∧ 0 < ((πΉβ€˜π‘)β†‘π‘˜))) β†’ ((πΉβ€˜π‘) ≀ 1 ↔ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ (((πΉβ€˜π‘)β†‘π‘˜) Β· 1)))
338328, 295, 326, 336, 337syl112anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘) ≀ 1 ↔ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ (((πΉβ€˜π‘)β†‘π‘˜) Β· 1)))
339332, 338mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ (((πΉβ€˜π‘)β†‘π‘˜) Β· 1))
340326recnd 11249 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘)β†‘π‘˜) ∈ β„‚)
341340mulridd 11238 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· 1) = ((πΉβ€˜π‘)β†‘π‘˜))
342339, 341breqtrd 5174 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ ((πΉβ€˜π‘)β†‘π‘˜))
343141adantr 480 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ∈ ℝ+)
344343rpge0d 13027 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 ≀ (πΉβ€˜π‘))
345 max2 13173 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πΉβ€˜π‘ƒ) ∈ ℝ ∧ (πΉβ€˜π‘) ∈ ℝ) β†’ (πΉβ€˜π‘) ≀ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)))
346244, 312, 345syl2anc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ≀ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)))
347346, 134breqtrrdi 5190 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ≀ 𝑆)
348 leexp1a 14147 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πΉβ€˜π‘) ∈ ℝ ∧ 𝑆 ∈ ℝ ∧ π‘˜ ∈ β„•0) ∧ (0 ≀ (πΉβ€˜π‘) ∧ (πΉβ€˜π‘) ≀ 𝑆)) β†’ ((πΉβ€˜π‘)β†‘π‘˜) ≀ (π‘†β†‘π‘˜))
349312, 307, 239, 344, 347, 348syl32anc 1377 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘)β†‘π‘˜) ≀ (π‘†β†‘π‘˜))
350329, 326, 224, 342, 349letrd 11378 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ (π‘†β†‘π‘˜))
351325, 350eqbrtrd 5170 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) ≀ (π‘†β†‘π‘˜))
352217, 219, 224, 224, 319, 351le2addd 11840 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))) ≀ ((π‘†β†‘π‘˜) + (π‘†β†‘π‘˜)))
353222rpcnd 13025 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘†β†‘π‘˜) ∈ β„‚)
3543532timesd 12462 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (2 Β· (π‘†β†‘π‘˜)) = ((π‘†β†‘π‘˜) + (π‘†β†‘π‘˜)))
355354adantrr 714 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (2 Β· (π‘†β†‘π‘˜)) = ((π‘†β†‘π‘˜) + (π‘†β†‘π‘˜)))
356352, 355breqtrrd 5176 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))) ≀ (2 Β· (π‘†β†‘π‘˜)))
357215, 220, 226, 232, 356letrd 11378 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ≀ (2 Β· (π‘†β†‘π‘˜)))
358 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . 23 (1 = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) = (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))))
359358breq1d 5158 . . . . . . . . . . . . . . . . . . . . . 22 (1 = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ ((πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜)) ↔ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ≀ (2 Β· (π‘†β†‘π‘˜))))
360357, 359syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (1 = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜))))
361194, 360sylbid 239 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜))))
362361anassrs 467 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€)) β†’ (((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜))))
363362rexlimdvva 3210 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (βˆƒπ‘Ž ∈ β„€ βˆƒπ‘ ∈ β„€ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜))))
364179, 363mpd 15 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜)))
365168, 364eqbrtrrd 5172 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 1 ≀ (2 Β· (π‘†β†‘π‘˜)))
366222rpregt0d 13029 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((π‘†β†‘π‘˜) ∈ ℝ ∧ 0 < (π‘†β†‘π‘˜)))
367 ledivmul2 12100 . . . . . . . . . . . . . . . . 17 ((1 ∈ ℝ ∧ 2 ∈ ℝ ∧ ((π‘†β†‘π‘˜) ∈ ℝ ∧ 0 < (π‘†β†‘π‘˜))) β†’ ((1 / (π‘†β†‘π‘˜)) ≀ 2 ↔ 1 ≀ (2 Β· (π‘†β†‘π‘˜))))
368264, 132, 366, 367mp3an12i 1464 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((1 / (π‘†β†‘π‘˜)) ≀ 2 ↔ 1 ≀ (2 Β· (π‘†β†‘π‘˜))))
369365, 368mpbird 257 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (1 / (π‘†β†‘π‘˜)) ≀ 2)
370163, 369eqbrtrd 5170 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((1 / 𝑆)β†‘π‘˜) ≀ 2)
371 reexpcl 14051 . . . . . . . . . . . . . . . 16 (((1 / 𝑆) ∈ ℝ ∧ π‘˜ ∈ β„•0) β†’ ((1 / 𝑆)β†‘π‘˜) ∈ ℝ)
372145, 170, 371syl2an 595 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((1 / 𝑆)β†‘π‘˜) ∈ ℝ)
373 lenlt 11299 . . . . . . . . . . . . . . 15 ((((1 / 𝑆)β†‘π‘˜) ∈ ℝ ∧ 2 ∈ ℝ) β†’ (((1 / 𝑆)β†‘π‘˜) ≀ 2 ↔ Β¬ 2 < ((1 / 𝑆)β†‘π‘˜)))
374372, 132, 373sylancl 585 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (((1 / 𝑆)β†‘π‘˜) ≀ 2 ↔ Β¬ 2 < ((1 / 𝑆)β†‘π‘˜)))
375370, 374mpbid 231 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ Β¬ 2 < ((1 / 𝑆)β†‘π‘˜))
376375pm2.21d 121 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (2 < ((1 / 𝑆)β†‘π‘˜) β†’ Β¬ (πΉβ€˜π‘) < 1))
377376rexlimdva 3154 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (βˆƒπ‘˜ ∈ β„• 2 < ((1 / 𝑆)β†‘π‘˜) β†’ Β¬ (πΉβ€˜π‘) < 1))
378156, 377mpd 15 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ Β¬ (πΉβ€˜π‘) < 1)
379378expr 456 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((πΉβ€˜π‘) < 1 β†’ Β¬ (πΉβ€˜π‘) < 1))
380379pm2.01d 189 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ Β¬ (πΉβ€˜π‘) < 1)
381 fveq2 6891 . . . . . . . . . . 11 (𝑛 = 𝑝 β†’ (πΉβ€˜π‘›) = (πΉβ€˜π‘))
382381breq2d 5160 . . . . . . . . . 10 (𝑛 = 𝑝 β†’ (1 < (πΉβ€˜π‘›) ↔ 1 < (πΉβ€˜π‘)))
383382notbid 318 . . . . . . . . 9 (𝑛 = 𝑝 β†’ (Β¬ 1 < (πΉβ€˜π‘›) ↔ Β¬ 1 < (πΉβ€˜π‘)))
384260ad2antrr 723 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ βˆ€π‘› ∈ β„• Β¬ 1 < (πΉβ€˜π‘›))
385383, 384, 100rspcdva 3613 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ Β¬ 1 < (πΉβ€˜π‘))
386 lttri3 11304 . . . . . . . . 9 (((πΉβ€˜π‘) ∈ ℝ ∧ 1 ∈ ℝ) β†’ ((πΉβ€˜π‘) = 1 ↔ (Β¬ (πΉβ€˜π‘) < 1 ∧ Β¬ 1 < (πΉβ€˜π‘))))
387137, 264, 386sylancl 585 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((πΉβ€˜π‘) = 1 ↔ (Β¬ (πΉβ€˜π‘) < 1 ∧ Β¬ 1 < (πΉβ€˜π‘))))
388380, 385, 387mpbir2and 710 . . . . . . 7 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (πΉβ€˜π‘) = 1)
389109, 131, 3883eqtr4d 2781 . . . . . 6 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅) = (πΉβ€˜π‘))
390107, 389eqtr2d 2772 . . . . 5 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘))
391390ex 412 . . . 4 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑃 β‰  𝑝 β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘)))
39298, 391pm2.61dne 3027 . . 3 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘))
39312, 11, 2, 47, 392ostthlem2 27474 . 2 (πœ‘ β†’ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)))
394 oveq2 7420 . . . 4 (π‘Ž = 𝑅 β†’ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž) = (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))
395394mpteq2dv 5250 . . 3 (π‘Ž = 𝑅 β†’ (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž)) = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)))
396395rspceeqv 3633 . 2 ((𝑅 ∈ ℝ+ ∧ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))) β†’ βˆƒπ‘Ž ∈ ℝ+ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž)))
39744, 393, 396syl2anc 583 1 (πœ‘ β†’ βˆƒπ‘Ž ∈ ℝ+ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž)))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∨ w3o 1085   = wceq 1540   ∈ wcel 2105   β‰  wne 2939  βˆ€wral 3060  βˆƒwrex 3069  Vcvv 3473  ifcif 4528   class class class wbr 5148   ↦ cmpt 5231  β€˜cfv 6543  (class class class)co 7412  β„‚cc 11114  β„cr 11115  0cc0 11116  1c1 11117   + caddc 11119   Β· cmul 11121   < clt 11255   ≀ cle 11256  -cneg 11452   / cdiv 11878  β„•cn 12219  2c2 12274  β„•0cn0 12479  β„€cz 12565  β„€β‰₯cuz 12829  β„šcq 12939  β„+crp 12981  β†‘cexp 14034  expce 16012   βˆ₯ cdvds 16204   gcd cgcd 16442  β„™cprime 16615   pCnt cpc 16776   β†Ύs cress 17180  +gcplusg 17204  .rcmulr 17205  invgcminusg 18862  AbsValcabv 20655  β„‚fldccnfld 21233  logclog 26403  β†‘𝑐ccxp 26404
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7729  ax-inf2 9642  ax-cnex 11172  ax-resscn 11173  ax-1cn 11174  ax-icn 11175  ax-addcl 11176  ax-addrcl 11177  ax-mulcl 11178  ax-mulrcl 11179  ax-mulcom 11180  ax-addass 11181  ax-mulass 11182  ax-distr 11183  ax-i2m1 11184  ax-1ne0 11185  ax-1rid 11186  ax-rnegex 11187  ax-rrecex 11188  ax-cnre 11189  ax-pre-lttri 11190  ax-pre-lttrn 11191  ax-pre-ltadd 11192  ax-pre-mulgt0 11193  ax-pre-sup 11194  ax-addf 11195  ax-mulf 11196
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  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 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7368  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7674  df-om 7860  df-1st 7979  df-2nd 7980  df-supp 8152  df-tpos 8217  df-frecs 8272  df-wrecs 8303  df-recs 8377  df-rdg 8416  df-1o 8472  df-2o 8473  df-er 8709  df-map 8828  df-pm 8829  df-ixp 8898  df-en 8946  df-dom 8947  df-sdom 8948  df-fin 8949  df-fsupp 9368  df-fi 9412  df-sup 9443  df-inf 9444  df-oi 9511  df-card 9940  df-pnf 11257  df-mnf 11258  df-xr 11259  df-ltxr 11260  df-le 11261  df-sub 11453  df-neg 11454  df-div 11879  df-nn 12220  df-2 12282  df-3 12283  df-4 12284  df-5 12285  df-6 12286  df-7 12287  df-8 12288  df-9 12289  df-n0 12480  df-z 12566  df-dec 12685  df-uz 12830  df-q 12940  df-rp 12982  df-xneg 13099  df-xadd 13100  df-xmul 13101  df-ioo 13335  df-ioc 13336  df-ico 13337  df-icc 13338  df-fz 13492  df-fzo 13635  df-fl 13764  df-mod 13842  df-seq 13974  df-exp 14035  df-fac 14241  df-bc 14270  df-hash 14298  df-shft 15021  df-cj 15053  df-re 15054  df-im 15055  df-sqrt 15189  df-abs 15190  df-limsup 15422  df-clim 15439  df-rlim 15440  df-sum 15640  df-ef 16018  df-sin 16020  df-cos 16021  df-pi 16023  df-dvds 16205  df-gcd 16443  df-prm 16616  df-pc 16777  df-struct 17087  df-sets 17104  df-slot 17122  df-ndx 17134  df-base 17152  df-ress 17181  df-plusg 17217  df-mulr 17218  df-starv 17219  df-sca 17220  df-vsca 17221  df-ip 17222  df-tset 17223  df-ple 17224  df-ds 17226  df-unif 17227  df-hom 17228  df-cco 17229  df-rest 17375  df-topn 17376  df-0g 17394  df-gsum 17395  df-topgen 17396  df-pt 17397  df-prds 17400  df-xrs 17455  df-qtop 17460  df-imas 17461  df-xps 17463  df-mre 17537  df-mrc 17538  df-acs 17540  df-mgm 18571  df-sgrp 18650  df-mnd 18666  df-submnd 18712  df-grp 18864  df-minusg 18865  df-mulg 18994  df-subg 19046  df-cntz 19229  df-cmn 19698  df-abl 19699  df-mgp 20036  df-rng 20054  df-ur 20083  df-ring 20136  df-cring 20137  df-oppr 20232  df-dvdsr 20255  df-unit 20256  df-invr 20286  df-dvr 20299  df-subrng 20442  df-subrg 20467  df-drng 20585  df-abv 20656  df-psmet 21225  df-xmet 21226  df-met 21227  df-bl 21228  df-mopn 21229  df-fbas 21230  df-fg 21231  df-cnfld 21234  df-top 22716  df-topon 22733  df-topsp 22755  df-bases 22769  df-cld 22843  df-ntr 22844  df-cls 22845  df-nei 22922  df-lp 22960  df-perf 22961  df-cn 23051  df-cnp 23052  df-haus 23139  df-tx 23386  df-hmeo 23579  df-fil 23670  df-fm 23762  df-flim 23763  df-flf 23764  df-xms 24146  df-ms 24147  df-tms 24148  df-cncf 24718  df-limc 25715  df-dv 25716  df-log 26405  df-cxp 26406
This theorem is referenced by:  ostth  27485
  Copyright terms: Public domain W3C validator