Proof of Theorem ditgsplitlem
| Step | Hyp | Ref
| Expression |
| 1 | | ditgsplit.a |
. . . . . . 7
⊢ (𝜑 → 𝐴 ∈ (𝑋[,]𝑌)) |
| 2 | | ditgsplit.x |
. . . . . . . 8
⊢ (𝜑 → 𝑋 ∈ ℝ) |
| 3 | | ditgsplit.y |
. . . . . . . 8
⊢ (𝜑 → 𝑌 ∈ ℝ) |
| 4 | | elicc2 13355 |
. . . . . . . 8
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝐴 ∈ (𝑋[,]𝑌) ↔ (𝐴 ∈ ℝ ∧ 𝑋 ≤ 𝐴 ∧ 𝐴 ≤ 𝑌))) |
| 5 | 2, 3, 4 | syl2anc 590 |
. . . . . . 7
⊢ (𝜑 → (𝐴 ∈ (𝑋[,]𝑌) ↔ (𝐴 ∈ ℝ ∧ 𝑋 ≤ 𝐴 ∧ 𝐴 ≤ 𝑌))) |
| 6 | 1, 5 | mpbid 233 |
. . . . . 6
⊢ (𝜑 → (𝐴 ∈ ℝ ∧ 𝑋 ≤ 𝐴 ∧ 𝐴 ≤ 𝑌)) |
| 7 | 6 | simp1d 1148 |
. . . . 5
⊢ (𝜑 → 𝐴 ∈ ℝ) |
| 8 | 7 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → 𝐴 ∈ ℝ) |
| 9 | | ditgsplit.c |
. . . . . . 7
⊢ (𝜑 → 𝐶 ∈ (𝑋[,]𝑌)) |
| 10 | | elicc2 13355 |
. . . . . . . 8
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝐶 ∈ (𝑋[,]𝑌) ↔ (𝐶 ∈ ℝ ∧ 𝑋 ≤ 𝐶 ∧ 𝐶 ≤ 𝑌))) |
| 11 | 2, 3, 10 | syl2anc 590 |
. . . . . . 7
⊢ (𝜑 → (𝐶 ∈ (𝑋[,]𝑌) ↔ (𝐶 ∈ ℝ ∧ 𝑋 ≤ 𝐶 ∧ 𝐶 ≤ 𝑌))) |
| 12 | 9, 11 | mpbid 233 |
. . . . . 6
⊢ (𝜑 → (𝐶 ∈ ℝ ∧ 𝑋 ≤ 𝐶 ∧ 𝐶 ≤ 𝑌)) |
| 13 | 12 | simp1d 1148 |
. . . . 5
⊢ (𝜑 → 𝐶 ∈ ℝ) |
| 14 | 13 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → 𝐶 ∈ ℝ) |
| 15 | | ditgsplit.b |
. . . . . . . 8
⊢ (𝜑 → 𝐵 ∈ (𝑋[,]𝑌)) |
| 16 | | elicc2 13355 |
. . . . . . . . 9
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝐵 ∈ (𝑋[,]𝑌) ↔ (𝐵 ∈ ℝ ∧ 𝑋 ≤ 𝐵 ∧ 𝐵 ≤ 𝑌))) |
| 17 | 2, 3, 16 | syl2anc 590 |
. . . . . . . 8
⊢ (𝜑 → (𝐵 ∈ (𝑋[,]𝑌) ↔ (𝐵 ∈ ℝ ∧ 𝑋 ≤ 𝐵 ∧ 𝐵 ≤ 𝑌))) |
| 18 | 15, 17 | mpbid 233 |
. . . . . . 7
⊢ (𝜑 → (𝐵 ∈ ℝ ∧ 𝑋 ≤ 𝐵 ∧ 𝐵 ≤ 𝑌)) |
| 19 | 18 | simp1d 1148 |
. . . . . 6
⊢ (𝜑 → 𝐵 ∈ ℝ) |
| 20 | 19 | adantr 481 |
. . . . 5
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → 𝐵 ∈ ℝ) |
| 21 | | ditgsplit.1 |
. . . . . . 7
⊢ ((𝜓 ∧ 𝜃) ↔ (𝐴 ≤ 𝐵 ∧ 𝐵 ≤ 𝐶)) |
| 22 | 21 | bilani 505 |
. . . . . 6
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → (𝐴 ≤ 𝐵 ∧ 𝐵 ≤ 𝐶)) |
| 23 | 22 | simpld 495 |
. . . . 5
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → 𝐴 ≤ 𝐵) |
| 24 | 22 | simprd 496 |
. . . . 5
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → 𝐵 ≤ 𝐶) |
| 25 | | elicc2 13355 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ ∧ 𝐶 ∈ ℝ) → (𝐵 ∈ (𝐴[,]𝐶) ↔ (𝐵 ∈ ℝ ∧ 𝐴 ≤ 𝐵 ∧ 𝐵 ≤ 𝐶))) |
| 26 | 7, 13, 25 | syl2anc 590 |
. . . . . 6
⊢ (𝜑 → (𝐵 ∈ (𝐴[,]𝐶) ↔ (𝐵 ∈ ℝ ∧ 𝐴 ≤ 𝐵 ∧ 𝐵 ≤ 𝐶))) |
| 27 | 26 | adantr 481 |
. . . . 5
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → (𝐵 ∈ (𝐴[,]𝐶) ↔ (𝐵 ∈ ℝ ∧ 𝐴 ≤ 𝐵 ∧ 𝐵 ≤ 𝐶))) |
| 28 | 20, 23, 24, 27 | mpbir3and 1349 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → 𝐵 ∈ (𝐴[,]𝐶)) |
| 29 | 2 | rexrd 11186 |
. . . . . . . . 9
⊢ (𝜑 → 𝑋 ∈
ℝ*) |
| 30 | 6 | simp2d 1149 |
. . . . . . . . 9
⊢ (𝜑 → 𝑋 ≤ 𝐴) |
| 31 | | iooss1 13324 |
. . . . . . . . 9
⊢ ((𝑋 ∈ ℝ*
∧ 𝑋 ≤ 𝐴) → (𝐴(,)𝐶) ⊆ (𝑋(,)𝐶)) |
| 32 | 29, 30, 31 | syl2anc 590 |
. . . . . . . 8
⊢ (𝜑 → (𝐴(,)𝐶) ⊆ (𝑋(,)𝐶)) |
| 33 | 3 | rexrd 11186 |
. . . . . . . . 9
⊢ (𝜑 → 𝑌 ∈
ℝ*) |
| 34 | 12 | simp3d 1150 |
. . . . . . . . 9
⊢ (𝜑 → 𝐶 ≤ 𝑌) |
| 35 | | iooss2 13325 |
. . . . . . . . 9
⊢ ((𝑌 ∈ ℝ*
∧ 𝐶 ≤ 𝑌) → (𝑋(,)𝐶) ⊆ (𝑋(,)𝑌)) |
| 36 | 33, 34, 35 | syl2anc 590 |
. . . . . . . 8
⊢ (𝜑 → (𝑋(,)𝐶) ⊆ (𝑋(,)𝑌)) |
| 37 | 32, 36 | sstrd 3925 |
. . . . . . 7
⊢ (𝜑 → (𝐴(,)𝐶) ⊆ (𝑋(,)𝑌)) |
| 38 | 37 | sselda 3915 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐶)) → 𝑥 ∈ (𝑋(,)𝑌)) |
| 39 | | ditgsplit.i |
. . . . . . . 8
⊢ (𝜑 → (𝑥 ∈ (𝑋(,)𝑌) ↦ 𝐷) ∈
𝐿1) |
| 40 | | iblmbf 25752 |
. . . . . . . 8
⊢ ((𝑥 ∈ (𝑋(,)𝑌) ↦ 𝐷) ∈ 𝐿1 → (𝑥 ∈ (𝑋(,)𝑌) ↦ 𝐷) ∈ MblFn) |
| 41 | 39, 40 | syl 17 |
. . . . . . 7
⊢ (𝜑 → (𝑥 ∈ (𝑋(,)𝑌) ↦ 𝐷) ∈ MblFn) |
| 42 | | ditgsplit.d |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑥 ∈ (𝑋(,)𝑌)) → 𝐷 ∈ 𝑉) |
| 43 | 41, 42 | mbfmptcl 25621 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ (𝑋(,)𝑌)) → 𝐷 ∈ ℂ) |
| 44 | 38, 43 | syldan 597 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐶)) → 𝐷 ∈ ℂ) |
| 45 | 44 | adantlr 721 |
. . . 4
⊢ (((𝜑 ∧ (𝜓 ∧ 𝜃)) ∧ 𝑥 ∈ (𝐴(,)𝐶)) → 𝐷 ∈ ℂ) |
| 46 | | iooss1 13324 |
. . . . . . . 8
⊢ ((𝑋 ∈ ℝ*
∧ 𝑋 ≤ 𝐴) → (𝐴(,)𝐵) ⊆ (𝑋(,)𝐵)) |
| 47 | 29, 30, 46 | syl2anc 590 |
. . . . . . 7
⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (𝑋(,)𝐵)) |
| 48 | 18 | simp3d 1150 |
. . . . . . . 8
⊢ (𝜑 → 𝐵 ≤ 𝑌) |
| 49 | | iooss2 13325 |
. . . . . . . 8
⊢ ((𝑌 ∈ ℝ*
∧ 𝐵 ≤ 𝑌) → (𝑋(,)𝐵) ⊆ (𝑋(,)𝑌)) |
| 50 | 33, 48, 49 | syl2anc 590 |
. . . . . . 7
⊢ (𝜑 → (𝑋(,)𝐵) ⊆ (𝑋(,)𝑌)) |
| 51 | 47, 50 | sstrd 3925 |
. . . . . 6
⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (𝑋(,)𝑌)) |
| 52 | | ioombl 25550 |
. . . . . . 7
⊢ (𝐴(,)𝐵) ∈ dom vol |
| 53 | 52 | a1i 11 |
. . . . . 6
⊢ (𝜑 → (𝐴(,)𝐵) ∈ dom vol) |
| 54 | 51, 53, 42, 39 | iblss 25790 |
. . . . 5
⊢ (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ 𝐷) ∈
𝐿1) |
| 55 | 54 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → (𝑥 ∈ (𝐴(,)𝐵) ↦ 𝐷) ∈
𝐿1) |
| 56 | 18 | simp2d 1149 |
. . . . . . . 8
⊢ (𝜑 → 𝑋 ≤ 𝐵) |
| 57 | | iooss1 13324 |
. . . . . . . 8
⊢ ((𝑋 ∈ ℝ*
∧ 𝑋 ≤ 𝐵) → (𝐵(,)𝐶) ⊆ (𝑋(,)𝐶)) |
| 58 | 29, 56, 57 | syl2anc 590 |
. . . . . . 7
⊢ (𝜑 → (𝐵(,)𝐶) ⊆ (𝑋(,)𝐶)) |
| 59 | 58, 36 | sstrd 3925 |
. . . . . 6
⊢ (𝜑 → (𝐵(,)𝐶) ⊆ (𝑋(,)𝑌)) |
| 60 | | ioombl 25550 |
. . . . . . 7
⊢ (𝐵(,)𝐶) ∈ dom vol |
| 61 | 60 | a1i 11 |
. . . . . 6
⊢ (𝜑 → (𝐵(,)𝐶) ∈ dom vol) |
| 62 | 59, 61, 42, 39 | iblss 25790 |
. . . . 5
⊢ (𝜑 → (𝑥 ∈ (𝐵(,)𝐶) ↦ 𝐷) ∈
𝐿1) |
| 63 | 62 | adantr 481 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → (𝑥 ∈ (𝐵(,)𝐶) ↦ 𝐷) ∈
𝐿1) |
| 64 | 8, 14, 28, 45, 55, 63 | itgsplitioo 25823 |
. . 3
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → ∫(𝐴(,)𝐶)𝐷 d𝑥 = (∫(𝐴(,)𝐵)𝐷 d𝑥 + ∫(𝐵(,)𝐶)𝐷 d𝑥)) |
| 65 | 8, 20, 14, 23, 24 | letrd 11294 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → 𝐴 ≤ 𝐶) |
| 66 | 65 | ditgpos 25841 |
. . 3
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = ∫(𝐴(,)𝐶)𝐷 d𝑥) |
| 67 | 23 | ditgpos 25841 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → ⨜[𝐴 → 𝐵]𝐷 d𝑥 = ∫(𝐴(,)𝐵)𝐷 d𝑥) |
| 68 | 24 | ditgpos 25841 |
. . . 4
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → ⨜[𝐵 → 𝐶]𝐷 d𝑥 = ∫(𝐵(,)𝐶)𝐷 d𝑥) |
| 69 | 67, 68 | oveq12d 7374 |
. . 3
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = (∫(𝐴(,)𝐵)𝐷 d𝑥 + ∫(𝐵(,)𝐶)𝐷 d𝑥)) |
| 70 | 64, 66, 69 | 3eqtr4d 2784 |
. 2
⊢ ((𝜑 ∧ (𝜓 ∧ 𝜃)) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) |
| 71 | 70 | anassrs 468 |
1
⊢ (((𝜑 ∧ 𝜓) ∧ 𝜃) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) |