Theorem volico 46169

Description: The measure of left-closed, right-open interval. (Contributed by Glauco Siliprandi, 11-Oct-2020.)

Assertion

Ref	Expression
volico	⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (vol‘(𝐴[,)𝐵)) = if(𝐴 < 𝐵, (𝐵 − 𝐴), 0))

Proof of Theorem volico

Step	Hyp	Ref	Expression
1		rexr 11176	. . . . . . . . 9 ⊢ (𝐴 ∈ ℝ → 𝐴 ∈ ℝ*)
2	1	3ad2ant1 1133	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → 𝐴 ∈ ℝ*)
3		rexr 11176	. . . . . . . . 9 ⊢ (𝐵 ∈ ℝ → 𝐵 ∈ ℝ*)
4	3	3ad2ant2 1134	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → 𝐵 ∈ ℝ*)
5		simp3 1138	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → 𝐴 < 𝐵)
6		snunioo1 45700	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ* ∧ 𝐴 < 𝐵) → ((𝐴(,)𝐵) ∪ {𝐴}) = (𝐴[,)𝐵))
7	2, 4, 5, 6	syl3anc 1373	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → ((𝐴(,)𝐵) ∪ {𝐴}) = (𝐴[,)𝐵))
8	7	eqcomd 2740	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (𝐴[,)𝐵) = ((𝐴(,)𝐵) ∪ {𝐴}))
9	8	fveq2d 6836	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (vol‘(𝐴[,)𝐵)) = (vol‘((𝐴(,)𝐵) ∪ {𝐴})))
10		ioombl 25520	. . . . . . 7 ⊢ (𝐴(,)𝐵) ∈ dom vol
11	10	a1i 11	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (𝐴(,)𝐵) ∈ dom vol)
12		snmbl 46149	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → {𝐴} ∈ dom vol)
13	12	3ad2ant1 1133	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → {𝐴} ∈ dom vol)
14		lbioo 13290	. . . . . . . 8 ⊢ ¬ 𝐴 ∈ (𝐴(,)𝐵)
15		disjsn 4666	. . . . . . . 8 ⊢ (((𝐴(,)𝐵) ∩ {𝐴}) = ∅ ↔ ¬ 𝐴 ∈ (𝐴(,)𝐵))
16	14, 15	mpbir 231	. . . . . . 7 ⊢ ((𝐴(,)𝐵) ∩ {𝐴}) = ∅
17	16	a1i 11	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → ((𝐴(,)𝐵) ∩ {𝐴}) = ∅)
18		ioovolcl 25525	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (vol‘(𝐴(,)𝐵)) ∈ ℝ)
19	18	3adant3 1132	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (vol‘(𝐴(,)𝐵)) ∈ ℝ)
20		volsn 46153	. . . . . . . 8 ⊢ (𝐴 ∈ ℝ → (vol‘{𝐴}) = 0)
21		0red 11133	. . . . . . . 8 ⊢ (𝐴 ∈ ℝ → 0 ∈ ℝ)
22	20, 21	eqeltrd 2834	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → (vol‘{𝐴}) ∈ ℝ)
23	22	3ad2ant1 1133	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (vol‘{𝐴}) ∈ ℝ)
24		volun 25500	. . . . . 6 ⊢ ((((𝐴(,)𝐵) ∈ dom vol ∧ {𝐴} ∈ dom vol ∧ ((𝐴(,)𝐵) ∩ {𝐴}) = ∅) ∧ ((vol‘(𝐴(,)𝐵)) ∈ ℝ ∧ (vol‘{𝐴}) ∈ ℝ)) → (vol‘((𝐴(,)𝐵) ∪ {𝐴})) = ((vol‘(𝐴(,)𝐵)) + (vol‘{𝐴})))
25	11, 13, 17, 19, 23, 24	syl32anc 1380	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (vol‘((𝐴(,)𝐵) ∪ {𝐴})) = ((vol‘(𝐴(,)𝐵)) + (vol‘{𝐴})))
26		simp1 1136	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → 𝐴 ∈ ℝ)
27		simp2 1137	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → 𝐵 ∈ ℝ)
28	26, 27, 5	ltled 11279	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → 𝐴 ≤ 𝐵)
29		volioo 25524	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 ≤ 𝐵) → (vol‘(𝐴(,)𝐵)) = (𝐵 − 𝐴))
30	26, 27, 28, 29	syl3anc 1373	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (vol‘(𝐴(,)𝐵)) = (𝐵 − 𝐴))
31	20	3ad2ant1 1133	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (vol‘{𝐴}) = 0)
32	30, 31	oveq12d 7374	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → ((vol‘(𝐴(,)𝐵)) + (vol‘{𝐴})) = ((𝐵 − 𝐴) + 0))
33	27	recnd 11158	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → 𝐵 ∈ ℂ)
34		recn 11114	. . . . . . . . 9 ⊢ (𝐴 ∈ ℝ → 𝐴 ∈ ℂ)
35	34	3ad2ant1 1133	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → 𝐴 ∈ ℂ)
36	33, 35	subcld 11490	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (𝐵 − 𝐴) ∈ ℂ)
37	36	addridd 11331	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → ((𝐵 − 𝐴) + 0) = (𝐵 − 𝐴))
38	32, 37	eqtrd 2769	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → ((vol‘(𝐴(,)𝐵)) + (vol‘{𝐴})) = (𝐵 − 𝐴))
39	9, 25, 38	3eqtrd 2773	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵) → (vol‘(𝐴[,)𝐵)) = (𝐵 − 𝐴))
40	39	3expa 1118	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐴 < 𝐵) → (vol‘(𝐴[,)𝐵)) = (𝐵 − 𝐴))
41		iftrue 4483	. . . 4 ⊢ (𝐴 < 𝐵 → if(𝐴 < 𝐵, (𝐵 − 𝐴), 0) = (𝐵 − 𝐴))
42	41	adantl 481	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐴 < 𝐵) → if(𝐴 < 𝐵, (𝐵 − 𝐴), 0) = (𝐵 − 𝐴))
43	40, 42	eqtr4d 2772	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐴 < 𝐵) → (vol‘(𝐴[,)𝐵)) = if(𝐴 < 𝐵, (𝐵 − 𝐴), 0))
44		simpl 482	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ))
45		simpr 484	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → ¬ 𝐴 < 𝐵)
46	44	simprd 495	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → 𝐵 ∈ ℝ)
47	44	simpld 494	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → 𝐴 ∈ ℝ)
48	46, 47	lenltd 11277	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → (𝐵 ≤ 𝐴 ↔ ¬ 𝐴 < 𝐵))
49	45, 48	mpbird 257	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → 𝐵 ≤ 𝐴)
50		simpr 484	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐵 ≤ 𝐴) → 𝐵 ≤ 𝐴)
51	1	ad2antrr 726	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐵 ≤ 𝐴) → 𝐴 ∈ ℝ*)
52	3	ad2antlr 727	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐵 ≤ 𝐴) → 𝐵 ∈ ℝ*)
53		ico0 13305	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐴[,)𝐵) = ∅ ↔ 𝐵 ≤ 𝐴))
54	51, 52, 53	syl2anc 584	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐵 ≤ 𝐴) → ((𝐴[,)𝐵) = ∅ ↔ 𝐵 ≤ 𝐴))
55	50, 54	mpbird 257	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐵 ≤ 𝐴) → (𝐴[,)𝐵) = ∅)
56	55	fveq2d 6836	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐵 ≤ 𝐴) → (vol‘(𝐴[,)𝐵)) = (vol‘∅))
57		vol0 46145	. . . . . 6 ⊢ (vol‘∅) = 0
58	57	a1i 11	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐵 ≤ 𝐴) → (vol‘∅) = 0)
59	56, 58	eqtrd 2769	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 𝐵 ≤ 𝐴) → (vol‘(𝐴[,)𝐵)) = 0)
60	44, 49, 59	syl2anc 584	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → (vol‘(𝐴[,)𝐵)) = 0)
61		iffalse 4486	. . . 4 ⊢ (¬ 𝐴 < 𝐵 → if(𝐴 < 𝐵, (𝐵 − 𝐴), 0) = 0)
62	61	adantl 481	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → if(𝐴 < 𝐵, (𝐵 − 𝐴), 0) = 0)
63	60, 62	eqtr4d 2772	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ ¬ 𝐴 < 𝐵) → (vol‘(𝐴[,)𝐵)) = if(𝐴 < 𝐵, (𝐵 − 𝐴), 0))
64	43, 63	pm2.61dan 812	1 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (vol‘(𝐴[,)𝐵)) = if(𝐴 < 𝐵, (𝐵 − 𝐴), 0))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113   ∪ cun 3897   ∩ cin 3898  ∅c0 4283  ifcif 4477  {csn 4578   class class class wbr 5096  dom cdm 5622  ‘cfv 6490  (class class class)co 7356  ℂcc 11022  ℝcr 11023  0cc0 11024   + caddc 11027  ℝ^*cxr 11163   < clt 11164   ≤ cle 11165   − cmin 11362  (,)cioo 13259  [,)cico 13261  volcvol 25418

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-inf2 9548  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101  ax-pre-sup 11102

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8633  df-map 8763  df-pm 8764  df-en 8882  df-dom 8883  df-sdom 8884  df-fin 8885  df-fi 9312  df-sup 9343  df-inf 9344  df-oi 9413  df-dju 9811  df-card 9849  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-div 11793  df-nn 12144  df-2 12206  df-3 12207  df-n0 12400  df-z 12487  df-uz 12750  df-q 12860  df-rp 12904  df-xneg 13024  df-xadd 13025  df-xmul 13026  df-ioo 13263  df-ico 13265  df-icc 13266  df-fz 13422  df-fzo 13569  df-fl 13710  df-seq 13923  df-exp 13983  df-hash 14252  df-cj 15020  df-re 15021  df-im 15022  df-sqrt 15156  df-abs 15157  df-clim 15409  df-rlim 15410  df-sum 15608  df-rest 17340  df-topgen 17361  df-psmet 21299  df-xmet 21300  df-met 21301  df-bl 21302  df-mopn 21303  df-top 22836  df-topon 22853  df-bases 22888  df-cmp 23329  df-ovol 25419  df-vol 25420

This theorem is referenced by:  sublevolico  46170  voliooico  46178  voliccico  46185  volicorecl  46732  hoiprodcl  46733  hoicvrrex  46742  volicon0  46761  hoiprodcl3  46766  volicore  46767  hoidmvcl  46768  hoidmvval0  46773  hoidmv1lelem2  46778  hoidmv1le  46780  hoidmvlelem2  46782  hoidmvlelem3  46783  hoidmvlelem4  46784  hspmbllem1  46812  volico2  46827  ovolval2lem  46829  vonioolem1  46866  vonioo  46868  vonicclem1  46869