Proof of Theorem divgcdodd
| Step | Hyp | Ref
| Expression |
| 1 | | n2dvds1 12475 |
. . . 4
⊢ ¬ 2
∥ 1 |
| 2 | | 2z 9507 |
. . . . . . 7
⊢ 2 ∈
ℤ |
| 3 | | nnz 9498 |
. . . . . . . . . 10
⊢ (𝐴 ∈ ℕ → 𝐴 ∈
ℤ) |
| 4 | | nnz 9498 |
. . . . . . . . . 10
⊢ (𝐵 ∈ ℕ → 𝐵 ∈
ℤ) |
| 5 | | gcddvds 12536 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵)) |
| 6 | 3, 4, 5 | syl2an 289 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵)) |
| 7 | 6 | simpld 112 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 gcd 𝐵) ∥ 𝐴) |
| 8 | | gcdnncl 12540 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 gcd 𝐵) ∈ ℕ) |
| 9 | 8 | nnzd 9601 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 gcd 𝐵) ∈ ℤ) |
| 10 | 8 | nnne0d 9188 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 gcd 𝐵) ≠ 0) |
| 11 | 3 | adantr 276 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → 𝐴 ∈
ℤ) |
| 12 | | dvdsval2 12353 |
. . . . . . . . 9
⊢ (((𝐴 gcd 𝐵) ∈ ℤ ∧ (𝐴 gcd 𝐵) ≠ 0 ∧ 𝐴 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ↔ (𝐴 / (𝐴 gcd 𝐵)) ∈ ℤ)) |
| 13 | 9, 10, 11, 12 | syl3anc 1273 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ↔ (𝐴 / (𝐴 gcd 𝐵)) ∈ ℤ)) |
| 14 | 7, 13 | mpbid 147 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 / (𝐴 gcd 𝐵)) ∈ ℤ) |
| 15 | 6 | simprd 114 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 gcd 𝐵) ∥ 𝐵) |
| 16 | 4 | adantl 277 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → 𝐵 ∈
ℤ) |
| 17 | | dvdsval2 12353 |
. . . . . . . . 9
⊢ (((𝐴 gcd 𝐵) ∈ ℤ ∧ (𝐴 gcd 𝐵) ≠ 0 ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐵 ↔ (𝐵 / (𝐴 gcd 𝐵)) ∈ ℤ)) |
| 18 | 9, 10, 16, 17 | syl3anc 1273 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((𝐴 gcd 𝐵) ∥ 𝐵 ↔ (𝐵 / (𝐴 gcd 𝐵)) ∈ ℤ)) |
| 19 | 15, 18 | mpbid 147 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐵 / (𝐴 gcd 𝐵)) ∈ ℤ) |
| 20 | | dvdsgcdb 12586 |
. . . . . . 7
⊢ ((2
∈ ℤ ∧ (𝐴 /
(𝐴 gcd 𝐵)) ∈ ℤ ∧ (𝐵 / (𝐴 gcd 𝐵)) ∈ ℤ) → ((2 ∥ (𝐴 / (𝐴 gcd 𝐵)) ∧ 2 ∥ (𝐵 / (𝐴 gcd 𝐵))) ↔ 2 ∥ ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))))) |
| 21 | 2, 14, 19, 20 | mp3an2i 1378 |
. . . . . 6
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((2
∥ (𝐴 / (𝐴 gcd 𝐵)) ∧ 2 ∥ (𝐵 / (𝐴 gcd 𝐵))) ↔ 2 ∥ ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))))) |
| 22 | | gcddiv 12592 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ (𝐴 gcd 𝐵) ∈ ℕ) ∧ ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵)) → ((𝐴 gcd 𝐵) / (𝐴 gcd 𝐵)) = ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵)))) |
| 23 | 11, 16, 8, 6, 22 | syl31anc 1276 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((𝐴 gcd 𝐵) / (𝐴 gcd 𝐵)) = ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵)))) |
| 24 | 8 | nncnd 9157 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 gcd 𝐵) ∈ ℂ) |
| 25 | 8 | nnap0d 9189 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (𝐴 gcd 𝐵) # 0) |
| 26 | 24, 25 | dividapd 8966 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((𝐴 gcd 𝐵) / (𝐴 gcd 𝐵)) = 1) |
| 27 | 23, 26 | eqtr3d 2266 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = 1) |
| 28 | 27 | breq2d 4100 |
. . . . . . 7
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (2
∥ ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) ↔ 2 ∥ 1)) |
| 29 | 28 | biimpd 144 |
. . . . . 6
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (2
∥ ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) → 2 ∥ 1)) |
| 30 | 21, 29 | sylbid 150 |
. . . . 5
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((2
∥ (𝐴 / (𝐴 gcd 𝐵)) ∧ 2 ∥ (𝐵 / (𝐴 gcd 𝐵))) → 2 ∥ 1)) |
| 31 | 30 | expdimp 259 |
. . . 4
⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) ∧ 2 ∥
(𝐴 / (𝐴 gcd 𝐵))) → (2 ∥ (𝐵 / (𝐴 gcd 𝐵)) → 2 ∥ 1)) |
| 32 | 1, 31 | mtoi 670 |
. . 3
⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) ∧ 2 ∥
(𝐴 / (𝐴 gcd 𝐵))) → ¬ 2 ∥ (𝐵 / (𝐴 gcd 𝐵))) |
| 33 | 32 | ex 115 |
. 2
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (2
∥ (𝐴 / (𝐴 gcd 𝐵)) → ¬ 2 ∥ (𝐵 / (𝐴 gcd 𝐵)))) |
| 34 | | 2nn 9305 |
. . . 4
⊢ 2 ∈
ℕ |
| 35 | | dvdsdc 12361 |
. . . 4
⊢ ((2
∈ ℕ ∧ (𝐴 /
(𝐴 gcd 𝐵)) ∈ ℤ) →
DECID 2 ∥ (𝐴 / (𝐴 gcd 𝐵))) |
| 36 | 34, 14, 35 | sylancr 414 |
. . 3
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) →
DECID 2 ∥ (𝐴 / (𝐴 gcd 𝐵))) |
| 37 | | imordc 904 |
. . 3
⊢
(DECID 2 ∥ (𝐴 / (𝐴 gcd 𝐵)) → ((2 ∥ (𝐴 / (𝐴 gcd 𝐵)) → ¬ 2 ∥ (𝐵 / (𝐴 gcd 𝐵))) ↔ (¬ 2 ∥ (𝐴 / (𝐴 gcd 𝐵)) ∨ ¬ 2 ∥ (𝐵 / (𝐴 gcd 𝐵))))) |
| 38 | 36, 37 | syl 14 |
. 2
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → ((2
∥ (𝐴 / (𝐴 gcd 𝐵)) → ¬ 2 ∥ (𝐵 / (𝐴 gcd 𝐵))) ↔ (¬ 2 ∥ (𝐴 / (𝐴 gcd 𝐵)) ∨ ¬ 2 ∥ (𝐵 / (𝐴 gcd 𝐵))))) |
| 39 | 33, 38 | mpbid 147 |
1
⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (¬ 2
∥ (𝐴 / (𝐴 gcd 𝐵)) ∨ ¬ 2 ∥ (𝐵 / (𝐴 gcd 𝐵)))) |