Proof of Theorem infssfzledc
| Step | Hyp | Ref
| Expression |
| 1 | | infssfzledc.s |
. . . 4
⊢ 𝑆 = {𝑛 ∈ (𝑀...𝑁) ∣ 𝜓} |
| 2 | | elfzuz 10374 |
. . . . . . . 8
⊢ (𝑛 ∈ (𝑀...𝑁) → 𝑛 ∈ (ℤ≥‘𝑀)) |
| 3 | 2 | ad2antrl 490 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑛 ∈ (𝑀...𝑁) ∧ 𝜓)) → 𝑛 ∈ (ℤ≥‘𝑀)) |
| 4 | | elfzle2 10382 |
. . . . . . . 8
⊢ (𝑛 ∈ (𝑀...𝑁) → 𝑛 ≤ 𝑁) |
| 5 | 4 | ad2antrl 490 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑛 ∈ (𝑀...𝑁) ∧ 𝜓)) → 𝑛 ≤ 𝑁) |
| 6 | | simprr 533 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑛 ∈ (𝑀...𝑁) ∧ 𝜓)) → 𝜓) |
| 7 | 3, 5, 6 | jca32 310 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑛 ∈ (𝑀...𝑁) ∧ 𝜓)) → (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓))) |
| 8 | | simprl 531 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓))) → 𝑛 ∈ (ℤ≥‘𝑀)) |
| 9 | | simprrl 541 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓))) → 𝑛 ≤ 𝑁) |
| 10 | | eluzelz 9881 |
. . . . . . . . . . 11
⊢ (𝑛 ∈
(ℤ≥‘𝑀) → 𝑛 ∈ ℤ) |
| 11 | 10 | adantr 276 |
. . . . . . . . . 10
⊢ ((𝑛 ∈
(ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓)) → 𝑛 ∈ ℤ) |
| 12 | | infssfzledc.a |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐴 ∈ 𝑆) |
| 13 | 1 | eleq2i 2301 |
. . . . . . . . . . . . . 14
⊢ (𝐴 ∈ 𝑆 ↔ 𝐴 ∈ {𝑛 ∈ (𝑀...𝑁) ∣ 𝜓}) |
| 14 | | nfcv 2386 |
. . . . . . . . . . . . . . 15
⊢
Ⅎ𝑛(𝑀...𝑁) |
| 15 | 14 | elrabsf 3084 |
. . . . . . . . . . . . . 14
⊢ (𝐴 ∈ {𝑛 ∈ (𝑀...𝑁) ∣ 𝜓} ↔ (𝐴 ∈ (𝑀...𝑁) ∧ [𝐴 / 𝑛]𝜓)) |
| 16 | 13, 15 | bitri 184 |
. . . . . . . . . . . . 13
⊢ (𝐴 ∈ 𝑆 ↔ (𝐴 ∈ (𝑀...𝑁) ∧ [𝐴 / 𝑛]𝜓)) |
| 17 | 12, 16 | sylib 122 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝐴 ∈ (𝑀...𝑁) ∧ [𝐴 / 𝑛]𝜓)) |
| 18 | 17 | simpld 112 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐴 ∈ (𝑀...𝑁)) |
| 19 | | elfzel2 10376 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ (𝑀...𝑁) → 𝑁 ∈ ℤ) |
| 20 | 18, 19 | syl 14 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑁 ∈ ℤ) |
| 21 | | eluz 9885 |
. . . . . . . . . 10
⊢ ((𝑛 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈
(ℤ≥‘𝑛) ↔ 𝑛 ≤ 𝑁)) |
| 22 | 11, 20, 21 | syl2anr 290 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓))) → (𝑁 ∈ (ℤ≥‘𝑛) ↔ 𝑛 ≤ 𝑁)) |
| 23 | 9, 22 | mpbird 167 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓))) → 𝑁 ∈ (ℤ≥‘𝑛)) |
| 24 | | elfzuzb 10372 |
. . . . . . . 8
⊢ (𝑛 ∈ (𝑀...𝑁) ↔ (𝑛 ∈ (ℤ≥‘𝑀) ∧ 𝑁 ∈ (ℤ≥‘𝑛))) |
| 25 | 8, 23, 24 | sylanbrc 417 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓))) → 𝑛 ∈ (𝑀...𝑁)) |
| 26 | | simprrr 542 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓))) → 𝜓) |
| 27 | 25, 26 | jca 306 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓))) → (𝑛 ∈ (𝑀...𝑁) ∧ 𝜓)) |
| 28 | 7, 27 | impbida 600 |
. . . . 5
⊢ (𝜑 → ((𝑛 ∈ (𝑀...𝑁) ∧ 𝜓) ↔ (𝑛 ∈ (ℤ≥‘𝑀) ∧ (𝑛 ≤ 𝑁 ∧ 𝜓)))) |
| 29 | 28 | rabbidva2 2799 |
. . . 4
⊢ (𝜑 → {𝑛 ∈ (𝑀...𝑁) ∣ 𝜓} = {𝑛 ∈ (ℤ≥‘𝑀) ∣ (𝑛 ≤ 𝑁 ∧ 𝜓)}) |
| 30 | 1, 29 | eqtrid 2279 |
. . 3
⊢ (𝜑 → 𝑆 = {𝑛 ∈ (ℤ≥‘𝑀) ∣ (𝑛 ≤ 𝑁 ∧ 𝜓)}) |
| 31 | 30 | infeq1d 7316 |
. 2
⊢ (𝜑 → inf(𝑆, ℝ, < ) = inf({𝑛 ∈ (ℤ≥‘𝑀) ∣ (𝑛 ≤ 𝑁 ∧ 𝜓)}, ℝ, < )) |
| 32 | | elfzel1 10377 |
. . . 4
⊢ (𝐴 ∈ (𝑀...𝑁) → 𝑀 ∈ ℤ) |
| 33 | 18, 32 | syl 14 |
. . 3
⊢ (𝜑 → 𝑀 ∈ ℤ) |
| 34 | | eqid 2234 |
. . 3
⊢ {𝑛 ∈
(ℤ≥‘𝑀) ∣ (𝑛 ≤ 𝑁 ∧ 𝜓)} = {𝑛 ∈ (ℤ≥‘𝑀) ∣ (𝑛 ≤ 𝑁 ∧ 𝜓)} |
| 35 | 12, 30 | eleqtrd 2313 |
. . 3
⊢ (𝜑 → 𝐴 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ (𝑛 ≤ 𝑁 ∧ 𝜓)}) |
| 36 | | elfzelz 10378 |
. . . . 5
⊢ (𝑛 ∈ (𝑀...𝐴) → 𝑛 ∈ ℤ) |
| 37 | | zdcle 9671 |
. . . . 5
⊢ ((𝑛 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
DECID 𝑛 ≤
𝑁) |
| 38 | 36, 20, 37 | syl2anr 290 |
. . . 4
⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀...𝐴)) → DECID 𝑛 ≤ 𝑁) |
| 39 | | infssfzledc.dc |
. . . 4
⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀...𝐴)) → DECID 𝜓) |
| 40 | 38, 39 | dcand 941 |
. . 3
⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀...𝐴)) → DECID (𝑛 ≤ 𝑁 ∧ 𝜓)) |
| 41 | 33, 34, 35, 40 | infssuzledc 10616 |
. 2
⊢ (𝜑 → inf({𝑛 ∈ (ℤ≥‘𝑀) ∣ (𝑛 ≤ 𝑁 ∧ 𝜓)}, ℝ, < ) ≤ 𝐴) |
| 42 | 31, 41 | eqbrtrd 4136 |
1
⊢ (𝜑 → inf(𝑆, ℝ, < ) ≤ 𝐴) |