Theorem fsumdvdsdiaglem 25762

Description: A "diagonal commutation" of divisor sums analogous to fsum0diag 15134. (Contributed by Mario Carneiro, 2-Jul-2015.) (Revised by Mario Carneiro, 8-Apr-2016.)

Hypothesis

Ref	Expression
fsumdvdsdiag.1	⊢ (𝜑 → 𝑁 ∈ ℕ)

Assertion

Ref	Expression
fsumdvdsdiaglem	⊢ (𝜑 → ((𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)}) → (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑘)})))

Distinct variable groups:   𝑗,𝑘,𝑥,𝑁   𝜑,𝑗,𝑘

Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem fsumdvdsdiaglem

Step	Hyp	Ref	Expression
1		breq1 5071	. . . 4 ⊢ (𝑥 = 𝑘 → (𝑥 ∥ 𝑁 ↔ 𝑘 ∥ 𝑁))
2		elrabi 3677	. . . . 5 ⊢ (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)} → 𝑘 ∈ ℕ)
3	2	ad2antll 727	. . . 4 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∈ ℕ)
4		breq1 5071	. . . . . . . 8 ⊢ (𝑥 = 𝑘 → (𝑥 ∥ (𝑁 / 𝑗) ↔ 𝑘 ∥ (𝑁 / 𝑗)))
5	4	elrab 3682	. . . . . . 7 ⊢ (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)} ↔ (𝑘 ∈ ℕ ∧ 𝑘 ∥ (𝑁 / 𝑗)))
6	5	simprbi 499	. . . . . 6 ⊢ (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)} → 𝑘 ∥ (𝑁 / 𝑗))
7	6	ad2antll 727	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∥ (𝑁 / 𝑗))
8		fsumdvdsdiag.1	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ ℕ)
9	8	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑁 ∈ ℕ)
10		simprl 769	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁})
11		dvdsdivcl 15668	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) → (𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁})
12	9, 10, 11	syl2anc 586	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁})
13		breq1 5071	. . . . . . . 8 ⊢ (𝑥 = (𝑁 / 𝑗) → (𝑥 ∥ 𝑁 ↔ (𝑁 / 𝑗) ∥ 𝑁))
14	13	elrab 3682	. . . . . . 7 ⊢ ((𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ↔ ((𝑁 / 𝑗) ∈ ℕ ∧ (𝑁 / 𝑗) ∥ 𝑁))
15	14	simprbi 499	. . . . . 6 ⊢ ((𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} → (𝑁 / 𝑗) ∥ 𝑁)
16	12, 15	syl 17	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑗) ∥ 𝑁)
17	3	nnzd 12089	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∈ ℤ)
18		elrabi 3677	. . . . . . . 8 ⊢ ((𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} → (𝑁 / 𝑗) ∈ ℕ)
19	12, 18	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑗) ∈ ℕ)
20	19	nnzd 12089	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑗) ∈ ℤ)
21	9	nnzd 12089	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑁 ∈ ℤ)
22		dvdstr 15648	. . . . . 6 ⊢ ((𝑘 ∈ ℤ ∧ (𝑁 / 𝑗) ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑘 ∥ (𝑁 / 𝑗) ∧ (𝑁 / 𝑗) ∥ 𝑁) → 𝑘 ∥ 𝑁))
23	17, 20, 21, 22	syl3anc 1367	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑘 ∥ (𝑁 / 𝑗) ∧ (𝑁 / 𝑗) ∥ 𝑁) → 𝑘 ∥ 𝑁))
24	7, 16, 23	mp2and 697	. . . 4 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∥ 𝑁)
25	1, 3, 24	elrabd 3684	. . 3 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁})
26		breq1 5071	. . . 4 ⊢ (𝑥 = 𝑗 → (𝑥 ∥ (𝑁 / 𝑘) ↔ 𝑗 ∥ (𝑁 / 𝑘)))
27		elrabi 3677	. . . . 5 ⊢ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} → 𝑗 ∈ ℕ)
28	27	ad2antrl 726	. . . 4 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ ℕ)
29	28	nnzd 12089	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ ℤ)
30	28	nnne0d 11690	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ≠ 0)
31		dvdsmulcr 15641	. . . . . . . 8 ⊢ ((𝑘 ∈ ℤ ∧ (𝑁 / 𝑗) ∈ ℤ ∧ (𝑗 ∈ ℤ ∧ 𝑗 ≠ 0)) → ((𝑘 · 𝑗) ∥ ((𝑁 / 𝑗) · 𝑗) ↔ 𝑘 ∥ (𝑁 / 𝑗)))
32	17, 20, 29, 30, 31	syl112anc 1370	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑘 · 𝑗) ∥ ((𝑁 / 𝑗) · 𝑗) ↔ 𝑘 ∥ (𝑁 / 𝑗)))
33	7, 32	mpbird 259	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑘 · 𝑗) ∥ ((𝑁 / 𝑗) · 𝑗))
34	9	nncnd 11656	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑁 ∈ ℂ)
35	28	nncnd 11656	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ ℂ)
36	34, 35, 30	divcan1d 11419	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑁 / 𝑗) · 𝑗) = 𝑁)
37	3	nncnd 11656	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∈ ℂ)
38	3	nnne0d 11690	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ≠ 0)
39	34, 37, 38	divcan2d 11420	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑘 · (𝑁 / 𝑘)) = 𝑁)
40	36, 39	eqtr4d 2861	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑁 / 𝑗) · 𝑗) = (𝑘 · (𝑁 / 𝑘)))
41	33, 40	breqtrd 5094	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑘 · 𝑗) ∥ (𝑘 · (𝑁 / 𝑘)))
42		ssrab2 4058	. . . . . . . 8 ⊢ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ⊆ ℕ
43		dvdsdivcl 15668	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) → (𝑁 / 𝑘) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁})
44	9, 25, 43	syl2anc 586	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑘) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁})
45	42, 44	sseldi 3967	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑘) ∈ ℕ)
46	45	nnzd 12089	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑘) ∈ ℤ)
47		dvdscmulr 15640	. . . . . 6 ⊢ ((𝑗 ∈ ℤ ∧ (𝑁 / 𝑘) ∈ ℤ ∧ (𝑘 ∈ ℤ ∧ 𝑘 ≠ 0)) → ((𝑘 · 𝑗) ∥ (𝑘 · (𝑁 / 𝑘)) ↔ 𝑗 ∥ (𝑁 / 𝑘)))
48	29, 46, 17, 38, 47	syl112anc 1370	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑘 · 𝑗) ∥ (𝑘 · (𝑁 / 𝑘)) ↔ 𝑗 ∥ (𝑁 / 𝑘)))
49	41, 48	mpbid 234	. . . 4 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∥ (𝑁 / 𝑘))
50	26, 28, 49	elrabd 3684	. . 3 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑘)})
51	25, 50	jca 514	. 2 ⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑘)}))
52	51	ex 415	1 ⊢ (𝜑 → ((𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)}) → (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑘)})))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∈ wcel 2114   ≠ wne 3018  {crab 3144   class class class wbr 5068  (class class class)co 7158  0cc0 10539   · cmul 10544   / cdiv 11299  ℕcn 11640  ℤcz 11984   ∥ cdvds 15609

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-er 8291  df-en 8512  df-dom 8513  df-sdom 8514  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-n0 11901  df-z 11985  df-dvds 15610

This theorem is referenced by:  fsumdvdsdiag  25763  fsumdvdscom  25764