Theorem isppw2 25997

Description: Two ways to say that 𝐴 is a prime power. (Contributed by Mario Carneiro, 7-Apr-2016.)

Assertion

Ref	Expression
isppw2	⊢ (𝐴 ∈ ℕ → ((Λ‘𝐴) ≠ 0 ↔ ∃𝑝 ∈ ℙ ∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘)))

Distinct variable group:   𝑘,𝑝,𝐴

Proof of Theorem isppw2

Dummy variable 𝑞 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		isppw 25996	. 2 ⊢ (𝐴 ∈ ℕ → ((Λ‘𝐴) ≠ 0 ↔ ∃!𝑞 ∈ ℙ 𝑞 ∥ 𝐴))
2		reu6 3639	. . 3 ⊢ (∃!𝑞 ∈ ℙ 𝑞 ∥ 𝐴 ↔ ∃𝑝 ∈ ℙ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))
3		equid 2020	. . . . . . . . 9 ⊢ 𝑝 = 𝑝
4		breq1 5056	. . . . . . . . . . . 12 ⊢ (𝑞 = 𝑝 → (𝑞 ∥ 𝐴 ↔ 𝑝 ∥ 𝐴))
5		equequ1 2033	. . . . . . . . . . . 12 ⊢ (𝑞 = 𝑝 → (𝑞 = 𝑝 ↔ 𝑝 = 𝑝))
6	4, 5	bibi12d 349	. . . . . . . . . . 11 ⊢ (𝑞 = 𝑝 → ((𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝) ↔ (𝑝 ∥ 𝐴 ↔ 𝑝 = 𝑝)))
7	6	rspcva 3535	. . . . . . . . . 10 ⊢ ((𝑝 ∈ ℙ ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → (𝑝 ∥ 𝐴 ↔ 𝑝 = 𝑝))
8	7	adantll 714	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → (𝑝 ∥ 𝐴 ↔ 𝑝 = 𝑝))
9	3, 8	mpbiri 261	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → 𝑝 ∥ 𝐴)
10		simplr 769	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → 𝑝 ∈ ℙ)
11		simpll 767	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → 𝐴 ∈ ℕ)
12		pcelnn 16423	. . . . . . . . 9 ⊢ ((𝑝 ∈ ℙ ∧ 𝐴 ∈ ℕ) → ((𝑝 pCnt 𝐴) ∈ ℕ ↔ 𝑝 ∥ 𝐴))
13	10, 11, 12	syl2anc 587	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → ((𝑝 pCnt 𝐴) ∈ ℕ ↔ 𝑝 ∥ 𝐴))
14	9, 13	mpbird 260	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → (𝑝 pCnt 𝐴) ∈ ℕ)
15		simpr 488	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → 𝑞 = 𝑝)
16	15	oveq1d 7228	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → (𝑞 pCnt 𝐴) = (𝑝 pCnt 𝐴))
17		simpllr 776	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → 𝑝 ∈ ℙ)
18		pccl 16402	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑝 ∈ ℙ ∧ 𝐴 ∈ ℕ) → (𝑝 pCnt 𝐴) ∈ ℕ0)
19	18	ancoms 462	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt 𝐴) ∈ ℕ0)
20	19	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → (𝑝 pCnt 𝐴) ∈ ℕ0)
21	20	nn0zd 12280	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → (𝑝 pCnt 𝐴) ∈ ℤ)
22		pcid 16426	. . . . . . . . . . . . . . 15 ⊢ ((𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℤ) → (𝑝 pCnt (𝑝↑(𝑝 pCnt 𝐴))) = (𝑝 pCnt 𝐴))
23	17, 21, 22	syl2anc 587	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → (𝑝 pCnt (𝑝↑(𝑝 pCnt 𝐴))) = (𝑝 pCnt 𝐴))
24	16, 23	eqtr4d 2780	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → (𝑞 pCnt 𝐴) = (𝑝 pCnt (𝑝↑(𝑝 pCnt 𝐴))))
25	15	oveq1d 7228	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴))) = (𝑝 pCnt (𝑝↑(𝑝 pCnt 𝐴))))
26	24, 25	eqtr4d 2780	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ 𝑞 = 𝑝) → (𝑞 pCnt 𝐴) = (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴))))
27		simprr 773	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) → (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))
28	27	notbid 321	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) → (¬ 𝑞 ∥ 𝐴 ↔ ¬ 𝑞 = 𝑝))
29	28	biimpar 481	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → ¬ 𝑞 ∥ 𝐴)
30		simplrl 777	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → 𝑞 ∈ ℙ)
31		simplll 775	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → 𝐴 ∈ ℕ)
32		pceq0 16424	. . . . . . . . . . . . . . 15 ⊢ ((𝑞 ∈ ℙ ∧ 𝐴 ∈ ℕ) → ((𝑞 pCnt 𝐴) = 0 ↔ ¬ 𝑞 ∥ 𝐴))
33	30, 31, 32	syl2anc 587	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → ((𝑞 pCnt 𝐴) = 0 ↔ ¬ 𝑞 ∥ 𝐴))
34	29, 33	mpbird 260	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → (𝑞 pCnt 𝐴) = 0)
35		simprl 771	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) → 𝑞 ∈ ℙ)
36		simplr 769	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) → 𝑝 ∈ ℙ)
37	19	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) → (𝑝 pCnt 𝐴) ∈ ℕ0)
38		prmdvdsexpr 16274	. . . . . . . . . . . . . . . 16 ⊢ ((𝑞 ∈ ℙ ∧ 𝑝 ∈ ℙ ∧ (𝑝 pCnt 𝐴) ∈ ℕ0) → (𝑞 ∥ (𝑝↑(𝑝 pCnt 𝐴)) → 𝑞 = 𝑝))
39	35, 36, 37, 38	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) → (𝑞 ∥ (𝑝↑(𝑝 pCnt 𝐴)) → 𝑞 = 𝑝))
40	39	con3dimp 412	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → ¬ 𝑞 ∥ (𝑝↑(𝑝 pCnt 𝐴)))
41		prmnn 16231	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
42	41	adantl 485	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℕ)
43	42, 19	nnexpcld 13812	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (𝑝↑(𝑝 pCnt 𝐴)) ∈ ℕ)
44	43	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → (𝑝↑(𝑝 pCnt 𝐴)) ∈ ℕ)
45		pceq0 16424	. . . . . . . . . . . . . . 15 ⊢ ((𝑞 ∈ ℙ ∧ (𝑝↑(𝑝 pCnt 𝐴)) ∈ ℕ) → ((𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴))) = 0 ↔ ¬ 𝑞 ∥ (𝑝↑(𝑝 pCnt 𝐴))))
46	30, 44, 45	syl2anc 587	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → ((𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴))) = 0 ↔ ¬ 𝑞 ∥ (𝑝↑(𝑝 pCnt 𝐴))))
47	40, 46	mpbird 260	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴))) = 0)
48	34, 47	eqtr4d 2780	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) ∧ ¬ 𝑞 = 𝑝) → (𝑞 pCnt 𝐴) = (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴))))
49	26, 48	pm2.61dan 813	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ (𝑞 ∈ ℙ ∧ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝))) → (𝑞 pCnt 𝐴) = (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴))))
50	49	expr 460	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → ((𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝) → (𝑞 pCnt 𝐴) = (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴)))))
51	50	ralimdva 3100	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝) → ∀𝑞 ∈ ℙ (𝑞 pCnt 𝐴) = (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴)))))
52	51	imp 410	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → ∀𝑞 ∈ ℙ (𝑞 pCnt 𝐴) = (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴))))
53		nnnn0 12097	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℕ0)
54	53	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → 𝐴 ∈ ℕ0)
55	43	adantr 484	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → (𝑝↑(𝑝 pCnt 𝐴)) ∈ ℕ)
56	55	nnnn0d 12150	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → (𝑝↑(𝑝 pCnt 𝐴)) ∈ ℕ0)
57		pc11 16433	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℕ0 ∧ (𝑝↑(𝑝 pCnt 𝐴)) ∈ ℕ0) → (𝐴 = (𝑝↑(𝑝 pCnt 𝐴)) ↔ ∀𝑞 ∈ ℙ (𝑞 pCnt 𝐴) = (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴)))))
58	54, 56, 57	syl2anc 587	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → (𝐴 = (𝑝↑(𝑝 pCnt 𝐴)) ↔ ∀𝑞 ∈ ℙ (𝑞 pCnt 𝐴) = (𝑞 pCnt (𝑝↑(𝑝 pCnt 𝐴)))))
59	52, 58	mpbird 260	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → 𝐴 = (𝑝↑(𝑝 pCnt 𝐴)))
60		oveq2 7221	. . . . . . . 8 ⊢ (𝑘 = (𝑝 pCnt 𝐴) → (𝑝↑𝑘) = (𝑝↑(𝑝 pCnt 𝐴)))
61	60	rspceeqv 3552	. . . . . . 7 ⊢ (((𝑝 pCnt 𝐴) ∈ ℕ ∧ 𝐴 = (𝑝↑(𝑝 pCnt 𝐴))) → ∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘))
62	14, 59, 61	syl2anc 587	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)) → ∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘))
63	62	ex 416	. . . . 5 ⊢ ((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝) → ∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘)))
64		prmdvdsexpb 16273	. . . . . . . . . . 11 ⊢ ((𝑞 ∈ ℙ ∧ 𝑝 ∈ ℙ ∧ 𝑘 ∈ ℕ) → (𝑞 ∥ (𝑝↑𝑘) ↔ 𝑞 = 𝑝))
65	64	3coml 1129	. . . . . . . . . 10 ⊢ ((𝑝 ∈ ℙ ∧ 𝑘 ∈ ℕ ∧ 𝑞 ∈ ℙ) → (𝑞 ∥ (𝑝↑𝑘) ↔ 𝑞 = 𝑝))
66	65	3expa 1120	. . . . . . . . 9 ⊢ (((𝑝 ∈ ℙ ∧ 𝑘 ∈ ℕ) ∧ 𝑞 ∈ ℙ) → (𝑞 ∥ (𝑝↑𝑘) ↔ 𝑞 = 𝑝))
67	66	ralrimiva 3105	. . . . . . . 8 ⊢ ((𝑝 ∈ ℙ ∧ 𝑘 ∈ ℕ) → ∀𝑞 ∈ ℙ (𝑞 ∥ (𝑝↑𝑘) ↔ 𝑞 = 𝑝))
68	67	adantll 714	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑘 ∈ ℕ) → ∀𝑞 ∈ ℙ (𝑞 ∥ (𝑝↑𝑘) ↔ 𝑞 = 𝑝))
69		breq2 5057	. . . . . . . . 9 ⊢ (𝐴 = (𝑝↑𝑘) → (𝑞 ∥ 𝐴 ↔ 𝑞 ∥ (𝑝↑𝑘)))
70	69	bibi1d 347	. . . . . . . 8 ⊢ (𝐴 = (𝑝↑𝑘) → ((𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝) ↔ (𝑞 ∥ (𝑝↑𝑘) ↔ 𝑞 = 𝑝)))
71	70	ralbidv 3118	. . . . . . 7 ⊢ (𝐴 = (𝑝↑𝑘) → (∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝) ↔ ∀𝑞 ∈ ℙ (𝑞 ∥ (𝑝↑𝑘) ↔ 𝑞 = 𝑝)))
72	68, 71	syl5ibrcom 250	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) ∧ 𝑘 ∈ ℕ) → (𝐴 = (𝑝↑𝑘) → ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)))
73	72	rexlimdva 3203	. . . . 5 ⊢ ((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘) → ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝)))
74	63, 73	impbid 215	. . . 4 ⊢ ((𝐴 ∈ ℕ ∧ 𝑝 ∈ ℙ) → (∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝) ↔ ∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘)))
75	74	rexbidva 3215	. . 3 ⊢ (𝐴 ∈ ℕ → (∃𝑝 ∈ ℙ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝐴 ↔ 𝑞 = 𝑝) ↔ ∃𝑝 ∈ ℙ ∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘)))
76	2, 75	syl5bb 286	. 2 ⊢ (𝐴 ∈ ℕ → (∃!𝑞 ∈ ℙ 𝑞 ∥ 𝐴 ↔ ∃𝑝 ∈ ℙ ∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘)))
77	1, 76	bitrd 282	1 ⊢ (𝐴 ∈ ℕ → ((Λ‘𝐴) ≠ 0 ↔ ∃𝑝 ∈ ℙ ∃𝑘 ∈ ℕ 𝐴 = (𝑝↑𝑘)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   = wceq 1543   ∈ wcel 2110   ≠ wne 2940  ∀wral 3061  ∃wrex 3062  ∃!wreu 3063   class class class wbr 5053  ‘cfv 6380  (class class class)co 7213  0cc0 10729  ℕcn 11830  ℕ₀cn0 12090  ℤcz 12176  ↑cexp 13635   ∥ cdvds 15815  ℙcprime 16228   pCnt cpc 16389  Λcvma 25974

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523  ax-inf2 9256  ax-cnex 10785  ax-resscn 10786  ax-1cn 10787  ax-icn 10788  ax-addcl 10789  ax-addrcl 10790  ax-mulcl 10791  ax-mulrcl 10792  ax-mulcom 10793  ax-addass 10794  ax-mulass 10795  ax-distr 10796  ax-i2m1 10797  ax-1ne0 10798  ax-1rid 10799  ax-rnegex 10800  ax-rrecex 10801  ax-cnre 10802  ax-pre-lttri 10803  ax-pre-lttrn 10804  ax-pre-ltadd 10805  ax-pre-mulgt0 10806  ax-pre-sup 10807  ax-addf 10808  ax-mulf 10809

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-int 4860  df-iun 4906  df-iin 4907  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-se 5510  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-isom 6389  df-riota 7170  df-ov 7216  df-oprab 7217  df-mpo 7218  df-of 7469  df-om 7645  df-1st 7761  df-2nd 7762  df-supp 7904  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-1o 8202  df-2o 8203  df-oadd 8206  df-er 8391  df-map 8510  df-pm 8511  df-ixp 8579  df-en 8627  df-dom 8628  df-sdom 8629  df-fin 8630  df-fsupp 8986  df-fi 9027  df-sup 9058  df-inf 9059  df-oi 9126  df-dju 9517  df-card 9555  df-pnf 10869  df-mnf 10870  df-xr 10871  df-ltxr 10872  df-le 10873  df-sub 11064  df-neg 11065  df-div 11490  df-nn 11831  df-2 11893  df-3 11894  df-4 11895  df-5 11896  df-6 11897  df-7 11898  df-8 11899  df-9 11900  df-n0 12091  df-z 12177  df-dec 12294  df-uz 12439  df-q 12545  df-rp 12587  df-xneg 12704  df-xadd 12705  df-xmul 12706  df-ioo 12939  df-ioc 12940  df-ico 12941  df-icc 12942  df-fz 13096  df-fzo 13239  df-fl 13367  df-mod 13443  df-seq 13575  df-exp 13636  df-fac 13840  df-bc 13869  df-hash 13897  df-shft 14630  df-cj 14662  df-re 14663  df-im 14664  df-sqrt 14798  df-abs 14799  df-limsup 15032  df-clim 15049  df-rlim 15050  df-sum 15250  df-ef 15629  df-sin 15631  df-cos 15632  df-pi 15634  df-dvds 15816  df-gcd 16054  df-prm 16229  df-pc 16390  df-struct 16700  df-sets 16717  df-slot 16735  df-ndx 16745  df-base 16761  df-ress 16785  df-plusg 16815  df-mulr 16816  df-starv 16817  df-sca 16818  df-vsca 16819  df-ip 16820  df-tset 16821  df-ple 16822  df-ds 16824  df-unif 16825  df-hom 16826  df-cco 16827  df-rest 16927  df-topn 16928  df-0g 16946  df-gsum 16947  df-topgen 16948  df-pt 16949  df-prds 16952  df-xrs 17007  df-qtop 17012  df-imas 17013  df-xps 17015  df-mre 17089  df-mrc 17090  df-acs 17092  df-mgm 18114  df-sgrp 18163  df-mnd 18174  df-submnd 18219  df-mulg 18489  df-cntz 18711  df-cmn 19172  df-psmet 20355  df-xmet 20356  df-met 20357  df-bl 20358  df-mopn 20359  df-fbas 20360  df-fg 20361  df-cnfld 20364  df-top 21791  df-topon 21808  df-topsp 21830  df-bases 21843  df-cld 21916  df-ntr 21917  df-cls 21918  df-nei 21995  df-lp 22033  df-perf 22034  df-cn 22124  df-cnp 22125  df-haus 22212  df-tx 22459  df-hmeo 22652  df-fil 22743  df-fm 22835  df-flim 22836  df-flf 22837  df-xms 23218  df-ms 23219  df-tms 23220  df-cncf 23775  df-limc 24763  df-dv 24764  df-log 25445  df-vma 25980

This theorem is referenced by:  vmacl  26000  efvmacl  26002  vma1  26048  vmalelog  26086  fsumvma  26094