Theorem sqff1o 27170

Description: There is a bijection from the squarefree divisors of a number 𝑁 to the powerset of the prime divisors of 𝑁. Among other things, this implies that a number has 2↑𝑘 squarefree divisors where 𝑘 is the number of prime divisors, and a squarefree number has 2↑𝑘 divisors (because all divisors of a squarefree number are squarefree). The inverse function to 𝐹 takes the product of all the primes in some subset of prime divisors of 𝑁. (Contributed by Mario Carneiro, 1-Jul-2015.)

Hypotheses

Ref	Expression
sqff1o.1	⊢ 𝑆 = {𝑥 ∈ ℕ ∣ ((μ‘𝑥) ≠ 0 ∧ 𝑥 ∥ 𝑁)}
sqff1o.2	⊢ 𝐹 = (𝑛 ∈ 𝑆 ↦ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛})
sqff1o.3	⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)))

Assertion

Ref	Expression
sqff1o	⊢ (𝑁 ∈ ℕ → 𝐹:𝑆–1-1-onto→𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})

Distinct variable groups:   𝑛,𝑝,𝑥,𝐺   𝑛,𝑁,𝑝,𝑥   𝑆,𝑛,𝑝

Allowed substitution hints:   𝑆(𝑥)   𝐹(𝑥,𝑛,𝑝)

Proof of Theorem sqff1o

Dummy variables 𝑘 𝑞 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		sqff1o.2	. 2 ⊢ 𝐹 = (𝑛 ∈ 𝑆 ↦ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛})
2		fveq2 6834	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑛 → (μ‘𝑥) = (μ‘𝑛))
3	2	neeq1d 2994	. . . . . . . . . 10 ⊢ (𝑥 = 𝑛 → ((μ‘𝑥) ≠ 0 ↔ (μ‘𝑛) ≠ 0))
4		breq1 5082	. . . . . . . . . 10 ⊢ (𝑥 = 𝑛 → (𝑥 ∥ 𝑁 ↔ 𝑛 ∥ 𝑁))
5	3, 4	anbi12d 638	. . . . . . . . 9 ⊢ (𝑥 = 𝑛 → (((μ‘𝑥) ≠ 0 ∧ 𝑥 ∥ 𝑁) ↔ ((μ‘𝑛) ≠ 0 ∧ 𝑛 ∥ 𝑁)))
6		sqff1o.1	. . . . . . . . 9 ⊢ 𝑆 = {𝑥 ∈ ℕ ∣ ((μ‘𝑥) ≠ 0 ∧ 𝑥 ∥ 𝑁)}
7	5, 6	elrab2 3639	. . . . . . . 8 ⊢ (𝑛 ∈ 𝑆 ↔ (𝑛 ∈ ℕ ∧ ((μ‘𝑛) ≠ 0 ∧ 𝑛 ∥ 𝑁)))
8	7	simprbi 498	. . . . . . 7 ⊢ (𝑛 ∈ 𝑆 → ((μ‘𝑛) ≠ 0 ∧ 𝑛 ∥ 𝑁))
9	8	simprd 496	. . . . . 6 ⊢ (𝑛 ∈ 𝑆 → 𝑛 ∥ 𝑁)
10	9	ad2antlr 733	. . . . 5 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → 𝑛 ∥ 𝑁)
11		prmz 16642	. . . . . . 7 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
12	11	adantl 482	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
13		simplr 774	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → 𝑛 ∈ 𝑆)
14	13, 7	sylib 219	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → (𝑛 ∈ ℕ ∧ ((μ‘𝑛) ≠ 0 ∧ 𝑛 ∥ 𝑁)))
15	14	simpld 495	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → 𝑛 ∈ ℕ)
16	15	nnzd 12548	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → 𝑛 ∈ ℤ)
17		nnz 12543	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
18	17	ad2antrr 732	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℤ)
19		dvdstr 16261	. . . . . 6 ⊢ ((𝑝 ∈ ℤ ∧ 𝑛 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑝 ∥ 𝑛 ∧ 𝑛 ∥ 𝑁) → 𝑝 ∥ 𝑁))
20	12, 16, 18, 19	syl3anc 1379	. . . . 5 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ 𝑛 ∧ 𝑛 ∥ 𝑁) → 𝑝 ∥ 𝑁))
21	10, 20	mpan2d 700	. . . 4 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ 𝑛 → 𝑝 ∥ 𝑁))
22	21	ss2rabdv 4013	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) → {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛} ⊆ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})
23		prmex 16644	. . . . 5 ⊢ ℙ ∈ V
24	23	rabex 5274	. . . 4 ⊢ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛} ∈ V
25	24	elpw 4540	. . 3 ⊢ ({𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛} ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁} ↔ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛} ⊆ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})
26	22, 25	sylibr 235	. 2 ⊢ ((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) → {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛} ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})
27		cnveq 5822	. . . . . . 7 ⊢ (𝑦 = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) → ◡𝑦 = ◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))
28	27	imaeq1d 6018	. . . . . 6 ⊢ (𝑦 = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) → (◡𝑦 “ ℕ) = (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ))
29	28	eleq1d 2825	. . . . 5 ⊢ (𝑦 = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) → ((◡𝑦 “ ℕ) ∈ Fin ↔ (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) ∈ Fin))
30		1nn0 12451	. . . . . . . . . 10 ⊢ 1 ∈ ℕ0
31		0nn0 12450	. . . . . . . . . 10 ⊢ 0 ∈ ℕ0
32	30, 31	ifcli 4509	. . . . . . . . 9 ⊢ if(𝑘 ∈ 𝑧, 1, 0) ∈ ℕ0
33	32	rgenw 3058	. . . . . . . 8 ⊢ ∀𝑘 ∈ ℙ if(𝑘 ∈ 𝑧, 1, 0) ∈ ℕ0
34		eqid 2740	. . . . . . . . 9 ⊢ (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))
35	34	fmpt 7058	. . . . . . . 8 ⊢ (∀𝑘 ∈ ℙ if(𝑘 ∈ 𝑧, 1, 0) ∈ ℕ0 ↔ (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)):ℙ⟶ℕ0)
36	33, 35	mpbi 231	. . . . . . 7 ⊢ (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)):ℙ⟶ℕ0
37	36	a1i 11	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)):ℙ⟶ℕ0)
38		nn0ex 12441	. . . . . . 7 ⊢ ℕ0 ∈ V
39	38, 23	elmap 8816	. . . . . 6 ⊢ ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ∈ (ℕ0 ↑m ℙ) ↔ (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)):ℙ⟶ℕ0)
40	37, 39	sylibr 235	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ∈ (ℕ0 ↑m ℙ))
41		fzfi 13932	. . . . . 6 ⊢ (1...𝑁) ∈ Fin
42		ffn 6662	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)):ℙ⟶ℕ0 → (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) Fn ℙ)
43		elpreima 7006	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) Fn ℙ → (𝑥 ∈ (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) ↔ (𝑥 ∈ ℙ ∧ ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))‘𝑥) ∈ ℕ)))
44	36, 42, 43	mp2b 10	. . . . . . . . . 10 ⊢ (𝑥 ∈ (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) ↔ (𝑥 ∈ ℙ ∧ ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))‘𝑥) ∈ ℕ))
45		elequ1 2126	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑥 → (𝑘 ∈ 𝑧 ↔ 𝑥 ∈ 𝑧))
46	45	ifbid 4485	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑥 → if(𝑘 ∈ 𝑧, 1, 0) = if(𝑥 ∈ 𝑧, 1, 0))
47	30, 31	ifcli 4509	. . . . . . . . . . . . . 14 ⊢ if(𝑥 ∈ 𝑧, 1, 0) ∈ ℕ0
48	47	elexi 3455	. . . . . . . . . . . . 13 ⊢ if(𝑥 ∈ 𝑧, 1, 0) ∈ V
49	46, 34, 48	fvmpt 6942	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ ℙ → ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))‘𝑥) = if(𝑥 ∈ 𝑧, 1, 0))
50	49	eleq1d 2825	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℙ → (((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))‘𝑥) ∈ ℕ ↔ if(𝑥 ∈ 𝑧, 1, 0) ∈ ℕ))
51	50	biimpa 477	. . . . . . . . . 10 ⊢ ((𝑥 ∈ ℙ ∧ ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))‘𝑥) ∈ ℕ) → if(𝑥 ∈ 𝑧, 1, 0) ∈ ℕ)
52	44, 51	sylbi 218	. . . . . . . . 9 ⊢ (𝑥 ∈ (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) → if(𝑥 ∈ 𝑧, 1, 0) ∈ ℕ)
53		0nnn 12211	. . . . . . . . . . 11 ⊢ ¬ 0 ∈ ℕ
54		iffalse 4470	. . . . . . . . . . . 12 ⊢ (¬ 𝑥 ∈ 𝑧 → if(𝑥 ∈ 𝑧, 1, 0) = 0)
55	54	eleq1d 2825	. . . . . . . . . . 11 ⊢ (¬ 𝑥 ∈ 𝑧 → (if(𝑥 ∈ 𝑧, 1, 0) ∈ ℕ ↔ 0 ∈ ℕ))
56	53, 55	mtbiri 328	. . . . . . . . . 10 ⊢ (¬ 𝑥 ∈ 𝑧 → ¬ if(𝑥 ∈ 𝑧, 1, 0) ∈ ℕ)
57	56	con4i 114	. . . . . . . . 9 ⊢ (if(𝑥 ∈ 𝑧, 1, 0) ∈ ℕ → 𝑥 ∈ 𝑧)
58	52, 57	syl 17	. . . . . . . 8 ⊢ (𝑥 ∈ (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) → 𝑥 ∈ 𝑧)
59	58	ssriv 3926	. . . . . . 7 ⊢ (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) ⊆ 𝑧
60		elpwi 4543	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁} → 𝑧 ⊆ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})
61	60	adantl 482	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → 𝑧 ⊆ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})
62		prmssnn 16643	. . . . . . . . . 10 ⊢ ℙ ⊆ ℕ
63		rabss2 4015	. . . . . . . . . 10 ⊢ (ℙ ⊆ ℕ → {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁} ⊆ {𝑝 ∈ ℕ ∣ 𝑝 ∥ 𝑁})
64	62, 63	ax-mp 5	. . . . . . . . 9 ⊢ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁} ⊆ {𝑝 ∈ ℕ ∣ 𝑝 ∥ 𝑁}
65		dvdsssfz1 16285	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → {𝑝 ∈ ℕ ∣ 𝑝 ∥ 𝑁} ⊆ (1...𝑁))
66	65	adantr 481	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → {𝑝 ∈ ℕ ∣ 𝑝 ∥ 𝑁} ⊆ (1...𝑁))
67	64, 66	sstrid 3933	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁} ⊆ (1...𝑁))
68	61, 67	sstrd 3932	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → 𝑧 ⊆ (1...𝑁))
69	59, 68	sstrid 3933	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) ⊆ (1...𝑁))
70		ssfi 9104	. . . . . 6 ⊢ (((1...𝑁) ∈ Fin ∧ (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) ⊆ (1...𝑁)) → (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) ∈ Fin)
71	41, 69, 70	sylancr 593	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (◡(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) “ ℕ) ∈ Fin)
72	29, 40, 71	elrabd 3638	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ∈ {𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin})
73		sqff1o.3	. . . . . . 7 ⊢ 𝐺 = (𝑛 ∈ ℕ ↦ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)))
74		eqid 2740	. . . . . . 7 ⊢ {𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin} = {𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin}
75	73, 74	1arith 16896	. . . . . 6 ⊢ 𝐺:ℕ–1-1-onto→{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin}
76		f1ocnv 6786	. . . . . 6 ⊢ (𝐺:ℕ–1-1-onto→{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin} → ◡𝐺:{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin}–1-1-onto→ℕ)
77		f1of 6774	. . . . . 6 ⊢ (◡𝐺:{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin}–1-1-onto→ℕ → ◡𝐺:{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin}⟶ℕ)
78	75, 76, 77	mp2b 10	. . . . 5 ⊢ ◡𝐺:{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin}⟶ℕ
79	78	ffvelcdmi 7031	. . . 4 ⊢ ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ∈ {𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin} → (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ ℕ)
80	72, 79	syl 17	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ ℕ)
81		f1ocnvfv2 7228	. . . . . . . . . . . 12 ⊢ ((𝐺:ℕ–1-1-onto→{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin} ∧ (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ∈ {𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin}) → (𝐺‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))
82	75, 72, 81	sylancr 593	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (𝐺‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))
83	73	1arithlem1 16892	. . . . . . . . . . . 12 ⊢ ((◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ ℕ → (𝐺‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) = (𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))))))
84	80, 83	syl 17	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (𝐺‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) = (𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))))))
85	82, 84	eqtr3d 2777	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) = (𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))))))
86	85	fveq1d 6836	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))‘𝑞) = ((𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))‘𝑞))
87		elequ1 2126	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑞 → (𝑘 ∈ 𝑧 ↔ 𝑞 ∈ 𝑧))
88	87	ifbid 4485	. . . . . . . . . 10 ⊢ (𝑘 = 𝑞 → if(𝑘 ∈ 𝑧, 1, 0) = if(𝑞 ∈ 𝑧, 1, 0))
89	30, 31	ifcli 4509	. . . . . . . . . . 11 ⊢ if(𝑞 ∈ 𝑧, 1, 0) ∈ ℕ0
90	89	elexi 3455	. . . . . . . . . 10 ⊢ if(𝑞 ∈ 𝑧, 1, 0) ∈ V
91	88, 34, 90	fvmpt 6942	. . . . . . . . 9 ⊢ (𝑞 ∈ ℙ → ((𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))‘𝑞) = if(𝑞 ∈ 𝑧, 1, 0))
92	86, 91	sylan9req 2796	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → ((𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))‘𝑞) = if(𝑞 ∈ 𝑧, 1, 0))
93		oveq1 7370	. . . . . . . . . 10 ⊢ (𝑝 = 𝑞 → (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) = (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))
94		eqid 2740	. . . . . . . . . 10 ⊢ (𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))))) = (𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))
95		ovex 7396	. . . . . . . . . 10 ⊢ (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ∈ V
96	93, 94, 95	fvmpt 6942	. . . . . . . . 9 ⊢ (𝑞 ∈ ℙ → ((𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))‘𝑞) = (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))
97	96	adantl 482	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → ((𝑝 ∈ ℙ ↦ (𝑝 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))‘𝑞) = (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))
98	92, 97	eqtr3d 2777	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → if(𝑞 ∈ 𝑧, 1, 0) = (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))
99		breq1 5082	. . . . . . . 8 ⊢ (1 = if(𝑞 ∈ 𝑧, 1, 0) → (1 ≤ 1 ↔ if(𝑞 ∈ 𝑧, 1, 0) ≤ 1))
100		breq1 5082	. . . . . . . 8 ⊢ (0 = if(𝑞 ∈ 𝑧, 1, 0) → (0 ≤ 1 ↔ if(𝑞 ∈ 𝑧, 1, 0) ≤ 1))
101		1le1 11776	. . . . . . . 8 ⊢ 1 ≤ 1
102		0le1 11671	. . . . . . . 8 ⊢ 0 ≤ 1
103	99, 100, 101, 102	keephyp 4533	. . . . . . 7 ⊢ if(𝑞 ∈ 𝑧, 1, 0) ≤ 1
104	98, 103	eqbrtrrdi 5119	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≤ 1)
105	104	ralrimiva 3132	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → ∀𝑞 ∈ ℙ (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≤ 1)
106		issqf 27124	. . . . . 6 ⊢ ((◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ ℕ → ((μ‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≠ 0 ↔ ∀𝑞 ∈ ℙ (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≤ 1))
107	80, 106	syl 17	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → ((μ‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≠ 0 ↔ ∀𝑞 ∈ ℙ (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≤ 1))
108	105, 107	mpbird 258	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (μ‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≠ 0)
109		iftrue 4467	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ 𝑧 → if(𝑞 ∈ 𝑧, 1, 0) = 1)
110	109	adantl 482	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → if(𝑞 ∈ 𝑧, 1, 0) = 1)
111	61	sselda 3922	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → 𝑞 ∈ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})
112		breq1 5082	. . . . . . . . . . . . . . . 16 ⊢ (𝑝 = 𝑞 → (𝑝 ∥ 𝑁 ↔ 𝑞 ∥ 𝑁))
113	112	elrab 3636	. . . . . . . . . . . . . . 15 ⊢ (𝑞 ∈ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁} ↔ (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁))
114	111, 113	sylib 219	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → (𝑞 ∈ ℙ ∧ 𝑞 ∥ 𝑁))
115	114	simprd 496	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → 𝑞 ∥ 𝑁)
116	114	simpld 495	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → 𝑞 ∈ ℙ)
117		simpll 772	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → 𝑁 ∈ ℕ)
118		pcelnn 16839	. . . . . . . . . . . . . 14 ⊢ ((𝑞 ∈ ℙ ∧ 𝑁 ∈ ℕ) → ((𝑞 pCnt 𝑁) ∈ ℕ ↔ 𝑞 ∥ 𝑁))
119	116, 117, 118	syl2anc 590	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → ((𝑞 pCnt 𝑁) ∈ ℕ ↔ 𝑞 ∥ 𝑁))
120	115, 119	mpbird 258	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → (𝑞 pCnt 𝑁) ∈ ℕ)
121	120	nnge1d 12223	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → 1 ≤ (𝑞 pCnt 𝑁))
122	110, 121	eqbrtrd 5101	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ 𝑧) → if(𝑞 ∈ 𝑧, 1, 0) ≤ (𝑞 pCnt 𝑁))
123	122	ex 413	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (𝑞 ∈ 𝑧 → if(𝑞 ∈ 𝑧, 1, 0) ≤ (𝑞 pCnt 𝑁)))
124	123	adantr 481	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → (𝑞 ∈ 𝑧 → if(𝑞 ∈ 𝑧, 1, 0) ≤ (𝑞 pCnt 𝑁)))
125		simpr 485	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → 𝑞 ∈ ℙ)
126	17	ad2antrr 732	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → 𝑁 ∈ ℤ)
127		pcge0 16831	. . . . . . . . . 10 ⊢ ((𝑞 ∈ ℙ ∧ 𝑁 ∈ ℤ) → 0 ≤ (𝑞 pCnt 𝑁))
128	125, 126, 127	syl2anc 590	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → 0 ≤ (𝑞 pCnt 𝑁))
129		iffalse 4470	. . . . . . . . . 10 ⊢ (¬ 𝑞 ∈ 𝑧 → if(𝑞 ∈ 𝑧, 1, 0) = 0)
130	129	breq1d 5089	. . . . . . . . 9 ⊢ (¬ 𝑞 ∈ 𝑧 → (if(𝑞 ∈ 𝑧, 1, 0) ≤ (𝑞 pCnt 𝑁) ↔ 0 ≤ (𝑞 pCnt 𝑁)))
131	128, 130	syl5ibrcom 248	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → (¬ 𝑞 ∈ 𝑧 → if(𝑞 ∈ 𝑧, 1, 0) ≤ (𝑞 pCnt 𝑁)))
132	124, 131	pm2.61d 180	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → if(𝑞 ∈ 𝑧, 1, 0) ≤ (𝑞 pCnt 𝑁))
133	98, 132	eqbrtrrd 5103	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) ∧ 𝑞 ∈ ℙ) → (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≤ (𝑞 pCnt 𝑁))
134	133	ralrimiva 3132	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → ∀𝑞 ∈ ℙ (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≤ (𝑞 pCnt 𝑁))
135	80	nnzd 12548	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ ℤ)
136	17	adantr 481	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → 𝑁 ∈ ℤ)
137		pc2dvds 16848	. . . . . 6 ⊢ (((◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∥ 𝑁 ↔ ∀𝑞 ∈ ℙ (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≤ (𝑞 pCnt 𝑁)))
138	135, 136, 137	syl2anc 590	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → ((◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∥ 𝑁 ↔ ∀𝑞 ∈ ℙ (𝑞 pCnt (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≤ (𝑞 pCnt 𝑁)))
139	134, 138	mpbird 258	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∥ 𝑁)
140	108, 139	jca 516	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → ((μ‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≠ 0 ∧ (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∥ 𝑁))
141		fveq2 6834	. . . . . 6 ⊢ (𝑥 = (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) → (μ‘𝑥) = (μ‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))
142	141	neeq1d 2994	. . . . 5 ⊢ (𝑥 = (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) → ((μ‘𝑥) ≠ 0 ↔ (μ‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≠ 0))
143		breq1 5082	. . . . 5 ⊢ (𝑥 = (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) → (𝑥 ∥ 𝑁 ↔ (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∥ 𝑁))
144	142, 143	anbi12d 638	. . . 4 ⊢ (𝑥 = (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) → (((μ‘𝑥) ≠ 0 ∧ 𝑥 ∥ 𝑁) ↔ ((μ‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≠ 0 ∧ (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∥ 𝑁)))
145	144, 6	elrab2 3639	. . 3 ⊢ ((◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ 𝑆 ↔ ((◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ ℕ ∧ ((μ‘(◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))) ≠ 0 ∧ (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∥ 𝑁)))
146	80, 140, 145	sylanbrc 589	. 2 ⊢ ((𝑁 ∈ ℕ ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁}) → (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ∈ 𝑆)
147		eqcom 2747	. . 3 ⊢ (𝑛 = (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ↔ (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) = 𝑛)
148	7	simplbi 497	. . . . . . 7 ⊢ (𝑛 ∈ 𝑆 → 𝑛 ∈ ℕ)
149	148	ad2antrl 734	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → 𝑛 ∈ ℕ)
150	23	mptex 7174	. . . . . 6 ⊢ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) ∈ V
151	73	fvmpt2 6954	. . . . . 6 ⊢ ((𝑛 ∈ ℕ ∧ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) ∈ V) → (𝐺‘𝑛) = (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)))
152	149, 150, 151	sylancl 592	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → (𝐺‘𝑛) = (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)))
153	152	eqeq1d 2742	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → ((𝐺‘𝑛) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ↔ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))))
154	75	a1i 11	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → 𝐺:ℕ–1-1-onto→{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin})
155	72	adantrl 722	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ∈ {𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin})
156		f1ocnvfvb 7230	. . . . 5 ⊢ ((𝐺:ℕ–1-1-onto→{𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin} ∧ 𝑛 ∈ ℕ ∧ (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ∈ {𝑦 ∈ (ℕ0 ↑m ℙ) ∣ (◡𝑦 “ ℕ) ∈ Fin}) → ((𝐺‘𝑛) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ↔ (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) = 𝑛))
157	154, 149, 155, 156	syl3anc 1379	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → ((𝐺‘𝑛) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ↔ (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) = 𝑛))
158	23	a1i 11	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → ℙ ∈ V)
159		0cnd 11135	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → 0 ∈ ℂ)
160		1cnd 11137	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → 1 ∈ ℂ)
161		0ne1 12250	. . . . . . . 8 ⊢ 0 ≠ 1
162	161	a1i 11	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → 0 ≠ 1)
163	158, 159, 160, 162	pw2f1olem 9016	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → ((𝑧 ∈ 𝒫 ℙ ∧ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ↔ ((𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) ∈ ({0, 1} ↑m ℙ) ∧ 𝑧 = (◡(𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) “ {1}))))
164		ssrab2 4018	. . . . . . . . 9 ⊢ {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁} ⊆ ℙ
165	164	sspwi 4548	. . . . . . . 8 ⊢ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁} ⊆ 𝒫 ℙ
166		simprr 778	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})
167	165, 166	sselid 3920	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → 𝑧 ∈ 𝒫 ℙ)
168	167	biantrurd 537	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → ((𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ↔ (𝑧 ∈ 𝒫 ℙ ∧ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)))))
169		id 22	. . . . . . . . . . . . . . 15 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
170	148	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) → 𝑛 ∈ ℕ)
171		pccl 16818	. . . . . . . . . . . . . . 15 ⊢ ((𝑝 ∈ ℙ ∧ 𝑛 ∈ ℕ) → (𝑝 pCnt 𝑛) ∈ ℕ0)
172	169, 170, 171	syl2anr 603	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt 𝑛) ∈ ℕ0)
173		elnn0 12437	. . . . . . . . . . . . . 14 ⊢ ((𝑝 pCnt 𝑛) ∈ ℕ0 ↔ ((𝑝 pCnt 𝑛) ∈ ℕ ∨ (𝑝 pCnt 𝑛) = 0))
174	172, 173	sylib 219	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝑛) ∈ ℕ ∨ (𝑝 pCnt 𝑛) = 0))
175	174	orcomd 877	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝑛) = 0 ∨ (𝑝 pCnt 𝑛) ∈ ℕ))
176	8	simpld 495	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ 𝑆 → (μ‘𝑛) ≠ 0)
177	176	adantl 482	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) → (μ‘𝑛) ≠ 0)
178		issqf 27124	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((μ‘𝑛) ≠ 0 ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt 𝑛) ≤ 1))
179	170, 178	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) → ((μ‘𝑛) ≠ 0 ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt 𝑛) ≤ 1))
180	177, 179	mpbid 233	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) → ∀𝑝 ∈ ℙ (𝑝 pCnt 𝑛) ≤ 1)
181	180	r19.21bi 3232	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt 𝑛) ≤ 1)
182		nnle1eq1 12205	. . . . . . . . . . . . . 14 ⊢ ((𝑝 pCnt 𝑛) ∈ ℕ → ((𝑝 pCnt 𝑛) ≤ 1 ↔ (𝑝 pCnt 𝑛) = 1))
183	181, 182	syl5ibcom 246	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝑛) ∈ ℕ → (𝑝 pCnt 𝑛) = 1))
184	183	orim2d 974	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → (((𝑝 pCnt 𝑛) = 0 ∨ (𝑝 pCnt 𝑛) ∈ ℕ) → ((𝑝 pCnt 𝑛) = 0 ∨ (𝑝 pCnt 𝑛) = 1)))
185	175, 184	mpd 15	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝑛) = 0 ∨ (𝑝 pCnt 𝑛) = 1))
186		ovex 7396	. . . . . . . . . . . 12 ⊢ (𝑝 pCnt 𝑛) ∈ V
187	186	elpr 4587	. . . . . . . . . . 11 ⊢ ((𝑝 pCnt 𝑛) ∈ {0, 1} ↔ ((𝑝 pCnt 𝑛) = 0 ∨ (𝑝 pCnt 𝑛) = 1))
188	185, 187	sylibr 235	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt 𝑛) ∈ {0, 1})
189	188	fmpttd 7063	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) → (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)):ℙ⟶{0, 1})
190	189	adantrr 723	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)):ℙ⟶{0, 1})
191		prex 5374	. . . . . . . . 9 ⊢ {0, 1} ∈ V
192	191, 23	elmap 8816	. . . . . . . 8 ⊢ ((𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) ∈ ({0, 1} ↑m ℙ) ↔ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)):ℙ⟶{0, 1})
193	190, 192	sylibr 235	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) ∈ ({0, 1} ↑m ℙ))
194	193	biantrurd 537	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → (𝑧 = (◡(𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) “ {1}) ↔ ((𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) ∈ ({0, 1} ↑m ℙ) ∧ 𝑧 = (◡(𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) “ {1}))))
195	163, 168, 194	3bitr4d 312	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → ((𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ↔ 𝑧 = (◡(𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) “ {1})))
196		eqid 2740	. . . . . . . . 9 ⊢ (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) = (𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛))
197	196	mptiniseg 6197	. . . . . . . 8 ⊢ (1 ∈ ℕ0 → (◡(𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) “ {1}) = {𝑝 ∈ ℙ ∣ (𝑝 pCnt 𝑛) = 1})
198	30, 197	ax-mp 5	. . . . . . 7 ⊢ (◡(𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) “ {1}) = {𝑝 ∈ ℙ ∣ (𝑝 pCnt 𝑛) = 1}
199		id 22	. . . . . . . . . . . 12 ⊢ ((𝑝 pCnt 𝑛) = 1 → (𝑝 pCnt 𝑛) = 1)
200		1nn 12183	. . . . . . . . . . . 12 ⊢ 1 ∈ ℕ
201	199, 200	eqeltrdi 2848	. . . . . . . . . . 11 ⊢ ((𝑝 pCnt 𝑛) = 1 → (𝑝 pCnt 𝑛) ∈ ℕ)
202	201, 183	impbid2 227	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝑛) = 1 ↔ (𝑝 pCnt 𝑛) ∈ ℕ))
203		simpr 485	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
204		pcelnn 16839	. . . . . . . . . . 11 ⊢ ((𝑝 ∈ ℙ ∧ 𝑛 ∈ ℕ) → ((𝑝 pCnt 𝑛) ∈ ℕ ↔ 𝑝 ∥ 𝑛))
205	203, 15, 204	syl2anc 590	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝑛) ∈ ℕ ↔ 𝑝 ∥ 𝑛))
206	202, 205	bitrd 280	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt 𝑛) = 1 ↔ 𝑝 ∥ 𝑛))
207	206	rabbidva 3398	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑛 ∈ 𝑆) → {𝑝 ∈ ℙ ∣ (𝑝 pCnt 𝑛) = 1} = {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛})
208	207	adantrr 723	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → {𝑝 ∈ ℙ ∣ (𝑝 pCnt 𝑛) = 1} = {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛})
209	198, 208	eqtrid 2787	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → (◡(𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) “ {1}) = {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛})
210	209	eqeq2d 2751	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → (𝑧 = (◡(𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) “ {1}) ↔ 𝑧 = {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛}))
211	195, 210	bitrd 280	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → ((𝑝 ∈ ℙ ↦ (𝑝 pCnt 𝑛)) = (𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0)) ↔ 𝑧 = {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛}))
212	153, 157, 211	3bitr3d 310	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → ((◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) = 𝑛 ↔ 𝑧 = {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛}))
213	147, 212	bitrid 284	. 2 ⊢ ((𝑁 ∈ ℕ ∧ (𝑛 ∈ 𝑆 ∧ 𝑧 ∈ 𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})) → (𝑛 = (◡𝐺‘(𝑘 ∈ ℙ ↦ if(𝑘 ∈ 𝑧, 1, 0))) ↔ 𝑧 = {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑛}))
214	1, 26, 146, 213	f1o2d 7617	1 ⊢ (𝑁 ∈ ℕ → 𝐹:𝑆–1-1-onto→𝒫 {𝑝 ∈ ℙ ∣ 𝑝 ∥ 𝑁})

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∨ wo 853   = wceq 1547   ∈ wcel 2119   ≠ wne 2935  ∀wral 3054  {crab 3392  Vcvv 3432   ⊆ wss 3890  ifcif 4461  𝒫 cpw 4536  {csn 4562  {cpr 4564   class class class wbr 5079   ↦ cmpt 5160  ^◡ccnv 5624   “ cima 5628   Fn wfn 6487  ⟶wf 6488  –1-1-onto→wf1o 6491  ‘cfv 6492  (class class class)co 7363   ↑_m cmap 8770  Fincfn 8890  ℂcc 11034  0cc0 11036  1c1 11037   ≤ cle 11178  ℕcn 12172  ℕ₀cn0 12435  ℤcz 12522  ...cfz 13459   ∥ cdvds 16219  ℙcprime 16638   pCnt cpc 16805  μcmu 27083

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-cnex 11092  ax-resscn 11093  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-addrcl 11097  ax-mulcl 11098  ax-mulrcl 11099  ax-mulcom 11100  ax-addass 11101  ax-mulass 11102  ax-distr 11103  ax-i2m1 11104  ax-1ne0 11105  ax-1rid 11106  ax-rnegex 11107  ax-rrecex 11108  ax-cnre 11109  ax-pre-lttri 11110  ax-pre-lttrn 11111  ax-pre-ltadd 11112  ax-pre-mulgt0 11113  ax-pre-sup 11114

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-nel 3040  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-int 4885  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-om 7814  df-1st 7938  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-2o 8403  df-er 8640  df-map 8772  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-sup 9352  df-inf 9353  df-card 9861  df-pnf 11179  df-mnf 11180  df-xr 11181  df-ltxr 11182  df-le 11183  df-sub 11377  df-neg 11378  df-div 11806  df-nn 12173  df-2 12242  df-3 12243  df-n0 12436  df-z 12523  df-uz 12787  df-q 12897  df-rp 12941  df-fz 13460  df-fl 13749  df-mod 13827  df-seq 13962  df-exp 14022  df-hash 14291  df-cj 15059  df-re 15060  df-im 15061  df-sqrt 15195  df-abs 15196  df-dvds 16220  df-gcd 16462  df-prm 16639  df-pc 16806  df-mu 27089

This theorem is referenced by:  musum  27179