rpexp - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > rpexp		Structured version Visualization version GIF version

Theorem rpexp 15803

Description: If two numbers 𝐴 and 𝐵 are relatively prime, then they are still relatively prime if raised to a power. (Contributed by Mario Carneiro, 24-Feb-2014.)

**Assertion**
Ref	Expression
rpexp	⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (((𝐴↑𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1))

Proof of Theorem rpexp Dummy variable 𝑝 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		0exp 13189	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (0↑𝑁) = 0)
2	1	oveq1d 6920	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((0↑𝑁) gcd 0) = (0 gcd 0))
3	2	eqeq1d 2827	. . . 4 ⊢ (𝑁 ∈ ℕ → (((0↑𝑁) gcd 0) = 1 ↔ (0 gcd 0) = 1))
4		oveq1 6912	. . . . . . 7 ⊢ (𝐴 = 0 → (𝐴↑𝑁) = (0↑𝑁))
5		oveq12 6914	. . . . . . 7 ⊢ (((𝐴↑𝑁) = (0↑𝑁) ∧ 𝐵 = 0) → ((𝐴↑𝑁) gcd 𝐵) = ((0↑𝑁) gcd 0))
6	4, 5	sylan 577	. . . . . 6 ⊢ ((𝐴 = 0 ∧ 𝐵 = 0) → ((𝐴↑𝑁) gcd 𝐵) = ((0↑𝑁) gcd 0))
7	6	eqeq1d 2827	. . . . 5 ⊢ ((𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴↑𝑁) gcd 𝐵) = 1 ↔ ((0↑𝑁) gcd 0) = 1))
8		oveq12 6914	. . . . . 6 ⊢ ((𝐴 = 0 ∧ 𝐵 = 0) → (𝐴 gcd 𝐵) = (0 gcd 0))
9	8	eqeq1d 2827	. . . . 5 ⊢ ((𝐴 = 0 ∧ 𝐵 = 0) → ((𝐴 gcd 𝐵) = 1 ↔ (0 gcd 0) = 1))
10	7, 9	bibi12d 337	. . . 4 ⊢ ((𝐴 = 0 ∧ 𝐵 = 0) → ((((𝐴↑𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1) ↔ (((0↑𝑁) gcd 0) = 1 ↔ (0 gcd 0) = 1)))
11	3, 10	syl5ibrcom 239	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴↑𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1)))
12	11	3ad2ant3 1171	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴↑𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1)))
13		exprmfct 15787	. . . . . . 7 ⊢ (((𝐴↑𝑁) gcd 𝐵) ∈ (ℤ_≥‘2) → ∃𝑝 ∈ ℙ 𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵))
14		simpl1 1248	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐴 ∈ ℤ)
15		simpl3 1252	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝑁 ∈ ℕ)
16	15	nnnn0d 11678	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝑁 ∈ ℕ₀)
17		zexpcl 13169	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ₀) → (𝐴↑𝑁) ∈ ℤ)
18	14, 16, 17	syl2anc 581	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴↑𝑁) ∈ ℤ)
19	18	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴↑𝑁) ∈ ℤ)
20		simpl2 1250	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐵 ∈ ℤ)
21	20	adantr 474	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐵 ∈ ℤ)
22		gcddvds 15598	. . . . . . . . . . . . . . 15 ⊢ (((𝐴↑𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) → (((𝐴↑𝑁) gcd 𝐵) ∥ (𝐴↑𝑁) ∧ ((𝐴↑𝑁) gcd 𝐵) ∥ 𝐵))
23	19, 21, 22	syl2anc 581	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (((𝐴↑𝑁) gcd 𝐵) ∥ (𝐴↑𝑁) ∧ ((𝐴↑𝑁) gcd 𝐵) ∥ 𝐵))
24	23	simpld 490	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴↑𝑁) gcd 𝐵) ∥ (𝐴↑𝑁))
25		prmz 15761	. . . . . . . . . . . . . . 15 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
26	25	adantl 475	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
27		simpr 479	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ¬ (𝐴 = 0 ∧ 𝐵 = 0))
28	14	zcnd 11811	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐴 ∈ ℂ)
29		expeq0 13184	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ 𝑁 ∈ ℕ) → ((𝐴↑𝑁) = 0 ↔ 𝐴 = 0))
30	28, 15, 29	syl2anc 581	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴↑𝑁) = 0 ↔ 𝐴 = 0))
31	30	anbi1d 625	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴↑𝑁) = 0 ∧ 𝐵 = 0) ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
32	27, 31	mtbird 317	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ¬ ((𝐴↑𝑁) = 0 ∧ 𝐵 = 0))
33		gcdn0cl 15597	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐴↑𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ ((𝐴↑𝑁) = 0 ∧ 𝐵 = 0)) → ((𝐴↑𝑁) gcd 𝐵) ∈ ℕ)
34	18, 20, 32, 33	syl21anc 873	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴↑𝑁) gcd 𝐵) ∈ ℕ)
35	34	nnzd 11809	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴↑𝑁) gcd 𝐵) ∈ ℤ)
36	35	adantr 474	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴↑𝑁) gcd 𝐵) ∈ ℤ)
37		dvdstr 15395	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℤ ∧ ((𝐴↑𝑁) gcd 𝐵) ∈ ℤ ∧ (𝐴↑𝑁) ∈ ℤ) → ((𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) ∧ ((𝐴↑𝑁) gcd 𝐵) ∥ (𝐴↑𝑁)) → 𝑝 ∥ (𝐴↑𝑁)))
38	26, 36, 19, 37	syl3anc 1496	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) ∧ ((𝐴↑𝑁) gcd 𝐵) ∥ (𝐴↑𝑁)) → 𝑝 ∥ (𝐴↑𝑁)))
39	24, 38	mpan2d 687	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → 𝑝 ∥ (𝐴↑𝑁)))
40		simpr 479	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
41		simpll1 1275	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∈ ℤ)
42	15	adantr 474	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℕ)
43		prmdvdsexp 15798	. . . . . . . . . . . . 13 ⊢ ((𝑝 ∈ ℙ ∧ 𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑝 ∥ (𝐴↑𝑁) ↔ 𝑝 ∥ 𝐴))
44	40, 41, 42, 43	syl3anc 1496	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴↑𝑁) ↔ 𝑝 ∥ 𝐴))
45	39, 44	sylibd 231	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → 𝑝 ∥ 𝐴))
46	23	simprd 491	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴↑𝑁) gcd 𝐵) ∥ 𝐵)
47		dvdstr 15395	. . . . . . . . . . . . 13 ⊢ ((𝑝 ∈ ℤ ∧ ((𝐴↑𝑁) gcd 𝐵) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) ∧ ((𝐴↑𝑁) gcd 𝐵) ∥ 𝐵) → 𝑝 ∥ 𝐵))
48	26, 36, 21, 47	syl3anc 1496	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) ∧ ((𝐴↑𝑁) gcd 𝐵) ∥ 𝐵) → 𝑝 ∥ 𝐵))
49	46, 48	mpan2d 687	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → 𝑝 ∥ 𝐵))
50	45, 49	jcad 510	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → (𝑝 ∥ 𝐴 ∧ 𝑝 ∥ 𝐵)))
51		dvdsgcd 15634	. . . . . . . . . . 11 ⊢ ((𝑝 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ 𝐴 ∧ 𝑝 ∥ 𝐵) → 𝑝 ∥ (𝐴 gcd 𝐵)))
52	26, 41, 21, 51	syl3anc 1496	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ 𝐴 ∧ 𝑝 ∥ 𝐵) → 𝑝 ∥ (𝐴 gcd 𝐵)))
53		nprmdvds1 15789	. . . . . . . . . . . . 13 ⊢ (𝑝 ∈ ℙ → ¬ 𝑝 ∥ 1)
54		breq2 4877	. . . . . . . . . . . . . 14 ⊢ ((𝐴 gcd 𝐵) = 1 → (𝑝 ∥ (𝐴 gcd 𝐵) ↔ 𝑝 ∥ 1))
55	54	notbid 310	. . . . . . . . . . . . 13 ⊢ ((𝐴 gcd 𝐵) = 1 → (¬ 𝑝 ∥ (𝐴 gcd 𝐵) ↔ ¬ 𝑝 ∥ 1))
56	53, 55	syl5ibrcom 239	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ ℙ → ((𝐴 gcd 𝐵) = 1 → ¬ 𝑝 ∥ (𝐴 gcd 𝐵)))
57	56	necon2ad 3014	. . . . . . . . . . 11 ⊢ (𝑝 ∈ ℙ → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
58	57	adantl 475	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
59	50, 52, 58	3syld 60	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
60	59	rexlimdva 3240	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
61		gcdn0cl 15597	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℕ)
62	61	3adantl3 1215	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℕ)
63		eluz2b3 12045	. . . . . . . . . 10 ⊢ ((𝐴 gcd 𝐵) ∈ (ℤ_≥‘2) ↔ ((𝐴 gcd 𝐵) ∈ ℕ ∧ (𝐴 gcd 𝐵) ≠ 1))
64	63	baib 533	. . . . . . . . 9 ⊢ ((𝐴 gcd 𝐵) ∈ ℕ → ((𝐴 gcd 𝐵) ∈ (ℤ_≥‘2) ↔ (𝐴 gcd 𝐵) ≠ 1))
65	62, 64	syl 17	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴 gcd 𝐵) ∈ (ℤ_≥‘2) ↔ (𝐴 gcd 𝐵) ≠ 1))
66	60, 65	sylibrd 251	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → (𝐴 gcd 𝐵) ∈ (ℤ_≥‘2)))
67	13, 66	syl5 34	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴↑𝑁) gcd 𝐵) ∈ (ℤ_≥‘2) → (𝐴 gcd 𝐵) ∈ (ℤ_≥‘2)))
68		exprmfct 15787	. . . . . . 7 ⊢ ((𝐴 gcd 𝐵) ∈ (ℤ_≥‘2) → ∃𝑝 ∈ ℙ 𝑝 ∥ (𝐴 gcd 𝐵))
69		gcddvds 15598	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵))
70	41, 21, 69	syl2anc 581	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵))
71	70	simpld 490	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ 𝐴)
72		iddvdsexp 15382	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝐴 ∥ (𝐴↑𝑁))
73	41, 42, 72	syl2anc 581	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∥ (𝐴↑𝑁))
74	62	nnzd 11809	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℤ)
75	74	adantr 474	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∈ ℤ)
76		dvdstr 15395	. . . . . . . . . . . . . 14 ⊢ (((𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ (𝐴↑𝑁) ∈ ℤ) → (((𝐴 gcd 𝐵) ∥ 𝐴 ∧ 𝐴 ∥ (𝐴↑𝑁)) → (𝐴 gcd 𝐵) ∥ (𝐴↑𝑁)))
77	75, 41, 19, 76	syl3anc 1496	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (((𝐴 gcd 𝐵) ∥ 𝐴 ∧ 𝐴 ∥ (𝐴↑𝑁)) → (𝐴 gcd 𝐵) ∥ (𝐴↑𝑁)))
78	71, 73, 77	mp2and 692	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ (𝐴↑𝑁))
79		dvdstr 15395	. . . . . . . . . . . . 13 ⊢ ((𝑝 ∈ ℤ ∧ (𝐴 gcd 𝐵) ∈ ℤ ∧ (𝐴↑𝑁) ∈ ℤ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ (𝐴↑𝑁)) → 𝑝 ∥ (𝐴↑𝑁)))
80	26, 75, 19, 79	syl3anc 1496	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ (𝐴↑𝑁)) → 𝑝 ∥ (𝐴↑𝑁)))
81	78, 80	mpan2d 687	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → 𝑝 ∥ (𝐴↑𝑁)))
82	70	simprd 491	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ 𝐵)
83		dvdstr 15395	. . . . . . . . . . . . 13 ⊢ ((𝑝 ∈ ℤ ∧ (𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ 𝐵) → 𝑝 ∥ 𝐵))
84	26, 75, 21, 83	syl3anc 1496	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ 𝐵) → 𝑝 ∥ 𝐵))
85	82, 84	mpan2d 687	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → 𝑝 ∥ 𝐵))
86	81, 85	jcad 510	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝑝 ∥ (𝐴↑𝑁) ∧ 𝑝 ∥ 𝐵)))
87		dvdsgcd 15634	. . . . . . . . . . 11 ⊢ ((𝑝 ∈ ℤ ∧ (𝐴↑𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ (𝐴↑𝑁) ∧ 𝑝 ∥ 𝐵) → 𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵)))
88	26, 19, 21, 87	syl3anc 1496	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴↑𝑁) ∧ 𝑝 ∥ 𝐵) → 𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵)))
89		breq2 4877	. . . . . . . . . . . . . 14 ⊢ (((𝐴↑𝑁) gcd 𝐵) = 1 → (𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) ↔ 𝑝 ∥ 1))
90	89	notbid 310	. . . . . . . . . . . . 13 ⊢ (((𝐴↑𝑁) gcd 𝐵) = 1 → (¬ 𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) ↔ ¬ 𝑝 ∥ 1))
91	53, 90	syl5ibrcom 239	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ ℙ → (((𝐴↑𝑁) gcd 𝐵) = 1 → ¬ 𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵)))
92	91	necon2ad 3014	. . . . . . . . . . 11 ⊢ (𝑝 ∈ ℙ → (𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → ((𝐴↑𝑁) gcd 𝐵) ≠ 1))
93	92	adantl 475	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴↑𝑁) gcd 𝐵) → ((𝐴↑𝑁) gcd 𝐵) ≠ 1))
94	86, 88, 93	3syld 60	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → ((𝐴↑𝑁) gcd 𝐵) ≠ 1))
95	94	rexlimdva 3240	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ (𝐴 gcd 𝐵) → ((𝐴↑𝑁) gcd 𝐵) ≠ 1))
96		eluz2b3 12045	. . . . . . . . . 10 ⊢ (((𝐴↑𝑁) gcd 𝐵) ∈ (ℤ_≥‘2) ↔ (((𝐴↑𝑁) gcd 𝐵) ∈ ℕ ∧ ((𝐴↑𝑁) gcd 𝐵) ≠ 1))
97	96	baib 533	. . . . . . . . 9 ⊢ (((𝐴↑𝑁) gcd 𝐵) ∈ ℕ → (((𝐴↑𝑁) gcd 𝐵) ∈ (ℤ_≥‘2) ↔ ((𝐴↑𝑁) gcd 𝐵) ≠ 1))
98	34, 97	syl 17	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴↑𝑁) gcd 𝐵) ∈ (ℤ_≥‘2) ↔ ((𝐴↑𝑁) gcd 𝐵) ≠ 1))
99	95, 98	sylibrd 251	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ (𝐴 gcd 𝐵) → ((𝐴↑𝑁) gcd 𝐵) ∈ (ℤ_≥‘2)))
100	68, 99	syl5 34	. . . . . 6 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴 gcd 𝐵) ∈ (ℤ_≥‘2) → ((𝐴↑𝑁) gcd 𝐵) ∈ (ℤ_≥‘2)))
101	67, 100	impbid 204	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴↑𝑁) gcd 𝐵) ∈ (ℤ_≥‘2) ↔ (𝐴 gcd 𝐵) ∈ (ℤ_≥‘2)))
102	101, 98, 65	3bitr3d 301	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴↑𝑁) gcd 𝐵) ≠ 1 ↔ (𝐴 gcd 𝐵) ≠ 1))
103	102	necon4bid 3044	. . 3 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴↑𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1))
104	103	ex 403	. 2 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (¬ (𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴↑𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1)))
105	12, 104	pm2.61d 172	1 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (((𝐴↑𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 198 ∧ wa 386 ∧ w3a 1113 = wceq 1658 ∈ wcel 2166 ≠ wne 2999 ∃wrex 3118 class class class wbr 4873 ‘cfv 6123 (class class class)co 6905 ℂcc 10250 0cc0 10252 1c1 10253 ℕcn 11350 2c2 11406 ℕ₀cn0 11618 ℤcz 11704 ℤ_≥cuz 11968 ↑cexp 13154 ∥ cdvds 15357 gcd cgcd 15589 ℙcprime 15757

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1896 ax-4 1910 ax-5 2011 ax-6 2077 ax-7 2114 ax-8 2168 ax-9 2175 ax-10 2194 ax-11 2209 ax-12 2222 ax-13 2391 ax-ext 2803 ax-sep 5005 ax-nul 5013 ax-pow 5065 ax-pr 5127 ax-un 7209 ax-cnex 10308 ax-resscn 10309 ax-1cn 10310 ax-icn 10311 ax-addcl 10312 ax-addrcl 10313 ax-mulcl 10314 ax-mulrcl 10315 ax-mulcom 10316 ax-addass 10317 ax-mulass 10318 ax-distr 10319 ax-i2m1 10320 ax-1ne0 10321 ax-1rid 10322 ax-rnegex 10323 ax-rrecex 10324 ax-cnre 10325 ax-pre-lttri 10326 ax-pre-lttrn 10327 ax-pre-ltadd 10328 ax-pre-mulgt0 10329 ax-pre-sup 10330

This theorem depends on definitions: df-bi 199 df-an 387 df-or 881 df-3or 1114 df-3an 1115 df-tru 1662 df-ex 1881 df-nf 1885 df-sb 2070 df-mo 2605 df-eu 2640 df-clab 2812 df-cleq 2818 df-clel 2821 df-nfc 2958 df-ne 3000 df-nel 3103 df-ral 3122 df-rex 3123 df-reu 3124 df-rmo 3125 df-rab 3126 df-v 3416 df-sbc 3663 df-csb 3758 df-dif 3801 df-un 3803 df-in 3805 df-ss 3812 df-pss 3814 df-nul 4145 df-if 4307 df-pw 4380 df-sn 4398 df-pr 4400 df-tp 4402 df-op 4404 df-uni 4659 df-iun 4742 df-br 4874 df-opab 4936 df-mpt 4953 df-tr 4976 df-id 5250 df-eprel 5255 df-po 5263 df-so 5264 df-fr 5301 df-we 5303 df-xp 5348 df-rel 5349 df-cnv 5350 df-co 5351 df-dm 5352 df-rn 5353 df-res 5354 df-ima 5355 df-pred 5920 df-ord 5966 df-on 5967 df-lim 5968 df-suc 5969 df-iota 6086 df-fun 6125 df-fn 6126 df-f 6127 df-f1 6128 df-fo 6129 df-f1o 6130 df-fv 6131 df-riota 6866 df-ov 6908 df-oprab 6909 df-mpt2 6910 df-om 7327 df-1st 7428 df-2nd 7429 df-wrecs 7672 df-recs 7734 df-rdg 7772 df-1o 7826 df-2o 7827 df-er 8009 df-en 8223 df-dom 8224 df-sdom 8225 df-fin 8226 df-sup 8617 df-inf 8618 df-pnf 10393 df-mnf 10394 df-xr 10395 df-ltxr 10396 df-le 10397 df-sub 10587 df-neg 10588 df-div 11010 df-nn 11351 df-2 11414 df-3 11415 df-n0 11619 df-z 11705 df-uz 11969 df-rp 12113 df-fz 12620 df-fl 12888 df-mod 12964 df-seq 13096 df-exp 13155 df-cj 14216 df-re 14217 df-im 14218 df-sqrt 14352 df-abs 14353 df-dvds 15358 df-gcd 15590 df-prm 15758

This theorem is referenced by: rpexp1i 15804 phiprmpw 15852 pockthlem 15980 logbgcd1irr 24934

W3C validator