Theorem aks6d1c4 42119

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 6876	. . 3 ⊢ (𝜑 → (Unit‘(ℤ/nℤ‘𝑅)) ∈ V)
2		aks6d1c4.4	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ ℕ)
3	2	nnnn0d 12510	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
4		eqid 2730	. . . . . . . . . . . 12 ⊢ (ℤ/nℤ‘𝑅) = (ℤ/nℤ‘𝑅)
5	4	zncrng 21461	. . . . . . . . . . 11 ⊢ (𝑅 ∈ ℕ0 → (ℤ/nℤ‘𝑅) ∈ CRing)
6	3, 5	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (ℤ/nℤ‘𝑅) ∈ CRing)
7		crngring 20161	. . . . . . . . . 10 ⊢ ((ℤ/nℤ‘𝑅) ∈ CRing → (ℤ/nℤ‘𝑅) ∈ Ring)
8		aks6d1c4.7	. . . . . . . . . . 11 ⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
9	8	zrhrhm 21428	. . . . . . . . . 10 ⊢ ((ℤ/nℤ‘𝑅) ∈ Ring → 𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)))
10		zringbas 21370	. . . . . . . . . . 11 ⊢ ℤ = (Base‘ℤring)
11		eqid 2730	. . . . . . . . . . 11 ⊢ (Base‘(ℤ/nℤ‘𝑅)) = (Base‘(ℤ/nℤ‘𝑅))
12	10, 11	rhmf 20401	. . . . . . . . . 10 ⊢ (𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)) → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
13	6, 7, 9, 12	4syl 19	. . . . . . . . 9 ⊢ (𝜑 → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
14	13	ffund 6695	. . . . . . . 8 ⊢ (𝜑 → Fun 𝐿)
15	14	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → Fun 𝐿)
16		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) → 𝑎 ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
17		fvelima 6929	. . . . . . 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 2736	. . . . . . . . . 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 7425	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) ∈ V)
25		aks6d1c4.6	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
26		vex 3454	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 𝑘 ∈ V
27		vex 3454	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ 𝑙 ∈ V
28	26, 27	op1std 7981	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (1st ‘𝑚) = 𝑘)
29	28	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (𝑃↑(1st ‘𝑚)) = (𝑃↑𝑘))
30	26, 27	op2ndd 7982	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → (2nd ‘𝑚) = 𝑙)
31	30	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → ((𝑁 / 𝑃)↑(2nd ‘𝑚)) = ((𝑁 / 𝑃)↑𝑙))
32	29, 31	oveq12d 7408	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑚 = ⟨𝑘, 𝑙⟩ → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) = ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
33	32	mpompt 7506	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚)))) = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
34	33	eqcomi 2739	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙))) = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))))
35	25, 34	eqtri 2753	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐸 = (𝑚 ∈ (ℕ0 × ℕ0) ↦ ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))))
36	24, 35	fmptd 7089	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶V)
37	36	ffund 6695	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → Fun 𝐸)
38	37	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → Fun 𝐸)
39		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) → 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0)))
40		fvelima 6929	. . . . . . . . . . . . . . . 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 2736	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → 𝑐 = (𝐸‘𝑒))
44	43	oveq1d 7405	. . . . . . . . . . . . . . . . . . 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 6865	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (1st ‘𝑚) = (1st ‘𝑒))
51	50	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (𝑃↑(1st ‘𝑚)) = (𝑃↑(1st ‘𝑒)))
52	49	fveq2d 6865	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → (2nd ‘𝑚) = (2nd ‘𝑒))
53	52	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → ((𝑁 / 𝑃)↑(2nd ‘𝑚)) = ((𝑁 / 𝑃)↑(2nd ‘𝑒)))
54	51, 53	oveq12d 7408	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ 𝑚 = 𝑒) → ((𝑃↑(1st ‘𝑚)) · ((𝑁 / 𝑃)↑(2nd ‘𝑚))) = ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))))
55		simpr 484	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑒 ∈ (ℕ0 × ℕ0))
56		ovexd 7425	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) ∈ V)
57	48, 54, 55, 56	fvmptd 6978	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑒) = ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))))
58		aks6d1c4.2	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ∈ ℙ)
59		prmnn 16651	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
60	58, 59	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∈ ℕ)
61	60	nnzd 12563	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑃 ∈ ℤ)
62	61	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℤ)
63		xp1st 8003	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑒 ∈ (ℕ0 × ℕ0) → (1st ‘𝑒) ∈ ℕ0)
64	63	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (1st ‘𝑒) ∈ ℕ0)
65	62, 64	zexpcld 14059	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑃↑(1st ‘𝑒)) ∈ ℤ)
66		aks6d1c4.3	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
67	60	nnne0d 12243	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑃 ≠ 0)
68		aks6d1c4.1	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝜑 → 𝑁 ∈ ℕ)
69	68	nnzd 12563	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝜑 → 𝑁 ∈ ℤ)
70		dvdsval2 16232	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ≠ 0 ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
71	61, 67, 69, 70	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (𝑃 ∥ 𝑁 ↔ (𝑁 / 𝑃) ∈ ℤ))
72	66, 71	mpbid 232	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (𝑁 / 𝑃) ∈ ℤ)
73	72	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝑁 / 𝑃) ∈ ℤ)
74		xp2nd 8004	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑒 ∈ (ℕ0 × ℕ0) → (2nd ‘𝑒) ∈ ℕ0)
75	74	adantl 481	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (2nd ‘𝑒) ∈ ℕ0)
76	73, 75	zexpcld 14059	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑁 / 𝑃)↑(2nd ‘𝑒)) ∈ ℤ)
77	65, 76	zmulcld 12651	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) ∈ ℤ)
78	57, 77	eqeltrd 2829	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑒) ∈ ℤ)
79	57	oveq1d 7405	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → ((𝐸‘𝑒) gcd 𝑅) = (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅))
80	2	nnzd 12563	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑅 ∈ ℤ)
81	80	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑅 ∈ ℤ)
82	77, 81	gcdcomd 16491	. . . . . . . . . . . . . . . . . . . . . . . . 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 16490	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ ((𝑁 ∈ ℤ ∧ 𝑅 ∈ ℤ) → (𝑁 gcd 𝑅) = (𝑅 gcd 𝑁))
87	85, 86	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → (𝑁 gcd 𝑅) = (𝑅 gcd 𝑁))
88		eqeq1 2734	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 16637	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 16536	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑅 ∈ ℕ ∧ 𝑃 ∈ ℕ ∧ (1st ‘𝑒) ∈ ℕ) → ((𝑅 gcd 𝑃) = 1 → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1))
101	97, 98, 99, 100	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 12463	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2944	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (¬ (1st ‘𝑒) ∈ ℕ → (1st ‘𝑒) = 0))
108	107	imp 406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (1st ‘𝑒) = 0)
109	108	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑃↑(1st ‘𝑒)) = (𝑃↑0))
110	109	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑(1st ‘𝑒))) = (𝑅 gcd (𝑃↑0)))
111	62	zcnd 12646	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → 𝑃 ∈ ℂ)
112	111	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → 𝑃 ∈ ℂ)
113	112	exp0d 14112	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑃↑0) = 1)
114	113	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑0)) = (𝑅 gcd 1))
115	81	adantr 480	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → 𝑅 ∈ ℤ)
116		gcd1 16505	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑅 ∈ ℤ → (𝑅 gcd 1) = 1)
117	115, 116	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd 1) = 1)
118	114, 117	eqtrd 2765	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (1st ‘𝑒) ∈ ℕ) → (𝑅 gcd (𝑃↑0)) = 1)
119	110, 118	eqtrd 2765	. . . . . . . . . . . . . . . . . . . . . . . . . . . 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 12208	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 𝑁 ∈ ℝ)
123	122	recnd 11209	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑁 ∈ ℂ)
124	60	nnred 12208	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 𝑃 ∈ ℝ)
125	124	recnd 11209	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑃 ∈ ℂ)
126	68	nngt0d 12242	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 0 < 𝑁)
127	126	gt0ne0d 11749	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 𝑁 ≠ 0)
128	123, 125, 127, 67	ddcand 11985	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → (𝑁 / (𝑁 / 𝑃)) = 𝑃)
129	128, 61	eqeltrd 2829	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → (𝑁 / (𝑁 / 𝑃)) ∈ ℤ)
130	60	nngt0d 12242	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (𝜑 → 0 < 𝑃)
131	122, 124, 126, 130	divgt0d 12125	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ (𝜑 → 0 < (𝑁 / 𝑃))
132	131	gt0ne0d 11749	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝜑 → (𝑁 / 𝑃) ≠ 0)
133		dvdsval2 16232	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (((𝑁 / 𝑃) ∈ ℤ ∧ (𝑁 / 𝑃) ≠ 0 ∧ 𝑁 ∈ ℤ) → ((𝑁 / 𝑃) ∥ 𝑁 ↔ (𝑁 / (𝑁 / 𝑃)) ∈ ℤ))
134	72, 132, 69, 133	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝜑 → ((𝑁 / 𝑃) ∥ 𝑁 ↔ (𝑁 / (𝑁 / 𝑃)) ∈ ℤ))
135	129, 134	mpbird 257	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ (𝜑 → (𝑁 / 𝑃) ∥ 𝑁)
136	91, 135	jca 511	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝜑 → ((𝑅 gcd 𝑁) = 1 ∧ (𝑁 / 𝑃) ∥ 𝑁))
137		rpdvds 16637	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 12546	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 16536	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ ((𝑅 ∈ ℕ ∧ (𝑁 / 𝑃) ∈ ℕ ∧ (2nd ‘𝑒) ∈ ℕ) → ((𝑅 gcd (𝑁 / 𝑃)) = 1 → (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1))
149	141, 146, 147, 148	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 12463	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2944	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (¬ (2nd ‘𝑒) ∈ ℕ → (2nd ‘𝑒) = 0))
156	155	imp 406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (2nd ‘𝑒) = 0)
157	156	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → ((𝑁 / 𝑃)↑(2nd ‘𝑒)) = ((𝑁 / 𝑃)↑0))
158	157	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 11965	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑁 / 𝑃) ∈ ℂ)
164	163	exp0d 14112	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → ((𝑁 / 𝑃)↑0) = 1)
165	164	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ ¬ (2nd ‘𝑒) ∈ ℕ) → (𝑅 gcd ((𝑁 / 𝑃)↑0)) = (𝑅 gcd 1))
166	158, 165	eqtrd 2765	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 2765	. . . . . . . . . . . . . . . . . . . . . . . . . . . 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 16636	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝑅 ∈ ℤ ∧ (𝑃↑(1st ‘𝑒)) ∈ ℤ ∧ ((𝑁 / 𝑃)↑(2nd ‘𝑒)) ∈ ℤ) → (((𝑅 gcd (𝑃↑(1st ‘𝑒))) = 1 ∧ (𝑅 gcd ((𝑁 / 𝑃)↑(2nd ‘𝑒))) = 1) → (𝑅 gcd ((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒)))) = 1))
173	81, 65, 76, 172	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . . . . . 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 2765	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑒 ∈ (ℕ0 × ℕ0)) → (((𝑃↑(1st ‘𝑒)) · ((𝑁 / 𝑃)↑(2nd ‘𝑒))) gcd 𝑅) = 1)
176	79, 175	eqtrd 2765	. . . . . . . . . . . . . . . . . . . . . . 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 2765	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝑐 gcd 𝑅) = 1)
182	179	simpld 494	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → (𝐸‘𝑒) ∈ ℤ)
183	43, 182	eqeltrd 2829	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → 𝑐 ∈ ℤ)
184	181, 183	jca 511	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ ∃𝑑 ∈ (ℕ0 × ℕ0)(𝐸‘𝑑) = 𝑐) ∧ 𝑒 ∈ (ℕ0 × ℕ0)) ∧ (𝐸‘𝑒) = 𝑐) → ((𝑐 gcd 𝑅) = 1 ∧ 𝑐 ∈ ℤ))
185		nfv 1914	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑒(𝐸‘𝑑) = 𝑐
186		nfv 1914	. . . . . . . . . . . . . . . . . . . 20 ⊢ Ⅎ𝑑(𝐸‘𝑒) = 𝑐
187		fveqeq2 6870	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑑 = 𝑒 → ((𝐸‘𝑑) = 𝑐 ↔ (𝐸‘𝑒) = 𝑐))
188	185, 186, 187	cbvrexw 3283	. . . . . . . . . . . . . . . . . . 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 3142	. . . . . . . . . . . . . . . 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 2730	. . . . . . . . . . . . . . 15 ⊢ (Unit‘(ℤ/nℤ‘𝑅)) = (Unit‘(ℤ/nℤ‘𝑅))
198	4, 197, 8	znunit 21480	. . . . . . . . . . . . . 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 2829	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∃𝑏 ∈ (𝐸 “ (ℕ0 × ℕ0))(𝐿‘𝑏) = 𝑎) ∧ 𝑐 ∈ (𝐸 “ (ℕ0 × ℕ0))) ∧ (𝐿‘𝑐) = 𝑎) → 𝑎 ∈ (Unit‘(ℤ/nℤ‘𝑅)))
204		nfv 1914	. . . . . . . . . . . 12 ⊢ Ⅎ𝑐(𝐿‘𝑏) = 𝑎
205		nfv 1914	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏(𝐿‘𝑐) = 𝑎
206		fveqeq2 6870	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑐 → ((𝐿‘𝑏) = 𝑎 ↔ (𝐿‘𝑐) = 𝑎))
207	204, 205, 206	cbvrexw 3283	. . . . . . . . . . 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 3142	. . . . . . . 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 3955	. . 3 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ⊆ (Unit‘(ℤ/nℤ‘𝑅)))
216		hashss 14381	. . 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 21481	. . 3 ⊢ (𝑅 ∈ ℕ → (♯‘(Unit‘(ℤ/nℤ‘𝑅))) = (ϕ‘𝑅))
219	2, 218	syl 17	. 2 ⊢ (𝜑 → (♯‘(Unit‘(ℤ/nℤ‘𝑅))) = (ϕ‘𝑅))
220	217, 219	breqtrd 5136	1 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ≤ (ϕ‘𝑅))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109   ≠ wne 2926  ∃wrex 3054  Vcvv 3450   ⊆ wss 3917  ⟨cop 4598   class class class wbr 5110   ↦ cmpt 5191   × cxp 5639   “ cima 5644  Fun wfun 6508  ⟶wf 6510  ‘cfv 6514  (class class class)co 7390   ∈ cmpo 7392  1^st c1st 7969  2^nd c2nd 7970  ℂcc 11073  0cc0 11075  1c1 11076   · cmul 11080   < clt 11215   ≤ cle 11216   / cdiv 11842  ℕcn 12193  ℕ₀cn0 12449  ℤcz 12536  ↑cexp 14033  ♯chash 14302   ∥ cdvds 16229   gcd cgcd 16471  ℙcprime 16648  ϕcphi 16741  Basecbs 17186  Ringcrg 20149  CRingccrg 20150  Unitcui 20271   RingHom crh 20385  ℤ_ringczring 21363  ℤRHomczrh 21416  ℤ/nℤczn 21419

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-pre-sup 11153  ax-addf 11154  ax-mulf 11155

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-pss 3937  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-tp 4597  df-op 4599  df-uni 4875  df-int 4914  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5536  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5594  df-we 5596  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-om 7846  df-1st 7971  df-2nd 7972  df-tpos 8208  df-frecs 8263  df-wrecs 8294  df-recs 8343  df-rdg 8381  df-1o 8437  df-oadd 8441  df-er 8674  df-ec 8676  df-qs 8680  df-map 8804  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-sup 9400  df-inf 9401  df-card 9899  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-sub 11414  df-neg 11415  df-div 11843  df-nn 12194  df-2 12256  df-3 12257  df-4 12258  df-5 12259  df-6 12260  df-7 12261  df-8 12262  df-9 12263  df-n0 12450  df-xnn0 12523  df-z 12537  df-dec 12657  df-uz 12801  df-rp 12959  df-fz 13476  df-fzo 13623  df-fl 13761  df-mod 13839  df-seq 13974  df-exp 14034  df-hash 14303  df-cj 15072  df-re 15073  df-im 15074  df-sqrt 15208  df-abs 15209  df-dvds 16230  df-gcd 16472  df-prm 16649  df-phi 16743  df-struct 17124  df-sets 17141  df-slot 17159  df-ndx 17171  df-base 17187  df-ress 17208  df-plusg 17240  df-mulr 17241  df-starv 17242  df-sca 17243  df-vsca 17244  df-ip 17245  df-tset 17246  df-ple 17247  df-ds 17249  df-unif 17250  df-0g 17411  df-imas 17478  df-qus 17479  df-mgm 18574  df-sgrp 18653  df-mnd 18669  df-mhm 18717  df-grp 18875  df-minusg 18876  df-sbg 18877  df-mulg 19007  df-subg 19062  df-nsg 19063  df-eqg 19064  df-ghm 19152  df-cmn 19719  df-abl 19720  df-mgp 20057  df-rng 20069  df-ur 20098  df-ring 20151  df-cring 20152  df-oppr 20253  df-dvdsr 20273  df-unit 20274  df-rhm 20388  df-subrng 20462  df-subrg 20486  df-lmod 20775  df-lss 20845  df-lsp 20885  df-sra 21087  df-rgmod 21088  df-lidl 21125  df-rsp 21126  df-2idl 21167  df-cnfld 21272  df-zring 21364  df-zrh 21420  df-zn 21423

This theorem is referenced by:  aks6d1c7lem1  42175