Proof of Theorem lo1eq
| Step | Hyp | Ref
| Expression |
| 1 | | lo1dm 15472 |
. . 3
⊢ ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ ≤𝑂(1) → dom (𝑥 ∈ 𝐴 ↦ 𝐵) ⊆ ℝ) |
| 2 | | eqid 2739 |
. . . . 5
⊢ (𝑥 ∈ 𝐴 ↦ 𝐵) = (𝑥 ∈ 𝐴 ↦ 𝐵) |
| 3 | | lo1eq.1 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℝ) |
| 4 | 2, 3 | dmmptd 6630 |
. . . 4
⊢ (𝜑 → dom (𝑥 ∈ 𝐴 ↦ 𝐵) = 𝐴) |
| 5 | 4 | sseq1d 3946 |
. . 3
⊢ (𝜑 → (dom (𝑥 ∈ 𝐴 ↦ 𝐵) ⊆ ℝ ↔ 𝐴 ⊆ ℝ)) |
| 6 | 1, 5 | imbitrid 245 |
. 2
⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ ≤𝑂(1) → 𝐴 ⊆
ℝ)) |
| 7 | | lo1dm 15472 |
. . 3
⊢ ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ ≤𝑂(1) → dom (𝑥 ∈ 𝐴 ↦ 𝐶) ⊆ ℝ) |
| 8 | | eqid 2739 |
. . . . 5
⊢ (𝑥 ∈ 𝐴 ↦ 𝐶) = (𝑥 ∈ 𝐴 ↦ 𝐶) |
| 9 | | lo1eq.2 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐶 ∈ ℝ) |
| 10 | 8, 9 | dmmptd 6630 |
. . . 4
⊢ (𝜑 → dom (𝑥 ∈ 𝐴 ↦ 𝐶) = 𝐴) |
| 11 | 10 | sseq1d 3946 |
. . 3
⊢ (𝜑 → (dom (𝑥 ∈ 𝐴 ↦ 𝐶) ⊆ ℝ ↔ 𝐴 ⊆ ℝ)) |
| 12 | 7, 11 | imbitrid 245 |
. 2
⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ ≤𝑂(1) → 𝐴 ⊆
ℝ)) |
| 13 | | elin 3899 |
. . . . . . . . . . . . . 14
⊢ (𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞)) ↔ (𝑥 ∈ 𝐴 ∧ 𝑥 ∈ (𝐷[,)+∞))) |
| 14 | 13 | bilani 505 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞))) → (𝑥 ∈ 𝐴 ∧ 𝑥 ∈ (𝐷[,)+∞))) |
| 15 | 14 | simpld 495 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞))) → 𝑥 ∈ 𝐴) |
| 16 | 14 | simprd 496 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞))) → 𝑥 ∈ (𝐷[,)+∞)) |
| 17 | | lo1eq.3 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → 𝐷 ∈ ℝ) |
| 18 | | elicopnf 13389 |
. . . . . . . . . . . . . . . 16
⊢ (𝐷 ∈ ℝ → (𝑥 ∈ (𝐷[,)+∞) ↔ (𝑥 ∈ ℝ ∧ 𝐷 ≤ 𝑥))) |
| 19 | 17, 18 | syl 17 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝑥 ∈ (𝐷[,)+∞) ↔ (𝑥 ∈ ℝ ∧ 𝐷 ≤ 𝑥))) |
| 20 | 19 | biimpa 477 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐷[,)+∞)) → (𝑥 ∈ ℝ ∧ 𝐷 ≤ 𝑥)) |
| 21 | 16, 20 | syldan 597 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞))) → (𝑥 ∈ ℝ ∧ 𝐷 ≤ 𝑥)) |
| 22 | 21 | simprd 496 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞))) → 𝐷 ≤ 𝑥) |
| 23 | 15, 22 | jca 516 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞))) → (𝑥 ∈ 𝐴 ∧ 𝐷 ≤ 𝑥)) |
| 24 | | lo1eq.4 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝐷 ≤ 𝑥)) → 𝐵 = 𝐶) |
| 25 | 23, 24 | syldan 597 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞))) → 𝐵 = 𝐶) |
| 26 | 25 | mpteq2dva 5165 |
. . . . . . . . 9
⊢ (𝜑 → (𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞)) ↦ 𝐵) = (𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞)) ↦ 𝐶)) |
| 27 | | inss1 4165 |
. . . . . . . . . 10
⊢ (𝐴 ∩ (𝐷[,)+∞)) ⊆ 𝐴 |
| 28 | | resmpt 5989 |
. . . . . . . . . 10
⊢ ((𝐴 ∩ (𝐷[,)+∞)) ⊆ 𝐴 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐴 ∩ (𝐷[,)+∞))) = (𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞)) ↦ 𝐵)) |
| 29 | 27, 28 | ax-mp 5 |
. . . . . . . . 9
⊢ ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐴 ∩ (𝐷[,)+∞))) = (𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞)) ↦ 𝐵) |
| 30 | | resmpt 5989 |
. . . . . . . . . 10
⊢ ((𝐴 ∩ (𝐷[,)+∞)) ⊆ 𝐴 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐴 ∩ (𝐷[,)+∞))) = (𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞)) ↦ 𝐶)) |
| 31 | 27, 30 | ax-mp 5 |
. . . . . . . . 9
⊢ ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐴 ∩ (𝐷[,)+∞))) = (𝑥 ∈ (𝐴 ∩ (𝐷[,)+∞)) ↦ 𝐶) |
| 32 | 26, 29, 31 | 3eqtr4g 2799 |
. . . . . . . 8
⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐴 ∩ (𝐷[,)+∞))) = ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐴 ∩ (𝐷[,)+∞)))) |
| 33 | | resres 5944 |
. . . . . . . 8
⊢ (((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ 𝐴) ↾ (𝐷[,)+∞)) = ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐴 ∩ (𝐷[,)+∞))) |
| 34 | | resres 5944 |
. . . . . . . 8
⊢ (((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ 𝐴) ↾ (𝐷[,)+∞)) = ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐴 ∩ (𝐷[,)+∞))) |
| 35 | 32, 33, 34 | 3eqtr4g 2799 |
. . . . . . 7
⊢ (𝜑 → (((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ 𝐴) ↾ (𝐷[,)+∞)) = (((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ 𝐴) ↾ (𝐷[,)+∞))) |
| 36 | | ssid 3937 |
. . . . . . . 8
⊢ 𝐴 ⊆ 𝐴 |
| 37 | | resmpt 5989 |
. . . . . . . 8
⊢ (𝐴 ⊆ 𝐴 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ 𝐴) = (𝑥 ∈ 𝐴 ↦ 𝐵)) |
| 38 | | reseq1 5925 |
. . . . . . . 8
⊢ (((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ 𝐴) = (𝑥 ∈ 𝐴 ↦ 𝐵) → (((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ 𝐴) ↾ (𝐷[,)+∞)) = ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐷[,)+∞))) |
| 39 | 36, 37, 38 | mp2b 10 |
. . . . . . 7
⊢ (((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ 𝐴) ↾ (𝐷[,)+∞)) = ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐷[,)+∞)) |
| 40 | | resmpt 5989 |
. . . . . . . 8
⊢ (𝐴 ⊆ 𝐴 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ 𝐴) = (𝑥 ∈ 𝐴 ↦ 𝐶)) |
| 41 | | reseq1 5925 |
. . . . . . . 8
⊢ (((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ 𝐴) = (𝑥 ∈ 𝐴 ↦ 𝐶) → (((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ 𝐴) ↾ (𝐷[,)+∞)) = ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐷[,)+∞))) |
| 42 | 36, 40, 41 | mp2b 10 |
. . . . . . 7
⊢ (((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ 𝐴) ↾ (𝐷[,)+∞)) = ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐷[,)+∞)) |
| 43 | 35, 39, 42 | 3eqtr3g 2797 |
. . . . . 6
⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐷[,)+∞)) = ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐷[,)+∞))) |
| 44 | 43 | eleq1d 2824 |
. . . . 5
⊢ (𝜑 → (((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐷[,)+∞)) ∈ ≤𝑂(1) ↔
((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐷[,)+∞)) ∈
≤𝑂(1))) |
| 45 | 44 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ 𝐴 ⊆ ℝ) → (((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐷[,)+∞)) ∈ ≤𝑂(1) ↔
((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐷[,)+∞)) ∈
≤𝑂(1))) |
| 46 | 3 | fmpttd 7056 |
. . . . . 6
⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵):𝐴⟶ℝ) |
| 47 | 46 | adantr 481 |
. . . . 5
⊢ ((𝜑 ∧ 𝐴 ⊆ ℝ) → (𝑥 ∈ 𝐴 ↦ 𝐵):𝐴⟶ℝ) |
| 48 | | simpr 485 |
. . . . 5
⊢ ((𝜑 ∧ 𝐴 ⊆ ℝ) → 𝐴 ⊆ ℝ) |
| 49 | 17 | adantr 481 |
. . . . 5
⊢ ((𝜑 ∧ 𝐴 ⊆ ℝ) → 𝐷 ∈ ℝ) |
| 50 | 47, 48, 49 | lo1resb 15517 |
. . . 4
⊢ ((𝜑 ∧ 𝐴 ⊆ ℝ) → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ ≤𝑂(1) ↔ ((𝑥 ∈ 𝐴 ↦ 𝐵) ↾ (𝐷[,)+∞)) ∈
≤𝑂(1))) |
| 51 | 9 | fmpttd 7056 |
. . . . . 6
⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐶):𝐴⟶ℝ) |
| 52 | 51 | adantr 481 |
. . . . 5
⊢ ((𝜑 ∧ 𝐴 ⊆ ℝ) → (𝑥 ∈ 𝐴 ↦ 𝐶):𝐴⟶ℝ) |
| 53 | 52, 48, 49 | lo1resb 15517 |
. . . 4
⊢ ((𝜑 ∧ 𝐴 ⊆ ℝ) → ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ ≤𝑂(1) ↔ ((𝑥 ∈ 𝐴 ↦ 𝐶) ↾ (𝐷[,)+∞)) ∈
≤𝑂(1))) |
| 54 | 45, 50, 53 | 3bitr4d 312 |
. . 3
⊢ ((𝜑 ∧ 𝐴 ⊆ ℝ) → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ ≤𝑂(1) ↔ (𝑥 ∈ 𝐴 ↦ 𝐶) ∈ ≤𝑂(1))) |
| 55 | 54 | ex 413 |
. 2
⊢ (𝜑 → (𝐴 ⊆ ℝ → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ ≤𝑂(1) ↔ (𝑥 ∈ 𝐴 ↦ 𝐶) ∈
≤𝑂(1)))) |
| 56 | 6, 12, 55 | pm5.21ndd 380 |
1
⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ ≤𝑂(1) ↔ (𝑥 ∈ 𝐴 ↦ 𝐶) ∈ ≤𝑂(1))) |