Proof of Theorem dvdsacongtr
Step | Hyp | Ref
| Expression |
1 | | simplr 788 |
. . . . . 6
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐷 ∥ 𝐴) |
2 | | simpr 476 |
. . . . . 6
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐴 ∥ (𝐵 − 𝐶)) |
3 | | simprr 792 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → 𝐷 ∈
ℤ) |
4 | 3 | ad2antrr 758 |
. . . . . . 7
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐷 ∈ ℤ) |
5 | | simp-4l 802 |
. . . . . . 7
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐴 ∈ ℤ) |
6 | | simplr 788 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → 𝐵 ∈
ℤ) |
7 | 6 | ad2antrr 758 |
. . . . . . . 8
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐵 ∈ ℤ) |
8 | | simprl 790 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → 𝐶 ∈
ℤ) |
9 | 8 | ad2antrr 758 |
. . . . . . . 8
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐶 ∈ ℤ) |
10 | 7, 9 | zsubcld 11363 |
. . . . . . 7
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → (𝐵 − 𝐶) ∈ ℤ) |
11 | | dvdstr 14856 |
. . . . . . 7
⊢ ((𝐷 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ (𝐵 − 𝐶) ∈ ℤ) → ((𝐷 ∥ 𝐴 ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐷 ∥ (𝐵 − 𝐶))) |
12 | 4, 5, 10, 11 | syl3anc 1318 |
. . . . . 6
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → ((𝐷 ∥ 𝐴 ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐷 ∥ (𝐵 − 𝐶))) |
13 | 1, 2, 12 | mp2and 711 |
. . . . 5
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − 𝐶)) → 𝐷 ∥ (𝐵 − 𝐶)) |
14 | 13 | ex 449 |
. . . 4
⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ)) ∧ 𝐷 ∥ 𝐴) → (𝐴 ∥ (𝐵 − 𝐶) → 𝐷 ∥ (𝐵 − 𝐶))) |
15 | | simplr 788 |
. . . . . 6
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐷 ∥ 𝐴) |
16 | | simpr 476 |
. . . . . 6
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐴 ∥ (𝐵 − -𝐶)) |
17 | 3 | ad2antrr 758 |
. . . . . . 7
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐷 ∈ ℤ) |
18 | | simp-4l 802 |
. . . . . . 7
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐴 ∈ ℤ) |
19 | 6 | ad2antrr 758 |
. . . . . . . 8
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐵 ∈ ℤ) |
20 | 8 | ad2antrr 758 |
. . . . . . . . 9
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐶 ∈ ℤ) |
21 | 20 | znegcld 11360 |
. . . . . . . 8
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → -𝐶 ∈ ℤ) |
22 | 19, 21 | zsubcld 11363 |
. . . . . . 7
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → (𝐵 − -𝐶) ∈ ℤ) |
23 | | dvdstr 14856 |
. . . . . . 7
⊢ ((𝐷 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ (𝐵 − -𝐶) ∈ ℤ) → ((𝐷 ∥ 𝐴 ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐷 ∥ (𝐵 − -𝐶))) |
24 | 17, 18, 22, 23 | syl3anc 1318 |
. . . . . 6
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → ((𝐷 ∥ 𝐴 ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐷 ∥ (𝐵 − -𝐶))) |
25 | 15, 16, 24 | mp2and 711 |
. . . . 5
⊢
(((((𝐴 ∈
ℤ ∧ 𝐵 ∈
ℤ) ∧ (𝐶 ∈
ℤ ∧ 𝐷 ∈
ℤ)) ∧ 𝐷 ∥
𝐴) ∧ 𝐴 ∥ (𝐵 − -𝐶)) → 𝐷 ∥ (𝐵 − -𝐶)) |
26 | 25 | ex 449 |
. . . 4
⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ)) ∧ 𝐷 ∥ 𝐴) → (𝐴 ∥ (𝐵 − -𝐶) → 𝐷 ∥ (𝐵 − -𝐶))) |
27 | 14, 26 | orim12d 879 |
. . 3
⊢ ((((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ)) ∧ 𝐷 ∥ 𝐴) → ((𝐴 ∥ (𝐵 − 𝐶) ∨ 𝐴 ∥ (𝐵 − -𝐶)) → (𝐷 ∥ (𝐵 − 𝐶) ∨ 𝐷 ∥ (𝐵 − -𝐶)))) |
28 | 27 | expimpd 627 |
. 2
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ)) → ((𝐷 ∥ 𝐴 ∧ (𝐴 ∥ (𝐵 − 𝐶) ∨ 𝐴 ∥ (𝐵 − -𝐶))) → (𝐷 ∥ (𝐵 − 𝐶) ∨ 𝐷 ∥ (𝐵 − -𝐶)))) |
29 | 28 | 3impia 1253 |
1
⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐶 ∈ ℤ ∧ 𝐷 ∈ ℤ) ∧ (𝐷 ∥ 𝐴 ∧ (𝐴 ∥ (𝐵 − 𝐶) ∨ 𝐴 ∥ (𝐵 − -𝐶)))) → (𝐷 ∥ (𝐵 − 𝐶) ∨ 𝐷 ∥ (𝐵 − -𝐶))) |