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

Theorem ostth3 27130
Description: - Lemma for ostth 27131: 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 16629 . . . . . . . . . . . . 13 (𝑃 ∈ β„™ β†’ 𝑃 ∈ (β„€β‰₯β€˜2))
53, 4syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑃 ∈ (β„€β‰₯β€˜2))
6 eluz2b2 12901 . . . . . . . . . . . 12 (𝑃 ∈ (β„€β‰₯β€˜2) ↔ (𝑃 ∈ β„• ∧ 1 < 𝑃))
75, 6sylib 217 . . . . . . . . . . 11 (πœ‘ β†’ (𝑃 ∈ β„• ∧ 1 < 𝑃))
87simpld 495 . . . . . . . . . 10 (πœ‘ β†’ 𝑃 ∈ β„•)
9 nnq 12942 . . . . . . . . . 10 (𝑃 ∈ β„• β†’ 𝑃 ∈ β„š)
108, 9syl 17 . . . . . . . . 9 (πœ‘ β†’ 𝑃 ∈ β„š)
11 qabsabv.a . . . . . . . . . 10 𝐴 = (AbsValβ€˜π‘„)
12 qrng.q . . . . . . . . . . 11 𝑄 = (β„‚fld β†Ύs β„š)
1312qrngbas 27111 . . . . . . . . . 10 β„š = (Baseβ€˜π‘„)
1411, 13abvcl 20424 . . . . . . . . 9 ((𝐹 ∈ 𝐴 ∧ 𝑃 ∈ β„š) β†’ (πΉβ€˜π‘ƒ) ∈ ℝ)
152, 10, 14syl2anc 584 . . . . . . . 8 (πœ‘ β†’ (πΉβ€˜π‘ƒ) ∈ ℝ)
168nnne0d 12258 . . . . . . . . 9 (πœ‘ β†’ 𝑃 β‰  0)
1712qrng0 27113 . . . . . . . . . 10 0 = (0gβ€˜π‘„)
1811, 13, 17abvgt0 20428 . . . . . . . . 9 ((𝐹 ∈ 𝐴 ∧ 𝑃 ∈ β„š ∧ 𝑃 β‰  0) β†’ 0 < (πΉβ€˜π‘ƒ))
192, 10, 16, 18syl3anc 1371 . . . . . . . 8 (πœ‘ β†’ 0 < (πΉβ€˜π‘ƒ))
2015, 19elrpd 13009 . . . . . . 7 (πœ‘ β†’ (πΉβ€˜π‘ƒ) ∈ ℝ+)
2120relogcld 26122 . . . . . 6 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) ∈ ℝ)
228nnred 12223 . . . . . . 7 (πœ‘ β†’ 𝑃 ∈ ℝ)
237simprd 496 . . . . . . 7 (πœ‘ β†’ 1 < 𝑃)
2422, 23rplogcld 26128 . . . . . 6 (πœ‘ β†’ (logβ€˜π‘ƒ) ∈ ℝ+)
2521, 24rerpdivcld 13043 . . . . 5 (πœ‘ β†’ ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) ∈ ℝ)
2625renegcld 11637 . . . 4 (πœ‘ β†’ -((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) ∈ ℝ)
271, 26eqeltrid 2837 . . 3 (πœ‘ β†’ 𝑅 ∈ ℝ)
28 ostth3.4 . . . . . . . . 9 (πœ‘ β†’ (πΉβ€˜π‘ƒ) < 1)
29 1rp 12974 . . . . . . . . . 10 1 ∈ ℝ+
30 logltb 26099 . . . . . . . . . 10 (((πΉβ€˜π‘ƒ) ∈ ℝ+ ∧ 1 ∈ ℝ+) β†’ ((πΉβ€˜π‘ƒ) < 1 ↔ (logβ€˜(πΉβ€˜π‘ƒ)) < (logβ€˜1)))
3120, 29, 30sylancl 586 . . . . . . . . 9 (πœ‘ β†’ ((πΉβ€˜π‘ƒ) < 1 ↔ (logβ€˜(πΉβ€˜π‘ƒ)) < (logβ€˜1)))
3228, 31mpbid 231 . . . . . . . 8 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) < (logβ€˜1))
33 log1 26085 . . . . . . . 8 (logβ€˜1) = 0
3432, 33breqtrdi 5188 . . . . . . 7 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) < 0)
3524rpcnd 13014 . . . . . . . 8 (πœ‘ β†’ (logβ€˜π‘ƒ) ∈ β„‚)
3635mul01d 11409 . . . . . . 7 (πœ‘ β†’ ((logβ€˜π‘ƒ) Β· 0) = 0)
3734, 36breqtrrd 5175 . . . . . 6 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) < ((logβ€˜π‘ƒ) Β· 0))
38 0red 11213 . . . . . . 7 (πœ‘ β†’ 0 ∈ ℝ)
3921, 38, 24ltdivmuld 13063 . . . . . 6 (πœ‘ β†’ (((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) < 0 ↔ (logβ€˜(πΉβ€˜π‘ƒ)) < ((logβ€˜π‘ƒ) Β· 0)))
4037, 39mpbird 256 . . . . 5 (πœ‘ β†’ ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) < 0)
4125lt0neg1d 11779 . . . . 5 (πœ‘ β†’ (((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) < 0 ↔ 0 < -((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))))
4240, 41mpbid 231 . . . 4 (πœ‘ β†’ 0 < -((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)))
4342, 1breqtrrdi 5189 . . 3 (πœ‘ β†’ 0 < 𝑅)
4427, 43elrpd 13009 . 2 (πœ‘ β†’ 𝑅 ∈ ℝ+)
45 padic.j . . . . 5 𝐽 = (π‘ž ∈ β„™ ↦ (π‘₯ ∈ β„š ↦ if(π‘₯ = 0, 0, (π‘žβ†‘-(π‘ž pCnt π‘₯)))))
4612, 11, 45padicabvcxp 27124 . . . 4 ((𝑃 ∈ β„™ ∧ 𝑅 ∈ ℝ+) β†’ (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)) ∈ 𝐴)
473, 44, 46syl2anc 584 . . 3 (πœ‘ β†’ (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)) ∈ 𝐴)
48 fveq2 6888 . . . . . . . . . 10 (𝑦 = 𝑃 β†’ ((π½β€˜π‘ƒ)β€˜π‘¦) = ((π½β€˜π‘ƒ)β€˜π‘ƒ))
4948oveq1d 7420 . . . . . . . . 9 (𝑦 = 𝑃 β†’ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅) = (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅))
50 eqid 2732 . . . . . . . . 9 (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)) = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))
51 ovex 7438 . . . . . . . . 9 (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅) ∈ V
5249, 50, 51fvmpt 6995 . . . . . . . 8 (𝑃 ∈ β„š β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ) = (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅))
5310, 52syl 17 . . . . . . 7 (πœ‘ β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ) = (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅))
5445padicval 27109 . . . . . . . . . 10 ((𝑃 ∈ β„™ ∧ 𝑃 ∈ β„š) β†’ ((π½β€˜π‘ƒ)β€˜π‘ƒ) = if(𝑃 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑃))))
553, 10, 54syl2anc 584 . . . . . . . . 9 (πœ‘ β†’ ((π½β€˜π‘ƒ)β€˜π‘ƒ) = if(𝑃 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑃))))
5616neneqd 2945 . . . . . . . . . 10 (πœ‘ β†’ Β¬ 𝑃 = 0)
5756iffalsed 4538 . . . . . . . . 9 (πœ‘ β†’ if(𝑃 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑃))) = (𝑃↑-(𝑃 pCnt 𝑃)))
588nncnd 12224 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑃 ∈ β„‚)
5958exp1d 14102 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑃↑1) = 𝑃)
6059oveq2d 7421 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑃 pCnt (𝑃↑1)) = (𝑃 pCnt 𝑃))
61 1z 12588 . . . . . . . . . . . . . 14 1 ∈ β„€
62 pcid 16802 . . . . . . . . . . . . . 14 ((𝑃 ∈ β„™ ∧ 1 ∈ β„€) β†’ (𝑃 pCnt (𝑃↑1)) = 1)
633, 61, 62sylancl 586 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑃 pCnt (𝑃↑1)) = 1)
6460, 63eqtr3d 2774 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑃 pCnt 𝑃) = 1)
6564negeqd 11450 . . . . . . . . . . 11 (πœ‘ β†’ -(𝑃 pCnt 𝑃) = -1)
6665oveq2d 7421 . . . . . . . . . 10 (πœ‘ β†’ (𝑃↑-(𝑃 pCnt 𝑃)) = (𝑃↑-1))
67 neg1z 12594 . . . . . . . . . . . 12 -1 ∈ β„€
6867a1i 11 . . . . . . . . . . 11 (πœ‘ β†’ -1 ∈ β„€)
6958, 16, 68cxpexpzd 26210 . . . . . . . . . 10 (πœ‘ β†’ (𝑃↑𝑐-1) = (𝑃↑-1))
7066, 69eqtr4d 2775 . . . . . . . . 9 (πœ‘ β†’ (𝑃↑-(𝑃 pCnt 𝑃)) = (𝑃↑𝑐-1))
7155, 57, 703eqtrd 2776 . . . . . . . 8 (πœ‘ β†’ ((π½β€˜π‘ƒ)β€˜π‘ƒ) = (𝑃↑𝑐-1))
7271oveq1d 7420 . . . . . . 7 (πœ‘ β†’ (((π½β€˜π‘ƒ)β€˜π‘ƒ)↑𝑐𝑅) = ((𝑃↑𝑐-1)↑𝑐𝑅))
7327recnd 11238 . . . . . . . . . . 11 (πœ‘ β†’ 𝑅 ∈ β„‚)
7473mulm1d 11662 . . . . . . . . . 10 (πœ‘ β†’ (-1 Β· 𝑅) = -𝑅)
751negeqi 11449 . . . . . . . . . . 11 -𝑅 = --((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))
7625recnd 11238 . . . . . . . . . . . 12 (πœ‘ β†’ ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) ∈ β„‚)
7776negnegd 11558 . . . . . . . . . . 11 (πœ‘ β†’ --((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) = ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)))
7875, 77eqtrid 2784 . . . . . . . . . 10 (πœ‘ β†’ -𝑅 = ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)))
7974, 78eqtrd 2772 . . . . . . . . 9 (πœ‘ β†’ (-1 Β· 𝑅) = ((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)))
8079oveq2d 7421 . . . . . . . 8 (πœ‘ β†’ (𝑃↑𝑐(-1 Β· 𝑅)) = (𝑃↑𝑐((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))))
818nnrpd 13010 . . . . . . . . 9 (πœ‘ β†’ 𝑃 ∈ ℝ+)
82 neg1rr 12323 . . . . . . . . . 10 -1 ∈ ℝ
8382a1i 11 . . . . . . . . 9 (πœ‘ β†’ -1 ∈ ℝ)
8481, 83, 73cxpmuld 26235 . . . . . . . 8 (πœ‘ β†’ (𝑃↑𝑐(-1 Β· 𝑅)) = ((𝑃↑𝑐-1)↑𝑐𝑅))
8558, 16, 76cxpefd 26211 . . . . . . . . 9 (πœ‘ β†’ (𝑃↑𝑐((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))) = (expβ€˜(((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) Β· (logβ€˜π‘ƒ))))
8621recnd 11238 . . . . . . . . . . 11 (πœ‘ β†’ (logβ€˜(πΉβ€˜π‘ƒ)) ∈ β„‚)
8724rpne0d 13017 . . . . . . . . . . 11 (πœ‘ β†’ (logβ€˜π‘ƒ) β‰  0)
8886, 35, 87divcan1d 11987 . . . . . . . . . 10 (πœ‘ β†’ (((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) Β· (logβ€˜π‘ƒ)) = (logβ€˜(πΉβ€˜π‘ƒ)))
8988fveq2d 6892 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜(((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ)) Β· (logβ€˜π‘ƒ))) = (expβ€˜(logβ€˜(πΉβ€˜π‘ƒ))))
9020reeflogd 26123 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜(logβ€˜(πΉβ€˜π‘ƒ))) = (πΉβ€˜π‘ƒ))
9185, 89, 903eqtrd 2776 . . . . . . . 8 (πœ‘ β†’ (𝑃↑𝑐((logβ€˜(πΉβ€˜π‘ƒ)) / (logβ€˜π‘ƒ))) = (πΉβ€˜π‘ƒ))
9280, 84, 913eqtr3d 2780 . . . . . . 7 (πœ‘ β†’ ((𝑃↑𝑐-1)↑𝑐𝑅) = (πΉβ€˜π‘ƒ))
9353, 72, 923eqtrrd 2777 . . . . . 6 (πœ‘ β†’ (πΉβ€˜π‘ƒ) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ))
94 fveq2 6888 . . . . . . 7 (𝑃 = 𝑝 β†’ (πΉβ€˜π‘ƒ) = (πΉβ€˜π‘))
95 fveq2 6888 . . . . . . 7 (𝑃 = 𝑝 β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘))
9694, 95eqeq12d 2748 . . . . . 6 (𝑃 = 𝑝 β†’ ((πΉβ€˜π‘ƒ) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘ƒ) ↔ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘)))
9793, 96syl5ibcom 244 . . . . 5 (πœ‘ β†’ (𝑃 = 𝑝 β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘)))
9897adantr 481 . . . 4 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑃 = 𝑝 β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘)))
99 prmnn 16607 . . . . . . . . 9 (𝑝 ∈ β„™ β†’ 𝑝 ∈ β„•)
10099ad2antlr 725 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑝 ∈ β„•)
101 nnq 12942 . . . . . . . 8 (𝑝 ∈ β„• β†’ 𝑝 ∈ β„š)
102100, 101syl 17 . . . . . . 7 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑝 ∈ β„š)
103 fveq2 6888 . . . . . . . . 9 (𝑦 = 𝑝 β†’ ((π½β€˜π‘ƒ)β€˜π‘¦) = ((π½β€˜π‘ƒ)β€˜π‘))
104103oveq1d 7420 . . . . . . . 8 (𝑦 = 𝑝 β†’ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅) = (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅))
105 ovex 7438 . . . . . . . 8 (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅) ∈ V
106104, 50, 105fvmpt 6995 . . . . . . 7 (𝑝 ∈ β„š β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘) = (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅))
107102, 106syl 17 . . . . . 6 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘) = (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅))
10873ad2antrr 724 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑅 ∈ β„‚)
1091081cxpd 26206 . . . . . . 7 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (1↑𝑐𝑅) = 1)
1103ad2antrr 724 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑃 ∈ β„™)
11145padicval 27109 . . . . . . . . . 10 ((𝑃 ∈ β„™ ∧ 𝑝 ∈ β„š) β†’ ((π½β€˜π‘ƒ)β€˜π‘) = if(𝑝 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑝))))
112110, 102, 111syl2anc 584 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((π½β€˜π‘ƒ)β€˜π‘) = if(𝑝 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑝))))
113100nnne0d 12258 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑝 β‰  0)
114113neneqd 2945 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ Β¬ 𝑝 = 0)
115114iffalsed 4538 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ if(𝑝 = 0, 0, (𝑃↑-(𝑃 pCnt 𝑝))) = (𝑃↑-(𝑃 pCnt 𝑝)))
116 pceq0 16800 . . . . . . . . . . . . . . . 16 ((𝑃 ∈ β„™ ∧ 𝑝 ∈ β„•) β†’ ((𝑃 pCnt 𝑝) = 0 ↔ Β¬ 𝑃 βˆ₯ 𝑝))
1173, 99, 116syl2an 596 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((𝑃 pCnt 𝑝) = 0 ↔ Β¬ 𝑃 βˆ₯ 𝑝))
118 dvdsprm 16636 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ (β„€β‰₯β€˜2) ∧ 𝑝 ∈ β„™) β†’ (𝑃 βˆ₯ 𝑝 ↔ 𝑃 = 𝑝))
1195, 118sylan 580 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑃 βˆ₯ 𝑝 ↔ 𝑃 = 𝑝))
120119necon3bbid 2978 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (Β¬ 𝑃 βˆ₯ 𝑝 ↔ 𝑃 β‰  𝑝))
121117, 120bitrd 278 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ ((𝑃 pCnt 𝑝) = 0 ↔ 𝑃 β‰  𝑝))
122121biimpar 478 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (𝑃 pCnt 𝑝) = 0)
123122negeqd 11450 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ -(𝑃 pCnt 𝑝) = -0)
124 neg0 11502 . . . . . . . . . . . 12 -0 = 0
125123, 124eqtrdi 2788 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ -(𝑃 pCnt 𝑝) = 0)
126125oveq2d 7421 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (𝑃↑-(𝑃 pCnt 𝑝)) = (𝑃↑0))
12758ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝑃 ∈ β„‚)
128127exp0d 14101 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (𝑃↑0) = 1)
129126, 128eqtrd 2772 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (𝑃↑-(𝑃 pCnt 𝑝)) = 1)
130112, 115, 1293eqtrd 2776 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((π½β€˜π‘ƒ)β€˜π‘) = 1)
131130oveq1d 7420 . . . . . . 7 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅) = (1↑𝑐𝑅))
132 2re 12282 . . . . . . . . . . . . 13 2 ∈ ℝ
133132a1i 11 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 2 ∈ ℝ)
134 ostth3.6 . . . . . . . . . . . . . 14 𝑆 = if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ))
1352ad2antrr 724 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 𝐹 ∈ 𝐴)
13611, 13abvcl 20424 . . . . . . . . . . . . . . . . . 18 ((𝐹 ∈ 𝐴 ∧ 𝑝 ∈ β„š) β†’ (πΉβ€˜π‘) ∈ ℝ)
137135, 102, 136syl2anc 584 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (πΉβ€˜π‘) ∈ ℝ)
13811, 13, 17abvgt0 20428 . . . . . . . . . . . . . . . . . 18 ((𝐹 ∈ 𝐴 ∧ 𝑝 ∈ β„š ∧ 𝑝 β‰  0) β†’ 0 < (πΉβ€˜π‘))
139135, 102, 113, 138syl3anc 1371 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ 0 < (πΉβ€˜π‘))
140137, 139elrpd 13009 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (πΉβ€˜π‘) ∈ ℝ+)
141140adantrr 715 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (πΉβ€˜π‘) ∈ ℝ+)
14220ad2antrr 724 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (πΉβ€˜π‘ƒ) ∈ ℝ+)
143141, 142ifcld 4573 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) ∈ ℝ+)
144134, 143eqeltrid 2837 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 ∈ ℝ+)
145144rprecred 13023 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (1 / 𝑆) ∈ ℝ)
146 simprr 771 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (πΉβ€˜π‘) < 1)
14728ad2antrr 724 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (πΉβ€˜π‘ƒ) < 1)
148 breq1 5150 . . . . . . . . . . . . . . . 16 ((πΉβ€˜π‘) = if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) β†’ ((πΉβ€˜π‘) < 1 ↔ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) < 1))
149 breq1 5150 . . . . . . . . . . . . . . . 16 ((πΉβ€˜π‘ƒ) = if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) β†’ ((πΉβ€˜π‘ƒ) < 1 ↔ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) < 1))
150148, 149ifboth 4566 . . . . . . . . . . . . . . 15 (((πΉβ€˜π‘) < 1 ∧ (πΉβ€˜π‘ƒ) < 1) β†’ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) < 1)
151146, 147, 150syl2anc 584 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)) < 1)
152134, 151eqbrtrid 5182 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 < 1)
153144reclt1d 13025 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (𝑆 < 1 ↔ 1 < (1 / 𝑆)))
154152, 153mpbid 231 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 1 < (1 / 𝑆))
155 expnbnd 14191 . . . . . . . . . . . 12 ((2 ∈ ℝ ∧ (1 / 𝑆) ∈ ℝ ∧ 1 < (1 / 𝑆)) β†’ βˆƒπ‘˜ ∈ β„• 2 < ((1 / 𝑆)β†‘π‘˜))
156133, 145, 154, 155syl3anc 1371 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ βˆƒπ‘˜ ∈ β„• 2 < ((1 / 𝑆)β†‘π‘˜))
157144rpcnd 13014 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 ∈ β„‚)
158157adantr 481 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝑆 ∈ β„‚)
159144rpne0d 13017 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 β‰  0)
160159adantr 481 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝑆 β‰  0)
161 nnz 12575 . . . . . . . . . . . . . . . . 17 (π‘˜ ∈ β„• β†’ π‘˜ ∈ β„€)
162161adantl 482 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„€)
163158, 160, 162exprecd 14115 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((1 / 𝑆)β†‘π‘˜) = (1 / (π‘†β†‘π‘˜)))
1642ad3antrrr 728 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝐹 ∈ 𝐴)
165 ax-1ne0 11175 . . . . . . . . . . . . . . . . . 18 1 β‰  0
16612qrng1 27114 . . . . . . . . . . . . . . . . . . 19 1 = (1rβ€˜π‘„)
16711, 166, 17abv1z 20432 . . . . . . . . . . . . . . . . . 18 ((𝐹 ∈ 𝐴 ∧ 1 β‰  0) β†’ (πΉβ€˜1) = 1)
168164, 165, 167sylancl 586 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (πΉβ€˜1) = 1)
1698ad2antrr 724 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑃 ∈ β„•)
170 nnnn0 12475 . . . . . . . . . . . . . . . . . . . . 21 (π‘˜ ∈ β„• β†’ π‘˜ ∈ β„•0)
171 nnexpcl 14036 . . . . . . . . . . . . . . . . . . . . 21 ((𝑃 ∈ β„• ∧ π‘˜ ∈ β„•0) β†’ (π‘ƒβ†‘π‘˜) ∈ β„•)
172169, 170, 171syl2an 596 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘ƒβ†‘π‘˜) ∈ β„•)
173172nnzd 12581 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘ƒβ†‘π‘˜) ∈ β„€)
17499ad2antlr 725 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑝 ∈ β„•)
175 nnexpcl 14036 . . . . . . . . . . . . . . . . . . . . 21 ((𝑝 ∈ β„• ∧ π‘˜ ∈ β„•0) β†’ (π‘β†‘π‘˜) ∈ β„•)
176174, 170, 175syl2an 596 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘β†‘π‘˜) ∈ β„•)
177176nnzd 12581 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘β†‘π‘˜) ∈ β„€)
178 bezout 16481 . . . . . . . . . . . . . . . . . . 19 (((π‘ƒβ†‘π‘˜) ∈ β„€ ∧ (π‘β†‘π‘˜) ∈ β„€) β†’ βˆƒπ‘Ž ∈ β„€ βˆƒπ‘ ∈ β„€ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)))
179173, 177, 178syl2anc 584 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ βˆƒπ‘Ž ∈ β„€ βˆƒπ‘ ∈ β„€ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)))
180 simprl 769 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑃 β‰  𝑝)
1813ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑃 ∈ β„™)
182 simplr 767 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑝 ∈ β„™)
183 prmrp 16645 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑃 ∈ β„™ ∧ 𝑝 ∈ β„™) β†’ ((𝑃 gcd 𝑝) = 1 ↔ 𝑃 β‰  𝑝))
184181, 182, 183syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ ((𝑃 gcd 𝑝) = 1 ↔ 𝑃 β‰  𝑝))
185180, 184mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (𝑃 gcd 𝑝) = 1)
186185adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (𝑃 gcd 𝑝) = 1)
187169adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝑃 ∈ β„•)
188174adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 𝑝 ∈ β„•)
189 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„•)
190 rppwr 16497 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑃 ∈ β„• ∧ 𝑝 ∈ β„• ∧ π‘˜ ∈ β„•) β†’ ((𝑃 gcd 𝑝) = 1 β†’ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = 1))
191187, 188, 189, 190syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((𝑃 gcd 𝑝) = 1 β†’ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = 1))
192186, 191mpd 15 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = 1)
193192adantrr 715 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = 1)
194193eqeq1d 2734 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) ↔ 1 = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))))
1952ad3antrrr 728 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝐹 ∈ 𝐴)
196172adantrr 715 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘ƒβ†‘π‘˜) ∈ β„•)
197 nnq 12942 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘ƒβ†‘π‘˜) ∈ β„• β†’ (π‘ƒβ†‘π‘˜) ∈ β„š)
198196, 197syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘ƒβ†‘π‘˜) ∈ β„š)
199 simprrl 779 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ π‘Ž ∈ β„€)
200 zq 12934 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘Ž ∈ β„€ β†’ π‘Ž ∈ β„š)
201199, 200syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ π‘Ž ∈ β„š)
202 qmulcl 12947 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π‘ƒβ†‘π‘˜) ∈ β„š ∧ π‘Ž ∈ β„š) β†’ ((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š)
203198, 201, 202syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š)
204176adantrr 715 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘β†‘π‘˜) ∈ β„•)
205 nnq 12942 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘β†‘π‘˜) ∈ β„• β†’ (π‘β†‘π‘˜) ∈ β„š)
206204, 205syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘β†‘π‘˜) ∈ β„š)
207 simprrr 780 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑏 ∈ β„€)
208 zq 12934 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑏 ∈ β„€ β†’ 𝑏 ∈ β„š)
209207, 208syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑏 ∈ β„š)
210 qmulcl 12947 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π‘β†‘π‘˜) ∈ β„š ∧ 𝑏 ∈ β„š) β†’ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š)
211206, 209, 210syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š)
212 qaddcl 12945 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š ∧ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š) β†’ (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) ∈ β„š)
213203, 211, 212syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) ∈ β„š)
21411, 13abvcl 20424 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐹 ∈ 𝐴 ∧ (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) ∈ β„š) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ∈ ℝ)
215195, 213, 214syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ∈ ℝ)
21611, 13abvcl 20424 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝐹 ∈ 𝐴 ∧ ((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) ∈ ℝ)
217195, 203, 216syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) ∈ ℝ)
21811, 13abvcl 20424 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝐹 ∈ 𝐴 ∧ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) ∈ ℝ)
219195, 211, 218syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) ∈ ℝ)
220217, 219readdcld 11239 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))) ∈ ℝ)
221 rpexpcl 14042 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑆 ∈ ℝ+ ∧ π‘˜ ∈ β„€) β†’ (π‘†β†‘π‘˜) ∈ ℝ+)
222144, 161, 221syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘†β†‘π‘˜) ∈ ℝ+)
223222rpred 13012 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘†β†‘π‘˜) ∈ ℝ)
224223adantrr 715 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (π‘†β†‘π‘˜) ∈ ℝ)
225 remulcl 11191 . . . . . . . . . . . . . . . . . . . . . . . 24 ((2 ∈ ℝ ∧ (π‘†β†‘π‘˜) ∈ ℝ) β†’ (2 Β· (π‘†β†‘π‘˜)) ∈ ℝ)
226132, 224, 225sylancr 587 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (2 Β· (π‘†β†‘π‘˜)) ∈ ℝ)
227 qex 12941 . . . . . . . . . . . . . . . . . . . . . . . . . 26 β„š ∈ V
228 cnfldadd 20941 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 + = (+gβ€˜β„‚fld)
22912, 228ressplusg 17231 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (β„š ∈ V β†’ + = (+gβ€˜π‘„))
230227, 229ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25 + = (+gβ€˜π‘„)
23111, 13, 230abvtri 20430 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐹 ∈ 𝐴 ∧ ((π‘ƒβ†‘π‘˜) Β· π‘Ž) ∈ β„š ∧ ((π‘β†‘π‘˜) Β· 𝑏) ∈ β„š) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ≀ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))))
232195, 203, 211, 231syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ≀ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))))
233 cnfldmul 20942 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 Β· = (.rβ€˜β„‚fld)
23412, 233ressmulr 17248 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (β„š ∈ V β†’ Β· = (.rβ€˜π‘„))
235227, 234ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 Β· = (.rβ€˜π‘„)
23611, 13, 235abvmul 20429 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝐹 ∈ 𝐴 ∧ (π‘ƒβ†‘π‘˜) ∈ β„š ∧ π‘Ž ∈ β„š) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) = ((πΉβ€˜(π‘ƒβ†‘π‘˜)) Β· (πΉβ€˜π‘Ž)))
237195, 198, 201, 236syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) = ((πΉβ€˜(π‘ƒβ†‘π‘˜)) Β· (πΉβ€˜π‘Ž)))
23810ad3antrrr 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑃 ∈ β„š)
239170ad2antrl 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ π‘˜ ∈ β„•0)
24012, 11qabvexp 27118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐹 ∈ 𝐴 ∧ 𝑃 ∈ β„š ∧ π‘˜ ∈ β„•0) β†’ (πΉβ€˜(π‘ƒβ†‘π‘˜)) = ((πΉβ€˜π‘ƒ)β†‘π‘˜))
241195, 238, 239, 240syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(π‘ƒβ†‘π‘˜)) = ((πΉβ€˜π‘ƒ)β†‘π‘˜))
242241oveq1d 7420 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜(π‘ƒβ†‘π‘˜)) Β· (πΉβ€˜π‘Ž)) = (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)))
243237, 242eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) = (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)))
244195, 238, 14syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘ƒ) ∈ ℝ)
245244, 239reexpcld 14124 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘ƒ)β†‘π‘˜) ∈ ℝ)
24611, 13abvcl 20424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐹 ∈ 𝐴 ∧ π‘Ž ∈ β„š) β†’ (πΉβ€˜π‘Ž) ∈ ℝ)
247195, 201, 246syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘Ž) ∈ ℝ)
248245, 247remulcld 11240 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ∈ ℝ)
249 elz 12556 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (π‘Ž ∈ β„€ ↔ (π‘Ž ∈ ℝ ∧ (π‘Ž = 0 ∨ π‘Ž ∈ β„• ∨ -π‘Ž ∈ β„•)))
250249simprbi 497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (π‘Ž ∈ β„€ β†’ (π‘Ž = 0 ∨ π‘Ž ∈ β„• ∨ -π‘Ž ∈ β„•))
251250adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (π‘Ž = 0 ∨ π‘Ž ∈ β„• ∨ -π‘Ž ∈ β„•))
25211, 17abv0 20431 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝐹 ∈ 𝐴 β†’ (πΉβ€˜0) = 0)
2532, 252syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (πœ‘ β†’ (πΉβ€˜0) = 0)
254 0le1 11733 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 0 ≀ 1
255253, 254eqbrtrdi 5186 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (πœ‘ β†’ (πΉβ€˜0) ≀ 1)
256255adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (πΉβ€˜0) ≀ 1)
257 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (π‘Ž = 0 β†’ (πΉβ€˜π‘Ž) = (πΉβ€˜0))
258257breq1d 5157 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (π‘Ž = 0 β†’ ((πΉβ€˜π‘Ž) ≀ 1 ↔ (πΉβ€˜0) ≀ 1))
259256, 258syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (π‘Ž = 0 β†’ (πΉβ€˜π‘Ž) ≀ 1))
260 ostth3.2 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (πœ‘ β†’ βˆ€π‘› ∈ β„• Β¬ 1 < (πΉβ€˜π‘›))
261 nnq 12942 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑛 ∈ β„• β†’ 𝑛 ∈ β„š)
26211, 13abvcl 20424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝐹 ∈ 𝐴 ∧ 𝑛 ∈ β„š) β†’ (πΉβ€˜π‘›) ∈ ℝ)
2632, 261, 262syl2an 596 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (πΉβ€˜π‘›) ∈ ℝ)
264 1re 11210 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 1 ∈ ℝ
265 lenlt 11288 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (((πΉβ€˜π‘›) ∈ ℝ ∧ 1 ∈ ℝ) β†’ ((πΉβ€˜π‘›) ≀ 1 ↔ Β¬ 1 < (πΉβ€˜π‘›)))
266263, 264, 265sylancl 586 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((πΉβ€˜π‘›) ≀ 1 ↔ Β¬ 1 < (πΉβ€˜π‘›)))
267266ralbidva 3175 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (πœ‘ β†’ (βˆ€π‘› ∈ β„• (πΉβ€˜π‘›) ≀ 1 ↔ βˆ€π‘› ∈ β„• Β¬ 1 < (πΉβ€˜π‘›)))
268260, 267mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (πœ‘ β†’ βˆ€π‘› ∈ β„• (πΉβ€˜π‘›) ≀ 1)
269 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑛 = π‘Ž β†’ (πΉβ€˜π‘›) = (πΉβ€˜π‘Ž))
270269breq1d 5157 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑛 = π‘Ž β†’ ((πΉβ€˜π‘›) ≀ 1 ↔ (πΉβ€˜π‘Ž) ≀ 1))
271270rspccv 3609 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (βˆ€π‘› ∈ β„• (πΉβ€˜π‘›) ≀ 1 β†’ (π‘Ž ∈ β„• β†’ (πΉβ€˜π‘Ž) ≀ 1))
272268, 271syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (πœ‘ β†’ (π‘Ž ∈ β„• β†’ (πΉβ€˜π‘Ž) ≀ 1))
273272adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (π‘Ž ∈ β„• β†’ (πΉβ€˜π‘Ž) ≀ 1))
2742adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ 𝐹 ∈ 𝐴)
275200ad2antrl 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ π‘Ž ∈ β„š)
276 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (invgβ€˜π‘„) = (invgβ€˜π‘„)
27711, 13, 276abvneg 20434 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝐹 ∈ 𝐴 ∧ π‘Ž ∈ β„š) β†’ (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)) = (πΉβ€˜π‘Ž))
278274, 275, 277syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)) = (πΉβ€˜π‘Ž))
279 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑛 = ((invgβ€˜π‘„)β€˜π‘Ž) β†’ (πΉβ€˜π‘›) = (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)))
280279breq1d 5157 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑛 = ((invgβ€˜π‘„)β€˜π‘Ž) β†’ ((πΉβ€˜π‘›) ≀ 1 ↔ (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)) ≀ 1))
281268adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ βˆ€π‘› ∈ β„• (πΉβ€˜π‘›) ≀ 1)
28212qrngneg 27115 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (π‘Ž ∈ β„š β†’ ((invgβ€˜π‘„)β€˜π‘Ž) = -π‘Ž)
283275, 282syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ ((invgβ€˜π‘„)β€˜π‘Ž) = -π‘Ž)
284 simprr 771 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ -π‘Ž ∈ β„•)
285283, 284eqeltrd 2833 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ ((invgβ€˜π‘„)β€˜π‘Ž) ∈ β„•)
286280, 281, 285rspcdva 3613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ (πΉβ€˜((invgβ€˜π‘„)β€˜π‘Ž)) ≀ 1)
287278, 286eqbrtrrd 5171 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((πœ‘ ∧ (π‘Ž ∈ β„€ ∧ -π‘Ž ∈ β„•)) β†’ (πΉβ€˜π‘Ž) ≀ 1)
288287expr 457 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (-π‘Ž ∈ β„• β†’ (πΉβ€˜π‘Ž) ≀ 1))
289259, 273, 2883jaod 1428 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ ((π‘Ž = 0 ∨ π‘Ž ∈ β„• ∨ -π‘Ž ∈ β„•) β†’ (πΉβ€˜π‘Ž) ≀ 1))
290251, 289mpd 15 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((πœ‘ ∧ π‘Ž ∈ β„€) β†’ (πΉβ€˜π‘Ž) ≀ 1)
291290ralrimiva 3146 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (πœ‘ β†’ βˆ€π‘Ž ∈ β„€ (πΉβ€˜π‘Ž) ≀ 1)
292291ad3antrrr 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ βˆ€π‘Ž ∈ β„€ (πΉβ€˜π‘Ž) ≀ 1)
293 rsp 3244 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (βˆ€π‘Ž ∈ β„€ (πΉβ€˜π‘Ž) ≀ 1 β†’ (π‘Ž ∈ β„€ β†’ (πΉβ€˜π‘Ž) ≀ 1))
294292, 199, 293sylc 65 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘Ž) ≀ 1)
295264a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 1 ∈ ℝ)
296161ad2antrl 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ π‘˜ ∈ β„€)
29719ad3antrrr 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 < (πΉβ€˜π‘ƒ))
298 expgt0 14057 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πΉβ€˜π‘ƒ) ∈ ℝ ∧ π‘˜ ∈ β„€ ∧ 0 < (πΉβ€˜π‘ƒ)) β†’ 0 < ((πΉβ€˜π‘ƒ)β†‘π‘˜))
299244, 296, 297, 298syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 < ((πΉβ€˜π‘ƒ)β†‘π‘˜))
300 lemul2 12063 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πΉβ€˜π‘Ž) ∈ ℝ ∧ 1 ∈ ℝ ∧ (((πΉβ€˜π‘ƒ)β†‘π‘˜) ∈ ℝ ∧ 0 < ((πΉβ€˜π‘ƒ)β†‘π‘˜))) β†’ ((πΉβ€˜π‘Ž) ≀ 1 ↔ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· 1)))
301247, 295, 245, 299, 300syl112anc 1374 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘Ž) ≀ 1 ↔ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· 1)))
302294, 301mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· 1))
303245recnd 11238 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘ƒ)β†‘π‘˜) ∈ β„‚)
304303mulridd 11227 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· 1) = ((πΉβ€˜π‘ƒ)β†‘π‘˜))
305302, 304breqtrd 5173 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ ((πΉβ€˜π‘ƒ)β†‘π‘˜))
306144rpred 13012 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ 𝑆 ∈ ℝ)
307306adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑆 ∈ ℝ)
308142adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘ƒ) ∈ ℝ+)
309308rpge0d 13016 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 ≀ (πΉβ€˜π‘ƒ))
310174adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑝 ∈ β„•)
311310, 101syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑝 ∈ β„š)
312195, 311, 136syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ∈ ℝ)
313 max1 13160 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πΉβ€˜π‘ƒ) ∈ ℝ ∧ (πΉβ€˜π‘) ∈ ℝ) β†’ (πΉβ€˜π‘ƒ) ≀ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)))
314244, 312, 313syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘ƒ) ≀ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)))
315314, 134breqtrrdi 5189 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘ƒ) ≀ 𝑆)
316 leexp1a 14136 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πΉβ€˜π‘ƒ) ∈ ℝ ∧ 𝑆 ∈ ℝ ∧ π‘˜ ∈ β„•0) ∧ (0 ≀ (πΉβ€˜π‘ƒ) ∧ (πΉβ€˜π‘ƒ) ≀ 𝑆)) β†’ ((πΉβ€˜π‘ƒ)β†‘π‘˜) ≀ (π‘†β†‘π‘˜))
317244, 307, 239, 309, 315, 316syl32anc 1378 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘ƒ)β†‘π‘˜) ≀ (π‘†β†‘π‘˜))
318248, 245, 224, 305, 317letrd 11367 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘ƒ)β†‘π‘˜) Β· (πΉβ€˜π‘Ž)) ≀ (π‘†β†‘π‘˜))
319243, 318eqbrtrd 5169 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) ≀ (π‘†β†‘π‘˜))
32011, 13, 235abvmul 20429 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝐹 ∈ 𝐴 ∧ (π‘β†‘π‘˜) ∈ β„š ∧ 𝑏 ∈ β„š) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) = ((πΉβ€˜(π‘β†‘π‘˜)) Β· (πΉβ€˜π‘)))
321195, 206, 209, 320syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) = ((πΉβ€˜(π‘β†‘π‘˜)) Β· (πΉβ€˜π‘)))
32212, 11qabvexp 27118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐹 ∈ 𝐴 ∧ 𝑝 ∈ β„š ∧ π‘˜ ∈ β„•0) β†’ (πΉβ€˜(π‘β†‘π‘˜)) = ((πΉβ€˜π‘)β†‘π‘˜))
323195, 311, 239, 322syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(π‘β†‘π‘˜)) = ((πΉβ€˜π‘)β†‘π‘˜))
324323oveq1d 7420 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜(π‘β†‘π‘˜)) Β· (πΉβ€˜π‘)) = (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)))
325321, 324eqtrd 2772 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) = (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)))
326312, 239reexpcld 14124 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘)β†‘π‘˜) ∈ ℝ)
32711, 13abvcl 20424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝐹 ∈ 𝐴 ∧ 𝑏 ∈ β„š) β†’ (πΉβ€˜π‘) ∈ ℝ)
328195, 209, 327syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ∈ ℝ)
329326, 328remulcld 11240 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ∈ ℝ)
330 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘Ž = 𝑏 β†’ (πΉβ€˜π‘Ž) = (πΉβ€˜π‘))
331330breq1d 5157 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘Ž = 𝑏 β†’ ((πΉβ€˜π‘Ž) ≀ 1 ↔ (πΉβ€˜π‘) ≀ 1))
332331, 292, 207rspcdva 3613 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ≀ 1)
333310nnne0d 12258 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 𝑝 β‰  0)
334195, 311, 333, 138syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 < (πΉβ€˜π‘))
335 expgt0 14057 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πΉβ€˜π‘) ∈ ℝ ∧ π‘˜ ∈ β„€ ∧ 0 < (πΉβ€˜π‘)) β†’ 0 < ((πΉβ€˜π‘)β†‘π‘˜))
336312, 296, 334, 335syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 < ((πΉβ€˜π‘)β†‘π‘˜))
337 lemul2 12063 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πΉβ€˜π‘) ∈ ℝ ∧ 1 ∈ ℝ ∧ (((πΉβ€˜π‘)β†‘π‘˜) ∈ ℝ ∧ 0 < ((πΉβ€˜π‘)β†‘π‘˜))) β†’ ((πΉβ€˜π‘) ≀ 1 ↔ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ (((πΉβ€˜π‘)β†‘π‘˜) Β· 1)))
338328, 295, 326, 336, 337syl112anc 1374 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘) ≀ 1 ↔ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ (((πΉβ€˜π‘)β†‘π‘˜) Β· 1)))
339332, 338mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ (((πΉβ€˜π‘)β†‘π‘˜) Β· 1))
340326recnd 11238 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘)β†‘π‘˜) ∈ β„‚)
341340mulridd 11227 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· 1) = ((πΉβ€˜π‘)β†‘π‘˜))
342339, 341breqtrd 5173 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ ((πΉβ€˜π‘)β†‘π‘˜))
343141adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ∈ ℝ+)
344343rpge0d 13016 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ 0 ≀ (πΉβ€˜π‘))
345 max2 13162 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πΉβ€˜π‘ƒ) ∈ ℝ ∧ (πΉβ€˜π‘) ∈ ℝ) β†’ (πΉβ€˜π‘) ≀ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)))
346244, 312, 345syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ≀ if((πΉβ€˜π‘ƒ) ≀ (πΉβ€˜π‘), (πΉβ€˜π‘), (πΉβ€˜π‘ƒ)))
347346, 134breqtrrdi 5189 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜π‘) ≀ 𝑆)
348 leexp1a 14136 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πΉβ€˜π‘) ∈ ℝ ∧ 𝑆 ∈ ℝ ∧ π‘˜ ∈ β„•0) ∧ (0 ≀ (πΉβ€˜π‘) ∧ (πΉβ€˜π‘) ≀ 𝑆)) β†’ ((πΉβ€˜π‘)β†‘π‘˜) ≀ (π‘†β†‘π‘˜))
349312, 307, 239, 344, 347, 348syl32anc 1378 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜π‘)β†‘π‘˜) ≀ (π‘†β†‘π‘˜))
350329, 326, 224, 342, 349letrd 11367 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((πΉβ€˜π‘)β†‘π‘˜) Β· (πΉβ€˜π‘)) ≀ (π‘†β†‘π‘˜))
351325, 350eqbrtrd 5169 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏)) ≀ (π‘†β†‘π‘˜))
352217, 219, 224, 224, 319, 351le2addd 11829 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))) ≀ ((π‘†β†‘π‘˜) + (π‘†β†‘π‘˜)))
353222rpcnd 13014 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (π‘†β†‘π‘˜) ∈ β„‚)
3543532timesd 12451 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (2 Β· (π‘†β†‘π‘˜)) = ((π‘†β†‘π‘˜) + (π‘†β†‘π‘˜)))
355354adantrr 715 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (2 Β· (π‘†β†‘π‘˜)) = ((π‘†β†‘π‘˜) + (π‘†β†‘π‘˜)))
356352, 355breqtrrd 5175 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ ((πΉβ€˜((π‘ƒβ†‘π‘˜) Β· π‘Ž)) + (πΉβ€˜((π‘β†‘π‘˜) Β· 𝑏))) ≀ (2 Β· (π‘†β†‘π‘˜)))
357215, 220, 226, 232, 356letrd 11367 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ≀ (2 Β· (π‘†β†‘π‘˜)))
358 fveq2 6888 . . . . . . . . . . . . . . . . . . . . . . 23 (1 = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) = (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))))
359358breq1d 5157 . . . . . . . . . . . . . . . . . . . . . 22 (1 = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ ((πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜)) ↔ (πΉβ€˜(((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏))) ≀ (2 Β· (π‘†β†‘π‘˜))))
360357, 359syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (1 = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜))))
361194, 360sylbid 239 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ (π‘˜ ∈ β„• ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€))) β†’ (((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜))))
362361anassrs 468 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) ∧ (π‘Ž ∈ β„€ ∧ 𝑏 ∈ β„€)) β†’ (((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜))))
363362rexlimdvva 3211 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (βˆƒπ‘Ž ∈ β„€ βˆƒπ‘ ∈ β„€ ((π‘ƒβ†‘π‘˜) gcd (π‘β†‘π‘˜)) = (((π‘ƒβ†‘π‘˜) Β· π‘Ž) + ((π‘β†‘π‘˜) Β· 𝑏)) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜))))
364179, 363mpd 15 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (πΉβ€˜1) ≀ (2 Β· (π‘†β†‘π‘˜)))
365168, 364eqbrtrrd 5171 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ 1 ≀ (2 Β· (π‘†β†‘π‘˜)))
366222rpregt0d 13018 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((π‘†β†‘π‘˜) ∈ ℝ ∧ 0 < (π‘†β†‘π‘˜)))
367 ledivmul2 12089 . . . . . . . . . . . . . . . . 17 ((1 ∈ ℝ ∧ 2 ∈ ℝ ∧ ((π‘†β†‘π‘˜) ∈ ℝ ∧ 0 < (π‘†β†‘π‘˜))) β†’ ((1 / (π‘†β†‘π‘˜)) ≀ 2 ↔ 1 ≀ (2 Β· (π‘†β†‘π‘˜))))
368264, 132, 366, 367mp3an12i 1465 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((1 / (π‘†β†‘π‘˜)) ≀ 2 ↔ 1 ≀ (2 Β· (π‘†β†‘π‘˜))))
369365, 368mpbird 256 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (1 / (π‘†β†‘π‘˜)) ≀ 2)
370163, 369eqbrtrd 5169 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((1 / 𝑆)β†‘π‘˜) ≀ 2)
371 reexpcl 14040 . . . . . . . . . . . . . . . 16 (((1 / 𝑆) ∈ ℝ ∧ π‘˜ ∈ β„•0) β†’ ((1 / 𝑆)β†‘π‘˜) ∈ ℝ)
372145, 170, 371syl2an 596 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ ((1 / 𝑆)β†‘π‘˜) ∈ ℝ)
373 lenlt 11288 . . . . . . . . . . . . . . 15 ((((1 / 𝑆)β†‘π‘˜) ∈ ℝ ∧ 2 ∈ ℝ) β†’ (((1 / 𝑆)β†‘π‘˜) ≀ 2 ↔ Β¬ 2 < ((1 / 𝑆)β†‘π‘˜)))
374372, 132, 373sylancl 586 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (((1 / 𝑆)β†‘π‘˜) ≀ 2 ↔ Β¬ 2 < ((1 / 𝑆)β†‘π‘˜)))
375370, 374mpbid 231 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ Β¬ 2 < ((1 / 𝑆)β†‘π‘˜))
376375pm2.21d 121 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) ∧ π‘˜ ∈ β„•) β†’ (2 < ((1 / 𝑆)β†‘π‘˜) β†’ Β¬ (πΉβ€˜π‘) < 1))
377376rexlimdva 3155 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ (βˆƒπ‘˜ ∈ β„• 2 < ((1 / 𝑆)β†‘π‘˜) β†’ Β¬ (πΉβ€˜π‘) < 1))
378156, 377mpd 15 . . . . . . . . . 10 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ (𝑃 β‰  𝑝 ∧ (πΉβ€˜π‘) < 1)) β†’ Β¬ (πΉβ€˜π‘) < 1)
379378expr 457 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((πΉβ€˜π‘) < 1 β†’ Β¬ (πΉβ€˜π‘) < 1))
380379pm2.01d 189 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ Β¬ (πΉβ€˜π‘) < 1)
381 fveq2 6888 . . . . . . . . . . 11 (𝑛 = 𝑝 β†’ (πΉβ€˜π‘›) = (πΉβ€˜π‘))
382381breq2d 5159 . . . . . . . . . 10 (𝑛 = 𝑝 β†’ (1 < (πΉβ€˜π‘›) ↔ 1 < (πΉβ€˜π‘)))
383382notbid 317 . . . . . . . . 9 (𝑛 = 𝑝 β†’ (Β¬ 1 < (πΉβ€˜π‘›) ↔ Β¬ 1 < (πΉβ€˜π‘)))
384260ad2antrr 724 . . . . . . . . 9 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ βˆ€π‘› ∈ β„• Β¬ 1 < (πΉβ€˜π‘›))
385383, 384, 100rspcdva 3613 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ Β¬ 1 < (πΉβ€˜π‘))
386 lttri3 11293 . . . . . . . . 9 (((πΉβ€˜π‘) ∈ ℝ ∧ 1 ∈ ℝ) β†’ ((πΉβ€˜π‘) = 1 ↔ (Β¬ (πΉβ€˜π‘) < 1 ∧ Β¬ 1 < (πΉβ€˜π‘))))
387137, 264, 386sylancl 586 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ ((πΉβ€˜π‘) = 1 ↔ (Β¬ (πΉβ€˜π‘) < 1 ∧ Β¬ 1 < (πΉβ€˜π‘))))
388380, 385, 387mpbir2and 711 . . . . . . 7 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (πΉβ€˜π‘) = 1)
389109, 131, 3883eqtr4d 2782 . . . . . 6 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (((π½β€˜π‘ƒ)β€˜π‘)↑𝑐𝑅) = (πΉβ€˜π‘))
390107, 389eqtr2d 2773 . . . . 5 (((πœ‘ ∧ 𝑝 ∈ β„™) ∧ 𝑃 β‰  𝑝) β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘))
391390ex 413 . . . 4 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (𝑃 β‰  𝑝 β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘)))
39298, 391pm2.61dne 3028 . . 3 ((πœ‘ ∧ 𝑝 ∈ β„™) β†’ (πΉβ€˜π‘) = ((𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))β€˜π‘))
39312, 11, 2, 47, 392ostthlem2 27120 . 2 (πœ‘ β†’ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)))
394 oveq2 7413 . . . 4 (π‘Ž = 𝑅 β†’ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž) = (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))
395394mpteq2dv 5249 . . 3 (π‘Ž = 𝑅 β†’ (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž)) = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅)))
396395rspceeqv 3632 . 2 ((𝑅 ∈ ℝ+ ∧ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)↑𝑐𝑅))) β†’ βˆƒπ‘Ž ∈ ℝ+ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž)))
39744, 393, 396syl2anc 584 1 (πœ‘ β†’ βˆƒπ‘Ž ∈ ℝ+ 𝐹 = (𝑦 ∈ β„š ↦ (((π½β€˜π‘ƒ)β€˜π‘¦)β†‘π‘π‘Ž)))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∨ w3o 1086   = wceq 1541   ∈ wcel 2106   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  Vcvv 3474  ifcif 4527   class class class wbr 5147   ↦ cmpt 5230  β€˜cfv 6540  (class class class)co 7405  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111   < clt 11244   ≀ cle 11245  -cneg 11441   / cdiv 11867  β„•cn 12208  2c2 12263  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  β„šcq 12928  β„+crp 12970  β†‘cexp 14023  expce 16001   βˆ₯ cdvds 16193   gcd cgcd 16431  β„™cprime 16604   pCnt cpc 16765   β†Ύs cress 17169  +gcplusg 17193  .rcmulr 17194  invgcminusg 18816  AbsValcabv 20416  β„‚fldccnfld 20936  logclog 26054  β†‘𝑐ccxp 26055
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185  ax-mulf 11186
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-om 7852  df-1st 7971  df-2nd 7972  df-supp 8143  df-tpos 8207  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-z 12555  df-dec 12674  df-uz 12819  df-q 12929  df-rp 12971  df-xneg 13088  df-xadd 13089  df-xmul 13090  df-ioo 13324  df-ioc 13325  df-ico 13326  df-icc 13327  df-fz 13481  df-fzo 13624  df-fl 13753  df-mod 13831  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-shft 15010  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-sum 15629  df-ef 16007  df-sin 16009  df-cos 16010  df-pi 16012  df-dvds 16194  df-gcd 16432  df-prm 16605  df-pc 16766  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-ress 17170  df-plusg 17206  df-mulr 17207  df-starv 17208  df-sca 17209  df-vsca 17210  df-ip 17211  df-tset 17212  df-ple 17213  df-ds 17215  df-unif 17216  df-hom 17217  df-cco 17218  df-rest 17364  df-topn 17365  df-0g 17383  df-gsum 17384  df-topgen 17385  df-pt 17386  df-prds 17389  df-xrs 17444  df-qtop 17449  df-imas 17450  df-xps 17452  df-mre 17526  df-mrc 17527  df-acs 17529  df-mgm 18557  df-sgrp 18606  df-mnd 18622  df-submnd 18668  df-grp 18818  df-minusg 18819  df-mulg 18945  df-subg 18997  df-cntz 19175  df-cmn 19644  df-mgp 19982  df-ur 19999  df-ring 20051  df-cring 20052  df-oppr 20142  df-dvdsr 20163  df-unit 20164  df-invr 20194  df-dvr 20207  df-drng 20309  df-subrg 20353  df-abv 20417  df-psmet 20928  df-xmet 20929  df-met 20930  df-bl 20931  df-mopn 20932  df-fbas 20933  df-fg 20934  df-cnfld 20937  df-top 22387  df-topon 22404  df-topsp 22426  df-bases 22440  df-cld 22514  df-ntr 22515  df-cls 22516  df-nei 22593  df-lp 22631  df-perf 22632  df-cn 22722  df-cnp 22723  df-haus 22810  df-tx 23057  df-hmeo 23250  df-fil 23341  df-fm 23433  df-flim 23434  df-flf 23435  df-xms 23817  df-ms 23818  df-tms 23819  df-cncf 24385  df-limc 25374  df-dv 25375  df-log 26056  df-cxp 26057
This theorem is referenced by:  ostth  27131
  Copyright terms: Public domain W3C validator