Proof of Theorem lcmf
| Step | Hyp | Ref
| Expression |
| 1 | | dvdslcmf 15344 |
. . . . . 6
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin) →
∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍)) |
| 2 | 1 | 3adant3 1081 |
. . . . 5
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) → ∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍)) |
| 3 | | lcmfledvds 15345 |
. . . . . . 7
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) → ((𝑘 ∈ ℕ ∧
∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘) → (lcm‘𝑍) ≤ 𝑘)) |
| 4 | 3 | expdimp 453 |
. . . . . 6
⊢ (((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) ∧ 𝑘 ∈ ℕ) → (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → (lcm‘𝑍) ≤ 𝑘)) |
| 5 | 4 | ralrimiva 2966 |
. . . . 5
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) → ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → (lcm‘𝑍) ≤ 𝑘)) |
| 6 | 2, 5 | jca 554 |
. . . 4
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) → (∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → (lcm‘𝑍) ≤ 𝑘))) |
| 7 | 6 | adantl 482 |
. . 3
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → (∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → (lcm‘𝑍) ≤ 𝑘))) |
| 8 | | breq2 4657 |
. . . . 5
⊢ (𝐾 = (lcm‘𝑍) → (𝑚 ∥ 𝐾 ↔ 𝑚 ∥ (lcm‘𝑍))) |
| 9 | 8 | ralbidv 2986 |
. . . 4
⊢ (𝐾 = (lcm‘𝑍) → (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ↔ ∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍))) |
| 10 | | breq1 4656 |
. . . . . 6
⊢ (𝐾 = (lcm‘𝑍) → (𝐾 ≤ 𝑘 ↔ (lcm‘𝑍) ≤ 𝑘)) |
| 11 | 10 | imbi2d 330 |
. . . . 5
⊢ (𝐾 = (lcm‘𝑍) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘) ↔ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → (lcm‘𝑍) ≤ 𝑘))) |
| 12 | 11 | ralbidv 2986 |
. . . 4
⊢ (𝐾 = (lcm‘𝑍) → (∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘) ↔ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → (lcm‘𝑍) ≤ 𝑘))) |
| 13 | 9, 12 | anbi12d 747 |
. . 3
⊢ (𝐾 = (lcm‘𝑍) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) ↔ (∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → (lcm‘𝑍) ≤ 𝑘)))) |
| 14 | 7, 13 | syl5ibrcom 237 |
. 2
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → (𝐾 = (lcm‘𝑍) → (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)))) |
| 15 | | lcmfn0cl 15339 |
. . . . . 6
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) →
(lcm‘𝑍) ∈
ℕ) |
| 16 | 15 | adantl 482 |
. . . . 5
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) →
(lcm‘𝑍) ∈
ℕ) |
| 17 | | breq2 4657 |
. . . . . . . 8
⊢ (𝑘 = (lcm‘𝑍) → (𝑚 ∥ 𝑘 ↔ 𝑚 ∥ (lcm‘𝑍))) |
| 18 | 17 | ralbidv 2986 |
. . . . . . 7
⊢ (𝑘 = (lcm‘𝑍) → (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 ↔ ∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍))) |
| 19 | | breq2 4657 |
. . . . . . 7
⊢ (𝑘 = (lcm‘𝑍) → (𝐾 ≤ 𝑘 ↔ 𝐾 ≤ (lcm‘𝑍))) |
| 20 | 18, 19 | imbi12d 334 |
. . . . . 6
⊢ (𝑘 = (lcm‘𝑍) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘) ↔ (∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) → 𝐾 ≤ (lcm‘𝑍)))) |
| 21 | 20 | rspcv 3305 |
. . . . 5
⊢
((lcm‘𝑍) ∈ ℕ → (∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘) → (∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) → 𝐾 ≤ (lcm‘𝑍)))) |
| 22 | 16, 21 | syl 17 |
. . . 4
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → (∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘) → (∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) → 𝐾 ≤ (lcm‘𝑍)))) |
| 23 | 22 | adantld 483 |
. . 3
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → (∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) → 𝐾 ≤ (lcm‘𝑍)))) |
| 24 | 2 | adantl 482 |
. . . . 5
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → ∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍)) |
| 25 | | nnre 11027 |
. . . . . . . 8
⊢ (𝐾 ∈ ℕ → 𝐾 ∈
ℝ) |
| 26 | 15 | nnred 11035 |
. . . . . . . 8
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) →
(lcm‘𝑍) ∈
ℝ) |
| 27 | 25, 26 | anim12i 590 |
. . . . . . 7
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → (𝐾 ∈ ℝ ∧
(lcm‘𝑍) ∈
ℝ)) |
| 28 | | leloe 10124 |
. . . . . . 7
⊢ ((𝐾 ∈ ℝ ∧
(lcm‘𝑍) ∈
ℝ) → (𝐾 ≤
(lcm‘𝑍) ↔
(𝐾 <
(lcm‘𝑍) ∨
𝐾 = (lcm‘𝑍)))) |
| 29 | 27, 28 | syl 17 |
. . . . . 6
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → (𝐾 ≤ (lcm‘𝑍) ↔ (𝐾 < (lcm‘𝑍) ∨ 𝐾 = (lcm‘𝑍)))) |
| 30 | | lcmfledvds 15345 |
. . . . . . . . . . . . 13
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) → ((𝐾 ∈ ℕ ∧
∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾) → (lcm‘𝑍) ≤ 𝐾)) |
| 31 | 30 | expd 452 |
. . . . . . . . . . . 12
⊢ ((𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍) → (𝐾 ∈ ℕ →
(∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 → (lcm‘𝑍) ≤ 𝐾))) |
| 32 | 31 | impcom 446 |
. . . . . . . . . . 11
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 → (lcm‘𝑍) ≤ 𝐾)) |
| 33 | | lenlt 10116 |
. . . . . . . . . . . . 13
⊢
(((lcm‘𝑍) ∈ ℝ ∧ 𝐾 ∈ ℝ) →
((lcm‘𝑍) ≤
𝐾 ↔ ¬ 𝐾 < (lcm‘𝑍))) |
| 34 | 26, 25, 33 | syl2anr 495 |
. . . . . . . . . . . 12
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) →
((lcm‘𝑍) ≤
𝐾 ↔ ¬ 𝐾 < (lcm‘𝑍))) |
| 35 | | pm2.21 120 |
. . . . . . . . . . . 12
⊢ (¬
𝐾 <
(lcm‘𝑍) →
(𝐾 <
(lcm‘𝑍) →
𝐾 = (lcm‘𝑍))) |
| 36 | 34, 35 | syl6bi 243 |
. . . . . . . . . . 11
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) →
((lcm‘𝑍) ≤
𝐾 → (𝐾 < (lcm‘𝑍) → 𝐾 = (lcm‘𝑍)))) |
| 37 | 32, 36 | syldc 48 |
. . . . . . . . . 10
⊢
(∀𝑚 ∈
𝑍 𝑚 ∥ 𝐾 → ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉ 𝑍)) → (𝐾 < (lcm‘𝑍) → 𝐾 = (lcm‘𝑍)))) |
| 38 | 37 | adantr 481 |
. . . . . . . . 9
⊢
((∀𝑚 ∈
𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉ 𝑍)) → (𝐾 < (lcm‘𝑍) → 𝐾 = (lcm‘𝑍)))) |
| 39 | 38 | com13 88 |
. . . . . . . 8
⊢ (𝐾 < (lcm‘𝑍) → ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉ 𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → 𝐾 = (lcm‘𝑍)))) |
| 40 | | 2a1 28 |
. . . . . . . 8
⊢ (𝐾 = (lcm‘𝑍) → ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉ 𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → 𝐾 = (lcm‘𝑍)))) |
| 41 | 39, 40 | jaoi 394 |
. . . . . . 7
⊢ ((𝐾 < (lcm‘𝑍) ∨ 𝐾 = (lcm‘𝑍)) → ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉ 𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → 𝐾 = (lcm‘𝑍)))) |
| 42 | 41 | com12 32 |
. . . . . 6
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → ((𝐾 < (lcm‘𝑍) ∨ 𝐾 = (lcm‘𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → 𝐾 = (lcm‘𝑍)))) |
| 43 | 29, 42 | sylbid 230 |
. . . . 5
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → (𝐾 ≤ (lcm‘𝑍) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → 𝐾 = (lcm‘𝑍)))) |
| 44 | 24, 43 | embantd 59 |
. . . 4
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) → 𝐾 ≤ (lcm‘𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → 𝐾 = (lcm‘𝑍)))) |
| 45 | 44 | com23 86 |
. . 3
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ (lcm‘𝑍) → 𝐾 ≤ (lcm‘𝑍)) → 𝐾 = (lcm‘𝑍)))) |
| 46 | 23, 45 | mpdd 43 |
. 2
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → ((∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)) → 𝐾 = (lcm‘𝑍))) |
| 47 | 14, 46 | impbid 202 |
1
⊢ ((𝐾 ∈ ℕ ∧ (𝑍 ⊆ ℤ ∧ 𝑍 ∈ Fin ∧ 0 ∉
𝑍)) → (𝐾 = (lcm‘𝑍) ↔ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝐾 ∧ ∀𝑘 ∈ ℕ (∀𝑚 ∈ 𝑍 𝑚 ∥ 𝑘 → 𝐾 ≤ 𝑘)))) |