Theorem aks6d1c4 42106

Description: Claim 4 of Theorem 6.1 of the AKS inequality lemma. https://www3.nd.edu/%7eandyp/notes/AKS.pdf (Contributed by metakunt, 12-May-2025.)

Hypotheses

Ref	Expression
aks6d1c4.1	⊢ (𝜑 → 𝑁 ∈ ℕ)
aks6d1c4.2	⊢ (𝜑 → 𝑃 ∈ ℙ)
aks6d1c4.3	⊢ (𝜑 → 𝑃 ∥ 𝑁)
aks6d1c4.4	⊢ (𝜑 → 𝑅 ∈ ℕ)
aks6d1c4.5	⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
aks6d1c4.6	⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
aks6d1c4.7	⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))

Assertion

Ref	Expression
aks6d1c4	⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (ϕ‘𝑅))

Distinct variable groups:   𝑘,𝑁,𝑙   𝑃,𝑘,𝑙

Allowed substitution hints:   𝜑(𝑘,𝑙)   𝑅(𝑘,𝑙)   𝐸(𝑘,𝑙)   𝐿(𝑘,𝑙)

Proof of Theorem aks6d1c4

Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 𝑚 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fvexd 6922	. . 3 ⊢ (𝜑 → (Unit‘(ℤ/nℤ‘𝑅)) ∈ V)
2		aks6d1c4.4	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ ℕ)
3	2	nnnn0d 12585	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
4		eqid 2735	. . . . . . . . . . . 12 ⊢ (ℤ/nℤ‘𝑅) = (ℤ/nℤ‘𝑅)
5	4	zncrng 21581	. . . . . . . . . . 11 ⊢ (𝑅 ∈ ℕ0 → (ℤ/nℤ‘𝑅) ∈ CRing)
6	3, 5	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (ℤ/nℤ‘𝑅) ∈ CRing)
7		crngring 20263	. . . . . . . . . 10 ⊢ ((ℤ/nℤ‘𝑅) ∈ CRing → (ℤ/nℤ‘𝑅) ∈ Ring)
8		aks6d1c4.7	. . . . . . . . . . 11 ⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
9	8	zrhrhm 21540	. . . . . . . . . 10 ⊢ ((ℤ/nℤ‘𝑅) ∈ Ring → 𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)))
10		zringbas 21482	. . . . . . . . . . 11 ⊢ ℤ = (Base‘ℤring)
11		eqid 2735	. . . . . . . . . . 11 ⊢ (Base‘(ℤ/nℤ‘𝑅)) = (Base‘(ℤ/nℤ‘𝑅))
12	10, 11	rhmf 20502	. . . . . . . . . 10 ⊢ (𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)) → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
13	6, 7, 9, 12	4syl 19	. . . . . . . . 9 ⊢ (𝜑 → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
14	13	ffund 6741	. . . . . . . 8 ⊢ (𝜑 → Fun 𝐿)
15	14	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → Fun 𝐿)
16		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
17		fvelima 6974	. . . . . . 7 ⊢ ((Fun 𝐿 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎)
18	15, 16, 17	syl2anc 584	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎)
19		simpr 484	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → (𝐿‘𝑐) = 𝑎)
20	19	eqcomd 2741	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → 𝑎 = (𝐿‘𝑐))
21		simpll 767	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝜑)
22		simpr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0)))
23	21, 22	jca 511	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))))
24		ovexd 7466	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) ∈ V)
25		aks6d1c4.6	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
26		vex 3482	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 𝑘 ∈ V
27		vex 3482	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 𝑙 ∈ V
28	26, 27	op1std 8023	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (1st ‘𝑚) = 𝑘)
29	28	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (𝑃↑(1st ‘𝑚)) = (𝑃↑𝑘))
30	26, 27	op2ndd 8024	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (2nd ‘𝑚) = 𝑙)
31	30	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → ((𝑁 / 𝑃)↑(2nd ‘𝑚)) = ((𝑁 / 𝑃)↑𝑙))
32	29, 31	oveq12d 7449	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) = ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
33	32	mpompt 7547	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚)))) = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
34	33	eqcomi 2744	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))) = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))))
35	25, 34	eqtri 2763	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐸 = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))))
36	24, 35	fmptd 7134	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶V)
37	36	ffund 6741	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Fun 𝐸)
38	37	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → Fun 𝐸)
39		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0)))
40		fvelima 6974	. . . . . . . . . . . . . . . 16 ⊢ ((Fun 𝐸 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐)
41	38, 39, 40	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐)
42		simpr 484	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝐸‘𝑒) = 𝑐)
43	42	eqcomd 2741	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → 𝑐 = (𝐸‘𝑒))
44	43	oveq1d 7446	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝑐 gcd 𝑅) = ((𝐸‘𝑒) gcd 𝑅))
45		simplll 775	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝜑)
46		simpr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑒 ∈ (ℕ0 × ℕ0))
47	45, 46	jca 511	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)))
48	35	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝐸 = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚)))))
49		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → 𝑚 = 𝑒)
50	49	fveq2d 6911	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (1st ‘𝑚) = (1st ‘𝑒))
51	50	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (𝑃↑(1st ‘𝑚)) = (𝑃↑(1st ‘𝑒)))
52	49	fveq2d 6911	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (2nd ‘𝑚) = (2nd ‘𝑒))
53	52	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → ((𝑁 / 𝑃)↑(2nd ‘𝑚)) = ((𝑁 / 𝑃)↑(2nd ‘𝑒)))
54	51, 53	oveq12d 7449	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) = ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))))
55		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑒 ∈ (ℕ0 × ℕ0))
56		ovexd 7466	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) ∈ V)
57	48, 54, 55, 56	fvmptd 7023	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑒) = ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))))
58		aks6d1c4.2	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ∈ ℙ)
59		prmnn 16708	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
60	58, 59	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∈ ℕ)
61	60	nnzd 12638	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑃 ∈ ℤ)
62	61	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℤ)
63		xp1st 8045	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑒 ∈ (ℕ0 × ℕ0) → (1st ‘𝑒) ∈ ℕ0)
64	63	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (1st ‘𝑒) ∈ ℕ0)
65	62, 64	zexpcld 14125	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑃↑(1st ‘𝑒)) ∈ ℤ)
66		aks6d1c4.3	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
67	60	nnne0d 12314	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ≠ 0)
68		aks6d1c4.1	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑁 ∈ ℕ)
69	68	nnzd 12638	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑁 ∈ ℤ)
70		dvdsval2 16290	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ≠ 0 ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
71	61, 67, 69, 70	syl3anc 1370	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
72	66, 71	mpbid 232	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℤ)
73	72	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑁 / 𝑃) ∈ ℤ)
74		xp2nd 8046	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑒 ∈ (ℕ0 × ℕ0) → (2nd ‘𝑒) ∈ ℕ0)
75	74	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (2nd ‘𝑒) ∈ ℕ0)
76	73, 75	zexpcld 14125	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑁 / 𝑃)↑(2nd ‘𝑒)) ∈ ℤ)
77	65, 76	zmulcld 12726	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) ∈ ℤ)
78	57, 77	eqeltrd 2839	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑒) ∈ ℤ)
79	57	oveq1d 7446	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) gcd 𝑅) = (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅))
80	2	nnzd 12638	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑅 ∈ ℤ)
81	80	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑅 ∈ ℤ)
82	77, 81	gcdcomd 16548	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅) = (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))))
83	80, 61, 69	3jca 1127	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (𝑅 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ))
84		aks6d1c4.5	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
85	69, 80	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → (𝑁 ∈ ℤ ∧ 𝑅 ∈ ℤ))
86		gcdcom 16547	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑁 ∈ ℤ ∧ 𝑅 ∈ ℤ) → (𝑁 gcd 𝑅) = (𝑅 gcd 𝑁))
87	85, 86	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → (𝑁 gcd 𝑅) = (𝑅 gcd 𝑁))
88		eqeq1 2739	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝑁 gcd 𝑅) = (𝑅 gcd 𝑁) → ((𝑁 gcd 𝑅) = 1 ↔ (𝑅 gcd 𝑁) = 1))
89	87, 88	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → ((𝑁 gcd 𝑅) = 1 ↔ (𝑅 gcd 𝑁) = 1))
90	89	pm5.74i 271	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝜑 → (𝑁 gcd 𝑅) = 1) ↔ (𝜑 → (𝑅 gcd 𝑁) = 1))
91	84, 90	mpbi 230	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (𝑅 gcd 𝑁) = 1)
92	91, 66	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → ((𝑅 gcd 𝑁) = 1 ∧ 𝑃 ∥ 𝑁))
93		rpdvds 16694	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑅 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ((𝑅 gcd 𝑁) = 1 ∧ 𝑃 ∥ 𝑁)) → (𝑅 gcd 𝑃) = 1)
94	83, 92, 93	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (𝑅 gcd 𝑃) = 1)
95	94	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd 𝑃) = 1)
96	95	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd 𝑃) = 1)
97	2	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℕ)
98	60	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℕ)
99		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → (1st ‘𝑒) ∈ ℕ)
100		rprpwr 16593	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑅 ∈ ℕ ∧ 𝑃 ∈ ℕ ∧ (1st ‘𝑒) ∈ ℕ) → ((𝑅 gcd 𝑃) = 1 → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1))
101	97, 98, 99, 100	syl3anc 1370	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → ((𝑅 gcd 𝑃) = 1 → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1))
102	96, 101	mpd 15	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
103	64	anim1i 615	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ≠ 0) → ((1st ‘𝑒) ∈ ℕ0 ∧ (1st ‘𝑒) ≠ 0))
104		elnnne0 12538	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((1st ‘𝑒) ∈ ℕ ↔ ((1st ‘𝑒) ∈ ℕ0 ∧ (1st ‘𝑒) ≠ 0))
105	103, 104	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ≠ 0) → (1st ‘𝑒) ∈ ℕ)
106	105	ex 412	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((1st ‘𝑒) ≠ 0 → (1st ‘𝑒) ∈ ℕ))
107	106	necon1bd 2956	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (¬ (1st ‘𝑒) ∈ ℕ → (1st ‘𝑒) = 0))
108	107	imp 406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (1st ‘𝑒) = 0)
109	108	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑃↑(1st ‘𝑒)) = (𝑃↑0))
110	109	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = (𝑅 gcd (𝑃↑0)))
111	62	zcnd 12721	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℂ)
112	111	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℂ)
113	112	exp0d 14177	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑃↑0) = 1)
114	113	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑0)) = (𝑅 gcd 1))
115	81	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℤ)
116		gcd1 16562	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑅 ∈ ℤ → (𝑅 gcd 1) = 1)
117	115, 116	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd 1) = 1)
118	114, 117	eqtrd 2775	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑0)) = 1)
119	110, 118	eqtrd 2775	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
120	102, 119	pm2.61dan 813	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
121	80, 72, 69	3jca 1127	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (𝑅 ∈ ℤ ∧ (𝑁 / 𝑃) ∈ ℤ ∧ 𝑁 ∈ ℤ))
122	68	nnred 12279	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 𝑁 ∈ ℝ)
123	122	recnd 11287	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑁 ∈ ℂ)
124	60	nnred 12279	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 𝑃 ∈ ℝ)
125	124	recnd 11287	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑃 ∈ ℂ)
126	68	nngt0d 12313	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 0 < 𝑁)
127	126	gt0ne0d 11825	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑁 ≠ 0)
128	123, 125, 127, 67	ddcand 12061	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → (𝑁 / (𝑁 / 𝑃)) = 𝑃)
129	128, 61	eqeltrd 2839	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → (𝑁 / (𝑁 / 𝑃)) ∈ ℤ)
130	60	nngt0d 12313	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 0 < 𝑃)
131	122, 124, 126, 130	divgt0d 12201	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 0 < (𝑁 / 𝑃))
132	131	gt0ne0d 11825	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → (𝑁 / 𝑃) ≠ 0)
133		dvdsval2 16290	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝑁 / 𝑃) ∈ ℤ ∧ (𝑁 / 𝑃) ≠ 0 ∧ 𝑁 ∈ ℤ) → ((𝑁 / 𝑃) ∥ 𝑁 ↔ (𝑁 / (𝑁 / 𝑃)) ∈ ℤ))
134	72, 132, 69, 133	syl3anc 1370	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → ((𝑁 / 𝑃) ∥ 𝑁 ↔ (𝑁 / (𝑁 / 𝑃)) ∈ ℤ))
135	129, 134	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (𝑁 / 𝑃) ∥ 𝑁)
136	91, 135	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → ((𝑅 gcd 𝑁) = 1 ∧ (𝑁 / 𝑃) ∥ 𝑁))
137		rpdvds 16694	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑅 ∈ ℤ ∧ (𝑁 / 𝑃) ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ((𝑅 gcd 𝑁) = 1 ∧ (𝑁 / 𝑃) ∥ 𝑁)) → (𝑅 gcd (𝑁 / 𝑃)) = 1)
138	121, 136, 137	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (𝑅 gcd (𝑁 / 𝑃)) = 1)
139	138	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd (𝑁 / 𝑃)) = 1)
140	139	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑁 / 𝑃)) = 1)
141	2	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℕ)
142	72, 131	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → ((𝑁 / 𝑃) ∈ ℤ ∧ 0 < (𝑁 / 𝑃)))
143		elnnz 12621	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝑁 / 𝑃) ∈ ℕ ↔ ((𝑁 / 𝑃) ∈ ℤ ∧ 0 < (𝑁 / 𝑃)))
144	142, 143	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℕ)
145	144	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑁 / 𝑃) ∈ ℕ)
146	145	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (𝑁 / 𝑃) ∈ ℕ)
147		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (2nd ‘𝑒) ∈ ℕ)
148		rprpwr 16593	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑅 ∈ ℕ ∧ (𝑁 / 𝑃) ∈ ℕ ∧ (2nd ‘𝑒) ∈ ℕ) → ((𝑅 gcd (𝑁 / 𝑃)) = 1 → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
149	141, 146, 147, 148	syl3anc 1370	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → ((𝑅 gcd (𝑁 / 𝑃)) = 1 → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
150	140, 149	mpd 15	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
151	75	anim1i 615	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ≠ 0) → ((2nd ‘𝑒) ∈ ℕ0 ∧ (2nd ‘𝑒) ≠ 0))
152		elnnne0 12538	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((2nd ‘𝑒) ∈ ℕ ↔ ((2nd ‘𝑒) ∈ ℕ0 ∧ (2nd ‘𝑒) ≠ 0))
153	151, 152	sylibr 234	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ≠ 0) → (2nd ‘𝑒) ∈ ℕ)
154	153	ex 412	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((2nd ‘𝑒) ≠ 0 → (2nd ‘𝑒) ∈ ℕ))
155	154	necon1bd 2956	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (¬ (2nd ‘𝑒) ∈ ℕ → (2nd ‘𝑒) = 0))
156	155	imp 406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (2nd ‘𝑒) = 0)
157	156	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → ((𝑁 / 𝑃)↑(2nd ‘𝑒)) = ((𝑁 / 𝑃)↑0))
158	157	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = (𝑅 gcd ((𝑁 / 𝑃)↑0)))
159	123	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑁 ∈ ℂ)
160	159	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑁 ∈ ℂ)
161	111	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℂ)
162	67	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑃 ≠ 0)
163	160, 161, 162	divcld 12041	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑁 / 𝑃) ∈ ℂ)
164	163	exp0d 14177	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → ((𝑁 / 𝑃)↑0) = 1)
165	164	oveq2d 7447	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑0)) = (𝑅 gcd 1))
166	158, 165	eqtrd 2775	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = (𝑅 gcd 1))
167	81	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℤ)
168	167, 116	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd 1) = 1)
169	166, 168	eqtrd 2775	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
170	150, 169	pm2.61dan 813	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
171	120, 170	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
172		rpmul 16693	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑅 ∈ ℤ ∧ (𝑃↑(1st ‘𝑒)) ∈ ℤ ∧ ((𝑁 / 𝑃)↑(2nd ‘𝑒)) ∈ ℤ) → (((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1) → (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))) = 1))
173	81, 65, 76, 172	syl3anc 1370	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1) → (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))) = 1))
174	171, 173	mpd 15	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))) = 1)
175	82, 174	eqtrd 2775	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅) = 1)
176	79, 175	eqtrd 2775	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) gcd 𝑅) = 1)
177	78, 176	jca 511	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) ∈ ℤ ∧ ((𝐸‘𝑒) gcd 𝑅) = 1))
178	47, 177	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) ∈ ℤ ∧ ((𝐸‘𝑒) gcd 𝑅) = 1))
179	178	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → ((𝐸‘𝑒) ∈ ℤ ∧ ((𝐸‘𝑒) gcd 𝑅) = 1))
180	179	simprd 495	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → ((𝐸‘𝑒) gcd 𝑅) = 1)
181	44, 180	eqtrd 2775	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝑐 gcd 𝑅) = 1)
182	179	simpld 494	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝐸‘𝑒) ∈ ℤ)
183	43, 182	eqeltrd 2839	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → 𝑐 ∈ ℤ)
184	181, 183	jca 511	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ))
185		nfv 1912	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑒(𝐸‘𝑑) = 𝑐
186		nfv 1912	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑑(𝐸‘𝑒) = 𝑐
187		fveqeq2 6916	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑑 = 𝑒 → ((𝐸‘𝑑) = 𝑐 ↔ (𝐸‘𝑒) = 𝑐))
188	185, 186, 187	cbvrexw 3305	. . . . . . . . . . . . . . . . . . 19 ⊢ (∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐 ↔ ∃𝑒 ∈ (ℕ0 × ℕ0)(𝐸‘𝑒) = 𝑐)
189	188	biimpi 216	. . . . . . . . . . . . . . . . . 18 ⊢ (∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐 → ∃𝑒 ∈ (ℕ0 × ℕ0)(𝐸‘𝑒) = 𝑐)
190	189	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) → ∃𝑒 ∈ (ℕ0 × ℕ0)(𝐸‘𝑒) = 𝑐)
191	184, 190	r19.29a 3160	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ))
192	191	ex 412	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐 → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ)))
193	41, 192	mpd 15	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ))
194	193	simpld 494	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝑐 gcd 𝑅) = 1)
195	3	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑅 ∈ ℕ0)
196	193	simprd 495	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑐 ∈ ℤ)
197		eqid 2735	. . . . . . . . . . . . . . 15 ⊢ (Unit‘(ℤ/nℤ‘𝑅)) = (Unit‘(ℤ/nℤ‘𝑅))
198	4, 197, 8	znunit 21600	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ ℕ0 ∧ 𝑐 ∈ ℤ) → ((𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)) ↔ (𝑐 gcd 𝑅) = 1))
199	195, 196, 198	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ((𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)) ↔ (𝑐 gcd 𝑅) = 1))
200	194, 199	mpbird 257	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)))
201	23, 200	syl 17	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)))
202	201	adantr 480	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → (𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)))
203	20, 202	eqeltrd 2839	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅)))
204		nfv 1912	. . . . . . . . . . . 12 ⊢ Ⅎ𝑐(𝐿‘𝑏) = 𝑎
205		nfv 1912	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏(𝐿‘𝑐) = 𝑎
206		fveqeq2 6916	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑐 → ((𝐿‘𝑏) = 𝑎 ↔ (𝐿‘𝑐) = 𝑎))
207	204, 205, 206	cbvrexw 3305	. . . . . . . . . . 11 ⊢ (∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎 ↔ ∃𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑐) = 𝑎)
208	207	biimpi 216	. . . . . . . . . 10 ⊢ (∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎 → ∃𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑐) = 𝑎)
209	208	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) → ∃𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑐) = 𝑎)
210	203, 209	r19.29a 3160	. . . . . . . 8 ⊢ ((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅)))
211	210	ex 412	. . . . . . 7 ⊢ (𝜑 → (∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎 → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅))))
212	211	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → (∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎 → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅))))
213	18, 212	mpd 15	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅)))
214	213	ex 412	. . . 4 ⊢ (𝜑 → (𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅))))
215	214	ssrdv 4001	. . 3 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ⊆ (Unit‘(ℤ/nℤ‘𝑅)))
216		hashss 14445	. . 3 ⊢ (((Unit‘(ℤ/nℤ‘𝑅)) ∈ V ∧ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ⊆ (Unit‘(ℤ/nℤ‘𝑅))) → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (♯‘(Unit‘(ℤ/nℤ‘𝑅))))
217	1, 215, 216	syl2anc 584	. 2 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (♯‘(Unit‘(ℤ/nℤ‘𝑅))))
218	4, 197	znunithash 21601	. . 3 ⊢ (𝑅 ∈ ℕ → (♯‘(Unit‘(ℤ/nℤ‘𝑅))) = (ϕ‘𝑅))
219	2, 218	syl 17	. 2 ⊢ (𝜑 → (♯‘(Unit‘(ℤ/nℤ‘𝑅))) = (ϕ‘𝑅))
220	217, 219	breqtrd 5174	1 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (ϕ‘𝑅))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1537   ∈ wcel 2106   ≠ wne 2938  ∃wrex 3068  Vcvv 3478   ⊆ wss 3963  ⟨cop 4637   class class class wbr 5148   ↦ cmpt 5231   × cxp 5687   “ cima 5692  Fun wfun 6557  ⟶wf 6559  ‘cfv 6563  (class class class)co 7431   ∈ cmpo 7433  1^st c1st 8011  2^nd c2nd 8012  ℂcc 11151  0cc0 11153  1c1 11154   · cmul 11158   < clt 11293   ≤ cle 11294   / cdiv 11918  ℕcn 12264  ℕ₀cn0 12524  ℤcz 12611  ↑cexp 14099  ♯chash 14366   ∥ cdvds 16287   gcd cgcd 16528  ℙcprime 16705  ϕcphi 16798  Basecbs 17245  Ringcrg 20251  CRingccrg 20252  Unitcui 20372   RingHom crh 20486  ℤ_ringczring 21475  ℤRHomczrh 21528  ℤ/nℤczn 21531

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-rep 5285  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754  ax-cnex 11209  ax-resscn 11210  ax-1cn 11211  ax-icn 11212  ax-addcl 11213  ax-addrcl 11214  ax-mulcl 11215  ax-mulrcl 11216  ax-mulcom 11217  ax-addass 11218  ax-mulass 11219  ax-distr 11220  ax-i2m1 11221  ax-1ne0 11222  ax-1rid 11223  ax-rnegex 11224  ax-rrecex 11225  ax-cnre 11226  ax-pre-lttri 11227  ax-pre-lttrn 11228  ax-pre-ltadd 11229  ax-pre-mulgt0 11230  ax-pre-sup 11231  ax-addf 11232  ax-mulf 11233

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-rmo 3378  df-reu 3379  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-pss 3983  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-tp 4636  df-op 4638  df-uni 4913  df-int 4952  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5583  df-eprel 5589  df-po 5597  df-so 5598  df-fr 5641  df-we 5643  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-pred 6323  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-f1 6568  df-fo 6569  df-f1o 6570  df-fv 6571  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-om 7888  df-1st 8013  df-2nd 8014  df-tpos 8250  df-frecs 8305  df-wrecs 8336  df-recs 8410  df-rdg 8449  df-1o 8505  df-oadd 8509  df-er 8744  df-ec 8746  df-qs 8750  df-map 8867  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-sup 9480  df-inf 9481  df-card 9977  df-pnf 11295  df-mnf 11296  df-xr 11297  df-ltxr 11298  df-le 11299  df-sub 11492  df-neg 11493  df-div 11919  df-nn 12265  df-2 12327  df-3 12328  df-4 12329  df-5 12330  df-6 12331  df-7 12332  df-8 12333  df-9 12334  df-n0 12525  df-xnn0 12598  df-z 12612  df-dec 12732  df-uz 12877  df-rp 13033  df-fz 13545  df-fzo 13692  df-fl 13829  df-mod 13907  df-seq 14040  df-exp 14100  df-hash 14367  df-cj 15135  df-re 15136  df-im 15137  df-sqrt 15271  df-abs 15272  df-dvds 16288  df-gcd 16529  df-prm 16706  df-phi 16800  df-struct 17181  df-sets 17198  df-slot 17216  df-ndx 17228  df-base 17246  df-ress 17275  df-plusg 17311  df-mulr 17312  df-starv 17313  df-sca 17314  df-vsca 17315  df-ip 17316  df-tset 17317  df-ple 17318  df-ds 17320  df-unif 17321  df-0g 17488  df-imas 17555  df-qus 17556  df-mgm 18666  df-sgrp 18745  df-mnd 18761  df-mhm 18809  df-grp 18967  df-minusg 18968  df-sbg 18969  df-mulg 19099  df-subg 19154  df-nsg 19155  df-eqg 19156  df-ghm 19244  df-cmn 19815  df-abl 19816  df-mgp 20153  df-rng 20171  df-ur 20200  df-ring 20253  df-cring 20254  df-oppr 20351  df-dvdsr 20374  df-unit 20375  df-rhm 20489  df-subrng 20563  df-subrg 20587  df-lmod 20877  df-lss 20948  df-lsp 20988  df-sra 21190  df-rgmod 21191  df-lidl 21236  df-rsp 21237  df-2idl 21278  df-cnfld 21383  df-zring 21476  df-zrh 21532  df-zn 21535

This theorem is referenced by:  aks6d1c7lem1  42162