Proof of Theorem ditgsplit
| Step | Hyp | Ref | Expression | 
|---|
| 1 |  | ditgsplit.a | . . . 4
⊢ (𝜑 → 𝐴 ∈ (𝑋[,]𝑌)) | 
| 2 |  | ditgsplit.x | . . . . 5
⊢ (𝜑 → 𝑋 ∈ ℝ) | 
| 3 |  | ditgsplit.y | . . . . 5
⊢ (𝜑 → 𝑌 ∈ ℝ) | 
| 4 |  | elicc2 13453 | . . . . 5
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝐴 ∈ (𝑋[,]𝑌) ↔ (𝐴 ∈ ℝ ∧ 𝑋 ≤ 𝐴 ∧ 𝐴 ≤ 𝑌))) | 
| 5 | 2, 3, 4 | syl2anc 584 | . . . 4
⊢ (𝜑 → (𝐴 ∈ (𝑋[,]𝑌) ↔ (𝐴 ∈ ℝ ∧ 𝑋 ≤ 𝐴 ∧ 𝐴 ≤ 𝑌))) | 
| 6 | 1, 5 | mpbid 232 | . . 3
⊢ (𝜑 → (𝐴 ∈ ℝ ∧ 𝑋 ≤ 𝐴 ∧ 𝐴 ≤ 𝑌)) | 
| 7 | 6 | simp1d 1142 | . 2
⊢ (𝜑 → 𝐴 ∈ ℝ) | 
| 8 |  | ditgsplit.b | . . . 4
⊢ (𝜑 → 𝐵 ∈ (𝑋[,]𝑌)) | 
| 9 |  | elicc2 13453 | . . . . 5
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝐵 ∈ (𝑋[,]𝑌) ↔ (𝐵 ∈ ℝ ∧ 𝑋 ≤ 𝐵 ∧ 𝐵 ≤ 𝑌))) | 
| 10 | 2, 3, 9 | syl2anc 584 | . . . 4
⊢ (𝜑 → (𝐵 ∈ (𝑋[,]𝑌) ↔ (𝐵 ∈ ℝ ∧ 𝑋 ≤ 𝐵 ∧ 𝐵 ≤ 𝑌))) | 
| 11 | 8, 10 | mpbid 232 | . . 3
⊢ (𝜑 → (𝐵 ∈ ℝ ∧ 𝑋 ≤ 𝐵 ∧ 𝐵 ≤ 𝑌)) | 
| 12 | 11 | simp1d 1142 | . 2
⊢ (𝜑 → 𝐵 ∈ ℝ) | 
| 13 | 7 | adantr 480 | . . 3
⊢ ((𝜑 ∧ 𝐴 ≤ 𝐵) → 𝐴 ∈ ℝ) | 
| 14 |  | ditgsplit.c | . . . . . 6
⊢ (𝜑 → 𝐶 ∈ (𝑋[,]𝑌)) | 
| 15 |  | elicc2 13453 | . . . . . . 7
⊢ ((𝑋 ∈ ℝ ∧ 𝑌 ∈ ℝ) → (𝐶 ∈ (𝑋[,]𝑌) ↔ (𝐶 ∈ ℝ ∧ 𝑋 ≤ 𝐶 ∧ 𝐶 ≤ 𝑌))) | 
| 16 | 2, 3, 15 | syl2anc 584 | . . . . . 6
⊢ (𝜑 → (𝐶 ∈ (𝑋[,]𝑌) ↔ (𝐶 ∈ ℝ ∧ 𝑋 ≤ 𝐶 ∧ 𝐶 ≤ 𝑌))) | 
| 17 | 14, 16 | mpbid 232 | . . . . 5
⊢ (𝜑 → (𝐶 ∈ ℝ ∧ 𝑋 ≤ 𝐶 ∧ 𝐶 ≤ 𝑌)) | 
| 18 | 17 | simp1d 1142 | . . . 4
⊢ (𝜑 → 𝐶 ∈ ℝ) | 
| 19 | 18 | adantr 480 | . . 3
⊢ ((𝜑 ∧ 𝐴 ≤ 𝐵) → 𝐶 ∈ ℝ) | 
| 20 | 12 | ad2antrr 726 | . . . 4
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐴 ≤ 𝐶) → 𝐵 ∈ ℝ) | 
| 21 | 18 | ad2antrr 726 | . . . 4
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐴 ≤ 𝐶) → 𝐶 ∈ ℝ) | 
| 22 |  | ditgsplit.d | . . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ (𝑋(,)𝑌)) → 𝐷 ∈ 𝑉) | 
| 23 |  | ditgsplit.i | . . . . . 6
⊢ (𝜑 → (𝑥 ∈ (𝑋(,)𝑌) ↦ 𝐷) ∈
𝐿1) | 
| 24 |  | biid 261 | . . . . . 6
⊢ ((𝐴 ≤ 𝐵 ∧ 𝐵 ≤ 𝐶) ↔ (𝐴 ≤ 𝐵 ∧ 𝐵 ≤ 𝐶)) | 
| 25 | 2, 3, 1, 8, 14, 22, 23, 24 | ditgsplitlem 25896 | . . . . 5
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐵 ≤ 𝐶) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 26 | 25 | adantlr 715 | . . . 4
⊢ ((((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐴 ≤ 𝐶) ∧ 𝐵 ≤ 𝐶) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 27 |  | biid 261 | . . . . . . . 8
⊢ ((𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) ↔ (𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵)) | 
| 28 | 2, 3, 1, 14, 8, 22, 23, 27 | ditgsplitlem 25896 | . . . . . . 7
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐶) ∧ 𝐶 ≤ 𝐵) → ⨜[𝐴 → 𝐵]𝐷 d𝑥 = (⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥)) | 
| 29 | 28 | oveq1d 7447 | . . . . . 6
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐶) ∧ 𝐶 ≤ 𝐵) → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 30 | 2, 3, 1, 14, 22, 23 | ditgcl 25894 | . . . . . . . . 9
⊢ (𝜑 → ⨜[𝐴 → 𝐶]𝐷 d𝑥 ∈ ℂ) | 
| 31 | 2, 3, 14, 8, 22, 23 | ditgcl 25894 | . . . . . . . . 9
⊢ (𝜑 → ⨜[𝐶 → 𝐵]𝐷 d𝑥 ∈ ℂ) | 
| 32 | 2, 3, 8, 14, 22, 23 | ditgcl 25894 | . . . . . . . . 9
⊢ (𝜑 → ⨜[𝐵 → 𝐶]𝐷 d𝑥 ∈ ℂ) | 
| 33 | 30, 31, 32 | addassd 11284 | . . . . . . . 8
⊢ (𝜑 → ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = (⨜[𝐴 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥))) | 
| 34 | 2, 3, 14, 8, 22, 23 | ditgswap 25895 | . . . . . . . . . . 11
⊢ (𝜑 → ⨜[𝐵 → 𝐶]𝐷 d𝑥 = -⨜[𝐶 → 𝐵]𝐷 d𝑥) | 
| 35 | 34 | oveq2d 7448 | . . . . . . . . . 10
⊢ (𝜑 → (⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = (⨜[𝐶 → 𝐵]𝐷 d𝑥 + -⨜[𝐶 → 𝐵]𝐷 d𝑥)) | 
| 36 | 31 | negidd 11611 | . . . . . . . . . 10
⊢ (𝜑 → (⨜[𝐶 → 𝐵]𝐷 d𝑥 + -⨜[𝐶 → 𝐵]𝐷 d𝑥) = 0) | 
| 37 | 35, 36 | eqtrd 2776 | . . . . . . . . 9
⊢ (𝜑 → (⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = 0) | 
| 38 | 37 | oveq2d 7448 | . . . . . . . 8
⊢ (𝜑 → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) = (⨜[𝐴 → 𝐶]𝐷 d𝑥 + 0)) | 
| 39 | 30 | addridd 11462 | . . . . . . . 8
⊢ (𝜑 → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + 0) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 40 | 33, 38, 39 | 3eqtrd 2780 | . . . . . . 7
⊢ (𝜑 → ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 41 | 40 | ad2antrr 726 | . . . . . 6
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐶) ∧ 𝐶 ≤ 𝐵) → ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 42 | 29, 41 | eqtr2d 2777 | . . . . 5
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐶) ∧ 𝐶 ≤ 𝐵) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 43 | 42 | adantllr 719 | . . . 4
⊢ ((((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐴 ≤ 𝐶) ∧ 𝐶 ≤ 𝐵) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 44 | 20, 21, 26, 43 | lecasei 11368 | . . 3
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐴 ≤ 𝐶) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 45 | 40 | ad2antrr 726 | . . . 4
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐶 ≤ 𝐴) → ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 46 |  | ancom 460 | . . . . . . . 8
⊢ ((𝐴 ≤ 𝐵 ∧ 𝐶 ≤ 𝐴) ↔ (𝐶 ≤ 𝐴 ∧ 𝐴 ≤ 𝐵)) | 
| 47 | 2, 3, 14, 1, 8, 22, 23, 46 | ditgsplitlem 25896 | . . . . . . 7
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐶 ≤ 𝐴) → ⨜[𝐶 → 𝐵]𝐷 d𝑥 = (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥)) | 
| 48 | 47 | oveq2d 7448 | . . . . . 6
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐶 ≤ 𝐴) → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) = (⨜[𝐴 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥))) | 
| 49 | 2, 3, 1, 14, 22, 23 | ditgswap 25895 | . . . . . . . . . . 11
⊢ (𝜑 → ⨜[𝐶 → 𝐴]𝐷 d𝑥 = -⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 50 | 49 | oveq2d 7448 | . . . . . . . . . 10
⊢ (𝜑 → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥) = (⨜[𝐴 → 𝐶]𝐷 d𝑥 + -⨜[𝐴 → 𝐶]𝐷 d𝑥)) | 
| 51 | 30 | negidd 11611 | . . . . . . . . . 10
⊢ (𝜑 → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + -⨜[𝐴 → 𝐶]𝐷 d𝑥) = 0) | 
| 52 | 50, 51 | eqtrd 2776 | . . . . . . . . 9
⊢ (𝜑 → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥) = 0) | 
| 53 | 52 | oveq1d 7447 | . . . . . . . 8
⊢ (𝜑 → ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = (0 + ⨜[𝐴 → 𝐵]𝐷 d𝑥)) | 
| 54 | 2, 3, 14, 1, 22, 23 | ditgcl 25894 | . . . . . . . . 9
⊢ (𝜑 → ⨜[𝐶 → 𝐴]𝐷 d𝑥 ∈ ℂ) | 
| 55 | 2, 3, 1, 8, 22, 23 | ditgcl 25894 | . . . . . . . . 9
⊢ (𝜑 → ⨜[𝐴 → 𝐵]𝐷 d𝑥 ∈ ℂ) | 
| 56 | 30, 54, 55 | addassd 11284 | . . . . . . . 8
⊢ (𝜑 → ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = (⨜[𝐴 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥))) | 
| 57 | 55 | addlidd 11463 | . . . . . . . 8
⊢ (𝜑 → (0 + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = ⨜[𝐴 → 𝐵]𝐷 d𝑥) | 
| 58 | 53, 56, 57 | 3eqtr3d 2784 | . . . . . . 7
⊢ (𝜑 → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥)) = ⨜[𝐴 → 𝐵]𝐷 d𝑥) | 
| 59 | 58 | ad2antrr 726 | . . . . . 6
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐶 ≤ 𝐴) → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥)) = ⨜[𝐴 → 𝐵]𝐷 d𝑥) | 
| 60 | 48, 59 | eqtrd 2776 | . . . . 5
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐶 ≤ 𝐴) → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) = ⨜[𝐴 → 𝐵]𝐷 d𝑥) | 
| 61 | 60 | oveq1d 7447 | . . . 4
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐶 ≤ 𝐴) → ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 62 | 45, 61 | eqtr3d 2778 | . . 3
⊢ (((𝜑 ∧ 𝐴 ≤ 𝐵) ∧ 𝐶 ≤ 𝐴) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 63 | 13, 19, 44, 62 | lecasei 11368 | . 2
⊢ ((𝜑 ∧ 𝐴 ≤ 𝐵) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 64 | 7 | adantr 480 | . . 3
⊢ ((𝜑 ∧ 𝐵 ≤ 𝐴) → 𝐴 ∈ ℝ) | 
| 65 | 18 | adantr 480 | . . 3
⊢ ((𝜑 ∧ 𝐵 ≤ 𝐴) → 𝐶 ∈ ℝ) | 
| 66 |  | biid 261 | . . . . . 6
⊢ ((𝐵 ≤ 𝐴 ∧ 𝐴 ≤ 𝐶) ↔ (𝐵 ≤ 𝐴 ∧ 𝐴 ≤ 𝐶)) | 
| 67 | 2, 3, 8, 1, 14, 22, 23, 66 | ditgsplitlem 25896 | . . . . 5
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐴 ≤ 𝐶) → ⨜[𝐵 → 𝐶]𝐷 d𝑥 = (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥)) | 
| 68 | 67 | oveq2d 7448 | . . . 4
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐴 ≤ 𝐶) → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥))) | 
| 69 | 2, 3, 1, 8, 22, 23 | ditgswap 25895 | . . . . . . . . 9
⊢ (𝜑 → ⨜[𝐵 → 𝐴]𝐷 d𝑥 = -⨜[𝐴 → 𝐵]𝐷 d𝑥) | 
| 70 | 69 | oveq2d 7448 | . . . . . . . 8
⊢ (𝜑 → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥) = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + -⨜[𝐴 → 𝐵]𝐷 d𝑥)) | 
| 71 | 55 | negidd 11611 | . . . . . . . 8
⊢ (𝜑 → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + -⨜[𝐴 → 𝐵]𝐷 d𝑥) = 0) | 
| 72 | 70, 71 | eqtrd 2776 | . . . . . . 7
⊢ (𝜑 → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥) = 0) | 
| 73 | 72 | oveq1d 7447 | . . . . . 6
⊢ (𝜑 → ((⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = (0 + ⨜[𝐴 → 𝐶]𝐷 d𝑥)) | 
| 74 | 2, 3, 8, 1, 22, 23 | ditgcl 25894 | . . . . . . 7
⊢ (𝜑 → ⨜[𝐵 → 𝐴]𝐷 d𝑥 ∈ ℂ) | 
| 75 | 55, 74, 30 | addassd 11284 | . . . . . 6
⊢ (𝜑 → ((⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥))) | 
| 76 | 30 | addlidd 11463 | . . . . . 6
⊢ (𝜑 → (0 + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 77 | 73, 75, 76 | 3eqtr3d 2784 | . . . . 5
⊢ (𝜑 → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥)) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 78 | 77 | ad2antrr 726 | . . . 4
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐴 ≤ 𝐶) → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥)) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 79 | 68, 78 | eqtr2d 2777 | . . 3
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐴 ≤ 𝐶) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 80 | 12 | ad2antrr 726 | . . . 4
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐴) → 𝐵 ∈ ℝ) | 
| 81 | 18 | ad2antrr 726 | . . . 4
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐴) → 𝐶 ∈ ℝ) | 
| 82 |  | ancom 460 | . . . . . . . . . 10
⊢ ((𝐶 ≤ 𝐴 ∧ 𝐵 ≤ 𝐶) ↔ (𝐵 ≤ 𝐶 ∧ 𝐶 ≤ 𝐴)) | 
| 83 | 2, 3, 8, 14, 1, 22, 23, 82 | ditgsplitlem 25896 | . . . . . . . . 9
⊢ (((𝜑 ∧ 𝐶 ≤ 𝐴) ∧ 𝐵 ≤ 𝐶) → ⨜[𝐵 → 𝐴]𝐷 d𝑥 = (⨜[𝐵 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥)) | 
| 84 | 83 | oveq1d 7447 | . . . . . . . 8
⊢ (((𝜑 ∧ 𝐶 ≤ 𝐴) ∧ 𝐵 ≤ 𝐶) → (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = ((⨜[𝐵 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐶]𝐷 d𝑥)) | 
| 85 | 32, 54, 30 | addassd 11284 | . . . . . . . . . 10
⊢ (𝜑 → ((⨜[𝐵 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = (⨜[𝐵 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥))) | 
| 86 | 2, 3, 14, 1, 22, 23 | ditgswap 25895 | . . . . . . . . . . . . 13
⊢ (𝜑 → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = -⨜[𝐶 → 𝐴]𝐷 d𝑥) | 
| 87 | 86 | oveq2d 7448 | . . . . . . . . . . . 12
⊢ (𝜑 → (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = (⨜[𝐶 → 𝐴]𝐷 d𝑥 + -⨜[𝐶 → 𝐴]𝐷 d𝑥)) | 
| 88 | 54 | negidd 11611 | . . . . . . . . . . . 12
⊢ (𝜑 → (⨜[𝐶 → 𝐴]𝐷 d𝑥 + -⨜[𝐶 → 𝐴]𝐷 d𝑥) = 0) | 
| 89 | 87, 88 | eqtrd 2776 | . . . . . . . . . . 11
⊢ (𝜑 → (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = 0) | 
| 90 | 89 | oveq2d 7448 | . . . . . . . . . 10
⊢ (𝜑 → (⨜[𝐵 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥)) = (⨜[𝐵 → 𝐶]𝐷 d𝑥 + 0)) | 
| 91 | 32 | addridd 11462 | . . . . . . . . . 10
⊢ (𝜑 → (⨜[𝐵 → 𝐶]𝐷 d𝑥 + 0) = ⨜[𝐵 → 𝐶]𝐷 d𝑥) | 
| 92 | 85, 90, 91 | 3eqtrd 2780 | . . . . . . . . 9
⊢ (𝜑 → ((⨜[𝐵 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = ⨜[𝐵 → 𝐶]𝐷 d𝑥) | 
| 93 | 92 | ad2antrr 726 | . . . . . . . 8
⊢ (((𝜑 ∧ 𝐶 ≤ 𝐴) ∧ 𝐵 ≤ 𝐶) → ((⨜[𝐵 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐶]𝐷 d𝑥) = ⨜[𝐵 → 𝐶]𝐷 d𝑥) | 
| 94 | 84, 93 | eqtr2d 2777 | . . . . . . 7
⊢ (((𝜑 ∧ 𝐶 ≤ 𝐴) ∧ 𝐵 ≤ 𝐶) → ⨜[𝐵 → 𝐶]𝐷 d𝑥 = (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥)) | 
| 95 | 94 | oveq2d 7448 | . . . . . 6
⊢ (((𝜑 ∧ 𝐶 ≤ 𝐴) ∧ 𝐵 ≤ 𝐶) → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥))) | 
| 96 | 77 | ad2antrr 726 | . . . . . 6
⊢ (((𝜑 ∧ 𝐶 ≤ 𝐴) ∧ 𝐵 ≤ 𝐶) → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐶]𝐷 d𝑥)) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 97 | 95, 96 | eqtr2d 2777 | . . . . 5
⊢ (((𝜑 ∧ 𝐶 ≤ 𝐴) ∧ 𝐵 ≤ 𝐶) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 98 | 97 | adantllr 719 | . . . 4
⊢ ((((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐴) ∧ 𝐵 ≤ 𝐶) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 99 |  | ancom 460 | . . . . . . . . . . . 12
⊢ ((𝐵 ≤ 𝐴 ∧ 𝐶 ≤ 𝐵) ↔ (𝐶 ≤ 𝐵 ∧ 𝐵 ≤ 𝐴)) | 
| 100 | 2, 3, 14, 8, 1, 22, 23, 99 | ditgsplitlem 25896 | . . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → ⨜[𝐶 → 𝐴]𝐷 d𝑥 = (⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥)) | 
| 101 | 100 | oveq1d 7447 | . . . . . . . . . 10
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = ((⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐵]𝐷 d𝑥)) | 
| 102 | 31, 74, 55 | addassd 11284 | . . . . . . . . . . . 12
⊢ (𝜑 → ((⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = (⨜[𝐶 → 𝐵]𝐷 d𝑥 + (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥))) | 
| 103 | 2, 3, 8, 1, 22, 23 | ditgswap 25895 | . . . . . . . . . . . . . . 15
⊢ (𝜑 → ⨜[𝐴 → 𝐵]𝐷 d𝑥 = -⨜[𝐵 → 𝐴]𝐷 d𝑥) | 
| 104 | 103 | oveq2d 7448 | . . . . . . . . . . . . . 14
⊢ (𝜑 → (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = (⨜[𝐵 → 𝐴]𝐷 d𝑥 + -⨜[𝐵 → 𝐴]𝐷 d𝑥)) | 
| 105 | 74 | negidd 11611 | . . . . . . . . . . . . . 14
⊢ (𝜑 → (⨜[𝐵 → 𝐴]𝐷 d𝑥 + -⨜[𝐵 → 𝐴]𝐷 d𝑥) = 0) | 
| 106 | 104, 105 | eqtrd 2776 | . . . . . . . . . . . . 13
⊢ (𝜑 → (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = 0) | 
| 107 | 106 | oveq2d 7448 | . . . . . . . . . . . 12
⊢ (𝜑 → (⨜[𝐶 → 𝐵]𝐷 d𝑥 + (⨜[𝐵 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥)) = (⨜[𝐶 → 𝐵]𝐷 d𝑥 + 0)) | 
| 108 | 31 | addridd 11462 | . . . . . . . . . . . 12
⊢ (𝜑 → (⨜[𝐶 → 𝐵]𝐷 d𝑥 + 0) = ⨜[𝐶 → 𝐵]𝐷 d𝑥) | 
| 109 | 102, 107,
108 | 3eqtrd 2780 | . . . . . . . . . . 11
⊢ (𝜑 → ((⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = ⨜[𝐶 → 𝐵]𝐷 d𝑥) | 
| 110 | 109 | ad2antrr 726 | . . . . . . . . . 10
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → ((⨜[𝐶 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐴]𝐷 d𝑥) + ⨜[𝐴 → 𝐵]𝐷 d𝑥) = ⨜[𝐶 → 𝐵]𝐷 d𝑥) | 
| 111 | 101, 110 | eqtr2d 2777 | . . . . . . . . 9
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → ⨜[𝐶 → 𝐵]𝐷 d𝑥 = (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥)) | 
| 112 | 111 | oveq2d 7448 | . . . . . . . 8
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) = (⨜[𝐴 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥))) | 
| 113 | 58 | ad2antrr 726 | . . . . . . . 8
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → (⨜[𝐴 → 𝐶]𝐷 d𝑥 + (⨜[𝐶 → 𝐴]𝐷 d𝑥 + ⨜[𝐴 → 𝐵]𝐷 d𝑥)) = ⨜[𝐴 → 𝐵]𝐷 d𝑥) | 
| 114 | 112, 113 | eqtr2d 2777 | . . . . . . 7
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → ⨜[𝐴 → 𝐵]𝐷 d𝑥 = (⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥)) | 
| 115 | 114 | oveq1d 7447 | . . . . . 6
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 116 | 40 | ad2antrr 726 | . . . . . 6
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → ((⨜[𝐴 → 𝐶]𝐷 d𝑥 + ⨜[𝐶 → 𝐵]𝐷 d𝑥) + ⨜[𝐵 → 𝐶]𝐷 d𝑥) = ⨜[𝐴 → 𝐶]𝐷 d𝑥) | 
| 117 | 115, 116 | eqtr2d 2777 | . . . . 5
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 118 | 117 | adantlr 715 | . . . 4
⊢ ((((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐴) ∧ 𝐶 ≤ 𝐵) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 119 | 80, 81, 98, 118 | lecasei 11368 | . . 3
⊢ (((𝜑 ∧ 𝐵 ≤ 𝐴) ∧ 𝐶 ≤ 𝐴) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 120 | 64, 65, 79, 119 | lecasei 11368 | . 2
⊢ ((𝜑 ∧ 𝐵 ≤ 𝐴) → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) | 
| 121 | 7, 12, 63, 120 | lecasei 11368 | 1
⊢ (𝜑 → ⨜[𝐴 → 𝐶]𝐷 d𝑥 = (⨜[𝐴 → 𝐵]𝐷 d𝑥 + ⨜[𝐵 → 𝐶]𝐷 d𝑥)) |