ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  rpexp GIF version

Theorem rpexp 12948
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.
StepHypRef Expression
1 0exp 11024 . . . . . 6 (𝑁 ∈ ℕ → (0↑𝑁) = 0)
21oveq1d 6100 . . . . 5 (𝑁 ∈ ℕ → ((0↑𝑁) gcd 0) = (0 gcd 0))
32eqeq1d 2247 . . . 4 (𝑁 ∈ ℕ → (((0↑𝑁) gcd 0) = 1 ↔ (0 gcd 0) = 1))
4 oveq1 6092 . . . . . . 7 (𝐴 = 0 → (𝐴𝑁) = (0↑𝑁))
5 oveq12 6094 . . . . . . 7 (((𝐴𝑁) = (0↑𝑁) ∧ 𝐵 = 0) → ((𝐴𝑁) gcd 𝐵) = ((0↑𝑁) gcd 0))
64, 5sylan 283 . . . . . 6 ((𝐴 = 0 ∧ 𝐵 = 0) → ((𝐴𝑁) gcd 𝐵) = ((0↑𝑁) gcd 0))
76eqeq1d 2247 . . . . 5 ((𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ ((0↑𝑁) gcd 0) = 1))
8 oveq12 6094 . . . . . 6 ((𝐴 = 0 ∧ 𝐵 = 0) → (𝐴 gcd 𝐵) = (0 gcd 0))
98eqeq1d 2247 . . . . 5 ((𝐴 = 0 ∧ 𝐵 = 0) → ((𝐴 gcd 𝐵) = 1 ↔ (0 gcd 0) = 1))
107, 9bibi12d 235 . . . 4 ((𝐴 = 0 ∧ 𝐵 = 0) → ((((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1) ↔ (((0↑𝑁) gcd 0) = 1 ↔ (0 gcd 0) = 1)))
113, 10syl5ibrcom 157 . . 3 (𝑁 ∈ ℕ → ((𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1)))
12113ad2ant3 1051 . 2 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1)))
13 exprmfct 12933 . . . . . . 7 (((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2) → ∃𝑝 ∈ ℙ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵))
14 simpl1 1031 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐴 ∈ ℤ)
15 simpl3 1033 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝑁 ∈ ℕ)
1615nnnn0d 9624 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝑁 ∈ ℕ0)
17 zexpcl 11004 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ0) → (𝐴𝑁) ∈ ℤ)
1814, 16, 17syl2anc 415 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴𝑁) ∈ ℤ)
1918adantr 276 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴𝑁) ∈ ℤ)
20 simpl2 1032 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐵 ∈ ℤ)
2120adantr 276 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐵 ∈ ℤ)
22 gcddvds 12756 . . . . . . . . . . . . . . 15 (((𝐴𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) → (((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁) ∧ ((𝐴𝑁) gcd 𝐵) ∥ 𝐵))
2319, 21, 22syl2anc 415 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁) ∧ ((𝐴𝑁) gcd 𝐵) ∥ 𝐵))
2423simpld 112 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁))
25 prmz 12905 . . . . . . . . . . . . . . 15 (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
2625adantl 277 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
27 simpr 110 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ¬ (𝐴 = 0 ∧ 𝐵 = 0))
2814zcnd 9773 . . . . . . . . . . . . . . . . . . . 20 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐴 ∈ ℂ)
29 expeq0 11020 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ ℂ ∧ 𝑁 ∈ ℕ) → ((𝐴𝑁) = 0 ↔ 𝐴 = 0))
3028, 15, 29syl2anc 415 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴𝑁) = 0 ↔ 𝐴 = 0))
3130anbi1d 469 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴𝑁) = 0 ∧ 𝐵 = 0) ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
3227, 31mtbird 684 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ¬ ((𝐴𝑁) = 0 ∧ 𝐵 = 0))
33 gcdn0cl 12755 . . . . . . . . . . . . . . . . 17 ((((𝐴𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ ((𝐴𝑁) = 0 ∧ 𝐵 = 0)) → ((𝐴𝑁) gcd 𝐵) ∈ ℕ)
3418, 20, 32, 33syl21anc 1277 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴𝑁) gcd 𝐵) ∈ ℕ)
3534nnzd 9771 . . . . . . . . . . . . . . 15 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴𝑁) gcd 𝐵) ∈ ℤ)
3635adantr 276 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴𝑁) gcd 𝐵) ∈ ℤ)
37 dvdstr 12611 . . . . . . . . . . . . . 14 ((𝑝 ∈ ℤ ∧ ((𝐴𝑁) gcd 𝐵) ∈ ℤ ∧ (𝐴𝑁) ∈ ℤ) → ((𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ∧ ((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁)) → 𝑝 ∥ (𝐴𝑁)))
3826, 36, 19, 37syl3anc 1278 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ∧ ((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁)) → 𝑝 ∥ (𝐴𝑁)))
3924, 38mpan2d 432 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → 𝑝 ∥ (𝐴𝑁)))
40 simpr 110 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
41 simpll1 1067 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∈ ℤ)
4215adantr 276 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℕ)
43 prmdvdsexp 12943 . . . . . . . . . . . . 13 ((𝑝 ∈ ℙ ∧ 𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑝 ∥ (𝐴𝑁) ↔ 𝑝𝐴))
4440, 41, 42, 43syl3anc 1278 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴𝑁) ↔ 𝑝𝐴))
4539, 44sylibd 149 . . . . . . . . . . 11 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → 𝑝𝐴))
4623simprd 114 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴𝑁) gcd 𝐵) ∥ 𝐵)
47 dvdstr 12611 . . . . . . . . . . . . 13 ((𝑝 ∈ ℤ ∧ ((𝐴𝑁) gcd 𝐵) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ∧ ((𝐴𝑁) gcd 𝐵) ∥ 𝐵) → 𝑝𝐵))
4826, 36, 21, 47syl3anc 1278 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ∧ ((𝐴𝑁) gcd 𝐵) ∥ 𝐵) → 𝑝𝐵))
4946, 48mpan2d 432 . . . . . . . . . . 11 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → 𝑝𝐵))
5045, 49jcad 307 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → (𝑝𝐴𝑝𝐵)))
51 dvdsgcd 12805 . . . . . . . . . . 11 ((𝑝 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝𝐴𝑝𝐵) → 𝑝 ∥ (𝐴 gcd 𝐵)))
5226, 41, 21, 51syl3anc 1278 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝𝐴𝑝𝐵) → 𝑝 ∥ (𝐴 gcd 𝐵)))
53 nprmdvds1 12935 . . . . . . . . . . . . 13 (𝑝 ∈ ℙ → ¬ 𝑝 ∥ 1)
54 breq2 4134 . . . . . . . . . . . . . 14 ((𝐴 gcd 𝐵) = 1 → (𝑝 ∥ (𝐴 gcd 𝐵) ↔ 𝑝 ∥ 1))
5554notbid 677 . . . . . . . . . . . . 13 ((𝐴 gcd 𝐵) = 1 → (¬ 𝑝 ∥ (𝐴 gcd 𝐵) ↔ ¬ 𝑝 ∥ 1))
5653, 55syl5ibrcom 157 . . . . . . . . . . . 12 (𝑝 ∈ ℙ → ((𝐴 gcd 𝐵) = 1 → ¬ 𝑝 ∥ (𝐴 gcd 𝐵)))
5756necon2ad 2477 . . . . . . . . . . 11 (𝑝 ∈ ℙ → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
5857adantl 277 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
5950, 52, 583syld 57 . . . . . . . . 9 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
6059rexlimdva 2668 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
61 gcdn0cl 12755 . . . . . . . . . 10 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℕ)
62613adantl3 1186 . . . . . . . . 9 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℕ)
63 eluz2b3 10013 . . . . . . . . . 10 ((𝐴 gcd 𝐵) ∈ (ℤ‘2) ↔ ((𝐴 gcd 𝐵) ∈ ℕ ∧ (𝐴 gcd 𝐵) ≠ 1))
6463baib 931 . . . . . . . . 9 ((𝐴 gcd 𝐵) ∈ ℕ → ((𝐴 gcd 𝐵) ∈ (ℤ‘2) ↔ (𝐴 gcd 𝐵) ≠ 1))
6562, 64syl 14 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴 gcd 𝐵) ∈ (ℤ‘2) ↔ (𝐴 gcd 𝐵) ≠ 1))
6660, 65sylibrd 169 . . . . . . 7 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → (𝐴 gcd 𝐵) ∈ (ℤ‘2)))
6713, 66syl5 32 . . . . . 6 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2) → (𝐴 gcd 𝐵) ∈ (ℤ‘2)))
68 exprmfct 12933 . . . . . . 7 ((𝐴 gcd 𝐵) ∈ (ℤ‘2) → ∃𝑝 ∈ ℙ 𝑝 ∥ (𝐴 gcd 𝐵))
69 gcddvds 12756 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵))
7041, 21, 69syl2anc 415 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵))
7170simpld 112 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ 𝐴)
72 iddvdsexp 12598 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝐴 ∥ (𝐴𝑁))
7341, 42, 72syl2anc 415 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∥ (𝐴𝑁))
7462nnzd 9771 . . . . . . . . . . . . . . 15 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℤ)
7574adantr 276 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∈ ℤ)
76 dvdstr 12611 . . . . . . . . . . . . . 14 (((𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ (𝐴𝑁) ∈ ℤ) → (((𝐴 gcd 𝐵) ∥ 𝐴𝐴 ∥ (𝐴𝑁)) → (𝐴 gcd 𝐵) ∥ (𝐴𝑁)))
7775, 41, 19, 76syl3anc 1278 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (((𝐴 gcd 𝐵) ∥ 𝐴𝐴 ∥ (𝐴𝑁)) → (𝐴 gcd 𝐵) ∥ (𝐴𝑁)))
7871, 73, 77mp2and 437 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ (𝐴𝑁))
79 dvdstr 12611 . . . . . . . . . . . . 13 ((𝑝 ∈ ℤ ∧ (𝐴 gcd 𝐵) ∈ ℤ ∧ (𝐴𝑁) ∈ ℤ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ (𝐴𝑁)) → 𝑝 ∥ (𝐴𝑁)))
8026, 75, 19, 79syl3anc 1278 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ (𝐴𝑁)) → 𝑝 ∥ (𝐴𝑁)))
8178, 80mpan2d 432 . . . . . . . . . . 11 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → 𝑝 ∥ (𝐴𝑁)))
8270simprd 114 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ 𝐵)
83 dvdstr 12611 . . . . . . . . . . . . 13 ((𝑝 ∈ ℤ ∧ (𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ 𝐵) → 𝑝𝐵))
8426, 75, 21, 83syl3anc 1278 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ 𝐵) → 𝑝𝐵))
8582, 84mpan2d 432 . . . . . . . . . . 11 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → 𝑝𝐵))
8681, 85jcad 307 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝑝 ∥ (𝐴𝑁) ∧ 𝑝𝐵)))
87 dvdsgcd 12805 . . . . . . . . . . 11 ((𝑝 ∈ ℤ ∧ (𝐴𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ (𝐴𝑁) ∧ 𝑝𝐵) → 𝑝 ∥ ((𝐴𝑁) gcd 𝐵)))
8826, 19, 21, 87syl3anc 1278 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴𝑁) ∧ 𝑝𝐵) → 𝑝 ∥ ((𝐴𝑁) gcd 𝐵)))
89 breq2 4134 . . . . . . . . . . . . . 14 (((𝐴𝑁) gcd 𝐵) = 1 → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ↔ 𝑝 ∥ 1))
9089notbid 677 . . . . . . . . . . . . 13 (((𝐴𝑁) gcd 𝐵) = 1 → (¬ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ↔ ¬ 𝑝 ∥ 1))
9153, 90syl5ibrcom 157 . . . . . . . . . . . 12 (𝑝 ∈ ℙ → (((𝐴𝑁) gcd 𝐵) = 1 → ¬ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵)))
9291necon2ad 2477 . . . . . . . . . . 11 (𝑝 ∈ ℙ → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ≠ 1))
9392adantl 277 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ≠ 1))
9486, 88, 933syld 57 . . . . . . . . 9 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ≠ 1))
9594rexlimdva 2668 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ (𝐴 gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ≠ 1))
96 eluz2b3 10013 . . . . . . . . . 10 (((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2) ↔ (((𝐴𝑁) gcd 𝐵) ∈ ℕ ∧ ((𝐴𝑁) gcd 𝐵) ≠ 1))
9796baib 931 . . . . . . . . 9 (((𝐴𝑁) gcd 𝐵) ∈ ℕ → (((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2) ↔ ((𝐴𝑁) gcd 𝐵) ≠ 1))
9834, 97syl 14 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2) ↔ ((𝐴𝑁) gcd 𝐵) ≠ 1))
9995, 98sylibrd 169 . . . . . . 7 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ (𝐴 gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2)))
10068, 99syl5 32 . . . . . 6 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴 gcd 𝐵) ∈ (ℤ‘2) → ((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2)))
10167, 100impbid 129 . . . . 5 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2) ↔ (𝐴 gcd 𝐵) ∈ (ℤ‘2)))
102101, 98, 653bitr3d 218 . . . 4 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴𝑁) gcd 𝐵) ≠ 1 ↔ (𝐴 gcd 𝐵) ≠ 1))
103 simp1 1028 . . . . . . . . . 10 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝐴 ∈ ℤ)
104 simp3 1030 . . . . . . . . . . 11 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ)
105104nnnn0d 9624 . . . . . . . . . 10 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ0)
106103, 105, 17syl2anc 415 . . . . . . . . 9 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝐴𝑁) ∈ ℤ)
107 simp2 1029 . . . . . . . . 9 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝐵 ∈ ℤ)
108106, 107gcdcld 12761 . . . . . . . 8 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴𝑁) gcd 𝐵) ∈ ℕ0)
109108nn0zd 9770 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴𝑁) gcd 𝐵) ∈ ℤ)
110 1zzd 9675 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 1 ∈ ℤ)
111 zdceq 9724 . . . . . . 7 ((((𝐴𝑁) gcd 𝐵) ∈ ℤ ∧ 1 ∈ ℤ) → DECID ((𝐴𝑁) gcd 𝐵) = 1)
112109, 110, 111syl2anc 415 . . . . . 6 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → DECID ((𝐴𝑁) gcd 𝐵) = 1)
113103, 107gcdcld 12761 . . . . . . . 8 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝐴 gcd 𝐵) ∈ ℕ0)
114113nn0zd 9770 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝐴 gcd 𝐵) ∈ ℤ)
115 zdceq 9724 . . . . . . 7 (((𝐴 gcd 𝐵) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝐴 gcd 𝐵) = 1)
116114, 110, 115syl2anc 415 . . . . . 6 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → DECID (𝐴 gcd 𝐵) = 1)
117 nebidc 2500 . . . . . 6 (DECID ((𝐴𝑁) gcd 𝐵) = 1 → (DECID (𝐴 gcd 𝐵) = 1 → ((((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1) ↔ (((𝐴𝑁) gcd 𝐵) ≠ 1 ↔ (𝐴 gcd 𝐵) ≠ 1))))
118112, 116, 117sylc 62 . . . . 5 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1) ↔ (((𝐴𝑁) gcd 𝐵) ≠ 1 ↔ (𝐴 gcd 𝐵) ≠ 1)))
119118adantr 276 . . . 4 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1) ↔ (((𝐴𝑁) gcd 𝐵) ≠ 1 ↔ (𝐴 gcd 𝐵) ≠ 1)))
120102, 119mpbird 167 . . 3 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1))
121120ex 115 . 2 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (¬ (𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1)))
122 gcdmndc 12748 . . . 4 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → DECID (𝐴 = 0 ∧ 𝐵 = 0))
123 exmiddc 848 . . . 4 (DECID (𝐴 = 0 ∧ 𝐵 = 0) → ((𝐴 = 0 ∧ 𝐵 = 0) ∨ ¬ (𝐴 = 0 ∧ 𝐵 = 0)))
124122, 123syl 14 . . 3 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 = 0 ∧ 𝐵 = 0) ∨ ¬ (𝐴 = 0 ∧ 𝐵 = 0)))
1251243adant3 1048 . 2 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴 = 0 ∧ 𝐵 = 0) ∨ ¬ (𝐴 = 0 ∧ 𝐵 = 0)))
12612, 121, 125mpjaod 730 1 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1))
Colors of variables:    wff set class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wa 104  wb 105  wo 720  DECID wdc 846  w3a 1009   = wceq 1402  wcel 2209  wne 2420  wrex 2529   class class class wbr 4130  cfv 5377  (class class class)co 6085  cc 8177  0cc0 8179  1c1 8180  cn 9306  2c2 9357  0cn0 9567  cz 9648  cuz 9930  cexp 10988  cdvds 12570   gcd cgcd 12746  cprime 12901
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4246  ax-sep 4249  ax-nul 4259  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-setind 4684  ax-iinf 4735  ax-cnex 8270  ax-resscn 8271  ax-1cn 8272  ax-1re 8273  ax-icn 8274  ax-addcl 8275  ax-addrcl 8276  ax-mulcl 8277  ax-mulrcl 8278  ax-addcom 8279  ax-mulcom 8280  ax-addass 8281  ax-mulass 8282  ax-distr 8283  ax-i2m1 8284  ax-0lt1 8285  ax-1rid 8286  ax-0id 8287  ax-rnegex 8288  ax-precex 8289  ax-cnre 8290  ax-pre-ltirr 8291  ax-pre-ltwlin 8292  ax-pre-lttrn 8293  ax-pre-apti 8294  ax-pre-ltadd 8295  ax-pre-mulgt0 8296  ax-pre-mulext 8297  ax-arch 8298  ax-caucvg 8299
This proof depends on definitions:  df-bi 117  df-stab 843  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-nel 2516  df-ral 2533  df-rex 2534  df-reu 2535  df-rmo 2536  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-if 3639  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-iun 4014  df-br 4131  df-opab 4193  df-mpt 4194  df-tr 4230  df-id 4438  df-po 4441  df-iso 4442  df-iord 4511  df-on 4513  df-ilim 4514  df-suc 4516  df-iom 4738  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-ima 4787  df-iota 5337  df-fun 5379  df-fn 5380  df-f 5381  df-f1 5382  df-fo 5383  df-f1o 5384  df-fv 5385  df-riota 6038  df-ov 6088  df-oprab 6089  df-mpo 6090  df-1st 6374  df-2nd 6375  df-recs 6576  df-frec 6662  df-1o 6687  df-2o 6688  df-er 6807  df-en 7023  df-sup 7324  df-pnf 8362  df-mnf 8363  df-xr 8364  df-ltxr 8365  df-le 8366  df-sub 8500  df-neg 8501  df-reap 8905  df-ap 8912  df-div 9005  df-inn 9307  df-2 9365  df-3 9366  df-4 9367  df-n0 9568  df-z 9649  df-uz 9931  df-q 10029  df-rp 10065  df-fz 10422  df-fzo 10560  df-fl 10715  df-mod 10773  df-seqfrec 10898  df-exp 10989  df-cj 11621  df-re 11622  df-im 11623  df-rsqrt 11778  df-abs 11779  df-dvds 12571  df-gcd 12747  df-prm 12902
This theorem is used by:  rpexp1i  12949  phiprmpw  13020  pockthlem  13155  logbgcd1irr  16122  logbgcd1irraplemexp  16123
  Copyright terms: Public domain W3C validator