Users' Mathboxes Mathbox for metakunt < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  aks4d1p8 Structured version   Visualization version   GIF version

Theorem aks4d1p8 41614
Description: Show that ๐‘ and ๐‘… are coprime for AKS existence theorem, with eliminated hypothesis. (Contributed by metakunt, 10-Nov-2024.) (Proof sketch by Thierry Arnoux.)
Hypotheses
Ref Expression
aks4d1p8.1 (๐œ‘ โ†’ ๐‘ โˆˆ (โ„คโ‰ฅโ€˜3))
aks4d1p8.2 ๐ด = ((๐‘โ†‘(โŒŠโ€˜(2 logb ๐ต))) ยท โˆ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))((๐‘โ†‘๐‘˜) โˆ’ 1))
aks4d1p8.3 ๐ต = (โŒˆโ€˜((2 logb ๐‘)โ†‘5))
aks4d1p8.4 ๐‘… = inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < )
Assertion
Ref Expression
aks4d1p8 (๐œ‘ โ†’ (๐‘ gcd ๐‘…) = 1)
Distinct variable groups:   ๐ด,๐‘Ÿ   ๐ต,๐‘Ÿ   ๐‘˜,๐‘   ๐‘,๐‘Ÿ   ๐‘…,๐‘˜   ๐‘…,๐‘Ÿ   ๐œ‘,๐‘˜
Allowed substitution hints:   ๐œ‘(๐‘Ÿ)   ๐ด(๐‘˜)   ๐ต(๐‘˜)

Proof of Theorem aks4d1p8
Dummy variables ๐‘ ๐‘ฆ ๐‘ฅ ๐‘œ ๐‘“ ๐‘ž are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 aks4d1p8.1 . 2 (๐œ‘ โ†’ ๐‘ โˆˆ (โ„คโ‰ฅโ€˜3))
2 aks4d1p8.2 . 2 ๐ด = ((๐‘โ†‘(โŒŠโ€˜(2 logb ๐ต))) ยท โˆ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))((๐‘โ†‘๐‘˜) โˆ’ 1))
3 aks4d1p8.3 . 2 ๐ต = (โŒˆโ€˜((2 logb ๐‘)โ†‘5))
4 aks4d1p8.4 . 2 ๐‘… = inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < )
54a1i 11 . . . . . 6 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… = inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ))
6 ssrab2 4069 . . . . . . . . . . . . 13 {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ (1...๐ต)
76a1i 11 . . . . . . . . . . . 12 (๐œ‘ โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ (1...๐ต))
8 elfznn 13562 . . . . . . . . . . . . . . . 16 (๐‘œ โˆˆ (1...๐ต) โ†’ ๐‘œ โˆˆ โ„•)
98adantl 480 . . . . . . . . . . . . . . 15 ((๐œ‘ โˆง ๐‘œ โˆˆ (1...๐ต)) โ†’ ๐‘œ โˆˆ โ„•)
109nnred 12257 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง ๐‘œ โˆˆ (1...๐ต)) โ†’ ๐‘œ โˆˆ โ„)
1110ex 411 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (๐‘œ โˆˆ (1...๐ต) โ†’ ๐‘œ โˆˆ โ„))
1211ssrdv 3978 . . . . . . . . . . . 12 (๐œ‘ โ†’ (1...๐ต) โІ โ„)
137, 12sstrd 3983 . . . . . . . . . . 11 (๐œ‘ โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
1413adantr 479 . . . . . . . . . 10 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
1514adantr 479 . . . . . . . . 9 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
1615adantr 479 . . . . . . . 8 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
1716adantr 479 . . . . . . 7 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
18 fzfid 13970 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (1...๐ต) โˆˆ Fin)
1918, 7ssfid 9290 . . . . . . . . . . . 12 (๐œ‘ โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin)
201, 2, 3aks4d1p3 41605 . . . . . . . . . . . . 13 (๐œ‘ โ†’ โˆƒ๐‘Ÿ โˆˆ (1...๐ต) ยฌ ๐‘Ÿ โˆฅ ๐ด)
21 rabn0 4381 . . . . . . . . . . . . 13 ({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โ‰  โˆ… โ†” โˆƒ๐‘Ÿ โˆˆ (1...๐ต) ยฌ ๐‘Ÿ โˆฅ ๐ด)
2220, 21sylibr 233 . . . . . . . . . . . 12 (๐œ‘ โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โ‰  โˆ…)
23 fiminre 12191 . . . . . . . . . . . 12 (({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โ‰  โˆ…) โ†’ โˆƒ๐‘ฅ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}โˆ€๐‘ฆ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}๐‘ฅ โ‰ค ๐‘ฆ)
2413, 19, 22, 23syl3anc 1368 . . . . . . . . . . 11 (๐œ‘ โ†’ โˆƒ๐‘ฅ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}โˆ€๐‘ฆ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}๐‘ฅ โ‰ค ๐‘ฆ)
2524adantr 479 . . . . . . . . . 10 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ โˆƒ๐‘ฅ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}โˆ€๐‘ฆ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}๐‘ฅ โ‰ค ๐‘ฆ)
2625adantr 479 . . . . . . . . 9 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ โˆƒ๐‘ฅ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}โˆ€๐‘ฆ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}๐‘ฅ โ‰ค ๐‘ฆ)
2726adantr 479 . . . . . . . 8 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ โˆƒ๐‘ฅ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}โˆ€๐‘ฆ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}๐‘ฅ โ‰ค ๐‘ฆ)
2827adantr 479 . . . . . . 7 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ โˆƒ๐‘ฅ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}โˆ€๐‘ฆ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}๐‘ฅ โ‰ค ๐‘ฆ)
29 breq1 5146 . . . . . . . . 9 (๐‘Ÿ = (๐‘… / ๐‘) โ†’ (๐‘Ÿ โˆฅ ๐ด โ†” (๐‘… / ๐‘) โˆฅ ๐ด))
3029notbid 317 . . . . . . . 8 (๐‘Ÿ = (๐‘… / ๐‘) โ†’ (ยฌ ๐‘Ÿ โˆฅ ๐ด โ†” ยฌ (๐‘… / ๐‘) โˆฅ ๐ด))
31 1zzd 12623 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ 1 โˆˆ โ„ค)
323a1i 11 . . . . . . . . . . 11 (๐œ‘ โ†’ ๐ต = (โŒˆโ€˜((2 logb ๐‘)โ†‘5)))
33 2re 12316 . . . . . . . . . . . . . . 15 2 โˆˆ โ„
3433a1i 11 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ 2 โˆˆ โ„)
35 2pos 12345 . . . . . . . . . . . . . . 15 0 < 2
3635a1i 11 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ 0 < 2)
37 eluzelz 12862 . . . . . . . . . . . . . . . 16 (๐‘ โˆˆ (โ„คโ‰ฅโ€˜3) โ†’ ๐‘ โˆˆ โ„ค)
381, 37syl 17 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐‘ โˆˆ โ„ค)
3938zred 12696 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ๐‘ โˆˆ โ„)
40 0red 11247 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ 0 โˆˆ โ„)
41 3re 12322 . . . . . . . . . . . . . . . 16 3 โˆˆ โ„
4241a1i 11 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ 3 โˆˆ โ„)
43 3pos 12347 . . . . . . . . . . . . . . . 16 0 < 3
4443a1i 11 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ 0 < 3)
45 eluzle 12865 . . . . . . . . . . . . . . . 16 (๐‘ โˆˆ (โ„คโ‰ฅโ€˜3) โ†’ 3 โ‰ค ๐‘)
461, 45syl 17 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ 3 โ‰ค ๐‘)
4740, 42, 39, 44, 46ltletrd 11404 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ 0 < ๐‘)
48 1red 11245 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ 1 โˆˆ โ„)
49 1lt2 12413 . . . . . . . . . . . . . . . . 17 1 < 2
5049a1i 11 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ 1 < 2)
5148, 50ltned 11380 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ 1 โ‰  2)
5251necomd 2986 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ 2 โ‰  1)
5334, 36, 39, 47, 52relogbcld 41499 . . . . . . . . . . . . 13 (๐œ‘ โ†’ (2 logb ๐‘) โˆˆ โ„)
54 5nn0 12522 . . . . . . . . . . . . . 14 5 โˆˆ โ„•0
5554a1i 11 . . . . . . . . . . . . 13 (๐œ‘ โ†’ 5 โˆˆ โ„•0)
5653, 55reexpcld 14159 . . . . . . . . . . . 12 (๐œ‘ โ†’ ((2 logb ๐‘)โ†‘5) โˆˆ โ„)
5756ceilcld 13840 . . . . . . . . . . 11 (๐œ‘ โ†’ (โŒˆโ€˜((2 logb ๐‘)โ†‘5)) โˆˆ โ„ค)
5832, 57eqeltrd 2825 . . . . . . . . . 10 (๐œ‘ โ†’ ๐ต โˆˆ โ„ค)
5958ad4antr 730 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐ต โˆˆ โ„ค)
60 simplrl 775 . . . . . . . . . 10 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘ โˆฅ ๐‘…)
61 prmnn 16644 . . . . . . . . . . . . . 14 (๐‘ โˆˆ โ„™ โ†’ ๐‘ โˆˆ โ„•)
6261adantl 480 . . . . . . . . . . . . 13 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘ โˆˆ โ„•)
6362ad2antrr 724 . . . . . . . . . . . 12 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘ โˆˆ โ„•)
6463nnzd 12615 . . . . . . . . . . 11 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘ โˆˆ โ„ค)
6562nnne0d 12292 . . . . . . . . . . . 12 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘ โ‰  0)
6665ad2antrr 724 . . . . . . . . . . 11 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘ โ‰  0)
671, 2, 3, 4aks4d1p4 41606 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ (๐‘… โˆˆ (1...๐ต) โˆง ยฌ ๐‘… โˆฅ ๐ด))
6867simpld 493 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ๐‘… โˆˆ (1...๐ต))
69 elfznn 13562 . . . . . . . . . . . . . . . 16 (๐‘… โˆˆ (1...๐ต) โ†’ ๐‘… โˆˆ โ„•)
7068, 69syl 17 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐‘… โˆˆ โ„•)
7170ad4antr 730 . . . . . . . . . . . . . 14 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โˆง ยฌ ๐‘ โˆฅ ๐‘) โ†’ ๐‘… โˆˆ โ„•)
7271adantr 479 . . . . . . . . . . . . 13 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โˆง ยฌ ๐‘ โˆฅ ๐‘) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„•)
7372nnzd 12615 . . . . . . . . . . . 12 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โˆง ยฌ ๐‘ โˆฅ ๐‘) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„ค)
74 anass 467 . . . . . . . . . . . . . 14 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โˆง ยฌ ๐‘ โˆฅ ๐‘) โ†” (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)))
7574anbi1i 622 . . . . . . . . . . . . 13 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โˆง ยฌ ๐‘ โˆฅ ๐‘) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†” ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด))
7675imbi1i 348 . . . . . . . . . . . 12 (((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โˆง ยฌ ๐‘ โˆฅ ๐‘) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„ค) โ†” (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„ค))
7773, 76mpbi 229 . . . . . . . . . . 11 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„ค)
78 dvdsval2 16233 . . . . . . . . . . 11 ((๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 โˆง ๐‘… โˆˆ โ„ค) โ†’ (๐‘ โˆฅ ๐‘… โ†” (๐‘… / ๐‘) โˆˆ โ„ค))
7964, 66, 77, 78syl3anc 1368 . . . . . . . . . 10 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘ โˆฅ ๐‘… โ†” (๐‘… / ๐‘) โˆˆ โ„ค))
8060, 79mpbid 231 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘… / ๐‘) โˆˆ โ„ค)
8163nncnd 12258 . . . . . . . . . . . 12 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘ โˆˆ โ„‚)
8281mullidd 11262 . . . . . . . . . . 11 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (1 ยท ๐‘) = ๐‘)
8375, 72sylbir 234 . . . . . . . . . . . . 13 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„•)
8464, 83jca 510 . . . . . . . . . . . 12 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘ โˆˆ โ„ค โˆง ๐‘… โˆˆ โ„•))
85 dvdsle 16286 . . . . . . . . . . . . 13 ((๐‘ โˆˆ โ„ค โˆง ๐‘… โˆˆ โ„•) โ†’ (๐‘ โˆฅ ๐‘… โ†’ ๐‘ โ‰ค ๐‘…))
8685imp 405 . . . . . . . . . . . 12 (((๐‘ โˆˆ โ„ค โˆง ๐‘… โˆˆ โ„•) โˆง ๐‘ โˆฅ ๐‘…) โ†’ ๐‘ โ‰ค ๐‘…)
8784, 60, 86syl2anc 582 . . . . . . . . . . 11 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘ โ‰ค ๐‘…)
8882, 87eqbrtrd 5165 . . . . . . . . . 10 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (1 ยท ๐‘) โ‰ค ๐‘…)
89 1red 11245 . . . . . . . . . . 11 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ 1 โˆˆ โ„)
9070nnred 12257 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐‘… โˆˆ โ„)
9190adantr 479 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ ๐‘… โˆˆ โ„)
9291adantr 479 . . . . . . . . . . . . 13 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘… โˆˆ โ„)
9392adantr 479 . . . . . . . . . . . 12 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… โˆˆ โ„)
9493adantr 479 . . . . . . . . . . 11 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„)
9563nnrpd 13046 . . . . . . . . . . 11 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘ โˆˆ โ„+)
9689, 94, 95lemuldivd 13097 . . . . . . . . . 10 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ((1 ยท ๐‘) โ‰ค ๐‘… โ†” 1 โ‰ค (๐‘… / ๐‘)))
9788, 96mpbid 231 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ 1 โ‰ค (๐‘… / ๐‘))
9890ad2antrr 724 . . . . . . . . . . . . 13 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘… โˆˆ โ„)
9958ad2antrr 724 . . . . . . . . . . . . . 14 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐ต โˆˆ โ„ค)
10099zred 12696 . . . . . . . . . . . . 13 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐ต โˆˆ โ„)
10162nnred 12257 . . . . . . . . . . . . . 14 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘ โˆˆ โ„)
102100, 101remulcld 11274 . . . . . . . . . . . . 13 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ (๐ต ยท ๐‘) โˆˆ โ„)
103 elfzle2 13537 . . . . . . . . . . . . . . . 16 (๐‘… โˆˆ (1...๐ต) โ†’ ๐‘… โ‰ค ๐ต)
10468, 103syl 17 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐‘… โ‰ค ๐ต)
105104adantr 479 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ ๐‘… โ‰ค ๐ต)
106105adantr 479 . . . . . . . . . . . . 13 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘… โ‰ค ๐ต)
10758zred 12696 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ๐ต โˆˆ โ„)
108 9re 12341 . . . . . . . . . . . . . . . . . . 19 9 โˆˆ โ„
109108a1i 11 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ 9 โˆˆ โ„)
110 9pos 12355 . . . . . . . . . . . . . . . . . . 19 0 < 9
111110a1i 11 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ 0 < 9)
11232, 107eqeltrrd 2826 . . . . . . . . . . . . . . . . . . . 20 (๐œ‘ โ†’ (โŒˆโ€˜((2 logb ๐‘)โ†‘5)) โˆˆ โ„)
11339, 463lexlogpow5ineq4 41583 . . . . . . . . . . . . . . . . . . . 20 (๐œ‘ โ†’ 9 < ((2 logb ๐‘)โ†‘5))
11456ceilged 13843 . . . . . . . . . . . . . . . . . . . 20 (๐œ‘ โ†’ ((2 logb ๐‘)โ†‘5) โ‰ค (โŒˆโ€˜((2 logb ๐‘)โ†‘5)))
115109, 56, 112, 113, 114ltletrd 11404 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ 9 < (โŒˆโ€˜((2 logb ๐‘)โ†‘5)))
116115, 32breqtrrd 5171 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ 9 < ๐ต)
11740, 109, 107, 111, 116lttrd 11405 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ 0 < ๐ต)
11840, 107, 117ltled 11392 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ 0 โ‰ค ๐ต)
119118adantr 479 . . . . . . . . . . . . . . 15 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ 0 โ‰ค ๐ต)
120119adantr 479 . . . . . . . . . . . . . 14 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ 0 โ‰ค ๐ต)
12162nnge1d 12290 . . . . . . . . . . . . . 14 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ 1 โ‰ค ๐‘)
122100, 101, 120, 121lemulge11d 12181 . . . . . . . . . . . . 13 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐ต โ‰ค (๐ต ยท ๐‘))
12398, 100, 102, 106, 122letrd 11401 . . . . . . . . . . . 12 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘… โ‰ค (๐ต ยท ๐‘))
12462nnrpd 13046 . . . . . . . . . . . . 13 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘ โˆˆ โ„+)
12598, 100, 124ledivmul2d 13102 . . . . . . . . . . . 12 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ((๐‘… / ๐‘) โ‰ค ๐ต โ†” ๐‘… โ‰ค (๐ต ยท ๐‘)))
126123, 125mpbird 256 . . . . . . . . . . 11 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ (๐‘… / ๐‘) โ‰ค ๐ต)
127126adantr 479 . . . . . . . . . 10 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / ๐‘) โ‰ค ๐ต)
128127adantr 479 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘… / ๐‘) โ‰ค ๐ต)
12931, 59, 80, 97, 128elfzd 13524 . . . . . . . 8 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘… / ๐‘) โˆˆ (1...๐ต))
13093recnd 11272 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… โˆˆ โ„‚)
13162adantr 479 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โˆˆ โ„•)
132131nnzd 12615 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โˆˆ โ„ค)
133 simplr 767 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โˆˆ โ„™)
13471anasss 465 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… โˆˆ โ„•)
135133, 134pccld 16818 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘ pCnt ๐‘…) โˆˆ โ„•0)
136132, 135zexpcld 14084 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ โ„ค)
137136zcnd 12697 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ โ„‚)
138131nncnd 12258 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โˆˆ โ„‚)
13965adantr 479 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โ‰  0)
140135nn0zd 12614 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘ pCnt ๐‘…) โˆˆ โ„ค)
141138, 139, 140expne0d 14148 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ‰  0)
142130, 137, 141divcan1d 12021 . . . . . . . . . . . 12 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) ยท (๐‘โ†‘(๐‘ pCnt ๐‘…))) = ๐‘…)
143142eqcomd 2731 . . . . . . . . . . 11 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… = ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) ยท (๐‘โ†‘(๐‘ pCnt ๐‘…))))
144 pcdvds 16832 . . . . . . . . . . . . . 14 ((๐‘ โˆˆ โ„™ โˆง ๐‘… โˆˆ โ„•) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐‘…)
145133, 134, 144syl2anc 582 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐‘…)
146134nnzd 12615 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… โˆˆ โ„ค)
147 dvdsval2 16233 . . . . . . . . . . . . . 14 (((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ โ„ค โˆง (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ‰  0 โˆง ๐‘… โˆˆ โ„ค) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐‘… โ†” (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ โ„ค))
148136, 141, 146, 147syl3anc 1368 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐‘… โ†” (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ โ„ค))
149145, 148mpbid 231 . . . . . . . . . . . 12 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ โ„ค)
15038, 47jca 510 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (๐‘ โˆˆ โ„ค โˆง 0 < ๐‘))
151 elnnz 12598 . . . . . . . . . . . . . . . . . . 19 (๐‘ โˆˆ โ„• โ†” (๐‘ โˆˆ โ„ค โˆง 0 < ๐‘))
152151a1i 11 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (๐‘ โˆˆ โ„• โ†” (๐‘ โˆˆ โ„ค โˆง 0 < ๐‘)))
153150, 152mpbird 256 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ๐‘ โˆˆ โ„•)
154153nnzd 12615 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ๐‘ โˆˆ โ„ค)
15534, 36, 107, 117, 52relogbcld 41499 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ (2 logb ๐ต) โˆˆ โ„)
156155flcld 13795 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ (โŒŠโ€˜(2 logb ๐ต)) โˆˆ โ„ค)
15734recnd 11272 . . . . . . . . . . . . . . . . . . . . . 22 (๐œ‘ โ†’ 2 โˆˆ โ„‚)
15840, 36gtned 11379 . . . . . . . . . . . . . . . . . . . . . 22 (๐œ‘ โ†’ 2 โ‰  0)
159 logb1 26719 . . . . . . . . . . . . . . . . . . . . . 22 ((2 โˆˆ โ„‚ โˆง 2 โ‰  0 โˆง 2 โ‰  1) โ†’ (2 logb 1) = 0)
160157, 158, 52, 159syl3anc 1368 . . . . . . . . . . . . . . . . . . . . 21 (๐œ‘ โ†’ (2 logb 1) = 0)
161160eqcomd 2731 . . . . . . . . . . . . . . . . . . . 20 (๐œ‘ โ†’ 0 = (2 logb 1))
162 2z 12624 . . . . . . . . . . . . . . . . . . . . . 22 2 โˆˆ โ„ค
163162a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (๐œ‘ โ†’ 2 โˆˆ โ„ค)
16434leidd 11810 . . . . . . . . . . . . . . . . . . . . 21 (๐œ‘ โ†’ 2 โ‰ค 2)
165 0lt1 11766 . . . . . . . . . . . . . . . . . . . . . 22 0 < 1
166165a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (๐œ‘ โ†’ 0 < 1)
167 1lt9 12448 . . . . . . . . . . . . . . . . . . . . . . . 24 1 < 9
168167a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (๐œ‘ โ†’ 1 < 9)
16948, 109, 107, 168, 116lttrd 11405 . . . . . . . . . . . . . . . . . . . . . 22 (๐œ‘ โ†’ 1 < ๐ต)
17048, 107, 169ltled 11392 . . . . . . . . . . . . . . . . . . . . 21 (๐œ‘ โ†’ 1 โ‰ค ๐ต)
171163, 164, 48, 166, 107, 117, 170logblebd 41502 . . . . . . . . . . . . . . . . . . . 20 (๐œ‘ โ†’ (2 logb 1) โ‰ค (2 logb ๐ต))
172161, 171eqbrtrd 5165 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ 0 โ‰ค (2 logb ๐ต))
173 0zd 12600 . . . . . . . . . . . . . . . . . . . 20 (๐œ‘ โ†’ 0 โˆˆ โ„ค)
174 flge 13802 . . . . . . . . . . . . . . . . . . . 20 (((2 logb ๐ต) โˆˆ โ„ โˆง 0 โˆˆ โ„ค) โ†’ (0 โ‰ค (2 logb ๐ต) โ†” 0 โ‰ค (โŒŠโ€˜(2 logb ๐ต))))
175155, 173, 174syl2anc 582 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ (0 โ‰ค (2 logb ๐ต) โ†” 0 โ‰ค (โŒŠโ€˜(2 logb ๐ต))))
176172, 175mpbid 231 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ 0 โ‰ค (โŒŠโ€˜(2 logb ๐ต)))
177156, 176jca 510 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ((โŒŠโ€˜(2 logb ๐ต)) โˆˆ โ„ค โˆง 0 โ‰ค (โŒŠโ€˜(2 logb ๐ต))))
178 elnn0z 12601 . . . . . . . . . . . . . . . . . 18 ((โŒŠโ€˜(2 logb ๐ต)) โˆˆ โ„•0 โ†” ((โŒŠโ€˜(2 logb ๐ต)) โˆˆ โ„ค โˆง 0 โ‰ค (โŒŠโ€˜(2 logb ๐ต))))
179178a1i 11 . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ((โŒŠโ€˜(2 logb ๐ต)) โˆˆ โ„•0 โ†” ((โŒŠโ€˜(2 logb ๐ต)) โˆˆ โ„ค โˆง 0 โ‰ค (โŒŠโ€˜(2 logb ๐ต)))))
180177, 179mpbird 256 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ (โŒŠโ€˜(2 logb ๐ต)) โˆˆ โ„•0)
181154, 180zexpcld 14084 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ (๐‘โ†‘(โŒŠโ€˜(2 logb ๐ต))) โˆˆ โ„ค)
182 fzfid 13970 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2))) โˆˆ Fin)
183154adantr 479 . . . . . . . . . . . . . . . . . 18 ((๐œ‘ โˆง ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))) โ†’ ๐‘ โˆˆ โ„ค)
184 elfznn 13562 . . . . . . . . . . . . . . . . . . . 20 (๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2))) โ†’ ๐‘˜ โˆˆ โ„•)
185184adantl 480 . . . . . . . . . . . . . . . . . . 19 ((๐œ‘ โˆง ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))) โ†’ ๐‘˜ โˆˆ โ„•)
186185nnnn0d 12562 . . . . . . . . . . . . . . . . . 18 ((๐œ‘ โˆง ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))) โ†’ ๐‘˜ โˆˆ โ„•0)
187183, 186zexpcld 14084 . . . . . . . . . . . . . . . . 17 ((๐œ‘ โˆง ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))) โ†’ (๐‘โ†‘๐‘˜) โˆˆ โ„ค)
188 1zzd 12623 . . . . . . . . . . . . . . . . 17 ((๐œ‘ โˆง ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))) โ†’ 1 โˆˆ โ„ค)
189187, 188zsubcld 12701 . . . . . . . . . . . . . . . 16 ((๐œ‘ โˆง ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))) โ†’ ((๐‘โ†‘๐‘˜) โˆ’ 1) โˆˆ โ„ค)
190182, 189fprodzcl 15930 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ โˆ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))((๐‘โ†‘๐‘˜) โˆ’ 1) โˆˆ โ„ค)
191181, 190zmulcld 12702 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ((๐‘โ†‘(โŒŠโ€˜(2 logb ๐ต))) ยท โˆ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))((๐‘โ†‘๐‘˜) โˆ’ 1)) โˆˆ โ„ค)
1922a1i 11 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐ด = ((๐‘โ†‘(โŒŠโ€˜(2 logb ๐ต))) ยท โˆ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))((๐‘โ†‘๐‘˜) โˆ’ 1)))
193192eleq1d 2810 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ (๐ด โˆˆ โ„ค โ†” ((๐‘โ†‘(โŒŠโ€˜(2 logb ๐ต))) ยท โˆ๐‘˜ โˆˆ (1...(โŒŠโ€˜((2 logb ๐‘)โ†‘2)))((๐‘โ†‘๐‘˜) โˆ’ 1)) โˆˆ โ„ค))
194191, 193mpbird 256 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ๐ด โˆˆ โ„ค)
195194ad3antrrr 728 . . . . . . . . . . . 12 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐ด โˆˆ โ„ค)
196 simprl 769 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โˆฅ ๐‘…)
197134, 133, 196aks4d1p8d3 41613 . . . . . . . . . . . 12 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) gcd (๐‘โ†‘(๐‘ pCnt ๐‘…))) = 1)
198138exp0d 14136 . . . . . . . . . . . . . . . . . . 19 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘0) = 1)
199 pcelnn 16838 . . . . . . . . . . . . . . . . . . . . . . 23 ((๐‘ โˆˆ โ„™ โˆง ๐‘… โˆˆ โ„•) โ†’ ((๐‘ pCnt ๐‘…) โˆˆ โ„• โ†” ๐‘ โˆฅ ๐‘…))
200133, 134, 199syl2anc 582 . . . . . . . . . . . . . . . . . . . . . 22 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘ pCnt ๐‘…) โˆˆ โ„• โ†” ๐‘ โˆฅ ๐‘…))
201196, 200mpbird 256 . . . . . . . . . . . . . . . . . . . . 21 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘ pCnt ๐‘…) โˆˆ โ„•)
202201nngt0d 12291 . . . . . . . . . . . . . . . . . . . 20 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 0 < (๐‘ pCnt ๐‘…))
203101adantr 479 . . . . . . . . . . . . . . . . . . . . 21 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โˆˆ โ„)
204173ad3antrrr 728 . . . . . . . . . . . . . . . . . . . . 21 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 0 โˆˆ โ„ค)
205 prmgt1 16667 . . . . . . . . . . . . . . . . . . . . . . 23 (๐‘ โˆˆ โ„™ โ†’ 1 < ๐‘)
206205adantl 480 . . . . . . . . . . . . . . . . . . . . . 22 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ 1 < ๐‘)
207206adantr 479 . . . . . . . . . . . . . . . . . . . . 21 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 < ๐‘)
208203, 204, 140, 207ltexp2d 14245 . . . . . . . . . . . . . . . . . . . 20 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (0 < (๐‘ pCnt ๐‘…) โ†” (๐‘โ†‘0) < (๐‘โ†‘(๐‘ pCnt ๐‘…))))
209202, 208mpbid 231 . . . . . . . . . . . . . . . . . . 19 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘0) < (๐‘โ†‘(๐‘ pCnt ๐‘…)))
210198, 209eqbrtrrd 5167 . . . . . . . . . . . . . . . . . 18 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 < (๐‘โ†‘(๐‘ pCnt ๐‘…)))
211136zred 12696 . . . . . . . . . . . . . . . . . . 19 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ โ„)
21270nnrpd 13046 . . . . . . . . . . . . . . . . . . . . . 22 (๐œ‘ โ†’ ๐‘… โˆˆ โ„+)
213212adantr 479 . . . . . . . . . . . . . . . . . . . . 21 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ ๐‘… โˆˆ โ„+)
214213adantr 479 . . . . . . . . . . . . . . . . . . . 20 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘… โˆˆ โ„+)
215214adantr 479 . . . . . . . . . . . . . . . . . . 19 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… โˆˆ โ„+)
216211, 215ltmulgt11d 13083 . . . . . . . . . . . . . . . . . 18 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (1 < (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†” ๐‘… < (๐‘… ยท (๐‘โ†‘(๐‘ pCnt ๐‘…)))))
217210, 216mpbid 231 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… < (๐‘… ยท (๐‘โ†‘(๐‘ pCnt ๐‘…))))
218124adantr 479 . . . . . . . . . . . . . . . . . . 19 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โˆˆ โ„+)
219218, 140rpexpcld 14241 . . . . . . . . . . . . . . . . . 18 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ โ„+)
22093, 93, 219ltdivmul2d 13100 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) < ๐‘… โ†” ๐‘… < (๐‘… ยท (๐‘โ†‘(๐‘ pCnt ๐‘…)))))
221217, 220mpbird 256 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) < ๐‘…)
22293, 211, 141redivcld 12072 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ โ„)
223222, 93ltnled 11391 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) < ๐‘… โ†” ยฌ ๐‘… โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…)))))
224221, 223mpbid 231 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ยฌ ๐‘… โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))))
2254a1i 11 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… = inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ))
226225breq1d 5153 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ†” inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…)))))
227226notbid 317 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (ยฌ ๐‘… โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ†” ยฌ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…)))))
228224, 227mpbid 231 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ยฌ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))))
229 elfznn 13562 . . . . . . . . . . . . . . . . . . . . . . 23 (๐‘“ โˆˆ (1...๐ต) โ†’ ๐‘“ โˆˆ โ„•)
230229adantl 480 . . . . . . . . . . . . . . . . . . . . . 22 ((๐œ‘ โˆง ๐‘“ โˆˆ (1...๐ต)) โ†’ ๐‘“ โˆˆ โ„•)
231230nnred 12257 . . . . . . . . . . . . . . . . . . . . 21 ((๐œ‘ โˆง ๐‘“ โˆˆ (1...๐ต)) โ†’ ๐‘“ โˆˆ โ„)
232231ex 411 . . . . . . . . . . . . . . . . . . . 20 (๐œ‘ โ†’ (๐‘“ โˆˆ (1...๐ต) โ†’ ๐‘“ โˆˆ โ„))
233232ssrdv 3978 . . . . . . . . . . . . . . . . . . 19 (๐œ‘ โ†’ (1...๐ต) โІ โ„)
2347, 233sstrd 3983 . . . . . . . . . . . . . . . . . 18 (๐œ‘ โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
235234adantr 479 . . . . . . . . . . . . . . . . 17 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
236235adantr 479 . . . . . . . . . . . . . . . 16 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
237236adantr 479 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„)
23819adantr 479 . . . . . . . . . . . . . . . . 17 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin)
239238adantr 479 . . . . . . . . . . . . . . . 16 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin)
240239adantr 479 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin)
241 infrefilb 12230 . . . . . . . . . . . . . . . . . 18 (({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin โˆง (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}) โ†’ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))))
2422413expa 1115 . . . . . . . . . . . . . . . . 17 ((({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin) โˆง (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}) โ†’ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))))
243242ex 411 . . . . . . . . . . . . . . . 16 (({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โ†’ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…)))))
244243con3d 152 . . . . . . . . . . . . . . 15 (({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin) โ†’ (ยฌ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ†’ ยฌ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}))
245237, 240, 244syl2anc 582 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (ยฌ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ†’ ยฌ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}))
246228, 245mpd 15 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ยฌ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด})
247 1zzd 12623 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 โˆˆ โ„ค)
24899adantr 479 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐ต โˆˆ โ„ค)
249137mullidd 11262 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (1 ยท (๐‘โ†‘(๐‘ pCnt ๐‘…))) = (๐‘โ†‘(๐‘ pCnt ๐‘…)))
250 dvdsle 16286 . . . . . . . . . . . . . . . . . . 19 (((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ โ„ค โˆง ๐‘… โˆˆ โ„•) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐‘… โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ‰ค ๐‘…))
251136, 134, 250syl2anc 582 . . . . . . . . . . . . . . . . . 18 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐‘… โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ‰ค ๐‘…))
252145, 251mpd 15 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ‰ค ๐‘…)
253249, 252eqbrtrd 5165 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (1 ยท (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ‰ค ๐‘…)
25448adantr 479 . . . . . . . . . . . . . . . . . 18 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ 1 โˆˆ โ„)
255254ad2antrr 724 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 โˆˆ โ„)
256255, 93, 219lemuldivd 13097 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((1 ยท (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ‰ค ๐‘… โ†” 1 โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…)))))
257253, 256mpbid 231 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 โ‰ค (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))))
258100adantr 479 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐ต โˆˆ โ„)
259121adantr 479 . . . . . . . . . . . . . . . . . 18 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 โ‰ค ๐‘)
260203, 135, 259expge1d 14161 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)))
261 nnledivrp 13118 . . . . . . . . . . . . . . . . . 18 ((๐‘… โˆˆ โ„• โˆง (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ โ„+) โ†’ (1 โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†” (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ‰ค ๐‘…))
262134, 219, 261syl2anc 582 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (1 โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†” (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ‰ค ๐‘…))
263260, 262mpbid 231 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ‰ค ๐‘…)
264106adantr 479 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… โ‰ค ๐ต)
265222, 93, 258, 263, 264letrd 11401 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ‰ค ๐ต)
266247, 248, 149, 257, 265elfzd 13524 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ (1...๐ต))
267 breq1 5146 . . . . . . . . . . . . . . . . 17 (๐‘Ÿ = (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ†’ (๐‘Ÿ โˆฅ ๐ด โ†” (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆฅ ๐ด))
268267notbid 317 . . . . . . . . . . . . . . . 16 (๐‘Ÿ = (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โ†’ (ยฌ ๐‘Ÿ โˆฅ ๐ด โ†” ยฌ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆฅ ๐ด))
269268elrab3 3675 . . . . . . . . . . . . . . 15 ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ (1...๐ต) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โ†” ยฌ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆฅ ๐ด))
270269con2bid 353 . . . . . . . . . . . . . 14 ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ (1...๐ต) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆฅ ๐ด โ†” ยฌ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}))
271266, 270syl 17 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆฅ ๐ด โ†” ยฌ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}))
272246, 271mpbird 256 . . . . . . . . . . . 12 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆฅ ๐ด)
273134ad2antrr 724 . . . . . . . . . . . . . . . . . 18 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ ๐‘… โˆˆ โ„•)
274153adantr 479 . . . . . . . . . . . . . . . . . . . . . . 23 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ ๐‘ โˆˆ โ„•)
275274adantr 479 . . . . . . . . . . . . . . . . . . . . . 22 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ ๐‘ โˆˆ โ„•)
276275adantr 479 . . . . . . . . . . . . . . . . . . . . 21 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โ†’ ๐‘ โˆˆ โ„•)
277276adantr 479 . . . . . . . . . . . . . . . . . . . 20 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โˆง ยฌ ๐‘ โˆฅ ๐‘) โ†’ ๐‘ โˆˆ โ„•)
27874, 277sylbir 234 . . . . . . . . . . . . . . . . . . 19 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘ โˆˆ โ„•)
279278ad2antrr 724 . . . . . . . . . . . . . . . . . 18 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ ๐‘ โˆˆ โ„•)
280133ad2antrr 724 . . . . . . . . . . . . . . . . . 18 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ ๐‘ โˆˆ โ„™)
281 simplr 767 . . . . . . . . . . . . . . . . . 18 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ ๐‘ž โˆˆ โ„™)
282196ad2antrr 724 . . . . . . . . . . . . . . . . . 18 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ ๐‘ โˆฅ ๐‘…)
283 simprr 771 . . . . . . . . . . . . . . . . . 18 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ ๐‘ž โˆฅ ๐‘…)
284 simplrr 776 . . . . . . . . . . . . . . . . . . 19 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โ†’ ยฌ ๐‘ โˆฅ ๐‘)
285284adantr 479 . . . . . . . . . . . . . . . . . 18 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ ยฌ ๐‘ โˆฅ ๐‘)
286 simprl 769 . . . . . . . . . . . . . . . . . 18 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ ๐‘ž โˆฅ ๐‘)
287273, 279, 280, 281, 282, 283, 285, 286aks4d1p8d2 41612 . . . . . . . . . . . . . . . . 17 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง ๐‘ž โˆˆ โ„™) โˆง (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) < ๐‘…)
288 simpr 483 . . . . . . . . . . . . . . . . . . . . 21 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ 1 < (๐‘ gcd ๐‘…))
289288ad2antrr 724 . . . . . . . . . . . . . . . . . . . 20 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 < (๐‘ gcd ๐‘…))
290255, 289ltned 11380 . . . . . . . . . . . . . . . . . . 19 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ 1 โ‰  (๐‘ gcd ๐‘…))
291290necomd 2986 . . . . . . . . . . . . . . . . . 18 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘ gcd ๐‘…) โ‰  1)
292278, 134prmdvdsncoprmbd 16698 . . . . . . . . . . . . . . . . . . . 20 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (โˆƒ๐‘ž โˆˆ โ„™ (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…) โ†” (๐‘ gcd ๐‘…) โ‰  1))
293292bicomd 222 . . . . . . . . . . . . . . . . . . 19 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘ gcd ๐‘…) โ‰  1 โ†” โˆƒ๐‘ž โˆˆ โ„™ (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)))
294293biimpd 228 . . . . . . . . . . . . . . . . . 18 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘ gcd ๐‘…) โ‰  1 โ†’ โˆƒ๐‘ž โˆˆ โ„™ (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…)))
295291, 294mpd 15 . . . . . . . . . . . . . . . . 17 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ โˆƒ๐‘ž โˆˆ โ„™ (๐‘ž โˆฅ ๐‘ โˆง ๐‘ž โˆฅ ๐‘…))
296287, 295r19.29a 3152 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) < ๐‘…)
297211, 93ltnled 11391 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) < ๐‘… โ†” ยฌ ๐‘… โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…))))
298296, 297mpbid 231 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ยฌ ๐‘… โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)))
299225breq1d 5153 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†” inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…))))
300299notbid 317 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (ยฌ ๐‘… โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†” ยฌ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…))))
301298, 300mpbid 231 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ยฌ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)))
302 infrefilb 12230 . . . . . . . . . . . . . . . . . 18 (({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin โˆง (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}) โ†’ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)))
3033023expa 1115 . . . . . . . . . . . . . . . . 17 ((({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin) โˆง (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}) โ†’ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)))
304303ex 411 . . . . . . . . . . . . . . . 16 (({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โ†’ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…))))
305304con3d 152 . . . . . . . . . . . . . . 15 (({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โˆˆ Fin) โ†’ (ยฌ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†’ ยฌ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}))
306237, 240, 305syl2anc 582 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (ยฌ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†’ ยฌ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}))
307301, 306mpd 15 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ยฌ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด})
308211, 93, 258, 252, 264letrd 11401 . . . . . . . . . . . . . . . 16 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ‰ค ๐ต)
309247, 248, 136, 260, 308elfzd 13524 . . . . . . . . . . . . . . 15 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ (1...๐ต))
310 breq1 5146 . . . . . . . . . . . . . . . . 17 (๐‘Ÿ = (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†’ (๐‘Ÿ โˆฅ ๐ด โ†” (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐ด))
311310notbid 317 . . . . . . . . . . . . . . . 16 (๐‘Ÿ = (๐‘โ†‘(๐‘ pCnt ๐‘…)) โ†’ (ยฌ ๐‘Ÿ โˆฅ ๐ด โ†” ยฌ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐ด))
312311elrab3 3675 . . . . . . . . . . . . . . 15 ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ (1...๐ต) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โ†” ยฌ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐ด))
313309, 312syl 17 . . . . . . . . . . . . . 14 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โ†” ยฌ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐ด))
314313con2bid 353 . . . . . . . . . . . . 13 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐ด โ†” ยฌ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}))
315307, 314mpbird 256 . . . . . . . . . . . 12 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘โ†‘(๐‘ pCnt ๐‘…)) โˆฅ ๐ด)
316149, 136, 195, 197, 272, 315coprmdvds2d 41528 . . . . . . . . . . 11 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ((๐‘… / (๐‘โ†‘(๐‘ pCnt ๐‘…))) ยท (๐‘โ†‘(๐‘ pCnt ๐‘…))) โˆฅ ๐ด)
317143, 316eqbrtrd 5165 . . . . . . . . . 10 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ๐‘… โˆฅ ๐ด)
318317adantr 479 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆฅ ๐ด)
31967simprd 494 . . . . . . . . . . 11 (๐œ‘ โ†’ ยฌ ๐‘… โˆฅ ๐ด)
320319ad5antr 732 . . . . . . . . . 10 ((((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง ๐‘ โˆฅ ๐‘…) โˆง ยฌ ๐‘ โˆฅ ๐‘) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ยฌ ๐‘… โˆฅ ๐ด)
32175, 320sylbir 234 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ยฌ ๐‘… โˆฅ ๐ด)
322318, 321pm2.21dd 194 . . . . . . . 8 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ยฌ (๐‘… / ๐‘) โˆฅ ๐ด)
32330, 129, 322elrabd 3676 . . . . . . 7 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘… / ๐‘) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด})
324 lbinfle 12199 . . . . . . 7 (({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด} โІ โ„ โˆง โˆƒ๐‘ฅ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}โˆ€๐‘ฆ โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}๐‘ฅ โ‰ค ๐‘ฆ โˆง (๐‘… / ๐‘) โˆˆ {๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}) โ†’ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / ๐‘))
32517, 28, 323, 324syl3anc 1368 . . . . . 6 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ inf({๐‘Ÿ โˆˆ (1...๐ต) โˆฃ ยฌ ๐‘Ÿ โˆฅ ๐ด}, โ„, < ) โ‰ค (๐‘… / ๐‘))
3265, 325eqbrtrd 5165 . . . . 5 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โ‰ค (๐‘… / ๐‘))
327207adantr 479 . . . . . . . 8 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ 1 < ๐‘)
328 1rp 13010 . . . . . . . . . 10 1 โˆˆ โ„+
329328a1i 11 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ 1 โˆˆ โ„+)
330215adantr 479 . . . . . . . . 9 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„+)
331329, 95, 330ltdiv2d 13071 . . . . . . . 8 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (1 < ๐‘ โ†” (๐‘… / ๐‘) < (๐‘… / 1)))
332327, 331mpbid 231 . . . . . . 7 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘… / ๐‘) < (๐‘… / 1))
333130adantr 479 . . . . . . . 8 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ๐‘… โˆˆ โ„‚)
334333div1d 12012 . . . . . . 7 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘… / 1) = ๐‘…)
335332, 334breqtrd 5169 . . . . . 6 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘… / ๐‘) < ๐‘…)
33698, 101, 65redivcld 12072 . . . . . . . . 9 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โ†’ (๐‘… / ๐‘) โˆˆ โ„)
337336adantr 479 . . . . . . . 8 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ (๐‘… / ๐‘) โˆˆ โ„)
338337adantr 479 . . . . . . 7 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ (๐‘… / ๐‘) โˆˆ โ„)
339338, 94ltnled 11391 . . . . . 6 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ((๐‘… / ๐‘) < ๐‘… โ†” ยฌ ๐‘… โ‰ค (๐‘… / ๐‘)))
340335, 339mpbid 231 . . . . 5 (((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ยฌ ๐‘… โ‰ค (๐‘… / ๐‘))
341326, 340pm2.65da 815 . . . 4 ((((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง ๐‘ โˆˆ โ„™) โˆง (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘)) โ†’ ยฌ (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด)
3421, 2, 3, 4aks4d1p7 41610 . . . . 5 (๐œ‘ โ†’ โˆƒ๐‘ โˆˆ โ„™ (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘))
343342adantr 479 . . . 4 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ โˆƒ๐‘ โˆˆ โ„™ (๐‘ โˆฅ ๐‘… โˆง ยฌ ๐‘ โˆฅ ๐‘))
344341, 343r19.29a 3152 . . 3 ((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โ†’ ยฌ (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด)
345344adantr 479 . 2 (((๐œ‘ โˆง 1 < (๐‘ gcd ๐‘…)) โˆง (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด) โ†’ ยฌ (๐‘… / (๐‘ gcd ๐‘…)) โˆฅ ๐ด)
3461, 2, 3, 4, 345aks4d1p5 41607 1 (๐œ‘ โ†’ (๐‘ gcd ๐‘…) = 1)
Colors of variables: wff setvar class
Syntax hints:  ยฌ wn 3   โ†’ wi 4   โ†” wb 205   โˆง wa 394   = wceq 1533   โˆˆ wcel 2098   โ‰  wne 2930  โˆ€wral 3051  โˆƒwrex 3060  {crab 3419   โІ wss 3939  โˆ…c0 4318   class class class wbr 5143  โ€˜cfv 6543  (class class class)co 7416  Fincfn 8962  infcinf 9464  โ„‚cc 11136  โ„cr 11137  0cc0 11138  1c1 11139   ยท cmul 11143   < clt 11278   โ‰ค cle 11279   โˆ’ cmin 11474   / cdiv 11901  โ„•cn 12242  2c2 12297  3c3 12298  5c5 12300  9c9 12304  โ„•0cn0 12502  โ„คcz 12588  โ„คโ‰ฅcuz 12852  โ„+crp 13006  ...cfz 13516  โŒŠcfl 13787  โŒˆcceil 13788  โ†‘cexp 14058  โˆcprod 15881   โˆฅ cdvds 16230   gcd cgcd 16468  โ„™cprime 16641   pCnt cpc 16804   logb clogb 26714
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pow 5359  ax-pr 5423  ax-un 7738  ax-inf2 9664  ax-cc 10458  ax-cnex 11194  ax-resscn 11195  ax-1cn 11196  ax-icn 11197  ax-addcl 11198  ax-addrcl 11199  ax-mulcl 11200  ax-mulrcl 11201  ax-mulcom 11202  ax-addass 11203  ax-mulass 11204  ax-distr 11205  ax-i2m1 11206  ax-1ne0 11207  ax-1rid 11208  ax-rnegex 11209  ax-rrecex 11210  ax-cnre 11211  ax-pre-lttri 11212  ax-pre-lttrn 11213  ax-pre-ltadd 11214  ax-pre-mulgt0 11215  ax-pre-sup 11216  ax-addf 11217
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3769  df-csb 3885  df-dif 3942  df-un 3944  df-in 3946  df-ss 3956  df-pss 3959  df-symdif 4237  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-tp 4629  df-op 4631  df-uni 4904  df-int 4945  df-iun 4993  df-iin 4994  df-disj 5109  df-br 5144  df-opab 5206  df-mpt 5227  df-tr 5261  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-se 5628  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  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 7372  df-ov 7419  df-oprab 7420  df-mpo 7421  df-of 7682  df-ofr 7683  df-om 7869  df-1st 7991  df-2nd 7992  df-supp 8164  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-2o 8486  df-oadd 8489  df-omul 8490  df-er 8723  df-map 8845  df-pm 8846  df-ixp 8915  df-en 8963  df-dom 8964  df-sdom 8965  df-fin 8966  df-fsupp 9386  df-fi 9434  df-sup 9465  df-inf 9466  df-oi 9533  df-dju 9924  df-card 9962  df-acn 9965  df-pnf 11280  df-mnf 11281  df-xr 11282  df-ltxr 11283  df-le 11284  df-sub 11476  df-neg 11477  df-div 11902  df-nn 12243  df-2 12305  df-3 12306  df-4 12307  df-5 12308  df-6 12309  df-7 12310  df-8 12311  df-9 12312  df-n0 12503  df-z 12589  df-dec 12708  df-uz 12853  df-q 12963  df-rp 13007  df-xneg 13124  df-xadd 13125  df-xmul 13126  df-ioo 13360  df-ioc 13361  df-ico 13362  df-icc 13363  df-fz 13517  df-fzo 13660  df-fl 13789  df-ceil 13790  df-mod 13867  df-seq 13999  df-exp 14059  df-fac 14265  df-bc 14294  df-hash 14322  df-shft 15046  df-cj 15078  df-re 15079  df-im 15080  df-sqrt 15214  df-abs 15215  df-limsup 15447  df-clim 15464  df-rlim 15465  df-sum 15665  df-prod 15882  df-ef 16043  df-e 16044  df-sin 16045  df-cos 16046  df-pi 16048  df-dvds 16231  df-gcd 16469  df-lcm 16560  df-lcmf 16561  df-prm 16642  df-pc 16805  df-struct 17115  df-sets 17132  df-slot 17150  df-ndx 17162  df-base 17180  df-ress 17209  df-plusg 17245  df-mulr 17246  df-starv 17247  df-sca 17248  df-vsca 17249  df-ip 17250  df-tset 17251  df-ple 17252  df-ds 17254  df-unif 17255  df-hom 17256  df-cco 17257  df-rest 17403  df-topn 17404  df-0g 17422  df-gsum 17423  df-topgen 17424  df-pt 17425  df-prds 17428  df-xrs 17483  df-qtop 17488  df-imas 17489  df-xps 17491  df-mre 17565  df-mrc 17566  df-acs 17568  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-submnd 18740  df-mulg 19028  df-cntz 19272  df-cmn 19741  df-psmet 21275  df-xmet 21276  df-met 21277  df-bl 21278  df-mopn 21279  df-fbas 21280  df-fg 21281  df-cnfld 21284  df-top 22814  df-topon 22831  df-topsp 22853  df-bases 22867  df-cld 22941  df-ntr 22942  df-cls 22943  df-nei 23020  df-lp 23058  df-perf 23059  df-cn 23149  df-cnp 23150  df-haus 23237  df-cmp 23309  df-tx 23484  df-hmeo 23677  df-fil 23768  df-fm 23860  df-flim 23861  df-flf 23862  df-xms 24244  df-ms 24245  df-tms 24246  df-cncf 24816  df-ovol 25411  df-vol 25412  df-mbf 25566  df-itg1 25567  df-itg2 25568  df-ibl 25569  df-itg 25570  df-0p 25617  df-limc 25813  df-dv 25814  df-log 26508  df-cxp 26509  df-logb 26715
This theorem is referenced by:  aks4d1p9  41615  aks4d1  41616
  Copyright terms: Public domain W3C validator