Theorem aks6d1c4 42081

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 6935	. . 3 ⊢ (𝜑 → (Unit‘(ℤ/nℤ‘𝑅)) ∈ V)
2		aks6d1c4.4	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ ℕ)
3	2	nnnn0d 12613	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
4		eqid 2740	. . . . . . . . . . . 12 ⊢ (ℤ/nℤ‘𝑅) = (ℤ/nℤ‘𝑅)
5	4	zncrng 21586	. . . . . . . . . . 11 ⊢ (𝑅 ∈ ℕ0 → (ℤ/nℤ‘𝑅) ∈ CRing)
6	3, 5	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (ℤ/nℤ‘𝑅) ∈ CRing)
7		crngring 20272	. . . . . . . . . 10 ⊢ ((ℤ/nℤ‘𝑅) ∈ CRing → (ℤ/nℤ‘𝑅) ∈ Ring)
8		aks6d1c4.7	. . . . . . . . . . 11 ⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
9	8	zrhrhm 21545	. . . . . . . . . 10 ⊢ ((ℤ/nℤ‘𝑅) ∈ Ring → 𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)))
10		zringbas 21487	. . . . . . . . . . 11 ⊢ ℤ = (Base‘ℤring)
11		eqid 2740	. . . . . . . . . . 11 ⊢ (Base‘(ℤ/nℤ‘𝑅)) = (Base‘(ℤ/nℤ‘𝑅))
12	10, 11	rhmf 20511	. . . . . . . . . 10 ⊢ (𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)) → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
13	6, 7, 9, 12	4syl 19	. . . . . . . . 9 ⊢ (𝜑 → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
14	13	ffund 6751	. . . . . . . 8 ⊢ (𝜑 → Fun 𝐿)
15	14	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → Fun 𝐿)
16		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
17		fvelima 6987	. . . . . . 7 ⊢ ((Fun 𝐿 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎)
18	15, 16, 17	syl2anc 583	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎)
19		simpr 484	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → (𝐿‘𝑐) = 𝑎)
20	19	eqcomd 2746	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → 𝑎 = (𝐿‘𝑐))
21		simpll 766	. . . . . . . . . . . . 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 7483	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) ∈ V)
25		aks6d1c4.6	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
26		vex 3492	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 𝑘 ∈ V
27		vex 3492	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 𝑙 ∈ V
28	26, 27	op1std 8040	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (1st ‘𝑚) = 𝑘)
29	28	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (𝑃↑(1st ‘𝑚)) = (𝑃↑𝑘))
30	26, 27	op2ndd 8041	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (2nd ‘𝑚) = 𝑙)
31	30	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → ((𝑁 / 𝑃)↑(2nd ‘𝑚)) = ((𝑁 / 𝑃)↑𝑙))
32	29, 31	oveq12d 7466	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) = ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
33	32	mpompt 7564	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚)))) = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
34	33	eqcomi 2749	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))) = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))))
35	25, 34	eqtri 2768	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐸 = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))))
36	24, 35	fmptd 7148	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶V)
37	36	ffund 6751	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Fun 𝐸)
38	37	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → Fun 𝐸)
39		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0)))
40		fvelima 6987	. . . . . . . . . . . . . . . 16 ⊢ ((Fun 𝐸 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐)
41	38, 39, 40	syl2anc 583	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐)
42		simpr 484	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝐸‘𝑒) = 𝑐)
43	42	eqcomd 2746	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → 𝑐 = (𝐸‘𝑒))
44	43	oveq1d 7463	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝑐 gcd 𝑅) = ((𝐸‘𝑒) gcd 𝑅))
45		simplll 774	. . . . . . . . . . . . . . . . . . . . . . 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 6924	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (1st ‘𝑚) = (1st ‘𝑒))
51	50	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (𝑃↑(1st ‘𝑚)) = (𝑃↑(1st ‘𝑒)))
52	49	fveq2d 6924	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (2nd ‘𝑚) = (2nd ‘𝑒))
53	52	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → ((𝑁 / 𝑃)↑(2nd ‘𝑚)) = ((𝑁 / 𝑃)↑(2nd ‘𝑒)))
54	51, 53	oveq12d 7466	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) = ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))))
55		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑒 ∈ (ℕ0 × ℕ0))
56		ovexd 7483	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) ∈ V)
57	48, 54, 55, 56	fvmptd 7036	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑒) = ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))))
58		aks6d1c4.2	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ∈ ℙ)
59		prmnn 16721	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
60	58, 59	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∈ ℕ)
61	60	nnzd 12666	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑃 ∈ ℤ)
62	61	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℤ)
63		xp1st 8062	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑒 ∈ (ℕ0 × ℕ0) → (1st ‘𝑒) ∈ ℕ0)
64	63	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (1st ‘𝑒) ∈ ℕ0)
65	62, 64	zexpcld 14138	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑃↑(1st ‘𝑒)) ∈ ℤ)
66		aks6d1c4.3	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
67	60	nnne0d 12343	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ≠ 0)
68		aks6d1c4.1	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑁 ∈ ℕ)
69	68	nnzd 12666	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑁 ∈ ℤ)
70		dvdsval2 16305	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ≠ 0 ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
71	61, 67, 69, 70	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
72	66, 71	mpbid 232	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℤ)
73	72	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑁 / 𝑃) ∈ ℤ)
74		xp2nd 8063	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑒 ∈ (ℕ0 × ℕ0) → (2nd ‘𝑒) ∈ ℕ0)
75	74	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (2nd ‘𝑒) ∈ ℕ0)
76	73, 75	zexpcld 14138	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑁 / 𝑃)↑(2nd ‘𝑒)) ∈ ℤ)
77	65, 76	zmulcld 12753	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) ∈ ℤ)
78	57, 77	eqeltrd 2844	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑒) ∈ ℤ)
79	57	oveq1d 7463	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) gcd 𝑅) = (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅))
80	2	nnzd 12666	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑅 ∈ ℤ)
81	80	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑅 ∈ ℤ)
82	77, 81	gcdcomd 16560	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅) = (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))))
83	80, 61, 69	3jca 1128	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (𝑅 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ))
84		aks6d1c4.5	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
85	69, 80	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → (𝑁 ∈ ℤ ∧ 𝑅 ∈ ℤ))
86		gcdcom 16559	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑁 ∈ ℤ ∧ 𝑅 ∈ ℤ) → (𝑁 gcd 𝑅) = (𝑅 gcd 𝑁))
87	85, 86	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → (𝑁 gcd 𝑅) = (𝑅 gcd 𝑁))
88		eqeq1 2744	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 16707	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑅 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ((𝑅 gcd 𝑁) = 1 ∧ 𝑃 ∥ 𝑁)) → (𝑅 gcd 𝑃) = 1)
94	83, 92, 93	syl2anc 583	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 725	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℕ)
98	60	ad2antrr 725	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℕ)
99		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → (1st ‘𝑒) ∈ ℕ)
100		rprpwr 16606	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑅 ∈ ℕ ∧ 𝑃 ∈ ℕ ∧ (1st ‘𝑒) ∈ ℕ) → ((𝑅 gcd 𝑃) = 1 → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1))
101	97, 98, 99, 100	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → ((𝑅 gcd 𝑃) = 1 → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1))
102	96, 101	mpd 15	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
103	64	anim1i 614	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ≠ 0) → ((1st ‘𝑒) ∈ ℕ0 ∧ (1st ‘𝑒) ≠ 0))
104		elnnne0 12567	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2964	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (¬ (1st ‘𝑒) ∈ ℕ → (1st ‘𝑒) = 0))
108	107	imp 406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (1st ‘𝑒) = 0)
109	108	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑃↑(1st ‘𝑒)) = (𝑃↑0))
110	109	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = (𝑅 gcd (𝑃↑0)))
111	62	zcnd 12748	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℂ)
112	111	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℂ)
113	112	exp0d 14190	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑃↑0) = 1)
114	113	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑0)) = (𝑅 gcd 1))
115	81	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℤ)
116		gcd1 16574	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑅 ∈ ℤ → (𝑅 gcd 1) = 1)
117	115, 116	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd 1) = 1)
118	114, 117	eqtrd 2780	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑0)) = 1)
119	110, 118	eqtrd 2780	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
120	102, 119	pm2.61dan 812	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
121	80, 72, 69	3jca 1128	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (𝑅 ∈ ℤ ∧ (𝑁 / 𝑃) ∈ ℤ ∧ 𝑁 ∈ ℤ))
122	68	nnred 12308	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 𝑁 ∈ ℝ)
123	122	recnd 11318	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑁 ∈ ℂ)
124	60	nnred 12308	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 𝑃 ∈ ℝ)
125	124	recnd 11318	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑃 ∈ ℂ)
126	68	nngt0d 12342	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 0 < 𝑁)
127	126	gt0ne0d 11854	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑁 ≠ 0)
128	123, 125, 127, 67	ddcand 12090	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → (𝑁 / (𝑁 / 𝑃)) = 𝑃)
129	128, 61	eqeltrd 2844	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → (𝑁 / (𝑁 / 𝑃)) ∈ ℤ)
130	60	nngt0d 12342	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 0 < 𝑃)
131	122, 124, 126, 130	divgt0d 12230	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 0 < (𝑁 / 𝑃))
132	131	gt0ne0d 11854	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → (𝑁 / 𝑃) ≠ 0)
133		dvdsval2 16305	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝑁 / 𝑃) ∈ ℤ ∧ (𝑁 / 𝑃) ≠ 0 ∧ 𝑁 ∈ ℤ) → ((𝑁 / 𝑃) ∥ 𝑁 ↔ (𝑁 / (𝑁 / 𝑃)) ∈ ℤ))
134	72, 132, 69, 133	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → ((𝑁 / 𝑃) ∥ 𝑁 ↔ (𝑁 / (𝑁 / 𝑃)) ∈ ℤ))
135	129, 134	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (𝑁 / 𝑃) ∥ 𝑁)
136	91, 135	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → ((𝑅 gcd 𝑁) = 1 ∧ (𝑁 / 𝑃) ∥ 𝑁))
137		rpdvds 16707	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑅 ∈ ℤ ∧ (𝑁 / 𝑃) ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ((𝑅 gcd 𝑁) = 1 ∧ (𝑁 / 𝑃) ∥ 𝑁)) → (𝑅 gcd (𝑁 / 𝑃)) = 1)
138	121, 136, 137	syl2anc 583	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 725	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℕ)
142	72, 131	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → ((𝑁 / 𝑃) ∈ ℤ ∧ 0 < (𝑁 / 𝑃)))
143		elnnz 12649	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 16606	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑅 ∈ ℕ ∧ (𝑁 / 𝑃) ∈ ℕ ∧ (2nd ‘𝑒) ∈ ℕ) → ((𝑅 gcd (𝑁 / 𝑃)) = 1 → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
149	141, 146, 147, 148	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → ((𝑅 gcd (𝑁 / 𝑃)) = 1 → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
150	140, 149	mpd 15	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
151	75	anim1i 614	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ≠ 0) → ((2nd ‘𝑒) ∈ ℕ0 ∧ (2nd ‘𝑒) ≠ 0))
152		elnnne0 12567	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2964	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (¬ (2nd ‘𝑒) ∈ ℕ → (2nd ‘𝑒) = 0))
156	155	imp 406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (2nd ‘𝑒) = 0)
157	156	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → ((𝑁 / 𝑃)↑(2nd ‘𝑒)) = ((𝑁 / 𝑃)↑0))
158	157	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 725	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑃 ≠ 0)
163	160, 161, 162	divcld 12070	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑁 / 𝑃) ∈ ℂ)
164	163	exp0d 14190	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → ((𝑁 / 𝑃)↑0) = 1)
165	164	oveq2d 7464	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑0)) = (𝑅 gcd 1))
166	158, 165	eqtrd 2780	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2780	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
170	150, 169	pm2.61dan 812	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
171	120, 170	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
172		rpmul 16706	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑅 ∈ ℤ ∧ (𝑃↑(1st ‘𝑒)) ∈ ℤ ∧ ((𝑁 / 𝑃)↑(2nd ‘𝑒)) ∈ ℤ) → (((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1) → (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))) = 1))
173	81, 65, 76, 172	syl3anc 1371	. . . . . . . . . . . . . . . . . . . . . . . . . 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 2780	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅) = 1)
176	79, 175	eqtrd 2780	. . . . . . . . . . . . . . . . . . . . . . 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 2780	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝑐 gcd 𝑅) = 1)
182	179	simpld 494	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝐸‘𝑒) ∈ ℤ)
183	43, 182	eqeltrd 2844	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → 𝑐 ∈ ℤ)
184	181, 183	jca 511	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ))
185		nfv 1913	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑒(𝐸‘𝑑) = 𝑐
186		nfv 1913	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑑(𝐸‘𝑒) = 𝑐
187		fveqeq2 6929	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑑 = 𝑒 → ((𝐸‘𝑑) = 𝑐 ↔ (𝐸‘𝑒) = 𝑐))
188	185, 186, 187	cbvrexw 3313	. . . . . . . . . . . . . . . . . . 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 3168	. . . . . . . . . . . . . . . 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 2740	. . . . . . . . . . . . . . 15 ⊢ (Unit‘(ℤ/nℤ‘𝑅)) = (Unit‘(ℤ/nℤ‘𝑅))
198	4, 197, 8	znunit 21605	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ ℕ0 ∧ 𝑐 ∈ ℤ) → ((𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)) ↔ (𝑐 gcd 𝑅) = 1))
199	195, 196, 198	syl2anc 583	. . . . . . . . . . . . 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 2844	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅)))
204		nfv 1913	. . . . . . . . . . . 12 ⊢ Ⅎ𝑐(𝐿‘𝑏) = 𝑎
205		nfv 1913	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏(𝐿‘𝑐) = 𝑎
206		fveqeq2 6929	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑐 → ((𝐿‘𝑏) = 𝑎 ↔ (𝐿‘𝑐) = 𝑎))
207	204, 205, 206	cbvrexw 3313	. . . . . . . . . . 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 3168	. . . . . . . 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 4014	. . 3 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ⊆ (Unit‘(ℤ/nℤ‘𝑅)))
216		hashss 14458	. . 3 ⊢ (((Unit‘(ℤ/nℤ‘𝑅)) ∈ V ∧ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ⊆ (Unit‘(ℤ/nℤ‘𝑅))) → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (♯‘(Unit‘(ℤ/nℤ‘𝑅))))
217	1, 215, 216	syl2anc 583	. 2 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (♯‘(Unit‘(ℤ/nℤ‘𝑅))))
218	4, 197	znunithash 21606	. . 3 ⊢ (𝑅 ∈ ℕ → (♯‘(Unit‘(ℤ/nℤ‘𝑅))) = (ϕ‘𝑅))
219	2, 218	syl 17	. 2 ⊢ (𝜑 → (♯‘(Unit‘(ℤ/nℤ‘𝑅))) = (ϕ‘𝑅))
220	217, 219	breqtrd 5192	1 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (ϕ‘𝑅))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1537   ∈ wcel 2108   ≠ wne 2946  ∃wrex 3076  Vcvv 3488   ⊆ wss 3976  ⟨cop 4654   class class class wbr 5166   ↦ cmpt 5249   × cxp 5698   “ cima 5703  Fun wfun 6567  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448   ∈ cmpo 7450  1^st c1st 8028  2^nd c2nd 8029  ℂcc 11182  0cc0 11184  1c1 11185   · cmul 11189   < clt 11324   ≤ cle 11325   / cdiv 11947  ℕcn 12293  ℕ₀cn0 12553  ℤcz 12639  ↑cexp 14112  ♯chash 14379   ∥ cdvds 16302   gcd cgcd 16540  ℙcprime 16718  ϕcphi 16811  Basecbs 17258  Ringcrg 20260  CRingccrg 20261  Unitcui 20381   RingHom crh 20495  ℤ_ringczring 21480  ℤRHomczrh 21533  ℤ/nℤczn 21536

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262  ax-addf 11263  ax-mulf 11264

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-tpos 8267  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-oadd 8526  df-er 8763  df-ec 8765  df-qs 8769  df-map 8886  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-sup 9511  df-inf 9512  df-card 10008  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-xnn0 12626  df-z 12640  df-dec 12759  df-uz 12904  df-rp 13058  df-fz 13568  df-fzo 13712  df-fl 13843  df-mod 13921  df-seq 14053  df-exp 14113  df-hash 14380  df-cj 15148  df-re 15149  df-im 15150  df-sqrt 15284  df-abs 15285  df-dvds 16303  df-gcd 16541  df-prm 16719  df-phi 16813  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-unif 17334  df-0g 17501  df-imas 17568  df-qus 17569  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-mhm 18818  df-grp 18976  df-minusg 18977  df-sbg 18978  df-mulg 19108  df-subg 19163  df-nsg 19164  df-eqg 19165  df-ghm 19253  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-ring 20262  df-cring 20263  df-oppr 20360  df-dvdsr 20383  df-unit 20384  df-rhm 20498  df-subrng 20572  df-subrg 20597  df-lmod 20882  df-lss 20953  df-lsp 20993  df-sra 21195  df-rgmod 21196  df-lidl 21241  df-rsp 21242  df-2idl 21283  df-cnfld 21388  df-zring 21481  df-zrh 21537  df-zn 21540

This theorem is referenced by:  aks6d1c7lem1  42137