Theorem difelcarsg 34709

Description: The Caratheodory measurable sets are closed under complement. (Contributed by Thierry Arnoux, 17-May-2020.)

Hypotheses

Ref	Expression
carsgval.1	⊢ (𝜑 → 𝑂 ∈ 𝑉)
carsgval.2	⊢ (𝜑 → 𝑀:𝒫 𝑂⟶(0[,]+∞))
difelcarsg.1	⊢ (𝜑 → 𝐴 ∈ (toCaraSiga‘𝑀))

Assertion

Ref	Expression
difelcarsg	⊢ (𝜑 → (𝑂 ∖ 𝐴) ∈ (toCaraSiga‘𝑀))

Proof of Theorem difelcarsg

Dummy variable 𝑒 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		difssd 4090	. . 3 ⊢ (𝜑 → (𝑂 ∖ 𝐴) ⊆ 𝑂)
2		indif2 4233	. . . . . . . 8 ⊢ (𝑒 ∩ (𝑂 ∖ 𝐴)) = ((𝑒 ∩ 𝑂) ∖ 𝐴)
3		elpwi 4568	. . . . . . . . . . 11 ⊢ (𝑒 ∈ 𝒫 𝑂 → 𝑒 ⊆ 𝑂)
4	3	adantl 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → 𝑒 ⊆ 𝑂)
5		dfss2 3922	. . . . . . . . . 10 ⊢ (𝑒 ⊆ 𝑂 ↔ (𝑒 ∩ 𝑂) = 𝑒)
6	4, 5	sylib 221	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑒 ∩ 𝑂) = 𝑒)
7	6	difeq1d 4079	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → ((𝑒 ∩ 𝑂) ∖ 𝐴) = (𝑒 ∖ 𝐴))
8	2, 7	eqtrid 2809	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑒 ∩ (𝑂 ∖ 𝐴)) = (𝑒 ∖ 𝐴))
9	8	fveq2d 6885	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑀‘(𝑒 ∩ (𝑂 ∖ 𝐴))) = (𝑀‘(𝑒 ∖ 𝐴)))
10		difdif2 4248	. . . . . . . 8 ⊢ (𝑒 ∖ (𝑂 ∖ 𝐴)) = ((𝑒 ∖ 𝑂) ∪ (𝑒 ∩ 𝐴))
11		ssdif0 4320	. . . . . . . . . . 11 ⊢ (𝑒 ⊆ 𝑂 ↔ (𝑒 ∖ 𝑂) = ∅)
12	4, 11	sylib 221	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑒 ∖ 𝑂) = ∅)
13	12	uneq1d 4120	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → ((𝑒 ∖ 𝑂) ∪ (𝑒 ∩ 𝐴)) = (∅ ∪ (𝑒 ∩ 𝐴)))
14		uncom 4111	. . . . . . . . . 10 ⊢ ((𝑒 ∩ 𝐴) ∪ ∅) = (∅ ∪ (𝑒 ∩ 𝐴))
15		un0 4350	. . . . . . . . . 10 ⊢ ((𝑒 ∩ 𝐴) ∪ ∅) = (𝑒 ∩ 𝐴)
16	14, 15	eqtr3i 2787	. . . . . . . . 9 ⊢ (∅ ∪ (𝑒 ∩ 𝐴)) = (𝑒 ∩ 𝐴)
17	13, 16	eqtrdi 2813	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → ((𝑒 ∖ 𝑂) ∪ (𝑒 ∩ 𝐴)) = (𝑒 ∩ 𝐴))
18	10, 17	eqtrid 2809	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑒 ∖ (𝑂 ∖ 𝐴)) = (𝑒 ∩ 𝐴))
19	18	fveq2d 6885	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑀‘(𝑒 ∖ (𝑂 ∖ 𝐴))) = (𝑀‘(𝑒 ∩ 𝐴)))
20	9, 19	oveq12d 7430	. . . . 5 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → ((𝑀‘(𝑒 ∩ (𝑂 ∖ 𝐴))) +𝑒 (𝑀‘(𝑒 ∖ (𝑂 ∖ 𝐴)))) = ((𝑀‘(𝑒 ∖ 𝐴)) +𝑒 (𝑀‘(𝑒 ∩ 𝐴))))
21		iccssxr 13463	. . . . . . 7 ⊢ (0[,]+∞) ⊆ ℝ*
22		carsgval.2	. . . . . . . . 9 ⊢ (𝜑 → 𝑀:𝒫 𝑂⟶(0[,]+∞))
23	22	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → 𝑀:𝒫 𝑂⟶(0[,]+∞))
24		simpr 489	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → 𝑒 ∈ 𝒫 𝑂)
25	24	elpwdifcl 32883	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑒 ∖ 𝐴) ∈ 𝒫 𝑂)
26	23, 25	ffvelcdmd 7080	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑀‘(𝑒 ∖ 𝐴)) ∈ (0[,]+∞))
27	21, 26	sselid 3934	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑀‘(𝑒 ∖ 𝐴)) ∈ ℝ*)
28	24	elpwincl1 32882	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑒 ∩ 𝐴) ∈ 𝒫 𝑂)
29	23, 28	ffvelcdmd 7080	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑀‘(𝑒 ∩ 𝐴)) ∈ (0[,]+∞))
30	21, 29	sselid 3934	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → (𝑀‘(𝑒 ∩ 𝐴)) ∈ ℝ*)
31		xaddcom 13272	. . . . . 6 ⊢ (((𝑀‘(𝑒 ∖ 𝐴)) ∈ ℝ* ∧ (𝑀‘(𝑒 ∩ 𝐴)) ∈ ℝ*) → ((𝑀‘(𝑒 ∖ 𝐴)) +𝑒 (𝑀‘(𝑒 ∩ 𝐴))) = ((𝑀‘(𝑒 ∩ 𝐴)) +𝑒 (𝑀‘(𝑒 ∖ 𝐴))))
32	27, 30, 31	syl2anc 595	. . . . 5 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → ((𝑀‘(𝑒 ∖ 𝐴)) +𝑒 (𝑀‘(𝑒 ∩ 𝐴))) = ((𝑀‘(𝑒 ∩ 𝐴)) +𝑒 (𝑀‘(𝑒 ∖ 𝐴))))
33		difelcarsg.1	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ (toCaraSiga‘𝑀))
34		carsgval.1	. . . . . . . . 9 ⊢ (𝜑 → 𝑂 ∈ 𝑉)
35	34, 22	elcarsg 34704	. . . . . . . 8 ⊢ (𝜑 → (𝐴 ∈ (toCaraSiga‘𝑀) ↔ (𝐴 ⊆ 𝑂 ∧ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝐴)) +𝑒 (𝑀‘(𝑒 ∖ 𝐴))) = (𝑀‘𝑒))))
36	33, 35	mpbid 235	. . . . . . 7 ⊢ (𝜑 → (𝐴 ⊆ 𝑂 ∧ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝐴)) +𝑒 (𝑀‘(𝑒 ∖ 𝐴))) = (𝑀‘𝑒)))
37	36	simprd 500	. . . . . 6 ⊢ (𝜑 → ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝐴)) +𝑒 (𝑀‘(𝑒 ∖ 𝐴))) = (𝑀‘𝑒))
38	37	r19.21bi 3256	. . . . 5 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → ((𝑀‘(𝑒 ∩ 𝐴)) +𝑒 (𝑀‘(𝑒 ∖ 𝐴))) = (𝑀‘𝑒))
39	20, 32, 38	3eqtrd 2801	. . . 4 ⊢ ((𝜑 ∧ 𝑒 ∈ 𝒫 𝑂) → ((𝑀‘(𝑒 ∩ (𝑂 ∖ 𝐴))) +𝑒 (𝑀‘(𝑒 ∖ (𝑂 ∖ 𝐴)))) = (𝑀‘𝑒))
40	39	ralrimiva 3156	. . 3 ⊢ (𝜑 → ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ (𝑂 ∖ 𝐴))) +𝑒 (𝑀‘(𝑒 ∖ (𝑂 ∖ 𝐴)))) = (𝑀‘𝑒))
41	1, 40	jca 520	. 2 ⊢ (𝜑 → ((𝑂 ∖ 𝐴) ⊆ 𝑂 ∧ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ (𝑂 ∖ 𝐴))) +𝑒 (𝑀‘(𝑒 ∖ (𝑂 ∖ 𝐴)))) = (𝑀‘𝑒)))
42	34, 22	elcarsg 34704	. 2 ⊢ (𝜑 → ((𝑂 ∖ 𝐴) ∈ (toCaraSiga‘𝑀) ↔ ((𝑂 ∖ 𝐴) ⊆ 𝑂 ∧ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ (𝑂 ∖ 𝐴))) +𝑒 (𝑀‘(𝑒 ∖ (𝑂 ∖ 𝐴)))) = (𝑀‘𝑒))))
43	41, 42	mpbird 260	1 ⊢ (𝜑 → (𝑂 ∖ 𝐴) ∈ (toCaraSiga‘𝑀))

This proof depends on syntax axioms:   → wi 4   ∧ wa 400   = wceq 1569   ∈ wcel 2142  ∀wral 3078   ∖ cdif 3901   ∪ cun 3902   ∩ cin 3903   ⊆ wss 3904  ∅c0 4285  𝒫 cpw 4561  ⟶wf 6532  ‘cfv 6536  (class class class)co 7412  0cc0 11106  +∞cpnf 11246  ℝ^*cxr 11248   +_𝑒 cxad 13141  [,]cicc 13381  toCaraSigaccarsg 34700

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1824  ax-4 1838  ax-5 1939  ax-6 1996  ax-7 2037  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5335  ax-pr 5403  ax-un 7734  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1103  df-3an 1104  df-tru 1572  df-fal 1582  df-ex 1809  df-nf 1813  df-sb 2096  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3064  df-ral 3079  df-rex 3089  df-reu 3369  df-rab 3416  df-v 3456  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-iun 4957  df-br 5109  df-opab 5173  df-mpt 5192  df-id 5555  df-po 5568  df-so 5569  df-xp 5666  df-rel 5667  df-cnv 5668  df-co 5669  df-dm 5670  df-rn 5671  df-res 5672  df-ima 5673  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7415  df-oprab 7416  df-mpo 7417  df-1st 7984  df-2nd 7985  df-er 8692  df-en 8942  df-dom 8943  df-sdom 8944  df-pnf 11251  df-mnf 11252  df-xr 11253  df-ltxr 11254  df-xadd 13144  df-icc 13385  df-carsg 34701

This theorem is used by:  unelcarsg  34711  difelcarsg2  34712  fiunelcarsg  34715  carsgsiga  34721