iblabs - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > iblabs		Structured version Visualization version GIF version

Theorem iblabs 25821

Description: The absolute value of an integrable function is integrable. (Contributed by Mario Carneiro, 25-Aug-2014.)

**Hypotheses**
Ref	Expression
iblabs.1	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
iblabs.2	⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹)

**Assertion**
Ref	Expression
iblabs	⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ 𝐿¹)

Distinct variable groups: 𝑥,𝐴 𝜑,𝑥 Allowed substitution hints: 𝐵(𝑥) 𝑉(𝑥)

**Proof of Theorem iblabs**
Step	Hyp	Ref	Expression
1		absf 15298	. . . . 5 ⊢ abs:ℂ⟶ℝ
2	1	a1i 11	. . . 4 ⊢ (𝜑 → abs:ℂ⟶ℝ)
3		iblabs.2	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹)
4		iblmbf 25759	. . . . . 6 ⊢ ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹ → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn)
5	3, 4	syl 17	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn)
6		iblabs.1	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
7	5, 6	mbfmptcl 25628	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ)
8	2, 7	cofmpt 7081	. . 3 ⊢ (𝜑 → (abs ∘ (𝑥 ∈ 𝐴 ↦ 𝐵)) = (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)))
9	7	fmpttd 7063	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵):𝐴⟶ℂ)
10		ax-resscn 11093	. . . . . . 7 ⊢ ℝ ⊆ ℂ
11		ssid 3944	. . . . . . 7 ⊢ ℂ ⊆ ℂ
12		cncfss 24891	. . . . . . 7 ⊢ ((ℝ ⊆ ℂ ∧ ℂ ⊆ ℂ) → (ℂ–cn→ℝ) ⊆ (ℂ–cn→ℂ))
13	10, 11, 12	mp2an 698	. . . . . 6 ⊢ (ℂ–cn→ℝ) ⊆ (ℂ–cn→ℂ)
14		abscncf 24893	. . . . . 6 ⊢ abs ∈ (ℂ–cn→ℝ)
15	13, 14	sselii 3919	. . . . 5 ⊢ abs ∈ (ℂ–cn→ℂ)
16	15	a1i 11	. . . 4 ⊢ (𝜑 → abs ∈ (ℂ–cn→ℂ))
17		cncombf 25650	. . . 4 ⊢ (((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn ∧ (𝑥 ∈ 𝐴 ↦ 𝐵):𝐴⟶ℂ ∧ abs ∈ (ℂ–cn→ℂ)) → (abs ∘ (𝑥 ∈ 𝐴 ↦ 𝐵)) ∈ MblFn)
18	5, 9, 16, 17	syl3anc 1379	. . 3 ⊢ (𝜑 → (abs ∘ (𝑥 ∈ 𝐴 ↦ 𝐵)) ∈ MblFn)
19	8, 18	eqeltrrd 2841	. 2 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ MblFn)
20	7	abscld 15399	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ∈ ℝ)
21	20	rexrd 11193	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ∈ ℝ^*)
22	7	absge0d 15407	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ (abs‘𝐵))
23		elxrge0 13408	. . . . . . 7 ⊢ ((abs‘𝐵) ∈ (0[,]+∞) ↔ ((abs‘𝐵) ∈ ℝ^* ∧ 0 ≤ (abs‘𝐵)))
24	21, 22, 23	sylanbrc 589	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ∈ (0[,]+∞))
25		0e0iccpnf 13410	. . . . . . 7 ⊢ 0 ∈ (0[,]+∞)
26	25	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑥 ∈ 𝐴) → 0 ∈ (0[,]+∞))
27	24, 26	ifclda 4497	. . . . 5 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
28	27	adantr 481	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
29	28	fmpttd 7063	. . 3 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞))
30		reex 11127	. . . . . . . . 9 ⊢ ℝ ∈ V
31	30	a1i 11	. . . . . . . 8 ⊢ (𝜑 → ℝ ∈ V)
32	7	recld 15154	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℜ‘𝐵) ∈ ℝ)
33	32	recnd 11171	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℜ‘𝐵) ∈ ℂ)
34	33	abscld 15399	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℜ‘𝐵)) ∈ ℝ)
35	33	absge0d 15407	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ (abs‘(ℜ‘𝐵)))
36		elrege0 13405	. . . . . . . . . . 11 ⊢ ((abs‘(ℜ‘𝐵)) ∈ (0[,)+∞) ↔ ((abs‘(ℜ‘𝐵)) ∈ ℝ ∧ 0 ≤ (abs‘(ℜ‘𝐵))))
37	34, 35, 36	sylanbrc 589	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℜ‘𝐵)) ∈ (0[,)+∞))
38		0e0icopnf 13409	. . . . . . . . . . 11 ⊢ 0 ∈ (0[,)+∞)
39	38	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝑥 ∈ 𝐴) → 0 ∈ (0[,)+∞))
40	37, 39	ifclda 4497	. . . . . . . . 9 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) ∈ (0[,)+∞))
41	40	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) ∈ (0[,)+∞))
42	7	imcld 15155	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℑ‘𝐵) ∈ ℝ)
43	42	recnd 11171	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℑ‘𝐵) ∈ ℂ)
44	43	abscld 15399	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℑ‘𝐵)) ∈ ℝ)
45	43	absge0d 15407	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ (abs‘(ℑ‘𝐵)))
46		elrege0 13405	. . . . . . . . . . 11 ⊢ ((abs‘(ℑ‘𝐵)) ∈ (0[,)+∞) ↔ ((abs‘(ℑ‘𝐵)) ∈ ℝ ∧ 0 ≤ (abs‘(ℑ‘𝐵))))
47	44, 45, 46	sylanbrc 589	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℑ‘𝐵)) ∈ (0[,)+∞))
48	47, 39	ifclda 4497	. . . . . . . . 9 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0) ∈ (0[,)+∞))
49	48	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0) ∈ (0[,)+∞))
50		eqidd 2741	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)))
51		eqidd 2741	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))
52	31, 41, 49, 50, 51	offval2 7647	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘_f + (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))) = (𝑥 ∈ ℝ ↦ (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))))
53		iftrue 4467	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) = (abs‘(ℜ‘𝐵)))
54		iftrue 4467	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0) = (abs‘(ℑ‘𝐵)))
55	53, 54	oveq12d 7381	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐴 → (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
56		iftrue 4467	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
57	55, 56	eqtr4d 2778	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐴 → (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
58		00id 11319	. . . . . . . . . 10 ⊢ (0 + 0) = 0
59		iffalse 4470	. . . . . . . . . . 11 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) = 0)
60		iffalse 4470	. . . . . . . . . . 11 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0) = 0)
61	59, 60	oveq12d 7381	. . . . . . . . . 10 ⊢ (¬ 𝑥 ∈ 𝐴 → (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = (0 + 0))
62		iffalse 4470	. . . . . . . . . 10 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = 0)
63	58, 61, 62	3eqtr4a 2801	. . . . . . . . 9 ⊢ (¬ 𝑥 ∈ 𝐴 → (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
64	57, 63	pm2.61i 183	. . . . . . . 8 ⊢ (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)
65	64	mpteq2i 5175	. . . . . . 7 ⊢ (𝑥 ∈ ℝ ↦ (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
66	52, 65	eqtr2di 2792	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) = ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘_f + (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))))
67	66	fveq2d 6838	. . . . 5 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) = (∫₂‘((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘_f + (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))))
68		eqid 2740	. . . . . . . 8 ⊢ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))
69	7	iblcn 25791	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿¹ ∧ (𝑥 ∈ 𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿¹)))
70	3, 69	mpbid 233	. . . . . . . . 9 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿¹ ∧ (𝑥 ∈ 𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿¹))
71	70	simpld 495	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿¹)
72	6, 3, 68, 71, 32	iblabslem 25820	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) ∈ ℝ))
73	72	simpld 495	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∈ MblFn)
74	41	fmpttd 7063	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)):ℝ⟶(0[,)+∞))
75	72	simprd 496	. . . . . 6 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) ∈ ℝ)
76		eqid 2740	. . . . . . . 8 ⊢ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))
77	70	simprd 496	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿¹)
78	6, 3, 76, 77, 42	iblabslem 25820	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))) ∈ ℝ))
79	78	simpld 495	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) ∈ MblFn)
80	49	fmpttd 7063	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)):ℝ⟶(0[,)+∞))
81	78	simprd 496	. . . . . 6 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))) ∈ ℝ)
82	73, 74, 75, 79, 80, 81	itg2add 25751	. . . . 5 ⊢ (𝜑 → (∫₂‘((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘_f + (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))) = ((∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))))
83	67, 82	eqtrd 2775	. . . 4 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) = ((∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))))
84	75, 81	readdcld 11172	. . . 4 ⊢ (𝜑 → ((∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))) ∈ ℝ)
85	83, 84	eqeltrd 2840	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) ∈ ℝ)
86	34, 44	readdcld 11172	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ)
87	86	rexrd 11193	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ^*)
88	34, 44, 35, 45	addge0d 11724	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
89		elxrge0 13408	. . . . . . . 8 ⊢ (((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ (0[,]+∞) ↔ (((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ^* ∧ 0 ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵)))))
90	87, 88, 89	sylanbrc 589	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ (0[,]+∞))
91	90, 26	ifclda 4497	. . . . . 6 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) ∈ (0[,]+∞))
92	91	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) ∈ (0[,]+∞))
93	92	fmpttd 7063	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)):ℝ⟶(0[,]+∞))
94		ax-icn 11095	. . . . . . . . . . . 12 ⊢ i ∈ ℂ
95		mulcl 11120	. . . . . . . . . . . 12 ⊢ ((i ∈ ℂ ∧ (ℑ‘𝐵) ∈ ℂ) → (i · (ℑ‘𝐵)) ∈ ℂ)
96	94, 43, 95	sylancr 593	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (i · (ℑ‘𝐵)) ∈ ℂ)
97	33, 96	abstrid 15419	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘((ℜ‘𝐵) + (i · (ℑ‘𝐵)))) ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(i · (ℑ‘𝐵)))))
98	7	replimd 15157	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 = ((ℜ‘𝐵) + (i · (ℑ‘𝐵))))
99	98	fveq2d 6838	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) = (abs‘((ℜ‘𝐵) + (i · (ℑ‘𝐵)))))
100		absmul 15254	. . . . . . . . . . . . 13 ⊢ ((i ∈ ℂ ∧ (ℑ‘𝐵) ∈ ℂ) → (abs‘(i · (ℑ‘𝐵))) = ((abs‘i) · (abs‘(ℑ‘𝐵))))
101	94, 43, 100	sylancr 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(i · (ℑ‘𝐵))) = ((abs‘i) · (abs‘(ℑ‘𝐵))))
102		absi 15246	. . . . . . . . . . . . . 14 ⊢ (abs‘i) = 1
103	102	oveq1i 7373	. . . . . . . . . . . . 13 ⊢ ((abs‘i) · (abs‘(ℑ‘𝐵))) = (1 · (abs‘(ℑ‘𝐵)))
104	44	recnd 11171	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℑ‘𝐵)) ∈ ℂ)
105	104	mullidd 11161	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (1 · (abs‘(ℑ‘𝐵))) = (abs‘(ℑ‘𝐵)))
106	103, 105	eqtrid 2787	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘i) · (abs‘(ℑ‘𝐵))) = (abs‘(ℑ‘𝐵)))
107	101, 106	eqtr2d 2776	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℑ‘𝐵)) = (abs‘(i · (ℑ‘𝐵))))
108	107	oveq2d 7379	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) = ((abs‘(ℜ‘𝐵)) + (abs‘(i · (ℑ‘𝐵)))))
109	97, 99, 108	3brtr4d 5111	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
110		iftrue 4467	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
111	110	adantl 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
112	56	adantl 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
113	109, 111, 112	3brtr4d 5111	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
114	113	ex 413	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
115		0le0 12280	. . . . . . . . 9 ⊢ 0 ≤ 0
116	115	a1i 11	. . . . . . . 8 ⊢ (¬ 𝑥 ∈ 𝐴 → 0 ≤ 0)
117		iffalse 4470	. . . . . . . 8 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) = 0)
118	116, 117, 62	3brtr4d 5111	. . . . . . 7 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
119	114, 118	pm2.61d1 181	. . . . . 6 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
120	119	ralrimivw 3136	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ ℝ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
121		eqidd 2741	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)))
122		eqidd 2741	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
123	31, 28, 92, 121, 122	ofrfval2 7648	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) ↔ ∀𝑥 ∈ ℝ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
124	120, 123	mpbird 258	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
125		itg2le 25731	. . . 4 ⊢ (((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ≤ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))))
126	29, 93, 124, 125	syl3anc 1379	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ≤ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))))
127		itg2lecl 25730	. . 3 ⊢ (((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞) ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) ∈ ℝ ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ≤ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))) → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ∈ ℝ)
128	29, 85, 126, 127	syl3anc 1379	. 2 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ∈ ℝ)
129	20, 22	iblpos 25785	. 2 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ∈ ℝ)))
130	19, 128, 129	mpbir2and 719	1 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ 𝐿¹)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 396 = wceq 1547 ∈ wcel 2119 ∀wral 3054 Vcvv 3432 ⊆ wss 3890 ifcif 4461 class class class wbr 5079 ↦ cmpt 5160 ∘ ccom 5629 ⟶wf 6488 ‘cfv 6492 (class class class)co 7363 ∘_f cof 7625 ∘_r cofr 7626 ℂcc 11034 ℝcr 11035 0cc0 11036 1c1 11037 ici 11038 + caddc 11039 · cmul 11041 +∞cpnf 11174 ℝ^*cxr 11176 ≤ cle 11178 [,)cico 13298 [,]cicc 13299 ℜcre 15057 ℑcim 15058 abscabs 15194 –cn→ccncf 24868 MblFncmbf 25606 ∫₂citg2 25608 𝐿¹cibl 25609

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1802 ax-4 1816 ax-5 1917 ax-6 1974 ax-7 2015 ax-8 2121 ax-9 2129 ax-10 2152 ax-11 2168 ax-12 2189 ax-ext 2712 ax-rep 5206 ax-sep 5225 ax-nul 5235 ax-pow 5301 ax-pr 5369 ax-un 7685 ax-inf2 9560 ax-cc 10355 ax-cnex 11092 ax-resscn 11093 ax-1cn 11094 ax-icn 11095 ax-addcl 11096 ax-addrcl 11097 ax-mulcl 11098 ax-mulrcl 11099 ax-mulcom 11100 ax-addass 11101 ax-mulass 11102 ax-distr 11103 ax-i2m1 11104 ax-1ne0 11105 ax-1rid 11106 ax-rnegex 11107 ax-rrecex 11108 ax-cnre 11109 ax-pre-lttri 11110 ax-pre-lttrn 11111 ax-pre-ltadd 11112 ax-pre-mulgt0 11113 ax-pre-sup 11114 ax-addf 11115

This theorem depends on definitions: df-bi 208 df-an 397 df-or 854 df-3or 1093 df-3an 1094 df-tru 1550 df-fal 1560 df-ex 1787 df-nf 1791 df-sb 2074 df-mo 2543 df-eu 2573 df-clab 2719 df-cleq 2732 df-clel 2815 df-nfc 2889 df-ne 2936 df-nel 3040 df-ral 3055 df-rex 3065 df-rmo 3345 df-reu 3346 df-rab 3393 df-v 3434 df-sbc 3731 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-nul 4269 df-if 4462 df-pw 4538 df-sn 4563 df-pr 4565 df-tp 4567 df-op 4569 df-uni 4846 df-int 4885 df-iun 4930 df-iin 4931 df-disj 5047 df-br 5080 df-opab 5142 df-mpt 5161 df-tr 5187 df-id 5520 df-eprel 5525 df-po 5533 df-so 5534 df-fr 5578 df-se 5579 df-we 5580 df-xp 5631 df-rel 5632 df-cnv 5633 df-co 5634 df-dm 5635 df-rn 5636 df-res 5637 df-ima 5638 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-isom 6501 df-riota 7320 df-ov 7366 df-oprab 7367 df-mpo 7368 df-of 7627 df-ofr 7628 df-om 7814 df-1st 7938 df-2nd 7939 df-supp 8108 df-frecs 8228 df-wrecs 8259 df-recs 8308 df-rdg 8346 df-1o 8402 df-2o 8403 df-oadd 8406 df-omul 8407 df-er 8640 df-map 8772 df-pm 8773 df-ixp 8843 df-en 8891 df-dom 8892 df-sdom 8893 df-fin 8894 df-fsupp 9272 df-fi 9321 df-sup 9352 df-inf 9353 df-oi 9422 df-dju 9823 df-card 9861 df-acn 9864 df-pnf 11179 df-mnf 11180 df-xr 11181 df-ltxr 11182 df-le 11183 df-sub 11377 df-neg 11378 df-div 11806 df-nn 12173 df-2 12242 df-3 12243 df-4 12244 df-5 12245 df-6 12246 df-7 12247 df-8 12248 df-9 12249 df-n0 12436 df-z 12523 df-dec 12643 df-uz 12787 df-q 12897 df-rp 12941 df-xneg 13061 df-xadd 13062 df-xmul 13063 df-ioo 13300 df-ioc 13301 df-ico 13302 df-icc 13303 df-fz 13460 df-fzo 13607 df-fl 13749 df-seq 13962 df-exp 14022 df-hash 14291 df-cj 15059 df-re 15060 df-im 15061 df-sqrt 15195 df-abs 15196 df-clim 15448 df-rlim 15449 df-sum 15647 df-struct 17115 df-sets 17132 df-slot 17150 df-ndx 17162 df-base 17178 df-ress 17199 df-plusg 17231 df-mulr 17232 df-starv 17233 df-sca 17234 df-vsca 17235 df-ip 17236 df-tset 17237 df-ple 17238 df-ds 17240 df-unif 17241 df-hom 17242 df-cco 17243 df-rest 17383 df-topn 17384 df-0g 17402 df-gsum 17403 df-topgen 17404 df-pt 17405 df-prds 17408 df-xrs 17464 df-qtop 17469 df-imas 17470 df-xps 17472 df-mre 17546 df-mrc 17547 df-acs 17549 df-mgm 18606 df-sgrp 18685 df-mnd 18701 df-submnd 18750 df-mulg 19042 df-cntz 19290 df-cmn 19755 df-psmet 21346 df-xmet 21347 df-met 21348 df-bl 21349 df-mopn 21350 df-cnfld 21355 df-top 22884 df-topon 22901 df-topsp 22923 df-bases 22936 df-cn 23217 df-cnp 23218 df-cmp 23377 df-tx 23552 df-hmeo 23745 df-xms 24310 df-ms 24311 df-tms 24312 df-cncf 24870 df-ovol 25456 df-vol 25457 df-mbf 25611 df-itg1 25612 df-itg2 25613 df-ibl 25614 df-0p 25662

This theorem is referenced by: iblmulc2 25823 itgabs 25827 bddmulibl 25831 itgcn 25837 ftc1a 26029 ftc1lem4 26031 itgulm 26398 fourierdlem47 46603 fourierdlem87 46643 etransclem23 46707

W3C validator