iblsplit - Mathbox for Glauco Siliprandi

	Mathbox for Glauco Siliprandi		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > iblsplit		Structured version Visualization version GIF version

Theorem iblsplit 46394

Description: The union of two integrable functions is integrable. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

**Hypotheses**
Ref	Expression
iblsplit.1	⊢ (𝜑 → (vol*‘(𝐴 ∩ 𝐵)) = 0)
iblsplit.2	⊢ (𝜑 → 𝑈 = (𝐴 ∪ 𝐵))
iblsplit.3	⊢ ((𝜑 ∧ 𝑥 ∈ 𝑈) → 𝐶 ∈ ℂ)
iblsplit.4	⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐶) ∈ 𝐿¹)
iblsplit.5	⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝐶) ∈ 𝐿¹)

**Assertion**
Ref	Expression
iblsplit	⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ 𝐶) ∈ 𝐿¹)

Distinct variable groups: 𝑥,𝐴 𝑥,𝐵 𝑥,𝑈 𝜑,𝑥 Allowed substitution hint: 𝐶(𝑥)

Proof of Theorem iblsplit Dummy variables 𝑘 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		iblsplit.3	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑈) → 𝐶 ∈ ℂ)
2	1	fmpttd 7068	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ 𝐶):𝑈⟶ℂ)
3		ssun1 4119	. . . . . 6 ⊢ 𝐴 ⊆ (𝐴 ∪ 𝐵)
4		iblsplit.2	. . . . . 6 ⊢ (𝜑 → 𝑈 = (𝐴 ∪ 𝐵))
5	3, 4	sseqtrrid 3966	. . . . 5 ⊢ (𝜑 → 𝐴 ⊆ 𝑈)
6	5	resmptd 6006	. . . 4 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ 𝐶) ↾ 𝐴) = (𝑥 ∈ 𝐴 ↦ 𝐶))
7		iblsplit.4	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐶) ∈ 𝐿¹)
8		eqidd 2738	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑦)))), (ℜ‘(𝐶 / (i↑𝑦))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑦)))), (ℜ‘(𝐶 / (i↑𝑦))), 0)))
9		eqidd 2738	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℜ‘(𝐶 / (i↑𝑦))) = (ℜ‘(𝐶 / (i↑𝑦))))
10	5	sseld 3921	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ 𝐴 → 𝑥 ∈ 𝑈))
11	10	imdistani 568	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝜑 ∧ 𝑥 ∈ 𝑈))
12	11, 1	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐶 ∈ ℂ)
13	8, 9, 12	isibl2 25733	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ MblFn ∧ ∀𝑦 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑦)))), (ℜ‘(𝐶 / (i↑𝑦))), 0))) ∈ ℝ)))
14	7, 13	mpbid 232	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ MblFn ∧ ∀𝑦 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑦)))), (ℜ‘(𝐶 / (i↑𝑦))), 0))) ∈ ℝ))
15	14	simpld 494	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐶) ∈ MblFn)
16	6, 15	eqeltrd 2837	. . 3 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ 𝐶) ↾ 𝐴) ∈ MblFn)
17		ssun2 4120	. . . . . 6 ⊢ 𝐵 ⊆ (𝐴 ∪ 𝐵)
18	17, 4	sseqtrrid 3966	. . . . 5 ⊢ (𝜑 → 𝐵 ⊆ 𝑈)
19	18	resmptd 6006	. . . 4 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ 𝐶) ↾ 𝐵) = (𝑥 ∈ 𝐵 ↦ 𝐶))
20		iblsplit.5	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝐶) ∈ 𝐿¹)
21		eqidd 2738	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑦)))), (ℜ‘(𝐶 / (i↑𝑦))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑦)))), (ℜ‘(𝐶 / (i↑𝑦))), 0)))
22		eqidd 2738	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (ℜ‘(𝐶 / (i↑𝑦))) = (ℜ‘(𝐶 / (i↑𝑦))))
23	18	sseld 3921	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ 𝐵 → 𝑥 ∈ 𝑈))
24	23	imdistani 568	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝜑 ∧ 𝑥 ∈ 𝑈))
25	24, 1	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → 𝐶 ∈ ℂ)
26	21, 22, 25	isibl2 25733	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ MblFn ∧ ∀𝑦 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑦)))), (ℜ‘(𝐶 / (i↑𝑦))), 0))) ∈ ℝ)))
27	20, 26	mpbid 232	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ MblFn ∧ ∀𝑦 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑦)))), (ℜ‘(𝐶 / (i↑𝑦))), 0))) ∈ ℝ))
28	27	simpld 494	. . . 4 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↦ 𝐶) ∈ MblFn)
29	19, 28	eqeltrd 2837	. . 3 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ 𝐶) ↾ 𝐵) ∈ MblFn)
30	4	eqcomd 2743	. . 3 ⊢ (𝜑 → (𝐴 ∪ 𝐵) = 𝑈)
31	2, 16, 29, 30	mbfres2cn 46386	. 2 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ 𝐶) ∈ MblFn)
32	15, 12	mbfdm2 25604	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ dom vol)
33	32	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → 𝐴 ∈ dom vol)
34	28, 25	mbfdm2 25604	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ dom vol)
35	34	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → 𝐵 ∈ dom vol)
36		iblsplit.1	. . . . . 6 ⊢ (𝜑 → (vol*‘(𝐴 ∩ 𝐵)) = 0)
37	36	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (vol*‘(𝐴 ∩ 𝐵)) = 0)
38	4	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → 𝑈 = (𝐴 ∪ 𝐵))
39	1	adantlr 716	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → 𝐶 ∈ ℂ)
40		ax-icn 11097	. . . . . . . . . . . . . 14 ⊢ i ∈ ℂ
41	40	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (0...3) → i ∈ ℂ)
42		elfznn0 13574	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (0...3) → 𝑘 ∈ ℕ₀)
43	41, 42	expcld 14108	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (0...3) → (i↑𝑘) ∈ ℂ)
44	43	ad2antlr 728	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → (i↑𝑘) ∈ ℂ)
45	40	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → i ∈ ℂ)
46		ine0 11585	. . . . . . . . . . . . 13 ⊢ i ≠ 0
47	46	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → i ≠ 0)
48		elfzelz 13478	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (0...3) → 𝑘 ∈ ℤ)
49	48	ad2antlr 728	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → 𝑘 ∈ ℤ)
50	45, 47, 49	expne0d 14114	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → (i↑𝑘) ≠ 0)
51	39, 44, 50	divcld 11931	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → (𝐶 / (i↑𝑘)) ∈ ℂ)
52	51	recld 15156	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → (ℜ‘(𝐶 / (i↑𝑘))) ∈ ℝ)
53	52	rexrd 11195	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → (ℜ‘(𝐶 / (i↑𝑘))) ∈ ℝ^*)
54	53	adantr 480	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))) → (ℜ‘(𝐶 / (i↑𝑘))) ∈ ℝ^*)
55		simpr 484	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))) → 0 ≤ (ℜ‘(𝐶 / (i↑𝑘))))
56		pnfge 13081	. . . . . . . 8 ⊢ ((ℜ‘(𝐶 / (i↑𝑘))) ∈ ℝ^* → (ℜ‘(𝐶 / (i↑𝑘))) ≤ +∞)
57	54, 56	syl 17	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))) → (ℜ‘(𝐶 / (i↑𝑘))) ≤ +∞)
58		0xr 11192	. . . . . . . 8 ⊢ 0 ∈ ℝ^*
59		pnfxr 11199	. . . . . . . 8 ⊢ +∞ ∈ ℝ^*
60		elicc1 13342	. . . . . . . 8 ⊢ ((0 ∈ ℝ^* ∧ +∞ ∈ ℝ^) → ((ℜ‘(𝐶 / (i↑𝑘))) ∈ (0[,]+∞) ↔ ((ℜ‘(𝐶 / (i↑𝑘))) ∈ ℝ^ ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘))) ∧ (ℜ‘(𝐶 / (i↑𝑘))) ≤ +∞)))
61	58, 59, 60	mp2an 693	. . . . . . 7 ⊢ ((ℜ‘(𝐶 / (i↑𝑘))) ∈ (0[,]+∞) ↔ ((ℜ‘(𝐶 / (i↑𝑘))) ∈ ℝ^* ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘))) ∧ (ℜ‘(𝐶 / (i↑𝑘))) ≤ +∞))
62	54, 55, 57, 61	syl3anbrc 1345	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))) → (ℜ‘(𝐶 / (i↑𝑘))) ∈ (0[,]+∞))
63		0e0iccpnf 13412	. . . . . . 7 ⊢ 0 ∈ (0[,]+∞)
64	63	a1i 11	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) ∧ ¬ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))) → 0 ∈ (0[,]+∞))
65	62, 64	ifclda 4503	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...3)) ∧ 𝑥 ∈ 𝑈) → if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0) ∈ (0[,]+∞))
66		eqid 2737	. . . . 5 ⊢ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
67		eqid 2737	. . . . 5 ⊢ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
68		ifan 4521	. . . . . 6 ⊢ if((𝑥 ∈ 𝑈 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥 ∈ 𝑈, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
69	68	mpteq2i 5182	. . . . 5 ⊢ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝑈 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝑈, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))
70		ifan 4521	. . . . . . . . . 10 ⊢ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
71	70	eqcomi 2746	. . . . . . . . 9 ⊢ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)
72	71	mpteq2i 5182	. . . . . . . 8 ⊢ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
73	72	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
74	73	fveq2d 6845	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))) = (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))))
75		eqidd 2738	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
76		eqidd 2738	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
77	75, 76, 12	isibl2 25733	. . . . . . . . 9 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)))
78	7, 77	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ))
79	78	simprd 495	. . . . . . 7 ⊢ (𝜑 → ∀𝑘 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
80	79	r19.21bi 3230	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
81	74, 80	eqeltrd 2837	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))) ∈ ℝ)
82		ifan 4521	. . . . . . . . 9 ⊢ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0) = if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)
83	82	eqcomi 2746	. . . . . . . 8 ⊢ if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0) = if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)
84	83	mpteq2i 5182	. . . . . . 7 ⊢ (𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))
85	84	fveq2i 6844	. . . . . 6 ⊢ (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))) = (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
86		eqidd 2738	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
87		eqidd 2738	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
88	86, 87, 25	isibl2 25733	. . . . . . . . 9 ⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)))
89	20, 88	mpbid 232	. . . . . . . 8 ⊢ (𝜑 → ((𝑥 ∈ 𝐵 ↦ 𝐶) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ))
90	89	simprd 495	. . . . . . 7 ⊢ (𝜑 → ∀𝑘 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
91	90	r19.21bi 3230	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐵 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
92	85, 91	eqeltrid 2841	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))) ∈ ℝ)
93	33, 35, 37, 38, 65, 66, 67, 69, 81, 92	itg2split 25716	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝑈 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) = ((∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))) + (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)))))
94	81, 92	readdcld 11174	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → ((∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐴, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0))) + (∫₂‘(𝑥 ∈ ℝ ↦ if(𝑥 ∈ 𝐵, if(0 ≤ (ℜ‘(𝐶 / (i↑𝑘))), (ℜ‘(𝐶 / (i↑𝑘))), 0), 0)))) ∈ ℝ)
95	93, 94	eqeltrd 2837	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...3)) → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝑈 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
96	95	ralrimiva 3130	. 2 ⊢ (𝜑 → ∀𝑘 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝑈 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)
97		eqidd 2738	. . 3 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝑈 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝑈 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0)))
98		eqidd 2738	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑈) → (ℜ‘(𝐶 / (i↑𝑘))) = (ℜ‘(𝐶 / (i↑𝑘))))
99	97, 98, 1	isibl2 25733	. 2 ⊢ (𝜑 → ((𝑥 ∈ 𝑈 ↦ 𝐶) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝑈 ↦ 𝐶) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝑈 ∧ 0 ≤ (ℜ‘(𝐶 / (i↑𝑘)))), (ℜ‘(𝐶 / (i↑𝑘))), 0))) ∈ ℝ)))
100	31, 96, 99	mpbir2and 714	1 ⊢ (𝜑 → (𝑥 ∈ 𝑈 ↦ 𝐶) ∈ 𝐿¹)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ≠ wne 2933 ∀wral 3052 ∪ cun 3888 ∩ cin 3889 ifcif 4467 class class class wbr 5086 ↦ cmpt 5167 dom cdm 5631 ↾ cres 5633 ‘cfv 6499 (class class class)co 7367 ℂcc 11036 ℝcr 11037 0cc0 11038 ici 11040 + caddc 11041 +∞cpnf 11176 ℝ^*cxr 11178 ≤ cle 11180 / cdiv 11807 3c3 12237 ℤcz 12524 [,]cicc 13301 ...cfz 13461 ↑cexp 14023 ℜcre 15059 vol*covol 25429 volcvol 25430 MblFncmbf 25581 ∫₂citg2 25583 𝐿¹cibl 25584

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5213 ax-sep 5232 ax-nul 5242 ax-pow 5308 ax-pr 5376 ax-un 7689 ax-inf2 9562 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115 ax-pre-sup 11116 ax-addf 11117

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3343 df-reu 3344 df-rab 3391 df-v 3432 df-sbc 3730 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-nul 4275 df-if 4468 df-pw 4544 df-sn 4569 df-pr 4571 df-op 4575 df-uni 4852 df-int 4891 df-iun 4936 df-disj 5054 df-br 5087 df-opab 5149 df-mpt 5168 df-tr 5194 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-se 5585 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6266 df-ord 6327 df-on 6328 df-lim 6329 df-suc 6330 df-iota 6455 df-fun 6501 df-fn 6502 df-f 6503 df-f1 6504 df-fo 6505 df-f1o 6506 df-fv 6507 df-isom 6508 df-riota 7324 df-ov 7370 df-oprab 7371 df-mpo 7372 df-of 7631 df-ofr 7632 df-om 7818 df-1st 7942 df-2nd 7943 df-frecs 8231 df-wrecs 8262 df-recs 8311 df-rdg 8349 df-1o 8405 df-2o 8406 df-er 8643 df-map 8775 df-pm 8776 df-en 8894 df-dom 8895 df-sdom 8896 df-fin 8897 df-fi 9324 df-sup 9355 df-inf 9356 df-oi 9425 df-dju 9825 df-card 9863 df-pnf 11181 df-mnf 11182 df-xr 11183 df-ltxr 11184 df-le 11185 df-sub 11379 df-neg 11380 df-div 11808 df-nn 12175 df-2 12244 df-3 12245 df-n0 12438 df-z 12525 df-uz 12789 df-q 12899 df-rp 12943 df-xneg 13063 df-xadd 13064 df-xmul 13065 df-ioo 13302 df-ico 13304 df-icc 13305 df-fz 13462 df-fzo 13609 df-fl 13751 df-seq 13964 df-exp 14024 df-hash 14293 df-cj 15061 df-re 15062 df-im 15063 df-sqrt 15197 df-abs 15198 df-clim 15450 df-sum 15649 df-rest 17385 df-topgen 17406 df-psmet 21344 df-xmet 21345 df-met 21346 df-bl 21347 df-mopn 21348 df-top 22859 df-topon 22876 df-bases 22911 df-cmp 23352 df-ovol 25431 df-vol 25432 df-mbf 25586 df-itg1 25587 df-itg2 25588 df-ibl 25589

This theorem is referenced by: iblsplitf 46398

W3C validator