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

Theorem rpexp 12846
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 10935 . . . . . 6 (𝑁 ∈ ℕ → (0↑𝑁) = 0)
21oveq1d 6064 . . . . 5 (𝑁 ∈ ℕ → ((0↑𝑁) gcd 0) = (0 gcd 0))
32eqeq1d 2241 . . . 4 (𝑁 ∈ ℕ → (((0↑𝑁) gcd 0) = 1 ↔ (0 gcd 0) = 1))
4 oveq1 6056 . . . . . . 7 (𝐴 = 0 → (𝐴𝑁) = (0↑𝑁))
5 oveq12 6058 . . . . . . 7 (((𝐴𝑁) = (0↑𝑁) ∧ 𝐵 = 0) → ((𝐴𝑁) gcd 𝐵) = ((0↑𝑁) gcd 0))
64, 5sylan 283 . . . . . 6 ((𝐴 = 0 ∧ 𝐵 = 0) → ((𝐴𝑁) gcd 𝐵) = ((0↑𝑁) gcd 0))
76eqeq1d 2241 . . . . 5 ((𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ ((0↑𝑁) gcd 0) = 1))
8 oveq12 6058 . . . . . 6 ((𝐴 = 0 ∧ 𝐵 = 0) → (𝐴 gcd 𝐵) = (0 gcd 0))
98eqeq1d 2241 . . . . 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 1047 . 2 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴 = 0 ∧ 𝐵 = 0) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1)))
13 exprmfct 12831 . . . . . . 7 (((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2) → ∃𝑝 ∈ ℙ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵))
14 simpl1 1027 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐴 ∈ ℤ)
15 simpl3 1029 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝑁 ∈ ℕ)
1615nnnn0d 9552 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝑁 ∈ ℕ0)
17 zexpcl 10915 . . . . . . . . . . . . . . . . 17 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ0) → (𝐴𝑁) ∈ ℤ)
1814, 16, 17syl2anc 411 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴𝑁) ∈ ℤ)
1918adantr 276 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴𝑁) ∈ ℤ)
20 simpl2 1028 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐵 ∈ ℤ)
2120adantr 276 . . . . . . . . . . . . . . 15 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐵 ∈ ℤ)
22 gcddvds 12655 . . . . . . . . . . . . . . 15 (((𝐴𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) → (((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁) ∧ ((𝐴𝑁) gcd 𝐵) ∥ 𝐵))
2319, 21, 22syl2anc 411 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁) ∧ ((𝐴𝑁) gcd 𝐵) ∥ 𝐵))
2423simpld 112 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁))
25 prmz 12804 . . . . . . . . . . . . . . 15 (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
2625adantl 277 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
27 simpr 110 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ¬ (𝐴 = 0 ∧ 𝐵 = 0))
2814zcnd 9700 . . . . . . . . . . . . . . . . . . . 20 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → 𝐴 ∈ ℂ)
29 expeq0 10931 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ ℂ ∧ 𝑁 ∈ ℕ) → ((𝐴𝑁) = 0 ↔ 𝐴 = 0))
3028, 15, 29syl2anc 411 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴𝑁) = 0 ↔ 𝐴 = 0))
3130anbi1d 465 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (((𝐴𝑁) = 0 ∧ 𝐵 = 0) ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
3227, 31mtbird 680 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ¬ ((𝐴𝑁) = 0 ∧ 𝐵 = 0))
33 gcdn0cl 12654 . . . . . . . . . . . . . . . . 17 ((((𝐴𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ ((𝐴𝑁) = 0 ∧ 𝐵 = 0)) → ((𝐴𝑁) gcd 𝐵) ∈ ℕ)
3418, 20, 32, 33syl21anc 1273 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴𝑁) gcd 𝐵) ∈ ℕ)
3534nnzd 9698 . . . . . . . . . . . . . . 15 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → ((𝐴𝑁) gcd 𝐵) ∈ ℤ)
3635adantr 276 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴𝑁) gcd 𝐵) ∈ ℤ)
37 dvdstr 12510 . . . . . . . . . . . . . 14 ((𝑝 ∈ ℤ ∧ ((𝐴𝑁) gcd 𝐵) ∈ ℤ ∧ (𝐴𝑁) ∈ ℤ) → ((𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ∧ ((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁)) → 𝑝 ∥ (𝐴𝑁)))
3826, 36, 19, 37syl3anc 1274 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ∧ ((𝐴𝑁) gcd 𝐵) ∥ (𝐴𝑁)) → 𝑝 ∥ (𝐴𝑁)))
3924, 38mpan2d 428 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → 𝑝 ∥ (𝐴𝑁)))
40 simpr 110 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
41 simpll1 1063 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∈ ℤ)
4215adantr 276 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℕ)
43 prmdvdsexp 12841 . . . . . . . . . . . . 13 ((𝑝 ∈ ℙ ∧ 𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝑝 ∥ (𝐴𝑁) ↔ 𝑝𝐴))
4440, 41, 42, 43syl3anc 1274 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴𝑁) ↔ 𝑝𝐴))
4539, 44sylibd 149 . . . . . . . . . . 11 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → 𝑝𝐴))
4623simprd 114 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴𝑁) gcd 𝐵) ∥ 𝐵)
47 dvdstr 12510 . . . . . . . . . . . . 13 ((𝑝 ∈ ℤ ∧ ((𝐴𝑁) gcd 𝐵) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ∧ ((𝐴𝑁) gcd 𝐵) ∥ 𝐵) → 𝑝𝐵))
4826, 36, 21, 47syl3anc 1274 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ∧ ((𝐴𝑁) gcd 𝐵) ∥ 𝐵) → 𝑝𝐵))
4946, 48mpan2d 428 . . . . . . . . . . 11 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → 𝑝𝐵))
5045, 49jcad 307 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → (𝑝𝐴𝑝𝐵)))
51 dvdsgcd 12704 . . . . . . . . . . 11 ((𝑝 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝𝐴𝑝𝐵) → 𝑝 ∥ (𝐴 gcd 𝐵)))
5226, 41, 21, 51syl3anc 1274 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝𝐴𝑝𝐵) → 𝑝 ∥ (𝐴 gcd 𝐵)))
53 nprmdvds1 12833 . . . . . . . . . . . . 13 (𝑝 ∈ ℙ → ¬ 𝑝 ∥ 1)
54 breq2 4112 . . . . . . . . . . . . . 14 ((𝐴 gcd 𝐵) = 1 → (𝑝 ∥ (𝐴 gcd 𝐵) ↔ 𝑝 ∥ 1))
5554notbid 673 . . . . . . . . . . . . 13 ((𝐴 gcd 𝐵) = 1 → (¬ 𝑝 ∥ (𝐴 gcd 𝐵) ↔ ¬ 𝑝 ∥ 1))
5653, 55syl5ibrcom 157 . . . . . . . . . . . 12 (𝑝 ∈ ℙ → ((𝐴 gcd 𝐵) = 1 → ¬ 𝑝 ∥ (𝐴 gcd 𝐵)))
5756necon2ad 2469 . . . . . . . . . . 11 (𝑝 ∈ ℙ → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
5857adantl 277 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
5950, 52, 583syld 57 . . . . . . . . 9 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
6059rexlimdva 2660 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → (𝐴 gcd 𝐵) ≠ 1))
61 gcdn0cl 12654 . . . . . . . . . 10 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℕ)
62613adantl3 1182 . . . . . . . . 9 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℕ)
63 eluz2b3 9935 . . . . . . . . . 10 ((𝐴 gcd 𝐵) ∈ (ℤ‘2) ↔ ((𝐴 gcd 𝐵) ∈ ℕ ∧ (𝐴 gcd 𝐵) ≠ 1))
6463baib 927 . . . . . . . . 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 12831 . . . . . . 7 ((𝐴 gcd 𝐵) ∈ (ℤ‘2) → ∃𝑝 ∈ ℙ 𝑝 ∥ (𝐴 gcd 𝐵))
69 gcddvds 12655 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵))
7041, 21, 69syl2anc 411 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵))
7170simpld 112 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ 𝐴)
72 iddvdsexp 12497 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝐴 ∥ (𝐴𝑁))
7341, 42, 72syl2anc 411 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → 𝐴 ∥ (𝐴𝑁))
7462nnzd 9698 . . . . . . . . . . . . . . 15 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℤ)
7574adantr 276 . . . . . . . . . . . . . 14 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∈ ℤ)
76 dvdstr 12510 . . . . . . . . . . . . . 14 (((𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ (𝐴𝑁) ∈ ℤ) → (((𝐴 gcd 𝐵) ∥ 𝐴𝐴 ∥ (𝐴𝑁)) → (𝐴 gcd 𝐵) ∥ (𝐴𝑁)))
7775, 41, 19, 76syl3anc 1274 . . . . . . . . . . . . 13 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (((𝐴 gcd 𝐵) ∥ 𝐴𝐴 ∥ (𝐴𝑁)) → (𝐴 gcd 𝐵) ∥ (𝐴𝑁)))
7871, 73, 77mp2and 433 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ (𝐴𝑁))
79 dvdstr 12510 . . . . . . . . . . . . 13 ((𝑝 ∈ ℤ ∧ (𝐴 gcd 𝐵) ∈ ℤ ∧ (𝐴𝑁) ∈ ℤ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ (𝐴𝑁)) → 𝑝 ∥ (𝐴𝑁)))
8026, 75, 19, 79syl3anc 1274 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ (𝐴𝑁)) → 𝑝 ∥ (𝐴𝑁)))
8178, 80mpan2d 428 . . . . . . . . . . 11 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → 𝑝 ∥ (𝐴𝑁)))
8270simprd 114 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝐴 gcd 𝐵) ∥ 𝐵)
83 dvdstr 12510 . . . . . . . . . . . . 13 ((𝑝 ∈ ℤ ∧ (𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ 𝐵) → 𝑝𝐵))
8426, 75, 21, 83syl3anc 1274 . . . . . . . . . . . 12 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴 gcd 𝐵) ∧ (𝐴 gcd 𝐵) ∥ 𝐵) → 𝑝𝐵))
8582, 84mpan2d 428 . . . . . . . . . . 11 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → 𝑝𝐵))
8681, 85jcad 307 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → (𝑝 ∥ (𝐴𝑁) ∧ 𝑝𝐵)))
87 dvdsgcd 12704 . . . . . . . . . . 11 ((𝑝 ∈ ℤ ∧ (𝐴𝑁) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝑝 ∥ (𝐴𝑁) ∧ 𝑝𝐵) → 𝑝 ∥ ((𝐴𝑁) gcd 𝐵)))
8826, 19, 21, 87syl3anc 1274 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ (𝐴𝑁) ∧ 𝑝𝐵) → 𝑝 ∥ ((𝐴𝑁) gcd 𝐵)))
89 breq2 4112 . . . . . . . . . . . . . 14 (((𝐴𝑁) gcd 𝐵) = 1 → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ↔ 𝑝 ∥ 1))
9089notbid 673 . . . . . . . . . . . . 13 (((𝐴𝑁) gcd 𝐵) = 1 → (¬ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵) ↔ ¬ 𝑝 ∥ 1))
9153, 90syl5ibrcom 157 . . . . . . . . . . . 12 (𝑝 ∈ ℙ → (((𝐴𝑁) gcd 𝐵) = 1 → ¬ 𝑝 ∥ ((𝐴𝑁) gcd 𝐵)))
9291necon2ad 2469 . . . . . . . . . . 11 (𝑝 ∈ ℙ → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ≠ 1))
9392adantl 277 . . . . . . . . . 10 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((𝐴𝑁) gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ≠ 1))
9486, 88, 933syld 57 . . . . . . . . 9 ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (𝐴 gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ≠ 1))
9594rexlimdva 2660 . . . . . . . 8 (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (∃𝑝 ∈ ℙ 𝑝 ∥ (𝐴 gcd 𝐵) → ((𝐴𝑁) gcd 𝐵) ≠ 1))
96 eluz2b3 9935 . . . . . . . . . 10 (((𝐴𝑁) gcd 𝐵) ∈ (ℤ‘2) ↔ (((𝐴𝑁) gcd 𝐵) ∈ ℕ ∧ ((𝐴𝑁) gcd 𝐵) ≠ 1))
9796baib 927 . . . . . . . . 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 1024 . . . . . . . . . 10 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝐴 ∈ ℤ)
104 simp3 1026 . . . . . . . . . . 11 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ)
105104nnnn0d 9552 . . . . . . . . . 10 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ0)
106103, 105, 17syl2anc 411 . . . . . . . . 9 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝐴𝑁) ∈ ℤ)
107 simp2 1025 . . . . . . . . 9 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 𝐵 ∈ ℤ)
108106, 107gcdcld 12660 . . . . . . . 8 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴𝑁) gcd 𝐵) ∈ ℕ0)
109108nn0zd 9697 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴𝑁) gcd 𝐵) ∈ ℤ)
110 1zzd 9603 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → 1 ∈ ℤ)
111 zdceq 9652 . . . . . . 7 ((((𝐴𝑁) gcd 𝐵) ∈ ℤ ∧ 1 ∈ ℤ) → DECID ((𝐴𝑁) gcd 𝐵) = 1)
112109, 110, 111syl2anc 411 . . . . . 6 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → DECID ((𝐴𝑁) gcd 𝐵) = 1)
113103, 107gcdcld 12660 . . . . . . . 8 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝐴 gcd 𝐵) ∈ ℕ0)
114113nn0zd 9697 . . . . . . 7 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (𝐴 gcd 𝐵) ∈ ℤ)
115 zdceq 9652 . . . . . . 7 (((𝐴 gcd 𝐵) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝐴 gcd 𝐵) = 1)
116114, 110, 115syl2anc 411 . . . . . 6 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → DECID (𝐴 gcd 𝐵) = 1)
117 nebidc 2492 . . . . . 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 12647 . . . 4 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → DECID (𝐴 = 0 ∧ 𝐵 = 0))
123 exmiddc 844 . . . 4 (DECID (𝐴 = 0 ∧ 𝐵 = 0) → ((𝐴 = 0 ∧ 𝐵 = 0) ∨ ¬ (𝐴 = 0 ∧ 𝐵 = 0)))
124122, 123syl 14 . . 3 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 = 0 ∧ 𝐵 = 0) ∨ ¬ (𝐴 = 0 ∧ 𝐵 = 0)))
1251243adant3 1044 . 2 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → ((𝐴 = 0 ∧ 𝐵 = 0) ∨ ¬ (𝐴 = 0 ∧ 𝐵 = 0)))
12612, 121, 125mpjaod 726 1 ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℕ) → (((𝐴𝑁) gcd 𝐵) = 1 ↔ (𝐴 gcd 𝐵) = 1))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  wb 105  wo 716  DECID wdc 842  w3a 1005   = wceq 1398  wcel 2203  wne 2412  wrex 2521   class class class wbr 4108  cfv 5351  (class class class)co 6049  cc 8124  0cc0 8126  1c1 8127  cn 9236  2c2 9287  0cn0 9495  cz 9576  cuz 9852  cexp 10899  cdvds 12469   gcd cgcd 12645  cprime 12800
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4224  ax-sep 4227  ax-nul 4235  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-iinf 4709  ax-cnex 8217  ax-resscn 8218  ax-1cn 8219  ax-1re 8220  ax-icn 8221  ax-addcl 8222  ax-addrcl 8223  ax-mulcl 8224  ax-mulrcl 8225  ax-addcom 8226  ax-mulcom 8227  ax-addass 8228  ax-mulass 8229  ax-distr 8230  ax-i2m1 8231  ax-0lt1 8232  ax-1rid 8233  ax-0id 8234  ax-rnegex 8235  ax-precex 8236  ax-cnre 8237  ax-pre-ltirr 8238  ax-pre-ltwlin 8239  ax-pre-lttrn 8240  ax-pre-apti 8241  ax-pre-ltadd 8242  ax-pre-mulgt0 8243  ax-pre-mulext 8244  ax-arch 8245  ax-caucvg 8246
This theorem depends on definitions:  df-bi 117  df-stab 839  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rmo 2528  df-rab 2529  df-v 2814  df-sbc 3042  df-csb 3138  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-if 3620  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-int 3949  df-iun 3992  df-br 4109  df-opab 4171  df-mpt 4172  df-tr 4208  df-id 4413  df-po 4416  df-iso 4417  df-iord 4486  df-on 4488  df-ilim 4489  df-suc 4491  df-iom 4712  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-riota 6002  df-ov 6052  df-oprab 6053  df-mpo 6054  df-1st 6333  df-2nd 6334  df-recs 6535  df-frec 6621  df-1o 6646  df-2o 6647  df-er 6766  df-en 6975  df-sup 7274  df-pnf 8309  df-mnf 8310  df-xr 8311  df-ltxr 8312  df-le 8313  df-sub 8445  df-neg 8446  df-reap 8848  df-ap 8855  df-div 8946  df-inn 9237  df-2 9295  df-3 9296  df-4 9297  df-n0 9496  df-z 9577  df-uz 9853  df-q 9951  df-rp 9986  df-fz 10342  df-fzo 10476  df-fl 10629  df-mod 10684  df-seqfrec 10809  df-exp 10900  df-cj 11523  df-re 11524  df-im 11525  df-rsqrt 11679  df-abs 11680  df-dvds 12470  df-gcd 12646  df-prm 12801
This theorem is referenced by:  rpexp1i  12847  phiprmpw  12915  pockthlem  13050  logbgcd1irr  15824  logbgcd1irraplemexp  15825
  Copyright terms: Public domain W3C validator