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 25849

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 15342	. . . . 5 ⊢ abs:ℂ⟶ℝ
2	1	a1i 11	. . . 4 ⊢ (𝜑 → abs:ℂ⟶ℝ)
3		iblabs.2	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹)
4		iblmbf 25788	. . . . . 6 ⊢ ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹ → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn)
5	3, 4	syl 17	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn)
6		iblabs.1	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ 𝑉)
7	5, 6	mbfmptcl 25656	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℂ)
8	2, 7	cofmpt 7146	. . 3 ⊢ (𝜑 → (abs ∘ (𝑥 ∈ 𝐴 ↦ 𝐵)) = (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)))
9	7	fmpttd 7129	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵):𝐴⟶ℂ)
10		ax-resscn 11215	. . . . . . 7 ⊢ ℝ ⊆ ℂ
11		ssid 4002	. . . . . . 7 ⊢ ℂ ⊆ ℂ
12		cncfss 24910	. . . . . . 7 ⊢ ((ℝ ⊆ ℂ ∧ ℂ ⊆ ℂ) → (ℂ–cn→ℝ) ⊆ (ℂ–cn→ℂ))
13	10, 11, 12	mp2an 690	. . . . . 6 ⊢ (ℂ–cn→ℝ) ⊆ (ℂ–cn→ℂ)
14		abscncf 24912	. . . . . 6 ⊢ abs ∈ (ℂ–cn→ℝ)
15	13, 14	sselii 3976	. . . . 5 ⊢ abs ∈ (ℂ–cn→ℂ)
16	15	a1i 11	. . . 4 ⊢ (𝜑 → abs ∈ (ℂ–cn→ℂ))
17		cncombf 25678	. . . 4 ⊢ (((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn ∧ (𝑥 ∈ 𝐴 ↦ 𝐵):𝐴⟶ℂ ∧ abs ∈ (ℂ–cn→ℂ)) → (abs ∘ (𝑥 ∈ 𝐴 ↦ 𝐵)) ∈ MblFn)
18	5, 9, 16, 17	syl3anc 1368	. . 3 ⊢ (𝜑 → (abs ∘ (𝑥 ∈ 𝐴 ↦ 𝐵)) ∈ MblFn)
19	8, 18	eqeltrrd 2827	. 2 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ MblFn)
20	7	abscld 15441	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ∈ ℝ)
21	20	rexrd 11314	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ∈ ℝ^*)
22	7	absge0d 15449	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ (abs‘𝐵))
23		elxrge0 13488	. . . . . . 7 ⊢ ((abs‘𝐵) ∈ (0[,]+∞) ↔ ((abs‘𝐵) ∈ ℝ^* ∧ 0 ≤ (abs‘𝐵)))
24	21, 22, 23	sylanbrc 581	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ∈ (0[,]+∞))
25		0e0iccpnf 13490	. . . . . . 7 ⊢ 0 ∈ (0[,]+∞)
26	25	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑥 ∈ 𝐴) → 0 ∈ (0[,]+∞))
27	24, 26	ifclda 4568	. . . . 5 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
28	27	adantr 479	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
29	28	fmpttd 7129	. . 3 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞))
30		reex 11249	. . . . . . . . 9 ⊢ ℝ ∈ V
31	30	a1i 11	. . . . . . . 8 ⊢ (𝜑 → ℝ ∈ V)
32	7	recld 15199	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℜ‘𝐵) ∈ ℝ)
33	32	recnd 11292	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℜ‘𝐵) ∈ ℂ)
34	33	abscld 15441	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℜ‘𝐵)) ∈ ℝ)
35	33	absge0d 15449	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ (abs‘(ℜ‘𝐵)))
36		elrege0 13485	. . . . . . . . . . 11 ⊢ ((abs‘(ℜ‘𝐵)) ∈ (0[,)+∞) ↔ ((abs‘(ℜ‘𝐵)) ∈ ℝ ∧ 0 ≤ (abs‘(ℜ‘𝐵))))
37	34, 35, 36	sylanbrc 581	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℜ‘𝐵)) ∈ (0[,)+∞))
38		0e0icopnf 13489	. . . . . . . . . . 11 ⊢ 0 ∈ (0[,)+∞)
39	38	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝑥 ∈ 𝐴) → 0 ∈ (0[,)+∞))
40	37, 39	ifclda 4568	. . . . . . . . 9 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) ∈ (0[,)+∞))
41	40	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) ∈ (0[,)+∞))
42	7	imcld 15200	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℑ‘𝐵) ∈ ℝ)
43	42	recnd 11292	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℑ‘𝐵) ∈ ℂ)
44	43	abscld 15441	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℑ‘𝐵)) ∈ ℝ)
45	43	absge0d 15449	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ (abs‘(ℑ‘𝐵)))
46		elrege0 13485	. . . . . . . . . . 11 ⊢ ((abs‘(ℑ‘𝐵)) ∈ (0[,)+∞) ↔ ((abs‘(ℑ‘𝐵)) ∈ ℝ ∧ 0 ≤ (abs‘(ℑ‘𝐵))))
47	44, 45, 46	sylanbrc 581	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℑ‘𝐵)) ∈ (0[,)+∞))
48	47, 39	ifclda 4568	. . . . . . . . 9 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0) ∈ (0[,)+∞))
49	48	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0) ∈ (0[,)+∞))
50		eqidd 2727	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)))
51		eqidd 2727	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))
52	31, 41, 49, 50, 51	offval2 7710	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘_f + (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))) = (𝑥 ∈ ℝ ↦ (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))))
53		iftrue 4539	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) = (abs‘(ℜ‘𝐵)))
54		iftrue 4539	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0) = (abs‘(ℑ‘𝐵)))
55	53, 54	oveq12d 7442	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐴 → (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
56		iftrue 4539	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
57	55, 56	eqtr4d 2769	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐴 → (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
58		00id 11439	. . . . . . . . . 10 ⊢ (0 + 0) = 0
59		iffalse 4542	. . . . . . . . . . 11 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) = 0)
60		iffalse 4542	. . . . . . . . . . 11 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0) = 0)
61	59, 60	oveq12d 7442	. . . . . . . . . 10 ⊢ (¬ 𝑥 ∈ 𝐴 → (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = (0 + 0))
62		iffalse 4542	. . . . . . . . . 10 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = 0)
63	58, 61, 62	3eqtr4a 2792	. . . . . . . . 9 ⊢ (¬ 𝑥 ∈ 𝐴 → (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
64	57, 63	pm2.61i 182	. . . . . . . 8 ⊢ (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)
65	64	mpteq2i 5258	. . . . . . 7 ⊢ (𝑥 ∈ ℝ ↦ (if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
66	52, 65	eqtr2di 2783	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) = ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘_f + (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))))
67	66	fveq2d 6905	. . . . 5 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) = (∫₂‘((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘_f + (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))))
68		eqid 2726	. . . . . . . 8 ⊢ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))
69	7	iblcn 25819	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿¹ ∧ (𝑥 ∈ 𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿¹)))
70	3, 69	mpbid 231	. . . . . . . . 9 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿¹ ∧ (𝑥 ∈ 𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿¹))
71	70	simpld 493	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿¹)
72	6, 3, 68, 71, 32	iblabslem 25848	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) ∈ ℝ))
73	72	simpld 493	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∈ MblFn)
74	41	fmpttd 7129	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)):ℝ⟶(0[,)+∞))
75	72	simprd 494	. . . . . 6 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) ∈ ℝ)
76		eqid 2726	. . . . . . . 8 ⊢ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))
77	70	simprd 494	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿¹)
78	6, 3, 76, 77, 42	iblabslem 25848	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))) ∈ ℝ))
79	78	simpld 493	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)) ∈ MblFn)
80	49	fmpttd 7129	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)):ℝ⟶(0[,)+∞))
81	78	simprd 494	. . . . . 6 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0))) ∈ ℝ)
82	73, 74, 75, 79, 80, 81	itg2add 25780	. . . . 5 ⊢ (𝜑 → (∫₂‘((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘_f + (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))) = ((∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))))
83	67, 82	eqtrd 2766	. . . 4 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) = ((∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))))
84	75, 81	readdcld 11293	. . . 4 ⊢ (𝜑 → ((∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘(ℑ‘𝐵)), 0)))) ∈ ℝ)
85	83, 84	eqeltrd 2826	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) ∈ ℝ)
86	34, 44	readdcld 11293	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ)
87	86	rexrd 11314	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ^*)
88	34, 44, 35, 45	addge0d 11840	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
89		elxrge0 13488	. . . . . . . 8 ⊢ (((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ (0[,]+∞) ↔ (((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ^* ∧ 0 ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵)))))
90	87, 88, 89	sylanbrc 581	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ (0[,]+∞))
91	90, 26	ifclda 4568	. . . . . 6 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) ∈ (0[,]+∞))
92	91	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) ∈ (0[,]+∞))
93	92	fmpttd 7129	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)):ℝ⟶(0[,]+∞))
94		ax-icn 11217	. . . . . . . . . . . 12 ⊢ i ∈ ℂ
95		mulcl 11242	. . . . . . . . . . . 12 ⊢ ((i ∈ ℂ ∧ (ℑ‘𝐵) ∈ ℂ) → (i · (ℑ‘𝐵)) ∈ ℂ)
96	94, 43, 95	sylancr 585	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (i · (ℑ‘𝐵)) ∈ ℂ)
97	33, 96	abstrid 15461	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘((ℜ‘𝐵) + (i · (ℑ‘𝐵)))) ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(i · (ℑ‘𝐵)))))
98	7	replimd 15202	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 = ((ℜ‘𝐵) + (i · (ℑ‘𝐵))))
99	98	fveq2d 6905	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) = (abs‘((ℜ‘𝐵) + (i · (ℑ‘𝐵)))))
100		absmul 15299	. . . . . . . . . . . . 13 ⊢ ((i ∈ ℂ ∧ (ℑ‘𝐵) ∈ ℂ) → (abs‘(i · (ℑ‘𝐵))) = ((abs‘i) · (abs‘(ℑ‘𝐵))))
101	94, 43, 100	sylancr 585	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(i · (ℑ‘𝐵))) = ((abs‘i) · (abs‘(ℑ‘𝐵))))
102		absi 15291	. . . . . . . . . . . . . 14 ⊢ (abs‘i) = 1
103	102	oveq1i 7434	. . . . . . . . . . . . 13 ⊢ ((abs‘i) · (abs‘(ℑ‘𝐵))) = (1 · (abs‘(ℑ‘𝐵)))
104	44	recnd 11292	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℑ‘𝐵)) ∈ ℂ)
105	104	mullidd 11282	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (1 · (abs‘(ℑ‘𝐵))) = (abs‘(ℑ‘𝐵)))
106	103, 105	eqtrid 2778	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘i) · (abs‘(ℑ‘𝐵))) = (abs‘(ℑ‘𝐵)))
107	101, 106	eqtr2d 2767	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘(ℑ‘𝐵)) = (abs‘(i · (ℑ‘𝐵))))
108	107	oveq2d 7440	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) = ((abs‘(ℜ‘𝐵)) + (abs‘(i · (ℑ‘𝐵)))))
109	97, 99, 108	3brtr4d 5185	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (abs‘𝐵) ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
110		iftrue 4539	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
111	110	adantl 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
112	56	adantl 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
113	109, 111, 112	3brtr4d 5185	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
114	113	ex 411	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
115		0le0 12365	. . . . . . . . 9 ⊢ 0 ≤ 0
116	115	a1i 11	. . . . . . . 8 ⊢ (¬ 𝑥 ∈ 𝐴 → 0 ≤ 0)
117		iffalse 4542	. . . . . . . 8 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) = 0)
118	116, 117, 62	3brtr4d 5185	. . . . . . 7 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
119	114, 118	pm2.61d1 180	. . . . . 6 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
120	119	ralrimivw 3140	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ ℝ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
121		eqidd 2727	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)))
122		eqidd 2727	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
123	31, 28, 92, 121, 122	ofrfval2 7711	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) ↔ ∀𝑥 ∈ ℝ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0) ≤ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
124	120, 123	mpbird 256	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
125		itg2le 25760	. . . 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 1368	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ≤ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))))
127		itg2lecl 25759	. . 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 1368	. 2 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ∈ ℝ)
129	20, 22	iblpos 25813	. 2 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, (abs‘𝐵), 0))) ∈ ℝ)))
130	19, 128, 129	mpbir2and 711	1 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ (abs‘𝐵)) ∈ 𝐿¹)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 394 = wceq 1534 ∈ wcel 2099 ∀wral 3051 Vcvv 3462 ⊆ wss 3947 ifcif 4533 class class class wbr 5153 ↦ cmpt 5236 ∘ ccom 5686 ⟶wf 6550 ‘cfv 6554 (class class class)co 7424 ∘_f cof 7688 ∘_r cofr 7689 ℂcc 11156 ℝcr 11157 0cc0 11158 1c1 11159 ici 11160 + caddc 11161 · cmul 11163 +∞cpnf 11295 ℝ^*cxr 11297 ≤ cle 11299 [,)cico 13380 [,]cicc 13381 ℜcre 15102 ℑcim 15103 abscabs 15239 –cn→ccncf 24887 MblFncmbf 25634 ∫₂citg2 25636 𝐿¹cibl 25637

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2167 ax-ext 2697 ax-rep 5290 ax-sep 5304 ax-nul 5311 ax-pow 5369 ax-pr 5433 ax-un 7746 ax-inf2 9684 ax-cc 10478 ax-cnex 11214 ax-resscn 11215 ax-1cn 11216 ax-icn 11217 ax-addcl 11218 ax-addrcl 11219 ax-mulcl 11220 ax-mulrcl 11221 ax-mulcom 11222 ax-addass 11223 ax-mulass 11224 ax-distr 11225 ax-i2m1 11226 ax-1ne0 11227 ax-1rid 11228 ax-rnegex 11229 ax-rrecex 11230 ax-cnre 11231 ax-pre-lttri 11232 ax-pre-lttrn 11233 ax-pre-ltadd 11234 ax-pre-mulgt0 11235 ax-pre-sup 11236 ax-addf 11237

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2529 df-eu 2558 df-clab 2704 df-cleq 2718 df-clel 2803 df-nfc 2878 df-ne 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3364 df-reu 3365 df-rab 3420 df-v 3464 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3967 df-nul 4326 df-if 4534 df-pw 4609 df-sn 4634 df-pr 4636 df-tp 4638 df-op 4640 df-uni 4914 df-int 4955 df-iun 5003 df-iin 5004 df-disj 5119 df-br 5154 df-opab 5216 df-mpt 5237 df-tr 5271 df-id 5580 df-eprel 5586 df-po 5594 df-so 5595 df-fr 5637 df-se 5638 df-we 5639 df-xp 5688 df-rel 5689 df-cnv 5690 df-co 5691 df-dm 5692 df-rn 5693 df-res 5694 df-ima 5695 df-pred 6312 df-ord 6379 df-on 6380 df-lim 6381 df-suc 6382 df-iota 6506 df-fun 6556 df-fn 6557 df-f 6558 df-f1 6559 df-fo 6560 df-f1o 6561 df-fv 6562 df-isom 6563 df-riota 7380 df-ov 7427 df-oprab 7428 df-mpo 7429 df-of 7690 df-ofr 7691 df-om 7877 df-1st 8003 df-2nd 8004 df-supp 8175 df-frecs 8296 df-wrecs 8327 df-recs 8401 df-rdg 8440 df-1o 8496 df-2o 8497 df-oadd 8500 df-omul 8501 df-er 8734 df-map 8857 df-pm 8858 df-ixp 8927 df-en 8975 df-dom 8976 df-sdom 8977 df-fin 8978 df-fsupp 9406 df-fi 9454 df-sup 9485 df-inf 9486 df-oi 9553 df-dju 9944 df-card 9982 df-acn 9985 df-pnf 11300 df-mnf 11301 df-xr 11302 df-ltxr 11303 df-le 11304 df-sub 11496 df-neg 11497 df-div 11922 df-nn 12265 df-2 12327 df-3 12328 df-4 12329 df-5 12330 df-6 12331 df-7 12332 df-8 12333 df-9 12334 df-n0 12525 df-z 12611 df-dec 12730 df-uz 12875 df-q 12985 df-rp 13029 df-xneg 13146 df-xadd 13147 df-xmul 13148 df-ioo 13382 df-ioc 13383 df-ico 13384 df-icc 13385 df-fz 13539 df-fzo 13682 df-fl 13812 df-seq 14022 df-exp 14082 df-hash 14348 df-cj 15104 df-re 15105 df-im 15106 df-sqrt 15240 df-abs 15241 df-clim 15490 df-rlim 15491 df-sum 15691 df-struct 17149 df-sets 17166 df-slot 17184 df-ndx 17196 df-base 17214 df-ress 17243 df-plusg 17279 df-mulr 17280 df-starv 17281 df-sca 17282 df-vsca 17283 df-ip 17284 df-tset 17285 df-ple 17286 df-ds 17288 df-unif 17289 df-hom 17290 df-cco 17291 df-rest 17437 df-topn 17438 df-0g 17456 df-gsum 17457 df-topgen 17458 df-pt 17459 df-prds 17462 df-xrs 17517 df-qtop 17522 df-imas 17523 df-xps 17525 df-mre 17599 df-mrc 17600 df-acs 17602 df-mgm 18633 df-sgrp 18712 df-mnd 18728 df-submnd 18774 df-mulg 19062 df-cntz 19311 df-cmn 19780 df-psmet 21335 df-xmet 21336 df-met 21337 df-bl 21338 df-mopn 21339 df-cnfld 21344 df-top 22887 df-topon 22904 df-topsp 22926 df-bases 22940 df-cn 23222 df-cnp 23223 df-cmp 23382 df-tx 23557 df-hmeo 23750 df-xms 24317 df-ms 24318 df-tms 24319 df-cncf 24889 df-ovol 25484 df-vol 25485 df-mbf 25639 df-itg1 25640 df-itg2 25641 df-ibl 25642 df-0p 25690

This theorem is referenced by: iblmulc2 25851 itgabs 25855 bddmulibl 25859 itgcn 25865 ftc1a 26063 ftc1lem4 26065 itgulm 26437 fourierdlem47 45774 fourierdlem87 45814 etransclem23 45878

W3C validator

	
		OSZAR »