Theorem aks6d1c4 42780

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 6897	. . 3 ⊢ (𝜑 → (Unit‘(ℤ/nℤ‘𝑅)) ∈ V)
2		aks6d1c4.4	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ ℕ)
3	2	nnnn0d 12564	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
4		eqid 2769	. . . . . . . . . . . 12 ⊢ (ℤ/nℤ‘𝑅) = (ℤ/nℤ‘𝑅)
5	4	zncrng 21662	. . . . . . . . . . 11 ⊢ (𝑅 ∈ ℕ0 → (ℤ/nℤ‘𝑅) ∈ CRing)
6	3, 5	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (ℤ/nℤ‘𝑅) ∈ CRing)
7		crngring 20326	. . . . . . . . . 10 ⊢ ((ℤ/nℤ‘𝑅) ∈ CRing → (ℤ/nℤ‘𝑅) ∈ Ring)
8		aks6d1c4.7	. . . . . . . . . . 11 ⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
9	8	zrhrhm 21629	. . . . . . . . . 10 ⊢ ((ℤ/nℤ‘𝑅) ∈ Ring → 𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)))
10		zringbas 21571	. . . . . . . . . . 11 ⊢ ℤ = (Base‘ℤring)
11		eqid 2769	. . . . . . . . . . 11 ⊢ (Base‘(ℤ/nℤ‘𝑅)) = (Base‘(ℤ/nℤ‘𝑅))
12	10, 11	rhmf 20565	. . . . . . . . . 10 ⊢ (𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)) → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
13	6, 7, 9, 12	4syl 20	. . . . . . . . 9 ⊢ (𝜑 → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
14	13	ffund 6711	. . . . . . . 8 ⊢ (𝜑 → Fun 𝐿)
15	14	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → Fun 𝐿)
16		simpr 489	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
17		fvelima 6947	. . . . . . 7 ⊢ ((Fun 𝐿 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎)
18	15, 16, 17	syl2anc 595	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎)
19		simpr 489	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → (𝐿‘𝑐) = 𝑎)
20	19	eqcomd 2775	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → 𝑎 = (𝐿‘𝑐))
21		simpll 778	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝜑)
22		simpr 489	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0)))
23	21, 22	jca 520	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))))
24		ovexd 7446	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) ∈ V)
25		aks6d1c4.6	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
26		vex 3467	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 𝑘 ∈ V
27		vex 3467	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 𝑙 ∈ V
28	26, 27	op1std 7995	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (1st ‘𝑚) = 𝑘)
29	28	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (𝑃↑(1st ‘𝑚)) = (𝑃↑𝑘))
30	26, 27	op2ndd 7996	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (2nd ‘𝑚) = 𝑙)
31	30	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → ((𝑁 / 𝑃)↑(2nd ‘𝑚)) = ((𝑁 / 𝑃)↑𝑙))
32	29, 31	oveq12d 7429	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) = ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
33	32	mpompt 7525	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚)))) = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
34	33	eqcomi 2778	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))) = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))))
35	25, 34	eqtri 2792	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐸 = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))))
36	24, 35	fmptd 7110	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶V)
37	36	ffund 6711	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Fun 𝐸)
38	37	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → Fun 𝐸)
39		simpr 489	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0)))
40		fvelima 6947	. . . . . . . . . . . . . . . 16 ⊢ ((Fun 𝐸 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐)
41	38, 39, 40	syl2anc 595	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐)
42		simpr 489	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝐸‘𝑒) = 𝑐)
43	42	eqcomd 2775	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → 𝑐 = (𝐸‘𝑒))
44	43	oveq1d 7426	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝑐 gcd 𝑅) = ((𝐸‘𝑒) gcd 𝑅))
45		simplll 786	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝜑)
46		simpr 489	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑒 ∈ (ℕ0 × ℕ0))
47	45, 46	jca 520	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)))
48	35	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝐸 = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚)))))
49		simpr 489	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → 𝑚 = 𝑒)
50	49	fveq2d 6886	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (1st ‘𝑚) = (1st ‘𝑒))
51	50	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (𝑃↑(1st ‘𝑚)) = (𝑃↑(1st ‘𝑒)))
52	49	fveq2d 6886	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (2nd ‘𝑚) = (2nd ‘𝑒))
53	52	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → ((𝑁 / 𝑃)↑(2nd ‘𝑚)) = ((𝑁 / 𝑃)↑(2nd ‘𝑒)))
54	51, 53	oveq12d 7429	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) = ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))))
55		simpr 489	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑒 ∈ (ℕ0 × ℕ0))
56		ovexd 7446	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) ∈ V)
57	48, 54, 55, 56	fvmptd 6998	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑒) = ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))))
58		aks6d1c4.2	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ∈ ℙ)
59		prmnn 16731	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
60	58, 59	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∈ ℕ)
61	60	nnzd 12616	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑃 ∈ ℤ)
62	61	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℤ)
63		xp1st 8017	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑒 ∈ (ℕ0 × ℕ0) → (1st ‘𝑒) ∈ ℕ0)
64	63	adantl 486	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (1st ‘𝑒) ∈ ℕ0)
65	62, 64	zexpcld 14122	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑃↑(1st ‘𝑒)) ∈ ℤ)
66		aks6d1c4.3	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
67	60	nnne0d 12285	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ≠ 0)
68		aks6d1c4.1	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑁 ∈ ℕ)
69	68	nnzd 12616	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑁 ∈ ℤ)
70		dvdsval2 16312	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ≠ 0 ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
71	61, 67, 69, 70	syl3anc 1396	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
72	66, 71	mpbid 235	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℤ)
73	72	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑁 / 𝑃) ∈ ℤ)
74		xp2nd 8018	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑒 ∈ (ℕ0 × ℕ0) → (2nd ‘𝑒) ∈ ℕ0)
75	74	adantl 486	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (2nd ‘𝑒) ∈ ℕ0)
76	73, 75	zexpcld 14122	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑁 / 𝑃)↑(2nd ‘𝑒)) ∈ ℤ)
77	65, 76	zmulcld 12705	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) ∈ ℤ)
78	57, 77	eqeltrd 2869	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑒) ∈ ℤ)
79	57	oveq1d 7426	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) gcd 𝑅) = (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅))
80	2	nnzd 12616	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑅 ∈ ℤ)
81	80	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑅 ∈ ℤ)
82	77, 81	gcdcomd 16571	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅) = (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))))
83	80, 61, 69	3jca 1144	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (𝑅 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ))
84		aks6d1c4.5	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
85	69, 80	jca 520	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → (𝑁 ∈ ℤ ∧ 𝑅 ∈ ℤ))
86		gcdcom 16570	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑁 ∈ ℤ ∧ 𝑅 ∈ ℤ) → (𝑁 gcd 𝑅) = (𝑅 gcd 𝑁))
87	85, 86	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → (𝑁 gcd 𝑅) = (𝑅 gcd 𝑁))
88		eqeq1 2773	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝑁 gcd 𝑅) = (𝑅 gcd 𝑁) → ((𝑁 gcd 𝑅) = 1 ↔ (𝑅 gcd 𝑁) = 1))
89	87, 88	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → ((𝑁 gcd 𝑅) = 1 ↔ (𝑅 gcd 𝑁) = 1))
90	89	pm5.74i 274	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝜑 → (𝑁 gcd 𝑅) = 1) ↔ (𝜑 → (𝑅 gcd 𝑁) = 1))
91	84, 90	mpbi 233	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (𝑅 gcd 𝑁) = 1)
92	91, 66	jca 520	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → ((𝑅 gcd 𝑁) = 1 ∧ 𝑃 ∥ 𝑁))
93		rpdvds 16717	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑅 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ((𝑅 gcd 𝑁) = 1 ∧ 𝑃 ∥ 𝑁)) → (𝑅 gcd 𝑃) = 1)
94	83, 92, 93	syl2anc 595	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (𝑅 gcd 𝑃) = 1)
95	94	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd 𝑃) = 1)
96	95	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd 𝑃) = 1)
97	2	ad2antrr 738	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℕ)
98	60	ad2antrr 738	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℕ)
99		simpr 489	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → (1st ‘𝑒) ∈ ℕ)
100		rprpwr 16616	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑅 ∈ ℕ ∧ 𝑃 ∈ ℕ ∧ (1st ‘𝑒) ∈ ℕ) → ((𝑅 gcd 𝑃) = 1 → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1))
101	97, 98, 99, 100	syl3anc 1396	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → ((𝑅 gcd 𝑃) = 1 → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1))
102	96, 101	mpd 16	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
103	64	anim1i 626	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ≠ 0) → ((1st ‘𝑒) ∈ ℕ0 ∧ (1st ‘𝑒) ≠ 0))
104		elnnne0 12517	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ ((1st ‘𝑒) ∈ ℕ ↔ ((1st ‘𝑒) ∈ ℕ0 ∧ (1st ‘𝑒) ≠ 0))
105	103, 104	sylibr 237	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (1st ‘𝑒) ≠ 0) → (1st ‘𝑒) ∈ ℕ)
106	105	ex 417	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((1st ‘𝑒) ≠ 0 → (1st ‘𝑒) ∈ ℕ))
107	106	necon1bd 2982	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (¬ (1st ‘𝑒) ∈ ℕ → (1st ‘𝑒) = 0))
108	107	imp 411	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (1st ‘𝑒) = 0)
109	108	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑃↑(1st ‘𝑒)) = (𝑃↑0))
110	109	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = (𝑅 gcd (𝑃↑0)))
111	62	zcnd 12700	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℂ)
112	111	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℂ)
113	112	exp0d 14175	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑃↑0) = 1)
114	113	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑0)) = (𝑅 gcd 1))
115	81	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℤ)
116		gcd1 16585	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑅 ∈ ℤ → (𝑅 gcd 1) = 1)
117	115, 116	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd 1) = 1)
118	114, 117	eqtrd 2804	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑0)) = 1)
119	110, 118	eqtrd 2804	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
120	102, 119	pm2.61dan 824	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1)
121	80, 72, 69	3jca 1144	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (𝑅 ∈ ℤ ∧ (𝑁 / 𝑃) ∈ ℤ ∧ 𝑁 ∈ ℤ))
122	68	nnred 12247	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 𝑁 ∈ ℝ)
123	122	recnd 11236	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑁 ∈ ℂ)
124	60	nnred 12247	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 𝑃 ∈ ℝ)
125	124	recnd 11236	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑃 ∈ ℂ)
126	68	nngt0d 12284	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 0 < 𝑁)
127	126	gt0ne0d 11777	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑁 ≠ 0)
128	123, 125, 127, 67	ddcand 12010	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → (𝑁 / (𝑁 / 𝑃)) = 𝑃)
129	128, 61	eqeltrd 2869	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → (𝑁 / (𝑁 / 𝑃)) ∈ ℤ)
130	60	nngt0d 12284	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 0 < 𝑃)
131	122, 124, 126, 130	divgt0d 12149	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 0 < (𝑁 / 𝑃))
132	131	gt0ne0d 11777	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → (𝑁 / 𝑃) ≠ 0)
133		dvdsval2 16312	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝑁 / 𝑃) ∈ ℤ ∧ (𝑁 / 𝑃) ≠ 0 ∧ 𝑁 ∈ ℤ) → ((𝑁 / 𝑃) ∥ 𝑁 ↔ (𝑁 / (𝑁 / 𝑃)) ∈ ℤ))
134	72, 132, 69, 133	syl3anc 1396	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → ((𝑁 / 𝑃) ∥ 𝑁 ↔ (𝑁 / (𝑁 / 𝑃)) ∈ ℤ))
135	129, 134	mpbird 260	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (𝑁 / 𝑃) ∥ 𝑁)
136	91, 135	jca 520	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → ((𝑅 gcd 𝑁) = 1 ∧ (𝑁 / 𝑃) ∥ 𝑁))
137		rpdvds 16717	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝑅 ∈ ℤ ∧ (𝑁 / 𝑃) ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ((𝑅 gcd 𝑁) = 1 ∧ (𝑁 / 𝑃) ∥ 𝑁)) → (𝑅 gcd (𝑁 / 𝑃)) = 1)
138	121, 136, 137	syl2anc 595	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝜑 → (𝑅 gcd (𝑁 / 𝑃)) = 1)
139	138	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd (𝑁 / 𝑃)) = 1)
140	139	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑁 / 𝑃)) = 1)
141	2	ad2antrr 738	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℕ)
142	72, 131	jca 520	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → ((𝑁 / 𝑃) ∈ ℤ ∧ 0 < (𝑁 / 𝑃)))
143		elnnz 12600	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝑁 / 𝑃) ∈ ℕ ↔ ((𝑁 / 𝑃) ∈ ℤ ∧ 0 < (𝑁 / 𝑃)))
144	142, 143	sylibr 237	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℕ)
145	144	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑁 / 𝑃) ∈ ℕ)
146	145	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (𝑁 / 𝑃) ∈ ℕ)
147		simpr 489	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (2nd ‘𝑒) ∈ ℕ)
148		rprpwr 16616	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑅 ∈ ℕ ∧ (𝑁 / 𝑃) ∈ ℕ ∧ (2nd ‘𝑒) ∈ ℕ) → ((𝑅 gcd (𝑁 / 𝑃)) = 1 → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
149	141, 146, 147, 148	syl3anc 1396	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → ((𝑅 gcd (𝑁 / 𝑃)) = 1 → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
150	140, 149	mpd 16	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
151	75	anim1i 626	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ≠ 0) → ((2nd ‘𝑒) ∈ ℕ0 ∧ (2nd ‘𝑒) ≠ 0))
152		elnnne0 12517	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((2nd ‘𝑒) ∈ ℕ ↔ ((2nd ‘𝑒) ∈ ℕ0 ∧ (2nd ‘𝑒) ≠ 0))
153	151, 152	sylibr 237	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (2nd ‘𝑒) ≠ 0) → (2nd ‘𝑒) ∈ ℕ)
154	153	ex 417	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((2nd ‘𝑒) ≠ 0 → (2nd ‘𝑒) ∈ ℕ))
155	154	necon1bd 2982	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (¬ (2nd ‘𝑒) ∈ ℕ → (2nd ‘𝑒) = 0))
156	155	imp 411	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (2nd ‘𝑒) = 0)
157	156	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → ((𝑁 / 𝑃)↑(2nd ‘𝑒)) = ((𝑁 / 𝑃)↑0))
158	157	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = (𝑅 gcd ((𝑁 / 𝑃)↑0)))
159	123	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑁 ∈ ℂ)
160	159	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑁 ∈ ℂ)
161	111	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℂ)
162	67	ad2antrr 738	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑃 ≠ 0)
163	160, 161, 162	divcld 11990	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑁 / 𝑃) ∈ ℂ)
164	163	exp0d 14175	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → ((𝑁 / 𝑃)↑0) = 1)
165	164	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑0)) = (𝑅 gcd 1))
166	158, 165	eqtrd 2804	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = (𝑅 gcd 1))
167	81	adantr 485	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℤ)
168	167, 116	syl 18	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd 1) = 1)
169	166, 168	eqtrd 2804	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
170	150, 169	pm2.61dan 824	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1)
171	120, 170	jca 520	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
172		rpmul 16716	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑅 ∈ ℤ ∧ (𝑃↑(1st ‘𝑒)) ∈ ℤ ∧ ((𝑁 / 𝑃)↑(2nd ‘𝑒)) ∈ ℤ) → (((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1) → (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))) = 1))
173	81, 65, 76, 172	syl3anc 1396	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1) → (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))) = 1))
174	171, 173	mpd 16	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))) = 1)
175	82, 174	eqtrd 2804	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅) = 1)
176	79, 175	eqtrd 2804	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) gcd 𝑅) = 1)
177	78, 176	jca 520	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) ∈ ℤ ∧ ((𝐸‘𝑒) gcd 𝑅) = 1))
178	47, 177	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) ∈ ℤ ∧ ((𝐸‘𝑒) gcd 𝑅) = 1))
179	178	adantr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → ((𝐸‘𝑒) ∈ ℤ ∧ ((𝐸‘𝑒) gcd 𝑅) = 1))
180	179	simprd 500	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → ((𝐸‘𝑒) gcd 𝑅) = 1)
181	44, 180	eqtrd 2804	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝑐 gcd 𝑅) = 1)
182	179	simpld 499	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝐸‘𝑒) ∈ ℤ)
183	43, 182	eqeltrd 2869	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → 𝑐 ∈ ℤ)
184	181, 183	jca 520	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ))
185		nfv 1941	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑒(𝐸‘𝑑) = 𝑐
186		nfv 1941	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑑(𝐸‘𝑒) = 𝑐
187		fveqeq2 6891	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑑 = 𝑒 → ((𝐸‘𝑑) = 𝑐 ↔ (𝐸‘𝑒) = 𝑐))
188	185, 186, 187	cbvrexw 3314	. . . . . . . . . . . . . . . . . 18 ⊢ (∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐 ↔ ∃𝑒 ∈ (ℕ0 × ℕ0)(𝐸‘𝑒) = 𝑐)
189	188	bilani 509	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) → ∃𝑒 ∈ (ℕ0 × ℕ0)(𝐸‘𝑒) = 𝑐)
190	184, 189	r19.29a 3179	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ))
191	190	ex 417	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐 → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ)))
192	41, 191	mpd 16	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ))
193	192	simpld 499	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝑐 gcd 𝑅) = 1)
194	3	adantr 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑅 ∈ ℕ0)
195	192	simprd 500	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑐 ∈ ℤ)
196		eqid 2769	. . . . . . . . . . . . . . 15 ⊢ (Unit‘(ℤ/nℤ‘𝑅)) = (Unit‘(ℤ/nℤ‘𝑅))
197	4, 196, 8	znunit 21681	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ ℕ0 ∧ 𝑐 ∈ ℤ) → ((𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)) ↔ (𝑐 gcd 𝑅) = 1))
198	194, 195, 197	syl2anc 595	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → ((𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)) ↔ (𝑐 gcd 𝑅) = 1))
199	193, 198	mpbird 260	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)))
200	23, 199	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)))
201	200	adantr 485	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → (𝐿‘𝑐) ∈ (Unit‘(ℤ/nℤ‘𝑅)))
202	20, 201	eqeltrd 2869	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅)))
203		nfv 1941	. . . . . . . . . . 11 ⊢ Ⅎ𝑐(𝐿‘𝑏) = 𝑎
204		nfv 1941	. . . . . . . . . . 11 ⊢ Ⅎ𝑏(𝐿‘𝑐) = 𝑎
205		fveqeq2 6891	. . . . . . . . . . 11 ⊢ (𝑏 = 𝑐 → ((𝐿‘𝑏) = 𝑎 ↔ (𝐿‘𝑐) = 𝑎))
206	203, 204, 205	cbvrexw 3314	. . . . . . . . . 10 ⊢ (∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎 ↔ ∃𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑐) = 𝑎)
207	206	bilani 509	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) → ∃𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑐) = 𝑎)
208	202, 207	r19.29a 3179	. . . . . . . 8 ⊢ ((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅)))
209	208	ex 417	. . . . . . 7 ⊢ (𝜑 → (∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎 → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅))))
210	209	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → (∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎 → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅))))
211	18, 210	mpd 16	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅)))
212	211	ex 417	. . . 4 ⊢ (𝜑 → (𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅))))
213	212	ssrdv 3951	. . 3 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ⊆ (Unit‘(ℤ/nℤ‘𝑅)))
214		hashss 14444	. . 3 ⊢ (((Unit‘(ℤ/nℤ‘𝑅)) ∈ V ∧ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ⊆ (Unit‘(ℤ/nℤ‘𝑅))) → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (♯‘(Unit‘(ℤ/nℤ‘𝑅))))
215	1, 213, 214	syl2anc 595	. 2 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (♯‘(Unit‘(ℤ/nℤ‘𝑅))))
216	4, 196	znunithash 21682	. . 3 ⊢ (𝑅 ∈ ℕ → (♯‘(Unit‘(ℤ/nℤ‘𝑅))) = (ϕ‘𝑅))
217	2, 216	syl 18	. 2 ⊢ (𝜑 → (♯‘(Unit‘(ℤ/nℤ‘𝑅))) = (ϕ‘𝑅))
218	215, 217	breqtrd 5141	1 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (ϕ‘𝑅))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  ∃wrex 3095  Vcvv 3463   ⊆ wss 3913  ⟨cop 4600   class class class wbr 5113   ↦ cmpt 5196   × cxp 5660   “ cima 5665  Fun wfun 6531  ⟶wf 6533  ‘cfv 6537  (class class class)co 7411   ∈ cmpo 7413  1^st c1st 7983  2^nd c2nd 7984  ℂcc 11097  0cc0 11099  1c1 11100   · cmul 11104   < clt 11242   ≤ cle 11243   / cdiv 11870  ℕcn 12232  ℕ₀cn0 12503  ℤcz 12590  ↑cexp 14096  ♯chash 14365   ∥ cdvds 16309   gcd cgcd 16551  ℙcprime 16728  ϕcphi 16822  Basecbs 17268  Ringcrg 20314  CRingccrg 20315  Unitcui 20436   RingHom crh 20550  ℤ_ringczring 21564  ℤRHomczrh 21617  ℤ/nℤczn 21620

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176  ax-pre-sup 11177  ax-addf 11178  ax-mulf 11179

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7862  df-1st 7985  df-2nd 7986  df-tpos 8221  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-oadd 8456  df-er 8693  df-ec 8695  df-qs 8699  df-map 8825  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-sup 9401  df-inf 9402  df-card 9924  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-div 11871  df-nn 12233  df-2 12302  df-3 12303  df-4 12304  df-5 12305  df-6 12306  df-7 12307  df-8 12308  df-9 12309  df-n0 12504  df-xnn0 12577  df-z 12591  df-dec 12711  df-uz 12862  df-rp 13016  df-fz 13535  df-fzo 13682  df-fl 13824  df-mod 13902  df-seq 14037  df-exp 14097  df-hash 14366  df-cj 15149  df-re 15150  df-im 15151  df-sqrt 15285  df-abs 15286  df-dvds 16310  df-gcd 16552  df-prm 16729  df-phi 16824  df-struct 17206  df-sets 17223  df-slot 17241  df-ndx 17253  df-base 17269  df-ress 17290  df-plusg 17322  df-mulr 17323  df-starv 17324  df-sca 17325  df-vsca 17326  df-ip 17327  df-tset 17328  df-ple 17329  df-ds 17331  df-unif 17332  df-0g 17493  df-imas 17561  df-qus 17562  df-mgm 18697  df-sgrp 18776  df-mnd 18792  df-mhm 18840  df-grp 19002  df-minusg 19003  df-sbg 19004  df-mulg 19133  df-subg 19188  df-nsg 19189  df-eqg 19190  df-ghm 19283  df-cmn 19851  df-abl 19852  df-mgp 20216  df-rng 20230  df-ur 20263  df-ring 20316  df-cring 20317  df-oppr 20418  df-dvdsr 20438  df-unit 20439  df-rhm 20553  df-subrng 20630  df-subrg 20654  df-lmod 20960  df-lss 21030  df-lsp 21070  df-sra 21271  df-rgmod 21272  df-lidl 21309  df-rsp 21310  df-2idl 21359  df-cnfld 21491  df-zring 21565  df-zrh 21621  df-zn 21624

This theorem is referenced by:  aks6d1c7lem1  42836