Theorem dvdsppwf1o 27174

Description: A bijection between the divisors of a prime power and the integers less than or equal to the exponent. (Contributed by Mario Carneiro, 5-May-2016.)

Hypothesis

Ref	Expression
dvdsppwf1o.f	⊢ 𝐹 = (𝑛 ∈ (0...𝐴) ↦ (𝑃↑𝑛))

Assertion

Ref	Expression
dvdsppwf1o	⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) → 𝐹:(0...𝐴)–1-1-onto→{𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)})

Distinct variable groups:   𝑥,𝑛,𝐴   𝑃,𝑛,𝑥

Allowed substitution hints:   𝐹(𝑥,𝑛)

Proof of Theorem dvdsppwf1o

Dummy variable 𝑚 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dvdsppwf1o.f	. 2 ⊢ 𝐹 = (𝑛 ∈ (0...𝐴) ↦ (𝑃↑𝑛))
2		breq1 5082	. . 3 ⊢ (𝑥 = (𝑃↑𝑛) → (𝑥 ∥ (𝑃↑𝐴) ↔ (𝑃↑𝑛) ∥ (𝑃↑𝐴)))
3		prmnn 16641	. . . . 5 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
4	3	adantr 481	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) → 𝑃 ∈ ℕ)
5		elfznn0 13572	. . . 4 ⊢ (𝑛 ∈ (0...𝐴) → 𝑛 ∈ ℕ0)
6		nnexpcl 14034	. . . 4 ⊢ ((𝑃 ∈ ℕ ∧ 𝑛 ∈ ℕ0) → (𝑃↑𝑛) ∈ ℕ)
7	4, 5, 6	syl2an 602	. . 3 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑛 ∈ (0...𝐴)) → (𝑃↑𝑛) ∈ ℕ)
8		prmz 16642	. . . . 5 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
9	8	ad2antrr 732	. . . 4 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑛 ∈ (0...𝐴)) → 𝑃 ∈ ℤ)
10	5	adantl 482	. . . 4 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑛 ∈ (0...𝐴)) → 𝑛 ∈ ℕ0)
11		elfzuz3 13473	. . . . 5 ⊢ (𝑛 ∈ (0...𝐴) → 𝐴 ∈ (ℤ≥‘𝑛))
12	11	adantl 482	. . . 4 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑛 ∈ (0...𝐴)) → 𝐴 ∈ (ℤ≥‘𝑛))
13		dvdsexp 16295	. . . 4 ⊢ ((𝑃 ∈ ℤ ∧ 𝑛 ∈ ℕ0 ∧ 𝐴 ∈ (ℤ≥‘𝑛)) → (𝑃↑𝑛) ∥ (𝑃↑𝐴))
14	9, 10, 12, 13	syl3anc 1379	. . 3 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑛 ∈ (0...𝐴)) → (𝑃↑𝑛) ∥ (𝑃↑𝐴))
15	2, 7, 14	elrabd 3638	. 2 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑛 ∈ (0...𝐴)) → (𝑃↑𝑛) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)})
16		simpl 483	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) → 𝑃 ∈ ℙ)
17		elrabi 3632	. . . 4 ⊢ (𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)} → 𝑚 ∈ ℕ)
18		pccl 16818	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ ℕ) → (𝑃 pCnt 𝑚) ∈ ℕ0)
19	16, 17, 18	syl2an 602	. . 3 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → (𝑃 pCnt 𝑚) ∈ ℕ0)
20	16	adantr 481	. . . . 5 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → 𝑃 ∈ ℙ)
21	17	adantl 482	. . . . . 6 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → 𝑚 ∈ ℕ)
22	21	nnzd 12548	. . . . 5 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → 𝑚 ∈ ℤ)
23	8	ad2antrr 732	. . . . . 6 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → 𝑃 ∈ ℤ)
24		simplr 774	. . . . . 6 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → 𝐴 ∈ ℕ0)
25		zexpcl 14036	. . . . . 6 ⊢ ((𝑃 ∈ ℤ ∧ 𝐴 ∈ ℕ0) → (𝑃↑𝐴) ∈ ℤ)
26	23, 24, 25	syl2anc 590	. . . . 5 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → (𝑃↑𝐴) ∈ ℤ)
27		breq1 5082	. . . . . . . 8 ⊢ (𝑥 = 𝑚 → (𝑥 ∥ (𝑃↑𝐴) ↔ 𝑚 ∥ (𝑃↑𝐴)))
28	27	elrab 3636	. . . . . . 7 ⊢ (𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)} ↔ (𝑚 ∈ ℕ ∧ 𝑚 ∥ (𝑃↑𝐴)))
29	28	simprbi 498	. . . . . 6 ⊢ (𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)} → 𝑚 ∥ (𝑃↑𝐴))
30	29	adantl 482	. . . . 5 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → 𝑚 ∥ (𝑃↑𝐴))
31		pcdvdstr 16845	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ (𝑚 ∈ ℤ ∧ (𝑃↑𝐴) ∈ ℤ ∧ 𝑚 ∥ (𝑃↑𝐴))) → (𝑃 pCnt 𝑚) ≤ (𝑃 pCnt (𝑃↑𝐴)))
32	20, 22, 26, 30, 31	syl13anc 1380	. . . 4 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → (𝑃 pCnt 𝑚) ≤ (𝑃 pCnt (𝑃↑𝐴)))
33		pcidlem 16841	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) → (𝑃 pCnt (𝑃↑𝐴)) = 𝐴)
34	33	adantr 481	. . . 4 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → (𝑃 pCnt (𝑃↑𝐴)) = 𝐴)
35	32, 34	breqtrd 5105	. . 3 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → (𝑃 pCnt 𝑚) ≤ 𝐴)
36		fznn0 13571	. . . 4 ⊢ (𝐴 ∈ ℕ0 → ((𝑃 pCnt 𝑚) ∈ (0...𝐴) ↔ ((𝑃 pCnt 𝑚) ∈ ℕ0 ∧ (𝑃 pCnt 𝑚) ≤ 𝐴)))
37	24, 36	syl 17	. . 3 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → ((𝑃 pCnt 𝑚) ∈ (0...𝐴) ↔ ((𝑃 pCnt 𝑚) ∈ ℕ0 ∧ (𝑃 pCnt 𝑚) ≤ 𝐴)))
38	19, 35, 37	mpbir2and 719	. 2 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → (𝑃 pCnt 𝑚) ∈ (0...𝐴))
39		oveq2 7371	. . . . . . . . 9 ⊢ (𝑛 = 𝐴 → (𝑃↑𝑛) = (𝑃↑𝐴))
40	39	breq2d 5091	. . . . . . . 8 ⊢ (𝑛 = 𝐴 → (𝑚 ∥ (𝑃↑𝑛) ↔ 𝑚 ∥ (𝑃↑𝐴)))
41	40	rspcev 3567	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ0 ∧ 𝑚 ∥ (𝑃↑𝐴)) → ∃𝑛 ∈ ℕ0 𝑚 ∥ (𝑃↑𝑛))
42	24, 30, 41	syl2anc 590	. . . . . 6 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → ∃𝑛 ∈ ℕ0 𝑚 ∥ (𝑃↑𝑛))
43		pcprmpw2 16851	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ ℕ) → (∃𝑛 ∈ ℕ0 𝑚 ∥ (𝑃↑𝑛) ↔ 𝑚 = (𝑃↑(𝑃 pCnt 𝑚))))
44	16, 17, 43	syl2an 602	. . . . . 6 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → (∃𝑛 ∈ ℕ0 𝑚 ∥ (𝑃↑𝑛) ↔ 𝑚 = (𝑃↑(𝑃 pCnt 𝑚))))
45	42, 44	mpbid 233	. . . . 5 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)}) → 𝑚 = (𝑃↑(𝑃 pCnt 𝑚)))
46	45	adantrl 722	. . . 4 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ (𝑛 ∈ (0...𝐴) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)})) → 𝑚 = (𝑃↑(𝑃 pCnt 𝑚)))
47		oveq2 7371	. . . . 5 ⊢ (𝑛 = (𝑃 pCnt 𝑚) → (𝑃↑𝑛) = (𝑃↑(𝑃 pCnt 𝑚)))
48	47	eqeq2d 2751	. . . 4 ⊢ (𝑛 = (𝑃 pCnt 𝑚) → (𝑚 = (𝑃↑𝑛) ↔ 𝑚 = (𝑃↑(𝑃 pCnt 𝑚))))
49	46, 48	syl5ibrcom 248	. . 3 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ (𝑛 ∈ (0...𝐴) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)})) → (𝑛 = (𝑃 pCnt 𝑚) → 𝑚 = (𝑃↑𝑛)))
50		elfzelz 13476	. . . . . . 7 ⊢ (𝑛 ∈ (0...𝐴) → 𝑛 ∈ ℤ)
51		pcid 16842	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝑛 ∈ ℤ) → (𝑃 pCnt (𝑃↑𝑛)) = 𝑛)
52	16, 50, 51	syl2an 602	. . . . . 6 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑛 ∈ (0...𝐴)) → (𝑃 pCnt (𝑃↑𝑛)) = 𝑛)
53	52	eqcomd 2746	. . . . 5 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ 𝑛 ∈ (0...𝐴)) → 𝑛 = (𝑃 pCnt (𝑃↑𝑛)))
54	53	adantrr 723	. . . 4 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ (𝑛 ∈ (0...𝐴) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)})) → 𝑛 = (𝑃 pCnt (𝑃↑𝑛)))
55		oveq2 7371	. . . . 5 ⊢ (𝑚 = (𝑃↑𝑛) → (𝑃 pCnt 𝑚) = (𝑃 pCnt (𝑃↑𝑛)))
56	55	eqeq2d 2751	. . . 4 ⊢ (𝑚 = (𝑃↑𝑛) → (𝑛 = (𝑃 pCnt 𝑚) ↔ 𝑛 = (𝑃 pCnt (𝑃↑𝑛))))
57	54, 56	syl5ibrcom 248	. . 3 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ (𝑛 ∈ (0...𝐴) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)})) → (𝑚 = (𝑃↑𝑛) → 𝑛 = (𝑃 pCnt 𝑚)))
58	49, 57	impbid 213	. 2 ⊢ (((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) ∧ (𝑛 ∈ (0...𝐴) ∧ 𝑚 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)})) → (𝑛 = (𝑃 pCnt 𝑚) ↔ 𝑚 = (𝑃↑𝑛)))
59	1, 15, 38, 58	f1o2d 7617	1 ⊢ ((𝑃 ∈ ℙ ∧ 𝐴 ∈ ℕ0) → 𝐹:(0...𝐴)–1-1-onto→{𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑃↑𝐴)})

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119  ∃wrex 3064  {crab 3392   class class class wbr 5079   ↦ cmpt 5160  –1-1-onto→wf1o 6491  ‘cfv 6492  (class class class)co 7363  0cc0 11036   ≤ cle 11178  ℕcn 12172  ℕ₀cn0 12435  ℤcz 12522  ℤ_≥cuz 12786  ...cfz 13459  ↑cexp 14021   ∥ cdvds 16219  ℙcprime 16638   pCnt cpc 16805

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-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-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-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-sup 9352  df-inf 9353  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-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

This theorem is referenced by:  sgmppw  27185  0sgmppw  27186  dchrisum0flblem1  27496