itgle - Metamath Proof Explorer

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

Theorem itgle 24879

Description: Monotonicity of an integral. (Contributed by Mario Carneiro, 11-Aug-2014.)

**Hypotheses**
Ref	Expression
itgle.1	⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹)
itgle.2	⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐶) ∈ 𝐿¹)
itgle.3	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℝ)
itgle.4	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐶 ∈ ℝ)
itgle.5	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≤ 𝐶)

**Assertion**
Ref	Expression
itgle	⊢ (𝜑 → ∫𝐴𝐵 d𝑥 ≤ ∫𝐴𝐶 d𝑥)

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

**Proof of Theorem itgle**
Step	Hyp	Ref	Expression
1		itgle.1	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹)
2		itgle.3	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ℝ)
3	2	iblrelem 24860	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0))) ∈ ℝ ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0))) ∈ ℝ)))
4	1, 3	mpbid 231	. . . 4 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐵) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0))) ∈ ℝ ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0))) ∈ ℝ))
5	4	simp2d 1141	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0))) ∈ ℝ)
6		itgle.2	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝐶) ∈ 𝐿¹)
7		itgle.4	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐶 ∈ ℝ)
8	7	iblrelem 24860	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ 𝐿¹ ↔ ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))) ∈ ℝ ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0))) ∈ ℝ)))
9	6, 8	mpbid 231	. . . 4 ⊢ (𝜑 → ((𝑥 ∈ 𝐴 ↦ 𝐶) ∈ MblFn ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))) ∈ ℝ ∧ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0))) ∈ ℝ))
10	9	simp3d 1142	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0))) ∈ ℝ)
11	9	simp2d 1141	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))) ∈ ℝ)
12	4	simp3d 1142	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0))) ∈ ℝ)
13	2	ad2ant2r 743	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵)) → 𝐵 ∈ ℝ)
14	13	rexrd 10956	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵)) → 𝐵 ∈ ℝ^*)
15		simprr 769	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵)) → 0 ≤ 𝐵)
16		elxrge0 13118	. . . . . . 7 ⊢ (𝐵 ∈ (0[,]+∞) ↔ (𝐵 ∈ ℝ^* ∧ 0 ≤ 𝐵))
17	14, 15, 16	sylanbrc 582	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵)) → 𝐵 ∈ (0[,]+∞))
18		0e0iccpnf 13120	. . . . . . 7 ⊢ 0 ∈ (0[,]+∞)
19	18	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ ¬ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵)) → 0 ∈ (0[,]+∞))
20	17, 19	ifclda 4491	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0) ∈ (0[,]+∞))
21	20	fmpttd 6971	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0)):ℝ⟶(0[,]+∞))
22	7	ad2ant2r 743	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶)) → 𝐶 ∈ ℝ)
23	22	rexrd 10956	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶)) → 𝐶 ∈ ℝ^*)
24		simprr 769	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶)) → 0 ≤ 𝐶)
25		elxrge0 13118	. . . . . . 7 ⊢ (𝐶 ∈ (0[,]+∞) ↔ (𝐶 ∈ ℝ^* ∧ 0 ≤ 𝐶))
26	23, 24, 25	sylanbrc 582	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶)) → 𝐶 ∈ (0[,]+∞))
27	18	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ ¬ (𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶)) → 0 ∈ (0[,]+∞))
28	26, 27	ifclda 4491	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0) ∈ (0[,]+∞))
29	28	fmpttd 6971	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0)):ℝ⟶(0[,]+∞))
30		0re 10908	. . . . . . . . . . . 12 ⊢ 0 ∈ ℝ
31		max1 12848	. . . . . . . . . . . 12 ⊢ ((0 ∈ ℝ ∧ 𝐶 ∈ ℝ) → 0 ≤ if(0 ≤ 𝐶, 𝐶, 0))
32	30, 7, 31	sylancr 586	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ if(0 ≤ 𝐶, 𝐶, 0))
33		ifcl 4501	. . . . . . . . . . . . 13 ⊢ ((𝐶 ∈ ℝ ∧ 0 ∈ ℝ) → if(0 ≤ 𝐶, 𝐶, 0) ∈ ℝ)
34	7, 30, 33	sylancl 585	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(0 ≤ 𝐶, 𝐶, 0) ∈ ℝ)
35		itgle.5	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≤ 𝐶)
36		max2 12850	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℝ ∧ 𝐶 ∈ ℝ) → 𝐶 ≤ if(0 ≤ 𝐶, 𝐶, 0))
37	30, 7, 36	sylancr 586	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐶 ≤ if(0 ≤ 𝐶, 𝐶, 0))
38	2, 7, 34, 35, 37	letrd 11062	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ≤ if(0 ≤ 𝐶, 𝐶, 0))
39		maxle 12854	. . . . . . . . . . . 12 ⊢ ((0 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ if(0 ≤ 𝐶, 𝐶, 0) ∈ ℝ) → (if(0 ≤ 𝐵, 𝐵, 0) ≤ if(0 ≤ 𝐶, 𝐶, 0) ↔ (0 ≤ if(0 ≤ 𝐶, 𝐶, 0) ∧ 𝐵 ≤ if(0 ≤ 𝐶, 𝐶, 0))))
40	30, 2, 34, 39	mp3an2i 1464	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (if(0 ≤ 𝐵, 𝐵, 0) ≤ if(0 ≤ 𝐶, 𝐶, 0) ↔ (0 ≤ if(0 ≤ 𝐶, 𝐶, 0) ∧ 𝐵 ≤ if(0 ≤ 𝐶, 𝐶, 0))))
41	32, 38, 40	mpbir2and 709	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(0 ≤ 𝐵, 𝐵, 0) ≤ if(0 ≤ 𝐶, 𝐶, 0))
42		iftrue 4462	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐵, 𝐵, 0), 0) = if(0 ≤ 𝐵, 𝐵, 0))
43	42	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐵, 𝐵, 0), 0) = if(0 ≤ 𝐵, 𝐵, 0))
44		iftrue 4462	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐶, 𝐶, 0), 0) = if(0 ≤ 𝐶, 𝐶, 0))
45	44	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐶, 𝐶, 0), 0) = if(0 ≤ 𝐶, 𝐶, 0))
46	41, 43, 45	3brtr4d 5102	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐵, 𝐵, 0), 0) ≤ if(𝑥 ∈ 𝐴, if(0 ≤ 𝐶, 𝐶, 0), 0))
47	46	ex 412	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐵, 𝐵, 0), 0) ≤ if(𝑥 ∈ 𝐴, if(0 ≤ 𝐶, 𝐶, 0), 0)))
48		0le0 12004	. . . . . . . . . 10 ⊢ 0 ≤ 0
49	48	a1i 11	. . . . . . . . 9 ⊢ (¬ 𝑥 ∈ 𝐴 → 0 ≤ 0)
50		iffalse 4465	. . . . . . . . 9 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐵, 𝐵, 0), 0) = 0)
51		iffalse 4465	. . . . . . . . 9 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐶, 𝐶, 0), 0) = 0)
52	49, 50, 51	3brtr4d 5102	. . . . . . . 8 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐵, 𝐵, 0), 0) ≤ if(𝑥 ∈ 𝐴, if(0 ≤ 𝐶, 𝐶, 0), 0))
53	47, 52	pm2.61d1 180	. . . . . . 7 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, if(0 ≤ 𝐵, 𝐵, 0), 0) ≤ if(𝑥 ∈ 𝐴, if(0 ≤ 𝐶, 𝐶, 0), 0))
54		ifan 4509	. . . . . . 7 ⊢ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0) = if(𝑥 ∈ 𝐴, if(0 ≤ 𝐵, 𝐵, 0), 0)
55		ifan 4509	. . . . . . 7 ⊢ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0) = if(𝑥 ∈ 𝐴, if(0 ≤ 𝐶, 𝐶, 0), 0)
56	53, 54, 55	3brtr4g 5104	. . . . . 6 ⊢ (𝜑 → if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0) ≤ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))
57	56	ralrimivw 3108	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ ℝ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0) ≤ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))
58		reex 10893	. . . . . . 7 ⊢ ℝ ∈ V
59	58	a1i 11	. . . . . 6 ⊢ (𝜑 → ℝ ∈ V)
60		eqidd 2739	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0)))
61		eqidd 2739	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0)))
62	59, 20, 28, 60, 61	ofrfval2 7532	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0)) ↔ ∀𝑥 ∈ ℝ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0) ≤ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0)))
63	57, 62	mpbird 256	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0)))
64		itg2le 24809	. . . 4 ⊢ (((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))) → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0))) ≤ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))))
65	21, 29, 63, 64	syl3anc 1369	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0))) ≤ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))))
66	7	renegcld 11332	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -𝐶 ∈ ℝ)
67	66	ad2ant2r 743	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶)) → -𝐶 ∈ ℝ)
68	67	rexrd 10956	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶)) → -𝐶 ∈ ℝ^*)
69		simprr 769	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶)) → 0 ≤ -𝐶)
70		elxrge0 13118	. . . . . . 7 ⊢ (-𝐶 ∈ (0[,]+∞) ↔ (-𝐶 ∈ ℝ^* ∧ 0 ≤ -𝐶))
71	68, 69, 70	sylanbrc 582	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶)) → -𝐶 ∈ (0[,]+∞))
72	18	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ ¬ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶)) → 0 ∈ (0[,]+∞))
73	71, 72	ifclda 4491	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0) ∈ (0[,]+∞))
74	73	fmpttd 6971	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)):ℝ⟶(0[,]+∞))
75	2	renegcld 11332	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -𝐵 ∈ ℝ)
76	75	ad2ant2r 743	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵)) → -𝐵 ∈ ℝ)
77	76	rexrd 10956	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵)) → -𝐵 ∈ ℝ^*)
78		simprr 769	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵)) → 0 ≤ -𝐵)
79		elxrge0 13118	. . . . . . 7 ⊢ (-𝐵 ∈ (0[,]+∞) ↔ (-𝐵 ∈ ℝ^* ∧ 0 ≤ -𝐵))
80	77, 78, 79	sylanbrc 582	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵)) → -𝐵 ∈ (0[,]+∞))
81	18	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ) ∧ ¬ (𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵)) → 0 ∈ (0[,]+∞))
82	80, 81	ifclda 4491	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0) ∈ (0[,]+∞))
83	82	fmpttd 6971	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)):ℝ⟶(0[,]+∞))
84		max1 12848	. . . . . . . . . . . 12 ⊢ ((0 ∈ ℝ ∧ -𝐵 ∈ ℝ) → 0 ≤ if(0 ≤ -𝐵, -𝐵, 0))
85	30, 75, 84	sylancr 586	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 0 ≤ if(0 ≤ -𝐵, -𝐵, 0))
86		ifcl 4501	. . . . . . . . . . . . 13 ⊢ ((-𝐵 ∈ ℝ ∧ 0 ∈ ℝ) → if(0 ≤ -𝐵, -𝐵, 0) ∈ ℝ)
87	75, 30, 86	sylancl 585	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(0 ≤ -𝐵, -𝐵, 0) ∈ ℝ)
88	2, 7	lenegd 11484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (𝐵 ≤ 𝐶 ↔ -𝐶 ≤ -𝐵))
89	35, 88	mpbid 231	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -𝐶 ≤ -𝐵)
90		max2 12850	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℝ ∧ -𝐵 ∈ ℝ) → -𝐵 ≤ if(0 ≤ -𝐵, -𝐵, 0))
91	30, 75, 90	sylancr 586	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -𝐵 ≤ if(0 ≤ -𝐵, -𝐵, 0))
92	66, 75, 87, 89, 91	letrd 11062	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -𝐶 ≤ if(0 ≤ -𝐵, -𝐵, 0))
93		maxle 12854	. . . . . . . . . . . 12 ⊢ ((0 ∈ ℝ ∧ -𝐶 ∈ ℝ ∧ if(0 ≤ -𝐵, -𝐵, 0) ∈ ℝ) → (if(0 ≤ -𝐶, -𝐶, 0) ≤ if(0 ≤ -𝐵, -𝐵, 0) ↔ (0 ≤ if(0 ≤ -𝐵, -𝐵, 0) ∧ -𝐶 ≤ if(0 ≤ -𝐵, -𝐵, 0))))
94	30, 66, 87, 93	mp3an2i 1464	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → (if(0 ≤ -𝐶, -𝐶, 0) ≤ if(0 ≤ -𝐵, -𝐵, 0) ↔ (0 ≤ if(0 ≤ -𝐵, -𝐵, 0) ∧ -𝐶 ≤ if(0 ≤ -𝐵, -𝐵, 0))))
95	85, 92, 94	mpbir2and 709	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(0 ≤ -𝐶, -𝐶, 0) ≤ if(0 ≤ -𝐵, -𝐵, 0))
96		iftrue 4462	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐶, -𝐶, 0), 0) = if(0 ≤ -𝐶, -𝐶, 0))
97	96	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐶, -𝐶, 0), 0) = if(0 ≤ -𝐶, -𝐶, 0))
98		iftrue 4462	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐵, -𝐵, 0), 0) = if(0 ≤ -𝐵, -𝐵, 0))
99	98	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐵, -𝐵, 0), 0) = if(0 ≤ -𝐵, -𝐵, 0))
100	95, 97, 99	3brtr4d 5102	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐶, -𝐶, 0), 0) ≤ if(𝑥 ∈ 𝐴, if(0 ≤ -𝐵, -𝐵, 0), 0))
101	100	ex 412	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐶, -𝐶, 0), 0) ≤ if(𝑥 ∈ 𝐴, if(0 ≤ -𝐵, -𝐵, 0), 0)))
102		iffalse 4465	. . . . . . . . 9 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐶, -𝐶, 0), 0) = 0)
103		iffalse 4465	. . . . . . . . 9 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐵, -𝐵, 0), 0) = 0)
104	49, 102, 103	3brtr4d 5102	. . . . . . . 8 ⊢ (¬ 𝑥 ∈ 𝐴 → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐶, -𝐶, 0), 0) ≤ if(𝑥 ∈ 𝐴, if(0 ≤ -𝐵, -𝐵, 0), 0))
105	101, 104	pm2.61d1 180	. . . . . . 7 ⊢ (𝜑 → if(𝑥 ∈ 𝐴, if(0 ≤ -𝐶, -𝐶, 0), 0) ≤ if(𝑥 ∈ 𝐴, if(0 ≤ -𝐵, -𝐵, 0), 0))
106		ifan 4509	. . . . . . 7 ⊢ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0) = if(𝑥 ∈ 𝐴, if(0 ≤ -𝐶, -𝐶, 0), 0)
107		ifan 4509	. . . . . . 7 ⊢ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0) = if(𝑥 ∈ 𝐴, if(0 ≤ -𝐵, -𝐵, 0), 0)
108	105, 106, 107	3brtr4g 5104	. . . . . 6 ⊢ (𝜑 → if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0) ≤ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0))
109	108	ralrimivw 3108	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ ℝ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0) ≤ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0))
110		eqidd 2739	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)))
111		eqidd 2739	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)) = (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)))
112	59, 73, 82, 110, 111	ofrfval2 7532	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)) ↔ ∀𝑥 ∈ ℝ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0) ≤ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)))
113	109, 112	mpbird 256	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)))
114		itg2le 24809	. . . 4 ⊢ (((𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)) ∘_r ≤ (𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0))) → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0))) ≤ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0))))
115	74, 83, 113, 114	syl3anc 1369	. . 3 ⊢ (𝜑 → (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0))) ≤ (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0))))
116	5, 10, 11, 12, 65, 115	le2subd 11525	. 2 ⊢ (𝜑 → ((∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0))) − (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)))) ≤ ((∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))) − (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)))))
117	2, 1	itgrevallem1 24864	. 2 ⊢ (𝜑 → ∫𝐴𝐵 d𝑥 = ((∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐵), 𝐵, 0))) − (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐵), -𝐵, 0)))))
118	7, 6	itgrevallem1 24864	. 2 ⊢ (𝜑 → ∫𝐴𝐶 d𝑥 = ((∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ 𝐶), 𝐶, 0))) − (∫₂‘(𝑥 ∈ ℝ ↦ if((𝑥 ∈ 𝐴 ∧ 0 ≤ -𝐶), -𝐶, 0)))))
119	116, 117, 118	3brtr4d 5102	1 ⊢ (𝜑 → ∫𝐴𝐵 d𝑥 ≤ ∫𝐴𝐶 d𝑥)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 ∧ w3a 1085 = wceq 1539 ∈ wcel 2108 ∀wral 3063 Vcvv 3422 ifcif 4456 class class class wbr 5070 ↦ cmpt 5153 ⟶wf 6414 ‘cfv 6418 (class class class)co 7255 ∘_r cofr 7510 ℝcr 10801 0cc0 10802 +∞cpnf 10937 ℝ^*cxr 10939 ≤ cle 10941 − cmin 11135 -cneg 11136 [,]cicc 13011 MblFncmbf 24683 ∫₂citg2 24685 𝐿¹cibl 24686 ∫citg 24687

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1799 ax-4 1813 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2110 ax-9 2118 ax-10 2139 ax-11 2156 ax-12 2173 ax-ext 2709 ax-rep 5205 ax-sep 5218 ax-nul 5225 ax-pow 5283 ax-pr 5347 ax-un 7566 ax-inf2 9329 ax-cnex 10858 ax-resscn 10859 ax-1cn 10860 ax-icn 10861 ax-addcl 10862 ax-addrcl 10863 ax-mulcl 10864 ax-mulrcl 10865 ax-mulcom 10866 ax-addass 10867 ax-mulass 10868 ax-distr 10869 ax-i2m1 10870 ax-1ne0 10871 ax-1rid 10872 ax-rnegex 10873 ax-rrecex 10874 ax-cnre 10875 ax-pre-lttri 10876 ax-pre-lttrn 10877 ax-pre-ltadd 10878 ax-pre-mulgt0 10879 ax-pre-sup 10880 ax-addf 10881

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1784 df-nf 1788 df-sb 2069 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2817 df-nfc 2888 df-ne 2943 df-nel 3049 df-ral 3068 df-rex 3069 df-reu 3070 df-rmo 3071 df-rab 3072 df-v 3424 df-sbc 3712 df-csb 3829 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3902 df-nul 4254 df-if 4457 df-pw 4532 df-sn 4559 df-pr 4561 df-tp 4563 df-op 4565 df-uni 4837 df-int 4877 df-iun 4923 df-disj 5036 df-br 5071 df-opab 5133 df-mpt 5154 df-tr 5188 df-id 5480 df-eprel 5486 df-po 5494 df-so 5495 df-fr 5535 df-se 5536 df-we 5537 df-xp 5586 df-rel 5587 df-cnv 5588 df-co 5589 df-dm 5590 df-rn 5591 df-res 5592 df-ima 5593 df-pred 6191 df-ord 6254 df-on 6255 df-lim 6256 df-suc 6257 df-iota 6376 df-fun 6420 df-fn 6421 df-f 6422 df-f1 6423 df-fo 6424 df-f1o 6425 df-fv 6426 df-isom 6427 df-riota 7212 df-ov 7258 df-oprab 7259 df-mpo 7260 df-of 7511 df-ofr 7512 df-om 7688 df-1st 7804 df-2nd 7805 df-frecs 8068 df-wrecs 8099 df-recs 8173 df-rdg 8212 df-1o 8267 df-2o 8268 df-er 8456 df-map 8575 df-pm 8576 df-en 8692 df-dom 8693 df-sdom 8694 df-fin 8695 df-sup 9131 df-inf 9132 df-oi 9199 df-dju 9590 df-card 9628 df-pnf 10942 df-mnf 10943 df-xr 10944 df-ltxr 10945 df-le 10946 df-sub 11137 df-neg 11138 df-div 11563 df-nn 11904 df-2 11966 df-3 11967 df-4 11968 df-n0 12164 df-z 12250 df-uz 12512 df-q 12618 df-rp 12660 df-xadd 12778 df-ioo 13012 df-ico 13014 df-icc 13015 df-fz 13169 df-fzo 13312 df-fl 13440 df-mod 13518 df-seq 13650 df-exp 13711 df-hash 13973 df-cj 14738 df-re 14739 df-im 14740 df-sqrt 14874 df-abs 14875 df-clim 15125 df-sum 15326 df-xmet 20503 df-met 20504 df-ovol 24533 df-vol 24534 df-mbf 24688 df-itg1 24689 df-itg2 24690 df-ibl 24691 df-itg 24692 df-0p 24739

This theorem is referenced by: itgge0 24880 itgless 24886 itgabs 24904 itgulm 25472 itgabsnc 35773 intlewftc 39997 wallispilem1 43496 fourierdlem47 43584 fourierdlem87 43624 etransclem23 43688

W3C validator