Theorem itgconst 24122

Description: Integral of a constant function. (Contributed by Mario Carneiro, 12-Aug-2014.)

Assertion

Ref	Expression
itgconst	⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → ∫𝐴𝐵 d𝑥 = (𝐵 · (vol‘𝐴)))

Distinct variable groups:   𝑥,𝐴   𝑥,𝐵

Proof of Theorem itgconst

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 475	. . . . . . 7 ⊢ ((𝑦 = (ℜ‘𝐵) ∧ 𝑥 ∈ 𝐴) → 𝑦 = (ℜ‘𝐵))
2	1	itgeq2dv 24085	. . . . . 6 ⊢ (𝑦 = (ℜ‘𝐵) → ∫𝐴𝑦 d𝑥 = ∫𝐴(ℜ‘𝐵) d𝑥)
3		oveq1 6983	. . . . . 6 ⊢ (𝑦 = (ℜ‘𝐵) → (𝑦 · (vol‘𝐴)) = ((ℜ‘𝐵) · (vol‘𝐴)))
4	2, 3	eqeq12d 2793	. . . . 5 ⊢ (𝑦 = (ℜ‘𝐵) → (∫𝐴𝑦 d𝑥 = (𝑦 · (vol‘𝐴)) ↔ ∫𝐴(ℜ‘𝐵) d𝑥 = ((ℜ‘𝐵) · (vol‘𝐴))))
5		simplr 756	. . . . . . . 8 ⊢ ((((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) ∧ 𝑥 ∈ 𝐴) → 𝑦 ∈ ℝ)
6		fconstmpt 5464	. . . . . . . . 9 ⊢ (𝐴 × {𝑦}) = (𝑥 ∈ 𝐴 ↦ 𝑦)
7		simpl1 1171	. . . . . . . . . 10 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → 𝐴 ∈ dom vol)
8		simp2 1117	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (vol‘𝐴) ∈ ℝ)
9	8	adantr 473	. . . . . . . . . 10 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (vol‘𝐴) ∈ ℝ)
10		simpr 477	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ℝ)
11	10	recnd 10468	. . . . . . . . . 10 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ℂ)
12		iblconst 24121	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝑦 ∈ ℂ) → (𝐴 × {𝑦}) ∈ 𝐿1)
13	7, 9, 11, 12	syl3anc 1351	. . . . . . . . 9 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (𝐴 × {𝑦}) ∈ 𝐿1)
14	6, 13	syl5eqelr 2871	. . . . . . . 8 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (𝑥 ∈ 𝐴 ↦ 𝑦) ∈ 𝐿1)
15	5, 14	itgrevallem1 24098	. . . . . . 7 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → ∫𝐴𝑦 d𝑥 = ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝑦), 𝑦, 0))) − (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝑦), -𝑦, 0)))))
16		ifan 4401	. . . . . . . . . . . 12 ⊢ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝑦), 𝑦, 0) = if(𝑥 ∈ 𝐴, if(0 ≤ 𝑦, 𝑦, 0), 0)
17	16	mpteq2i 5019	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝑦), 𝑦, 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ 𝑦, 𝑦, 0), 0))
18	17	fveq2i 6502	. . . . . . . . . 10 ⊢ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝑦), 𝑦, 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ 𝑦, 𝑦, 0), 0)))
19		0re 10441	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℝ
20		ifcl 4394	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ ℝ ∧ 0 ∈ ℝ) → if(0 ≤ 𝑦, 𝑦, 0) ∈ ℝ)
21	10, 19, 20	sylancl 577	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → if(0 ≤ 𝑦, 𝑦, 0) ∈ ℝ)
22		max1 12395	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℝ ∧ 𝑦 ∈ ℝ) → 0 ≤ if(0 ≤ 𝑦, 𝑦, 0))
23	19, 10, 22	sylancr 578	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → 0 ≤ if(0 ≤ 𝑦, 𝑦, 0))
24		elrege0 12658	. . . . . . . . . . . 12 ⊢ (if(0 ≤ 𝑦, 𝑦, 0) ∈ (0[,)+∞) ↔ (if(0 ≤ 𝑦, 𝑦, 0) ∈ ℝ ∧ 0 ≤ if(0 ≤ 𝑦, 𝑦, 0)))
25	21, 23, 24	sylanbrc 575	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → if(0 ≤ 𝑦, 𝑦, 0) ∈ (0[,)+∞))
26		itg2const 24044	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ if(0 ≤ 𝑦, 𝑦, 0) ∈ (0[,)+∞)) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ 𝑦, 𝑦, 0), 0))) = (if(0 ≤ 𝑦, 𝑦, 0) · (vol‘𝐴)))
27	7, 9, 25, 26	syl3anc 1351	. . . . . . . . . 10 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ 𝑦, 𝑦, 0), 0))) = (if(0 ≤ 𝑦, 𝑦, 0) · (vol‘𝐴)))
28	18, 27	syl5eq 2826	. . . . . . . . 9 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝑦), 𝑦, 0))) = (if(0 ≤ 𝑦, 𝑦, 0) · (vol‘𝐴)))
29		ifan 4401	. . . . . . . . . . . 12 ⊢ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝑦), -𝑦, 0) = if(𝑥 ∈ 𝐴, if(0 ≤ -𝑦, -𝑦, 0), 0)
30	29	mpteq2i 5019	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝑦), -𝑦, 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ -𝑦, -𝑦, 0), 0))
31	30	fveq2i 6502	. . . . . . . . . 10 ⊢ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝑦), -𝑦, 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ -𝑦, -𝑦, 0), 0)))
32		renegcl 10750	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ℝ → -𝑦 ∈ ℝ)
33	32	adantl 474	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → -𝑦 ∈ ℝ)
34		ifcl 4394	. . . . . . . . . . . . 13 ⊢ ((-𝑦 ∈ ℝ ∧ 0 ∈ ℝ) → if(0 ≤ -𝑦, -𝑦, 0) ∈ ℝ)
35	33, 19, 34	sylancl 577	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → if(0 ≤ -𝑦, -𝑦, 0) ∈ ℝ)
36		max1 12395	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℝ ∧ -𝑦 ∈ ℝ) → 0 ≤ if(0 ≤ -𝑦, -𝑦, 0))
37	19, 33, 36	sylancr 578	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → 0 ≤ if(0 ≤ -𝑦, -𝑦, 0))
38		elrege0 12658	. . . . . . . . . . . 12 ⊢ (if(0 ≤ -𝑦, -𝑦, 0) ∈ (0[,)+∞) ↔ (if(0 ≤ -𝑦, -𝑦, 0) ∈ ℝ ∧ 0 ≤ if(0 ≤ -𝑦, -𝑦, 0)))
39	35, 37, 38	sylanbrc 575	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → if(0 ≤ -𝑦, -𝑦, 0) ∈ (0[,)+∞))
40		itg2const 24044	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ if(0 ≤ -𝑦, -𝑦, 0) ∈ (0[,)+∞)) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ -𝑦, -𝑦, 0), 0))) = (if(0 ≤ -𝑦, -𝑦, 0) · (vol‘𝐴)))
41	7, 9, 39, 40	syl3anc 1351	. . . . . . . . . 10 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ -𝑦, -𝑦, 0), 0))) = (if(0 ≤ -𝑦, -𝑦, 0) · (vol‘𝐴)))
42	31, 41	syl5eq 2826	. . . . . . . . 9 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝑦), -𝑦, 0))) = (if(0 ≤ -𝑦, -𝑦, 0) · (vol‘𝐴)))
43	28, 42	oveq12d 6994	. . . . . . . 8 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝑦), 𝑦, 0))) − (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝑦), -𝑦, 0)))) = ((if(0 ≤ 𝑦, 𝑦, 0) · (vol‘𝐴)) − (if(0 ≤ -𝑦, -𝑦, 0) · (vol‘𝐴))))
44	21	recnd 10468	. . . . . . . . 9 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → if(0 ≤ 𝑦, 𝑦, 0) ∈ ℂ)
45	35	recnd 10468	. . . . . . . . 9 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → if(0 ≤ -𝑦, -𝑦, 0) ∈ ℂ)
46	8	recnd 10468	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (vol‘𝐴) ∈ ℂ)
47	46	adantr 473	. . . . . . . . 9 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (vol‘𝐴) ∈ ℂ)
48	44, 45, 47	subdird 10898	. . . . . . . 8 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → ((if(0 ≤ 𝑦, 𝑦, 0) − if(0 ≤ -𝑦, -𝑦, 0)) · (vol‘𝐴)) = ((if(0 ≤ 𝑦, 𝑦, 0) · (vol‘𝐴)) − (if(0 ≤ -𝑦, -𝑦, 0) · (vol‘𝐴))))
49		max0sub 12406	. . . . . . . . . 10 ⊢ (𝑦 ∈ ℝ → (if(0 ≤ 𝑦, 𝑦, 0) − if(0 ≤ -𝑦, -𝑦, 0)) = 𝑦)
50	49	adantl 474	. . . . . . . . 9 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (if(0 ≤ 𝑦, 𝑦, 0) − if(0 ≤ -𝑦, -𝑦, 0)) = 𝑦)
51	50	oveq1d 6991	. . . . . . . 8 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → ((if(0 ≤ 𝑦, 𝑦, 0) − if(0 ≤ -𝑦, -𝑦, 0)) · (vol‘𝐴)) = (𝑦 · (vol‘𝐴)))
52	43, 48, 51	3eqtr2rd 2821	. . . . . . 7 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → (𝑦 · (vol‘𝐴)) = ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝑦), 𝑦, 0))) − (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝑦), -𝑦, 0)))))
53	15, 52	eqtr4d 2817	. . . . . 6 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑦 ∈ ℝ) → ∫𝐴𝑦 d𝑥 = (𝑦 · (vol‘𝐴)))
54	53	ralrimiva 3132	. . . . 5 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → ∀𝑦 ∈ ℝ ∫𝐴𝑦 d𝑥 = (𝑦 · (vol‘𝐴)))
55		recl 14330	. . . . . 6 ⊢ (𝐵 ∈ ℂ → (ℜ‘𝐵) ∈ ℝ)
56	55	3ad2ant3 1115	. . . . 5 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (ℜ‘𝐵) ∈ ℝ)
57	4, 54, 56	rspcdva 3541	. . . 4 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → ∫𝐴(ℜ‘𝐵) d𝑥 = ((ℜ‘𝐵) · (vol‘𝐴)))
58		simpl 475	. . . . . . . . 9 ⊢ ((𝑦 = (ℑ‘𝐵) ∧ 𝑥 ∈ 𝐴) → 𝑦 = (ℑ‘𝐵))
59	58	itgeq2dv 24085	. . . . . . . 8 ⊢ (𝑦 = (ℑ‘𝐵) → ∫𝐴𝑦 d𝑥 = ∫𝐴(ℑ‘𝐵) d𝑥)
60		oveq1 6983	. . . . . . . 8 ⊢ (𝑦 = (ℑ‘𝐵) → (𝑦 · (vol‘𝐴)) = ((ℑ‘𝐵) · (vol‘𝐴)))
61	59, 60	eqeq12d 2793	. . . . . . 7 ⊢ (𝑦 = (ℑ‘𝐵) → (∫𝐴𝑦 d𝑥 = (𝑦 · (vol‘𝐴)) ↔ ∫𝐴(ℑ‘𝐵) d𝑥 = ((ℑ‘𝐵) · (vol‘𝐴))))
62		imcl 14331	. . . . . . . 8 ⊢ (𝐵 ∈ ℂ → (ℑ‘𝐵) ∈ ℝ)
63	62	3ad2ant3 1115	. . . . . . 7 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (ℑ‘𝐵) ∈ ℝ)
64	61, 54, 63	rspcdva 3541	. . . . . 6 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → ∫𝐴(ℑ‘𝐵) d𝑥 = ((ℑ‘𝐵) · (vol‘𝐴)))
65	64	oveq2d 6992	. . . . 5 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (i · ∫𝐴(ℑ‘𝐵) d𝑥) = (i · ((ℑ‘𝐵) · (vol‘𝐴))))
66		ax-icn 10394	. . . . . . 7 ⊢ i ∈ ℂ
67	66	a1i 11	. . . . . 6 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → i ∈ ℂ)
68	63	recnd 10468	. . . . . 6 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (ℑ‘𝐵) ∈ ℂ)
69	67, 68, 46	mulassd 10463	. . . . 5 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → ((i · (ℑ‘𝐵)) · (vol‘𝐴)) = (i · ((ℑ‘𝐵) · (vol‘𝐴))))
70	65, 69	eqtr4d 2817	. . . 4 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (i · ∫𝐴(ℑ‘𝐵) d𝑥) = ((i · (ℑ‘𝐵)) · (vol‘𝐴)))
71	57, 70	oveq12d 6994	. . 3 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (∫𝐴(ℜ‘𝐵) d𝑥 + (i · ∫𝐴(ℑ‘𝐵) d𝑥)) = (((ℜ‘𝐵) · (vol‘𝐴)) + ((i · (ℑ‘𝐵)) · (vol‘𝐴))))
72	56	recnd 10468	. . . 4 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (ℜ‘𝐵) ∈ ℂ)
73		mulcl 10419	. . . . 5 ⊢ ((i ∈ ℂ ∧ (ℑ‘𝐵) ∈ ℂ) → (i · (ℑ‘𝐵)) ∈ ℂ)
74	66, 68, 73	sylancr 578	. . . 4 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (i · (ℑ‘𝐵)) ∈ ℂ)
75	72, 74, 46	adddird 10465	. . 3 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (((ℜ‘𝐵) + (i · (ℑ‘𝐵))) · (vol‘𝐴)) = (((ℜ‘𝐵) · (vol‘𝐴)) + ((i · (ℑ‘𝐵)) · (vol‘𝐴))))
76	71, 75	eqtr4d 2817	. 2 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (∫𝐴(ℜ‘𝐵) d𝑥 + (i · ∫𝐴(ℑ‘𝐵) d𝑥)) = (((ℜ‘𝐵) + (i · (ℑ‘𝐵))) · (vol‘𝐴)))
77		simpl3 1173	. . 3 ⊢ (((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ)
78		fconstmpt 5464	. . . 4 ⊢ (𝐴 × {𝐵}) = (𝑥 ∈ 𝐴 ↦ 𝐵)
79		iblconst 24121	. . . 4 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (𝐴 × {𝐵}) ∈ 𝐿1)
80	78, 79	syl5eqelr 2871	. . 3 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿1)
81	77, 80	itgcnval 24103	. 2 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → ∫𝐴𝐵 d𝑥 = (∫𝐴(ℜ‘𝐵) d𝑥 + (i · ∫𝐴(ℑ‘𝐵) d𝑥)))
82		replim 14336	. . . 4 ⊢ (𝐵 ∈ ℂ → 𝐵 = ((ℜ‘𝐵) + (i · (ℑ‘𝐵))))
83	82	3ad2ant3 1115	. . 3 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → 𝐵 = ((ℜ‘𝐵) + (i · (ℑ‘𝐵))))
84	83	oveq1d 6991	. 2 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → (𝐵 · (vol‘𝐴)) = (((ℜ‘𝐵) + (i · (ℑ‘𝐵))) · (vol‘𝐴)))
85	76, 81, 84	3eqtr4d 2824	1 ⊢ ((𝐴 ∈ dom vol ∧ (vol‘𝐴) ∈ ℝ ∧ 𝐵 ∈ ℂ) → ∫𝐴𝐵 d𝑥 = (𝐵 · (vol‘𝐴)))

Syntax hints:   → wi 4   ∧ wa 387   ∧ w3a 1068   = wceq 1507   ∈ wcel 2050  ifcif 4350  {csn 4441   class class class wbr 4929   ↦ cmpt 5008   × cxp 5405  dom cdm 5407  ‘cfv 6188  (class class class)co 6976  ℂcc 10333  ℝcr 10334  0cc0 10335  ici 10337   + caddc 10338   · cmul 10340  +∞cpnf 10471   ≤ cle 10475   − cmin 10670  -cneg 10671  [,)cico 12556  ℜcre 14317  ℑcim 14318  volcvol 23767  ∫₂citg2 23920  𝐿¹cibl 23921  ∫citg 23922

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2750  ax-rep 5049  ax-sep 5060  ax-nul 5067  ax-pow 5119  ax-pr 5186  ax-un 7279  ax-inf2 8898  ax-cnex 10391  ax-resscn 10392  ax-1cn 10393  ax-icn 10394  ax-addcl 10395  ax-addrcl 10396  ax-mulcl 10397  ax-mulrcl 10398  ax-mulcom 10399  ax-addass 10400  ax-mulass 10401  ax-distr 10402  ax-i2m1 10403  ax-1ne0 10404  ax-1rid 10405  ax-rnegex 10406  ax-rrecex 10407  ax-cnre 10408  ax-pre-lttri 10409  ax-pre-lttrn 10410  ax-pre-ltadd 10411  ax-pre-mulgt0 10412  ax-pre-sup 10413  ax-addf 10414

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-fal 1520  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2584  df-clab 2759  df-cleq 2771  df-clel 2846  df-nfc 2918  df-ne 2968  df-nel 3074  df-ral 3093  df-rex 3094  df-reu 3095  df-rmo 3096  df-rab 3097  df-v 3417  df-sbc 3682  df-csb 3787  df-dif 3832  df-un 3834  df-in 3836  df-ss 3843  df-pss 3845  df-nul 4179  df-if 4351  df-pw 4424  df-sn 4442  df-pr 4444  df-tp 4446  df-op 4448  df-uni 4713  df-int 4750  df-iun 4794  df-disj 4898  df-br 4930  df-opab 4992  df-mpt 5009  df-tr 5031  df-id 5312  df-eprel 5317  df-po 5326  df-so 5327  df-fr 5366  df-se 5367  df-we 5368  df-xp 5413  df-rel 5414  df-cnv 5415  df-co 5416  df-dm 5417  df-rn 5418  df-res 5419  df-ima 5420  df-pred 5986  df-ord 6032  df-on 6033  df-lim 6034  df-suc 6035  df-iota 6152  df-fun 6190  df-fn 6191  df-f 6192  df-f1 6193  df-fo 6194  df-f1o 6195  df-fv 6196  df-isom 6197  df-riota 6937  df-ov 6979  df-oprab 6980  df-mpo 6981  df-of 7227  df-ofr 7228  df-om 7397  df-1st 7501  df-2nd 7502  df-wrecs 7750  df-recs 7812  df-rdg 7850  df-1o 7905  df-2o 7906  df-oadd 7909  df-er 8089  df-map 8208  df-pm 8209  df-en 8307  df-dom 8308  df-sdom 8309  df-fin 8310  df-sup 8701  df-inf 8702  df-oi 8769  df-dju 9124  df-card 9162  df-pnf 10476  df-mnf 10477  df-xr 10478  df-ltxr 10479  df-le 10480  df-sub 10672  df-neg 10673  df-div 11099  df-nn 11440  df-2 11503  df-3 11504  df-4 11505  df-n0 11708  df-z 11794  df-uz 12059  df-q 12163  df-rp 12205  df-xadd 12325  df-ioo 12558  df-ico 12560  df-icc 12561  df-fz 12709  df-fzo 12850  df-fl 12977  df-mod 13053  df-seq 13185  df-exp 13245  df-hash 13506  df-cj 14319  df-re 14320  df-im 14321  df-sqrt 14455  df-abs 14456  df-clim 14706  df-sum 14904  df-xmet 20240  df-met 20241  df-ovol 23768  df-vol 23769  df-mbf 23923  df-itg1 23924  df-itg2 23925  df-ibl 23926  df-itg 23927  df-0p 23974

This theorem is referenced by:  ftc1lem4  24339  itgulm  24699  itgexpif  31531  ftc1cnnclem  34412  arearect  39224  areaquad  39225  wallispilem2  41788  fourierdlem87  41915  sqwvfoura  41950  etransclem23  41979