Theorem aks6d1c2 43289

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

Hypotheses

Ref	Expression
aks6d1c2a.1	⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly1‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘𝑓)‘𝑦)) = (((eval1‘𝐾)‘𝑓)‘(𝑒(.g‘(mulGrp‘𝐾))𝑦)))}
aks6d1c2a.2	⊢ 𝑃 = (chr‘𝐾)
aks6d1c2a.3	⊢ (𝜑 → 𝐾 ∈ Field)
aks6d1c2a.4	⊢ (𝜑 → 𝑃 ∈ ℙ)
aks6d1c2a.5	⊢ (𝜑 → 𝑅 ∈ ℕ)
aks6d1c2a.6	⊢ (𝜑 → 𝑁 ∈ ℕ)
aks6d1c2a.7	⊢ (𝜑 → 𝑃 ∥ 𝑁)
aks6d1c2a.8	⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
aks6d1c2a.10	⊢ 𝐺 = (𝑔 ∈ (ℕ0 ↑m (0...𝐴)) ↦ ((mulGrp‘(Poly1‘𝐾)) Σg (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(.g‘(mulGrp‘(Poly1‘𝐾)))((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
aks6d1c2a.11	⊢ (𝜑 → 𝐴 ∈ ℕ0)
aks6d1c2a.12	⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
aks6d1c2a.13	⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
aks6d1c2a.14	⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
aks6d1c2a.15	⊢ (𝜑 → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
aks6d1c2a.16	⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
aks6d1c2a.17	⊢ 𝐻 = (ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀))
aks6d1c2a.18	⊢ 𝐵 = (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))
aks6d1c2a.19	⊢ 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵)))
aks6d1c2a.20	⊢ (𝜑 → (𝑄 ∈ ℙ ∧ 𝑄 ∥ 𝑁 ∧ 𝑃 ≠ 𝑄))

Assertion

Ref	Expression
aks6d1c2	⊢ (𝜑 → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (𝑁↑𝐵))

Distinct variable groups:   ∼ ,𝑎   𝐴,𝑎   𝐴,𝑔,𝑖   𝐴,ℎ   𝐴,𝑘,𝑙   𝑥,𝐴   𝐵,𝑎   𝐵,𝑔,𝑖   𝐵,𝑘,𝑙   𝑥,𝐵   𝐶,𝑎   𝐶,𝑔,𝑖   𝐶,ℎ   𝐶,𝑘,𝑙   𝑥,𝐶   𝐸,𝑎   𝑔,𝐸,𝑖   𝑘,𝐸,𝑙   𝑥,𝐸   𝑒,𝐺,𝑓,𝑦   ℎ,𝐺   𝐾,𝑎   𝑒,𝐾,𝑓,𝑦   𝑔,𝐾,𝑖   ℎ,𝐾   𝑥,𝐾   ℎ,𝑀   𝑦,𝑀   𝑁,𝑎   𝑒,𝑁,𝑓,𝑦   𝑘,𝑁,𝑙   𝑥,𝑁   𝑃,𝑒,𝑓,𝑦   𝑃,𝑘,𝑙   𝑥,𝑃   𝑅,𝑎   𝑅,𝑒,𝑓,𝑦   𝑅,𝑔,𝑖   𝑅,ℎ   𝑅,𝑘,𝑙   𝑥,𝑅   𝜑,𝑎   𝜑,𝑔,𝑖   𝜑,ℎ   𝜑,𝑘,𝑙   𝜑,𝑥

Allowed substitution hints:   𝜑(𝑦, 𝑒, 𝑓)   𝐴(𝑦, 𝑒, 𝑓)   𝐵(𝑦, 𝑒, 𝑓, ℎ)   𝐶(𝑦, 𝑒, 𝑓)   𝑃(𝑔, ℎ, 𝑖, 𝑎)   𝑄(𝑥, 𝑦, 𝑒, 𝑓, 𝑔, ℎ, 𝑖, 𝑘, 𝑎, 𝑙)   ∼ (𝑥, 𝑦, 𝑒, 𝑓, 𝑔, ℎ, 𝑖, 𝑘, 𝑙)   𝐸(𝑦, 𝑒, 𝑓, ℎ)   𝐺(𝑥, 𝑔, 𝑖, 𝑘, 𝑎, 𝑙)   𝐻(𝑥, 𝑦, 𝑒, 𝑓, 𝑔, ℎ, 𝑖, 𝑘, 𝑎, 𝑙)   𝐾(𝑘, 𝑙)   𝐿(𝑥, 𝑦, 𝑒, 𝑓, 𝑔, ℎ, 𝑖, 𝑘, 𝑎, 𝑙)   𝑀(𝑥, 𝑒, 𝑓, 𝑔, 𝑖, 𝑘, 𝑎, 𝑙)   𝑁(𝑔, ℎ, 𝑖)

Proof of Theorem aks6d1c2

Dummy variables 𝑏 𝑐 𝑑 𝑗 𝑢 𝑤 𝑠 𝑡 𝑜 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 488	. . . . 5 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (𝑏 < 𝑐 ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)))) → ((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶))
2		simprl 783	. . . . 5 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (𝑏 < 𝑐 ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)))) → 𝑏 < 𝑐)
3	1, 2	jca 521	. . . 4 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (𝑏 < 𝑐 ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)))) → (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐))
4		simprr 785	. . . 4 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (𝑏 < 𝑐 ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)))) → ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)))
5	3, 4	jca 521	. . 3 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (𝑏 < 𝑐 ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)))) → ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅))))
6		aks6d1c2a.1	. . . . . . 7 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly1‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘𝑓)‘𝑦)) = (((eval1‘𝐾)‘𝑓)‘(𝑒(.g‘(mulGrp‘𝐾))𝑦)))}
7		aks6d1c2a.2	. . . . . . 7 ⊢ 𝑃 = (chr‘𝐾)
8		aks6d1c2a.3	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ Field)
9	8	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝐾 ∈ Field)
10		aks6d1c2a.4	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∈ ℙ)
11	10	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑃 ∈ ℙ)
12		aks6d1c2a.5	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ ℕ)
13	12	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑅 ∈ ℕ)
14		aks6d1c2a.6	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℕ)
15	14	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑁 ∈ ℕ)
16		aks6d1c2a.7	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∥ 𝑁)
17	16	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑃 ∥ 𝑁)
18		aks6d1c2a.8	. . . . . . . 8 ⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
19	18	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → (𝑁 gcd 𝑅) = 1)
20		0nn0 12628	. . . . . . . . 9 ⊢ 0 ∈ ℕ0
21	20	a1i 11	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) ∧ 𝑗 ∈ (0...𝐴)) → 0 ∈ ℕ0)
22		eqid 2760	. . . . . . . 8 ⊢ (𝑗 ∈ (0...𝐴) ↦ 0) = (𝑗 ∈ (0...𝐴) ↦ 0)
23	21, 22	fmptd 7119	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → (𝑗 ∈ (0...𝐴) ↦ 0):(0...𝐴)⟶ℕ0)
24		aks6d1c2a.10	. . . . . . 7 ⊢ 𝐺 = (𝑔 ∈ (ℕ0 ↑m (0...𝐴)) ↦ ((mulGrp‘(Poly1‘𝐾)) Σg (𝑖 ∈ (0...𝐴) ↦ ((𝑔‘𝑖)(.g‘(mulGrp‘(Poly1‘𝐾)))((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑖)))))))
25		aks6d1c2a.11	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℕ0)
26	25	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝐴 ∈ ℕ0)
27		aks6d1c2a.12	. . . . . . 7 ⊢ 𝐸 = (𝑘 ∈ ℕ0, 𝑙 ∈ ℕ0 ↦ ((𝑃↑𝑘) · ((𝑁 / 𝑃)↑𝑙)))
28		aks6d1c2a.13	. . . . . . 7 ⊢ 𝐿 = (ℤRHom‘(ℤ/nℤ‘𝑅))
29		aks6d1c2a.14	. . . . . . . 8 ⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
30	29	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
31		aks6d1c2a.15	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
32	31	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾))
33		aks6d1c2a.16	. . . . . . . 8 ⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
34	33	ad5antr 747	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
35		aks6d1c2a.17	. . . . . . 7 ⊢ 𝐻 = (ℎ ∈ (ℕ0 ↑m (0...𝐴)) ↦ (((eval1‘𝐾)‘(𝐺‘ℎ))‘𝑀))
36		aks6d1c2a.18	. . . . . . 7 ⊢ 𝐵 = (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))
37		aks6d1c2a.19	. . . . . . 7 ⊢ 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵)))
38		simp-5r 798	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑏 ∈ 𝐶)
39		simp-4r 796	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑐 ∈ 𝐶)
40		simpllr 788	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑏 < 𝑐)
41		eqid 2760	. . . . . . 7 ⊢ (.g‘(mulGrp‘(Poly1‘𝐾))) = (.g‘(mulGrp‘(Poly1‘𝐾)))
42		eqid 2760	. . . . . . 7 ⊢ (var1‘𝐾) = (var1‘𝐾)
43		eqid 2760	. . . . . . 7 ⊢ ((𝑐(.g‘(mulGrp‘(Poly1‘𝐾)))(var1‘𝐾))(-g‘(Poly1‘𝐾))(𝑏(.g‘(mulGrp‘(Poly1‘𝐾)))(var1‘𝐾))) = ((𝑐(.g‘(mulGrp‘(Poly1‘𝐾)))(var1‘𝐾))(-g‘(Poly1‘𝐾))(𝑏(.g‘(mulGrp‘(Poly1‘𝐾)))(var1‘𝐾)))
44		simplr 781	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑑 ∈ ℕ)
45		simpr 490	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → 𝑐 = (𝑏 + (𝑑 · 𝑅)))
46	6, 7, 9, 11, 13, 15, 17, 19, 23, 24, 26, 27, 28, 30, 32, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45	aks6d1c2lem4 43286	. . . . . 6 ⊢ ((((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) ∧ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (𝑁↑𝐵))
47	46	ex 418	. . . . 5 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ 𝑑 ∈ ℕ) → (𝑐 = (𝑏 + (𝑑 · 𝑅)) → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (𝑁↑𝐵)))
48	47	rexlimdva 3163	. . . 4 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) → (∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)) → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (𝑁↑𝐵)))
49	48	imp 412	. . 3 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ 𝑏 < 𝑐) ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅))) → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (𝑁↑𝐵))
50	5, 49	syl 18	. 2 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (𝑏 < 𝑐 ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)))) → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (𝑁↑𝐵))
51		simprr 785	. . . 4 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑏 < 𝑐)
52		nfcv 2922	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑠(𝐿‘𝑡)
53		nfcv 2922	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑡(𝐿‘𝑠)
54		fveq2 6890	. . . . . . . . . . . . 13 ⊢ (𝑡 = 𝑠 → (𝐿‘𝑡) = (𝐿‘𝑠))
55	52, 53, 54	cbvmpt 5206	. . . . . . . . . . . 12 ⊢ (𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡)) = (𝑠 ∈ 𝐶 ↦ (𝐿‘𝑠))
56	55	a1i 11	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡)) = (𝑠 ∈ 𝐶 ↦ (𝐿‘𝑠)))
57		simpr 490	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ 𝑠 = 𝑏) → 𝑠 = 𝑏)
58	57	fveq2d 6894	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ 𝑠 = 𝑏) → (𝐿‘𝑠) = (𝐿‘𝑏))
59		simpllr 788	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑏 ∈ 𝐶)
60		fvexd 6905	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝐿‘𝑏) ∈ V)
61	56, 58, 59, 60	fvmptd 7006	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = (𝐿‘𝑏))
62	61	eqcomd 2766	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝐿‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏))
63		simprl 783	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐))
64		simpr 490	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ 𝑠 = 𝑐) → 𝑠 = 𝑐)
65	64	fveq2d 6894	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ 𝑠 = 𝑐) → (𝐿‘𝑠) = (𝐿‘𝑐))
66		simplr 781	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑐 ∈ 𝐶)
67		fvexd 6905	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝐿‘𝑐) ∈ V)
68	56, 65, 66, 67	fvmptd 7006	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) = (𝐿‘𝑐))
69	63, 68	eqtrd 2795	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = (𝐿‘𝑐))
70	62, 69	eqtrd 2795	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝐿‘𝑏) = (𝐿‘𝑐))
71	70	eqcomd 2766	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝐿‘𝑐) = (𝐿‘𝑏))
72	12	nnnn0d 12674	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℕ0)
73	72	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → 𝑅 ∈ ℕ0)
74	73	adantr 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝑅 ∈ ℕ0)
75	74	adantr 486	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑅 ∈ ℕ0)
76		fz0ssnn0 13763	. . . . . . . . . . . . . . . . . 18 ⊢ (0...𝐵) ⊆ ℕ0
77	76	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (0...𝐵) ⊆ ℕ0)
78	77, 77	jca 521	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((0...𝐵) ⊆ ℕ0 ∧ (0...𝐵) ⊆ ℕ0))
79		eqid 2760	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (ℤ/nℤ‘𝑅) = (ℤ/nℤ‘𝑅)
80	14, 10, 16, 12, 18, 27, 28, 79	hashscontpowcl 43279	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℕ0)
81	80	nn0red 12675	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ)
82	80	nn0ge0d 12677	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))
83	81, 82	resqrtcld 15594	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ∈ ℝ)
84	83	flcld 13945	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℤ)
85	81, 82	sqrtge0d 15597	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))
86		0zd 12712	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ∈ ℤ)
87		flge 13952	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ∈ ℝ ∧ 0 ∈ ℤ) → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
88	83, 86, 87	syl2anc 596	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
89	85, 88	mpbid 235	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))))
90	84, 89	jca 521	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
91		elnn0z 12713	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℕ0 ↔ ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
92	90, 91	sylibr 237	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℕ0)
93	36	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝐵 = (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))))
94	93	eleq1d 2845	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝐵 ∈ ℕ0 ↔ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℕ0))
95	92, 94	mpbird 260	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐵 ∈ ℕ0)
96	95	nn0ge0d 12677	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 0 ≤ 𝐵)
97	95	nn0zd 12725	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐵 ∈ ℤ)
98		eluz 12986	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((0 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐵 ∈ (ℤ≥‘0) ↔ 0 ≤ 𝐵))
99	86, 97, 98	syl2anc 596	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐵 ∈ (ℤ≥‘0) ↔ 0 ≤ 𝐵))
100	96, 99	mpbird 260	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐵 ∈ (ℤ≥‘0))
101		fzn0 13678	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((0...𝐵) ≠ ∅ ↔ 𝐵 ∈ (ℤ≥‘0))
102	100, 101	sylibr 237	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (0...𝐵) ≠ ∅)
103	102, 102	jca 521	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅))
104		xpnz 6152	. . . . . . . . . . . . . . . . . . 19 ⊢ (((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅) ↔ ((0...𝐵) × (0...𝐵)) ≠ ∅)
105	104	biimpi 219	. . . . . . . . . . . . . . . . . 18 ⊢ (((0...𝐵) ≠ ∅ ∧ (0...𝐵) ≠ ∅) → ((0...𝐵) × (0...𝐵)) ≠ ∅)
106	103, 105	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ≠ ∅)
107		ssxpb 6168	. . . . . . . . . . . . . . . . 17 ⊢ (((0...𝐵) × (0...𝐵)) ≠ ∅ → (((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0) ↔ ((0...𝐵) ⊆ ℕ0 ∧ (0...𝐵) ⊆ ℕ0)))
108	106, 107	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0) ↔ ((0...𝐵) ⊆ ℕ0 ∧ (0...𝐵) ⊆ ℕ0)))
109	78, 108	mpbird 260	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0))
110		imass2 6057	. . . . . . . . . . . . . . 15 ⊢ (((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0) → (𝐸 “ ((0...𝐵) × (0...𝐵))) ⊆ (𝐸 “ (ℕ0 × ℕ0)))
111	109, 110	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸 “ ((0...𝐵) × (0...𝐵))) ⊆ (𝐸 “ (ℕ0 × ℕ0)))
112		nfv 1946	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑜𝜑
113		aks6d1c2a.20	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝑄 ∈ ℙ ∧ 𝑄 ∥ 𝑁 ∧ 𝑃 ≠ 𝑄))
114	113	simp1d 1160	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑄 ∈ ℙ)
115	113	simp2d 1161	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑄 ∥ 𝑁)
116	113	simp3d 1162	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ≠ 𝑄)
117	14, 10, 16, 27, 114, 115, 116	aks6d1c2p2 43278	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)–1-1→ℕ)
118		f1f 6783	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐸:(ℕ0 × ℕ0)–1-1→ℕ → 𝐸:(ℕ0 × ℕ0)⟶ℕ)
119	117, 118	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐸:(ℕ0 × ℕ0)⟶ℕ)
120	119	ffnd 6715	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐸 Fn (ℕ0 × ℕ0))
121	120	fnfund 6645	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → Fun 𝐸)
122	119	ffvelcdmda 7089	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑜 ∈ (ℕ0 × ℕ0)) → (𝐸‘𝑜) ∈ ℕ)
123	112, 121, 122	funimassd 6956	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸 “ (ℕ0 × ℕ0)) ⊆ ℕ)
124	111, 123	sstrd 3919	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 “ ((0...𝐵) × (0...𝐵))) ⊆ ℕ)
125	37	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐶 = (𝐸 “ ((0...𝐵) × (0...𝐵))))
126	125	sseq1d 3940	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐶 ⊆ ℕ ↔ (𝐸 “ ((0...𝐵) × (0...𝐵))) ⊆ ℕ))
127	124, 126	mpbird 260	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐶 ⊆ ℕ)
128	127	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝐶 ⊆ ℕ)
129		simpr 490	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝑐 ∈ 𝐶)
130	128, 129	sseldd 3910	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝑐 ∈ ℕ)
131	130	nnzd 12726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝑐 ∈ ℤ)
132	131	adantr 486	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑐 ∈ ℤ)
133		simplr 781	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝑏 ∈ 𝐶)
134	128, 133	sseldd 3910	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝑏 ∈ ℕ)
135	134	nnzd 12726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝑏 ∈ ℤ)
136	135	adantr 486	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑏 ∈ ℤ)
137	79, 28	zndvds 21864	. . . . . . . 8 ⊢ ((𝑅 ∈ ℕ0 ∧ 𝑐 ∈ ℤ ∧ 𝑏 ∈ ℤ) → ((𝐿‘𝑐) = (𝐿‘𝑏) ↔ 𝑅 ∥ (𝑐 − 𝑏)))
138	75, 132, 136, 137	syl3anc 1398	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → ((𝐿‘𝑐) = (𝐿‘𝑏) ↔ 𝑅 ∥ (𝑐 − 𝑏)))
139	71, 138	mpbid 235	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑅 ∥ (𝑐 − 𝑏))
140	75	nn0zd 12725	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑅 ∈ ℤ)
141	132, 136	zsubcld 12815	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝑐 − 𝑏) ∈ ℤ)
142		divides 16433	. . . . . . . 8 ⊢ ((𝑅 ∈ ℤ ∧ (𝑐 − 𝑏) ∈ ℤ) → (𝑅 ∥ (𝑐 − 𝑏) ↔ ∃𝑑 ∈ ℤ (𝑑 · 𝑅) = (𝑐 − 𝑏)))
143	140, 141, 142	syl2anc 596	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝑅 ∥ (𝑐 − 𝑏) ↔ ∃𝑑 ∈ ℤ (𝑑 · 𝑅) = (𝑐 − 𝑏)))
144	143	biimpd 232	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝑅 ∥ (𝑐 − 𝑏) → ∃𝑑 ∈ ℤ (𝑑 · 𝑅) = (𝑐 − 𝑏)))
145	139, 144	mpd 16	. . . . 5 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → ∃𝑑 ∈ ℤ (𝑑 · 𝑅) = (𝑐 − 𝑏))
146		simprl 783	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑑 ∈ ℤ)
147	130	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑐 ∈ ℕ)
148	147	nnred 12357	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑐 ∈ ℝ)
149	134	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑏 ∈ ℕ)
150	149	nnred 12357	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑏 ∈ ℝ)
151	148, 150	resubcld 11751	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑐 − 𝑏) ∈ ℝ)
152	12	nnrpd 13169	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ ℝ+)
153	152	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐶) → 𝑅 ∈ ℝ+)
154	153	adantr 486	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) → 𝑅 ∈ ℝ+)
155	154	adantr 486	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → 𝑅 ∈ ℝ+)
156	155	adantr 486	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑅 ∈ ℝ+)
157	156	rpred 13171	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑅 ∈ ℝ)
158	51	adantr 486	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑏 < 𝑐)
159	150, 148	posdifd 11910	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑏 < 𝑐 ↔ 0 < (𝑐 − 𝑏)))
160	158, 159	mpbid 235	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 0 < (𝑐 − 𝑏))
161	156	rpgt0d 13174	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 0 < 𝑅)
162	151, 157, 160, 161	divgt0d 12259	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 0 < ((𝑐 − 𝑏) / 𝑅))
163	157	recnd 11344	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑅 ∈ ℂ)
164	146	zred 12810	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑑 ∈ ℝ)
165	164	recnd 11344	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑑 ∈ ℂ)
166	163, 165	mulcomd 11337	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑅 · 𝑑) = (𝑑 · 𝑅))
167		simprr 785	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑑 · 𝑅) = (𝑐 − 𝑏))
168	166, 167	eqtrd 2795	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑅 · 𝑑) = (𝑐 − 𝑏))
169	151	recnd 11344	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑐 − 𝑏) ∈ ℂ)
170	161	gt0ne0d 11887	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑅 ≠ 0)
171	169, 163, 165, 170	divmuld 12122	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (((𝑐 − 𝑏) / 𝑅) = 𝑑 ↔ (𝑅 · 𝑑) = (𝑐 − 𝑏)))
172	168, 171	mpbird 260	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → ((𝑐 − 𝑏) / 𝑅) = 𝑑)
173	162, 172	breqtrd 5130	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 0 < 𝑑)
174	146, 173	jca 521	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑑 ∈ ℤ ∧ 0 < 𝑑))
175		elnnz 12710	. . . . . 6 ⊢ (𝑑 ∈ ℕ ↔ (𝑑 ∈ ℤ ∧ 0 < 𝑑))
176	174, 175	sylibr 237	. . . . 5 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑑 ∈ ℕ)
177	167	eqcomd 2766	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑐 − 𝑏) = (𝑑 · 𝑅))
178	148	recnd 11344	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑐 ∈ ℂ)
179	150	recnd 11344	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑏 ∈ ℂ)
180	167, 169	eqeltrd 2860	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑑 · 𝑅) ∈ ℂ)
181	178, 179, 180	subaddd 11694	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → ((𝑐 − 𝑏) = (𝑑 · 𝑅) ↔ (𝑏 + (𝑑 · 𝑅)) = 𝑐))
182	177, 181	mpbid 235	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → (𝑏 + (𝑑 · 𝑅)) = 𝑐)
183	182	eqcomd 2766	. . . . 5 ⊢ (((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) ∧ (𝑑 ∈ ℤ ∧ (𝑑 · 𝑅) = (𝑐 − 𝑏))) → 𝑐 = (𝑏 + (𝑑 · 𝑅)))
184	145, 176, 183	reximssdv 3180	. . . 4 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅)))
185	51, 184	jca 521	. . 3 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐶) ∧ 𝑐 ∈ 𝐶) ∧ (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐)) → (𝑏 < 𝑐 ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅))))
186		fzfid 14123	. . . . . . 7 ⊢ (𝜑 → (0...𝐵) ∈ Fin)
187		xpfi 9318	. . . . . . 7 ⊢ (((0...𝐵) ∈ Fin ∧ (0...𝐵) ∈ Fin) → ((0...𝐵) × (0...𝐵)) ∈ Fin)
188	186, 186, 187	syl2anc 596	. . . . . 6 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ∈ Fin)
189		imafi 9314	. . . . . 6 ⊢ ((Fun 𝐸 ∧ ((0...𝐵) × (0...𝐵)) ∈ Fin) → (𝐸 “ ((0...𝐵) × (0...𝐵))) ∈ Fin)
190	121, 188, 189	syl2anc 596	. . . . 5 ⊢ (𝜑 → (𝐸 “ ((0...𝐵) × (0...𝐵))) ∈ Fin)
191	125	eleq1d 2845	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ Fin ↔ (𝐸 “ ((0...𝐵) × (0...𝐵))) ∈ Fin))
192	190, 191	mpbird 260	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Fin)
193	79	zncrng 21859	. . . . . . . . . 10 ⊢ (𝑅 ∈ ℕ0 → (ℤ/nℤ‘𝑅) ∈ CRing)
194	72, 193	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (ℤ/nℤ‘𝑅) ∈ CRing)
195		crngring 20481	. . . . . . . . 9 ⊢ ((ℤ/nℤ‘𝑅) ∈ CRing → (ℤ/nℤ‘𝑅) ∈ Ring)
196	194, 195	syl 18	. . . . . . . 8 ⊢ (𝜑 → (ℤ/nℤ‘𝑅) ∈ Ring)
197	28	zrhrhm 21826	. . . . . . . 8 ⊢ ((ℤ/nℤ‘𝑅) ∈ Ring → 𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)))
198	196, 197	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)))
199	198	imaexd 7932	. . . . . 6 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ V)
200		hashclb 14509	. . . . . 6 ⊢ ((𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ V → ((𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ Fin ↔ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℕ0))
201	199, 200	syl 18	. . . . 5 ⊢ (𝜑 → ((𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ Fin ↔ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℕ0))
202	80, 201	mpbird 260	. . . 4 ⊢ (𝜑 → (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ Fin)
203		hashcl 14507	. . . . . . . . . . . . 13 ⊢ ((𝐿 “ (𝐸 “ (ℕ0 × ℕ0))) ∈ Fin → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℕ0)
204	202, 203	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℕ0)
205	204	nn0red 12675	. . . . . . . . . . 11 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ)
206	204	nn0ge0d 12677	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))
207		sqrtmsq 15446	. . . . . . . . . . 11 ⊢ (((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ ∧ 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) → (√‘((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) · (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) = (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))
208	205, 206, 207	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → (√‘((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) · (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) = (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))
209	208	eqcomd 2766	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) = (√‘((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) · (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))))
210	205, 206	jca 521	. . . . . . . . . . 11 ⊢ (𝜑 → ((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ ∧ 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))
211		sqrtmul 15435	. . . . . . . . . . 11 ⊢ ((((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ ∧ 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ∧ ((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) ∈ ℝ ∧ 0 ≤ (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) → (√‘((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) · (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) = ((√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) · (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))))
212	210, 210, 211	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → (√‘((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) · (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) = ((√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) · (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))))
213	205, 206	resqrtcld 15594	. . . . . . . . . . 11 ⊢ (𝜑 → (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ∈ ℝ)
214	213	flcld 13945	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℤ)
215	205, 206	sqrtge0d 15597	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))
216	213, 86, 87	syl2anc 596	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (0 ≤ (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ↔ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
217	215, 216	mpbid 235	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))))
218	214, 217	jca 521	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℤ ∧ 0 ≤ (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))))))
219	218, 91	sylibr 237	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) ∈ ℕ0)
220	219, 94	mpbird 260	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ ℕ0)
221	220	nn0red 12675	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
222		1red 11316	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℝ)
223	221, 222	readdcld 11345	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 + 1) ∈ ℝ)
224		flltp1 13947	. . . . . . . . . . . . 13 ⊢ ((√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) ∈ ℝ → (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) < ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) + 1))
225	213, 224	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) < ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) + 1))
226	93	oveq1d 7439	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵 + 1) = ((⌊‘(√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) + 1))
227	225, 226	breqtrrd 5132	. . . . . . . . . . 11 ⊢ (𝜑 → (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) < (𝐵 + 1))
228	213, 223, 213, 223, 215, 227, 215, 227	ltmul12ad 12265	. . . . . . . . . 10 ⊢ (𝜑 → ((√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))) · (√‘(♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) < ((𝐵 + 1) · (𝐵 + 1)))
229	212, 228	eqbrtrd 5126	. . . . . . . . 9 ⊢ (𝜑 → (√‘((♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) · (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))))) < ((𝐵 + 1) · (𝐵 + 1)))
230	209, 229	eqbrtrd 5126	. . . . . . . 8 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) < ((𝐵 + 1) · (𝐵 + 1)))
231		hashfz0 14584	. . . . . . . . . 10 ⊢ (𝐵 ∈ ℕ0 → (♯‘(0...𝐵)) = (𝐵 + 1))
232	220, 231	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (♯‘(0...𝐵)) = (𝐵 + 1))
233	232, 232	oveq12d 7442	. . . . . . . 8 ⊢ (𝜑 → ((♯‘(0...𝐵)) · (♯‘(0...𝐵))) = ((𝐵 + 1) · (𝐵 + 1)))
234	230, 233	breqtrrd 5132	. . . . . . 7 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) < ((♯‘(0...𝐵)) · (♯‘(0...𝐵))))
235	186, 186	jca 521	. . . . . . . 8 ⊢ (𝜑 → ((0...𝐵) ∈ Fin ∧ (0...𝐵) ∈ Fin))
236		hashxp 14586	. . . . . . . 8 ⊢ (((0...𝐵) ∈ Fin ∧ (0...𝐵) ∈ Fin) → (♯‘((0...𝐵) × (0...𝐵))) = ((♯‘(0...𝐵)) · (♯‘(0...𝐵))))
237	235, 236	syl 18	. . . . . . 7 ⊢ (𝜑 → (♯‘((0...𝐵) × (0...𝐵))) = ((♯‘(0...𝐵)) · (♯‘(0...𝐵))))
238	234, 237	breqtrrd 5132	. . . . . 6 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) < (♯‘((0...𝐵) × (0...𝐵))))
239		ovexd 7459	. . . . . . . . . . 11 ⊢ (𝜑 → (0...𝐵) ∈ V)
240	239, 239	jca 521	. . . . . . . . . 10 ⊢ (𝜑 → ((0...𝐵) ∈ V ∧ (0...𝐵) ∈ V))
241		xpexg 7768	. . . . . . . . . 10 ⊢ (((0...𝐵) ∈ V ∧ (0...𝐵) ∈ V) → ((0...𝐵) × (0...𝐵)) ∈ V)
242	240, 241	syl 18	. . . . . . . . 9 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) ∈ V)
243	242	mptexd 7234	. . . . . . . 8 ⊢ (𝜑 → (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)) ∈ V)
244	120	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ ((0...𝐵) × (0...𝐵))) → 𝐸 Fn (ℕ0 × ℕ0))
245	109	sselda 3909	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ ((0...𝐵) × (0...𝐵))) → 𝑤 ∈ (ℕ0 × ℕ0))
246		simpr 490	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑤 ∈ ((0...𝐵) × (0...𝐵))) → 𝑤 ∈ ((0...𝐵) × (0...𝐵)))
247	244, 245, 246	fnfvimad 7244	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑤 ∈ ((0...𝐵) × (0...𝐵))) → (𝐸‘𝑤) ∈ (𝐸 “ ((0...𝐵) × (0...𝐵))))
248		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)) = (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤))
249	247, 248	fmptd 7119	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))⟶(𝐸 “ ((0...𝐵) × (0...𝐵))))
250	119, 109	feqresmpt 6959	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸 ↾ ((0...𝐵) × (0...𝐵))) = (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)))
251	250	feq1d 6696	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐸 ↾ ((0...𝐵) × (0...𝐵))):((0...𝐵) × (0...𝐵))⟶(𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))⟶(𝐸 “ ((0...𝐵) × (0...𝐵)))))
252	249, 251	mpbird 260	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐸 ↾ ((0...𝐵) × (0...𝐵))):((0...𝐵) × (0...𝐵))⟶(𝐸 “ ((0...𝐵) × (0...𝐵))))
253		f1resf1 6793	. . . . . . . . . . . 12 ⊢ ((𝐸:(ℕ0 × ℕ0)–1-1→ℕ ∧ ((0...𝐵) × (0...𝐵)) ⊆ (ℕ0 × ℕ0) ∧ (𝐸 ↾ ((0...𝐵) × (0...𝐵))):((0...𝐵) × (0...𝐵))⟶(𝐸 “ ((0...𝐵) × (0...𝐵)))) → (𝐸 ↾ ((0...𝐵) × (0...𝐵))):((0...𝐵) × (0...𝐵))–1-1→(𝐸 “ ((0...𝐵) × (0...𝐵))))
254	117, 109, 252, 253	syl3anc 1398	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 ↾ ((0...𝐵) × (0...𝐵))):((0...𝐵) × (0...𝐵))–1-1→(𝐸 “ ((0...𝐵) × (0...𝐵))))
255		eqidd 2761	. . . . . . . . . . . 12 ⊢ (𝜑 → ((0...𝐵) × (0...𝐵)) = ((0...𝐵) × (0...𝐵)))
256		eqidd 2761	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐸 “ ((0...𝐵) × (0...𝐵))) = (𝐸 “ ((0...𝐵) × (0...𝐵))))
257	250, 255, 256	f1eq123d 6821	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐸 ↾ ((0...𝐵) × (0...𝐵))):((0...𝐵) × (0...𝐵))–1-1→(𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))–1-1→(𝐸 “ ((0...𝐵) × (0...𝐵)))))
258	254, 257	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))–1-1→(𝐸 “ ((0...𝐵) × (0...𝐵))))
259		df-ima 5664	. . . . . . . . . . . 12 ⊢ (𝐸 “ ((0...𝐵) × (0...𝐵))) = ran (𝐸 ↾ ((0...𝐵) × (0...𝐵)))
260	259	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 “ ((0...𝐵) × (0...𝐵))) = ran (𝐸 ↾ ((0...𝐵) × (0...𝐵))))
261	250	rneqd 5921	. . . . . . . . . . 11 ⊢ (𝜑 → ran (𝐸 ↾ ((0...𝐵) × (0...𝐵))) = ran (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)))
262	260, 261	eqtr2d 2796	. . . . . . . . . 10 ⊢ (𝜑 → ran (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)) = (𝐸 “ ((0...𝐵) × (0...𝐵))))
263	258, 262	jca 521	. . . . . . . . 9 ⊢ (𝜑 → ((𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))–1-1→(𝐸 “ ((0...𝐵) × (0...𝐵))) ∧ ran (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)) = (𝐸 “ ((0...𝐵) × (0...𝐵)))))
264		dff1o5 6839	. . . . . . . . 9 ⊢ ((𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))–1-1-onto→(𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ ((𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))–1-1→(𝐸 “ ((0...𝐵) × (0...𝐵))) ∧ ran (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)) = (𝐸 “ ((0...𝐵) × (0...𝐵)))))
265	263, 264	sylibr 237	. . . . . . . 8 ⊢ (𝜑 → (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))–1-1-onto→(𝐸 “ ((0...𝐵) × (0...𝐵))))
266		f1oeq1 6817	. . . . . . . 8 ⊢ (𝑢 = (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)) → (𝑢:((0...𝐵) × (0...𝐵))–1-1-onto→(𝐸 “ ((0...𝐵) × (0...𝐵))) ↔ (𝑤 ∈ ((0...𝐵) × (0...𝐵)) ↦ (𝐸‘𝑤)):((0...𝐵) × (0...𝐵))–1-1-onto→(𝐸 “ ((0...𝐵) × (0...𝐵)))))
267	243, 265, 266	spcedv 3552	. . . . . . 7 ⊢ (𝜑 → ∃𝑢 𝑢:((0...𝐵) × (0...𝐵))–1-1-onto→(𝐸 “ ((0...𝐵) × (0...𝐵))))
268		hasheqf1oi 14502	. . . . . . . 8 ⊢ (((0...𝐵) × (0...𝐵)) ∈ V → (∃𝑢 𝑢:((0...𝐵) × (0...𝐵))–1-1-onto→(𝐸 “ ((0...𝐵) × (0...𝐵))) → (♯‘((0...𝐵) × (0...𝐵))) = (♯‘(𝐸 “ ((0...𝐵) × (0...𝐵))))))
269	242, 268	syl 18	. . . . . . 7 ⊢ (𝜑 → (∃𝑢 𝑢:((0...𝐵) × (0...𝐵))–1-1-onto→(𝐸 “ ((0...𝐵) × (0...𝐵))) → (♯‘((0...𝐵) × (0...𝐵))) = (♯‘(𝐸 “ ((0...𝐵) × (0...𝐵))))))
270	267, 269	mpd 16	. . . . . 6 ⊢ (𝜑 → (♯‘((0...𝐵) × (0...𝐵))) = (♯‘(𝐸 “ ((0...𝐵) × (0...𝐵)))))
271	238, 270	breqtrd 5130	. . . . 5 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) < (♯‘(𝐸 “ ((0...𝐵) × (0...𝐵)))))
272	125	fveq2d 6894	. . . . 5 ⊢ (𝜑 → (♯‘𝐶) = (♯‘(𝐸 “ ((0...𝐵) × (0...𝐵)))))
273	271, 272	breqtrrd 5132	. . . 4 ⊢ (𝜑 → (♯‘(𝐿 “ (𝐸 “ (ℕ0 × ℕ0)))) < (♯‘𝐶))
274		zringbas 21768	. . . . . . . . . 10 ⊢ ℤ = (Base‘ℤring)
275		eqid 2760	. . . . . . . . . 10 ⊢ (Base‘(ℤ/nℤ‘𝑅)) = (Base‘(ℤ/nℤ‘𝑅))
276	274, 275	rhmf 20724	. . . . . . . . 9 ⊢ (𝐿 ∈ (ℤring RingHom (ℤ/nℤ‘𝑅)) → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
277	198, 276	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐿:ℤ⟶(Base‘(ℤ/nℤ‘𝑅)))
278	277	ffnd 6715	. . . . . . 7 ⊢ (𝜑 → 𝐿 Fn ℤ)
279	278	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝐶) → 𝐿 Fn ℤ)
280		resss 5993	. . . . . . . . . . . 12 ⊢ (𝐸 ↾ (ℕ0 × ℕ0)) ⊆ 𝐸
281	280	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 ↾ (ℕ0 × ℕ0)) ⊆ 𝐸)
282		rnss 5922	. . . . . . . . . . 11 ⊢ ((𝐸 ↾ (ℕ0 × ℕ0)) ⊆ 𝐸 → ran (𝐸 ↾ (ℕ0 × ℕ0)) ⊆ ran 𝐸)
283	281, 282	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → ran (𝐸 ↾ (ℕ0 × ℕ0)) ⊆ ran 𝐸)
284		df-ima 5664	. . . . . . . . . . . 12 ⊢ (𝐸 “ (ℕ0 × ℕ0)) = ran (𝐸 ↾ (ℕ0 × ℕ0))
285	284	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 “ (ℕ0 × ℕ0)) = ran (𝐸 ↾ (ℕ0 × ℕ0)))
286	285	sseq1d 3940	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐸 “ (ℕ0 × ℕ0)) ⊆ ran 𝐸 ↔ ran (𝐸 ↾ (ℕ0 × ℕ0)) ⊆ ran 𝐸))
287	283, 286	mpbird 260	. . . . . . . . 9 ⊢ (𝜑 → (𝐸 “ (ℕ0 × ℕ0)) ⊆ ran 𝐸)
288		frn 6722	. . . . . . . . . 10 ⊢ (𝐸:(ℕ0 × ℕ0)⟶ℕ → ran 𝐸 ⊆ ℕ)
289	119, 288	syl 18	. . . . . . . . 9 ⊢ (𝜑 → ran 𝐸 ⊆ ℕ)
290	287, 289	sstrd 3919	. . . . . . . 8 ⊢ (𝜑 → (𝐸 “ (ℕ0 × ℕ0)) ⊆ ℕ)
291		nnssz 12722	. . . . . . . . 9 ⊢ ℕ ⊆ ℤ
292	291	a1i 11	. . . . . . . 8 ⊢ (𝜑 → ℕ ⊆ ℤ)
293	290, 292	sstrd 3919	. . . . . . 7 ⊢ (𝜑 → (𝐸 “ (ℕ0 × ℕ0)) ⊆ ℤ)
294	293	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝐶) → (𝐸 “ (ℕ0 × ℕ0)) ⊆ ℤ)
295	125	sseq1d 3940	. . . . . . . . 9 ⊢ (𝜑 → (𝐶 ⊆ (𝐸 “ (ℕ0 × ℕ0)) ↔ (𝐸 “ ((0...𝐵) × (0...𝐵))) ⊆ (𝐸 “ (ℕ0 × ℕ0))))
296	111, 295	mpbird 260	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ⊆ (𝐸 “ (ℕ0 × ℕ0)))
297	296	sseld 3908	. . . . . . 7 ⊢ (𝜑 → (𝑡 ∈ 𝐶 → 𝑡 ∈ (𝐸 “ (ℕ0 × ℕ0))))
298	297	imp 412	. . . . . 6 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝐶) → 𝑡 ∈ (𝐸 “ (ℕ0 × ℕ0)))
299		fnfvima 7243	. . . . . 6 ⊢ ((𝐿 Fn ℤ ∧ (𝐸 “ (ℕ0 × ℕ0)) ⊆ ℤ ∧ 𝑡 ∈ (𝐸 “ (ℕ0 × ℕ0))) → (𝐿‘𝑡) ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
300	279, 294, 298, 299	syl3anc 1398	. . . . 5 ⊢ ((𝜑 ∧ 𝑡 ∈ 𝐶) → (𝐿‘𝑡) ∈ (𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
301		eqid 2760	. . . . 5 ⊢ (𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡)) = (𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))
302	300, 301	fmptd 7119	. . . 4 ⊢ (𝜑 → (𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡)):𝐶⟶(𝐿 “ (𝐸 “ (ℕ0 × ℕ0))))
303		nnssre 12346	. . . . . 6 ⊢ ℕ ⊆ ℝ
304	303	a1i 11	. . . . 5 ⊢ (𝜑 → ℕ ⊆ ℝ)
305	127, 304	sstrd 3919	. . . 4 ⊢ (𝜑 → 𝐶 ⊆ ℝ)
306	192, 202, 273, 302, 305	hashnexinjle 43288	. . 3 ⊢ (𝜑 → ∃𝑏 ∈ 𝐶 ∃𝑐 ∈ 𝐶 (((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑏) = ((𝑡 ∈ 𝐶 ↦ (𝐿‘𝑡))‘𝑐) ∧ 𝑏 < 𝑐))
307	185, 306	reximddv2 3221	. 2 ⊢ (𝜑 → ∃𝑏 ∈ 𝐶 ∃𝑐 ∈ 𝐶 (𝑏 < 𝑐 ∧ ∃𝑑 ∈ ℕ 𝑐 = (𝑏 + (𝑑 · 𝑅))))
308	50, 307	r19.29vva 3222	1 ⊢ (𝜑 → (♯‘(𝐻 “ (ℕ0 ↑m (0...𝐴)))) ≤ (𝑁↑𝐵))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569  ∃wex 1811   ∈ wcel 2144   ≠ wne 2955  ∀wral 3076  ∃wrex 3086  Vcvv 3450   ⊆ wss 3896  ∅c0 4277   class class class wbr 5102  {copab 5166   ↦ cmpt 5185   × cxp 5649  ran crn 5652   ↾ cres 5653   “ cima 5654  Fun wfun 6537   Fn wfn 6538  ⟶wf 6539  –1-1→wf1 6540  –1-1-onto→wf1o 6542  ‘cfv 6543  (class class class)co 7424   ∈ cmpo 7426   ↑_m cmap 8854  Fincfn 8980  ℂcc 11205  ℝcr 11206  0cc0 11207  1c1 11208   + caddc 11210   · cmul 11212   < clt 11350   ≤ cle 11351   − cmin 11548   / cdiv 11980  ℕcn 12342  ℕ₀cn0 12613  ℤcz 12700  ℤ_≥cuz 12972  ℝ⁺crp 13127  ...cfz 13646  ⌊cfl 13937  ↑cexp 14211  ♯chash 14481  √csqrt 15409   ∥ cdvds 16431   gcd cgcd 16673  ℙcprime 16855  Basecbs 17396  +_gcplusg 17437   Σ_g cgsu 17620  -_gcsg 19155  ._gcmg 19286  mulGrpcmgp 20369  Ringcrg 20468  CRingccrg 20469   RingHom crh 20708   RingIso crs 20709  Fieldcfield 20990  ℤ_ringczring 21761  ℤRHomczrh 21814  chrcchr 21816  ℤ/nℤczn 21817  algSccascl 22169  var₁cv1 22503  Poly₁cpl1 22504  eval₁ce1 22641   PrimRoots cprimroots 43250

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5327  ax-pr 5391  ax-un 7755  ax-cnex 11263  ax-resscn 11264  ax-1cn 11265  ax-icn 11266  ax-addcl 11267  ax-addrcl 11268  ax-mulcl 11269  ax-mulrcl 11270  ax-mulcom 11271  ax-addass 11272  ax-mulass 11273  ax-distr 11274  ax-i2m1 11275  ax-1ne0 11276  ax-1rid 11277  ax-rnegex 11278  ax-rrecex 11279  ax-cnre 11280  ax-pre-lttri 11281  ax-pre-lttrn 11282  ax-pre-ltadd 11283  ax-pre-mulgt0 11284  ax-pre-sup 11285  ax-addf 11286  ax-mulf 11287

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3848  df-ss 3897  df-pss 4013  df-dif 4046  df-in 4090  df-un 4150  df-nul 4278  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4835  df-uni 4867  df-int 4907  df-iun 4952  df-iin 4953  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-se 5605  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6307  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6497  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7381  df-ov 7427  df-oprab 7428  df-mpo 7429  df-of 7697  df-ofr 7698  df-om 7882  df-1st 8005  df-2nd 8006  df-supp 8184  df-tpos 8250  df-frecs 8306  df-wrecs 8337  df-recs 8386  df-rdg 8425  df-1o 8483  df-2o 8484  df-oadd 8487  df-er 8724  df-ec 8726  df-qs 8730  df-map 8856  df-pm 8857  df-ixp 8933  df-en 8981  df-dom 8982  df-sdom 8983  df-fin 8984  df-fsupp 9361  df-sup 9441  df-inf 9442  df-oi 9511  df-dju 9989  df-card 10027  df-pnf 11352  df-mnf 11353  df-xr 11354  df-ltxr 11355  df-le 11356  df-sub 11550  df-neg 11551  df-div 11981  df-nn 12343  df-2 12412  df-3 12413  df-4 12414  df-5 12415  df-6 12416  df-7 12417  df-8 12418  df-9 12419  df-n0 12614  df-xnn0 12687  df-z 12701  df-dec 12822  df-uz 12973  df-q 13083  df-rp 13128  df-fz 13647  df-fzo 13796  df-fl 13939  df-mod 14017  df-seq 14152  df-exp 14212  df-fac 14425  df-bc 14454  df-hash 14482  df-cj 15275  df-re 15276  df-im 15277  df-sqrt 15411  df-abs 15412  df-dvds 16432  df-gcd 16674  df-prm 16856  df-phi 16952  df-pc 17024  df-struct 17334  df-sets 17351  df-slot 17369  df-ndx 17381  df-base 17397  df-ress 17418  df-plusg 17450  df-mulr 17451  df-starv 17452  df-sca 17453  df-vsca 17454  df-ip 17455  df-tset 17456  df-ple 17457  df-ds 17459  df-unif 17460  df-hom 17461  df-cco 17462  df-0g 17621  df-gsum 17622  df-prds 17627  df-pws 17629  df-imas 17689  df-qus 17690  df-mre 17765  df-mrc 17766  df-acs 17768  df-mgm 18825  df-sgrp 18917  df-mnd 18933  df-mhm 18987  df-submnd 18988  df-grp 19156  df-minusg 19157  df-sbg 19158  df-mulg 19287  df-subg 19342  df-nsg 19343  df-eqg 19344  df-ghm 19437  df-cntz 19540  df-od 19751  df-cmn 20005  df-abl 20006  df-mgp 20370  df-rng 20384  df-ur 20417  df-srg 20422  df-ring 20470  df-cring 20471  df-oppr 20576  df-dvdsr 20596  df-unit 20597  df-invr 20627  df-dvr 20640  df-rhm 20711  df-rim 20712  df-nzr 20772  df-subrng 20807  df-subrg 20831  df-rlreg 20955  df-domn 20956  df-idom 20957  df-drng 20991  df-field 20992  df-lmod 21146  df-lss 21216  df-lsp 21256  df-sra 21457  df-rgmod 21458  df-lidl 21495  df-rsp 21496  df-2idl 21552  df-cnfld 21688  df-zring 21762  df-zrh 21818  df-chr 21820  df-zn 21821  df-assa 22170  df-asp 22171  df-ascl 22172  df-psr 22226  df-mvr 22227  df-mpl 22228  df-opsr 22230  df-evls 22392  df-evl 22393  df-psr1 22507  df-vr1 22508  df-ply1 22509  df-coe1 22510  df-evl1 22643  df-mdeg 26382  df-deg1 26383  df-mon1 26458  df-uc1p 26459  df-q1p 26460  df-r1p 26461  df-primroots 43251

This theorem is used by:  aks6d1c7lem2  43340