Theorem caragendifcl 46519

Description: The Caratheodory's construction is closed under the complement operation. Second part of Step (b) in the proof of Theorem 113C of [Fremlin1] p. 19. (Contributed by Glauco Siliprandi, 17-Aug-2020.)

Hypotheses

Ref	Expression
caragendifcl.o	⊢ (𝜑 → 𝑂 ∈ OutMeas)
caragendifcl.s	⊢ 𝑆 = (CaraGen‘𝑂)
caragendifcl.e	⊢ (𝜑 → 𝐸 ∈ 𝑆)

Assertion

Ref	Expression
caragendifcl	⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝑆)

Proof of Theorem caragendifcl

Dummy variables 𝑎 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		caragendifcl.o	. 2 ⊢ (𝜑 → 𝑂 ∈ OutMeas)
2		eqid 2730	. 2 ⊢ ∪ dom 𝑂 = ∪ dom 𝑂
3		caragendifcl.s	. 2 ⊢ 𝑆 = (CaraGen‘𝑂)
4	3	caragenss 46509	. . . . . 6 ⊢ (𝑂 ∈ OutMeas → 𝑆 ⊆ dom 𝑂)
5	1, 4	syl 17	. . . . 5 ⊢ (𝜑 → 𝑆 ⊆ dom 𝑂)
6	5	unissd 4884	. . . 4 ⊢ (𝜑 → ∪ 𝑆 ⊆ ∪ dom 𝑂)
7	6	ssdifssd 4113	. . 3 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂)
8	3	fvexi 6875	. . . . . . 7 ⊢ 𝑆 ∈ V
9	8	uniex 7720	. . . . . 6 ⊢ ∪ 𝑆 ∈ V
10		difexg 5287	. . . . . 6 ⊢ (∪ 𝑆 ∈ V → (∪ 𝑆 ∖ 𝐸) ∈ V)
11	9, 10	ax-mp 5	. . . . 5 ⊢ (∪ 𝑆 ∖ 𝐸) ∈ V
12	11	a1i 11	. . . 4 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ V)
13		elpwg 4569	. . . 4 ⊢ ((∪ 𝑆 ∖ 𝐸) ∈ V → ((∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂 ↔ (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂))
14	12, 13	syl 17	. . 3 ⊢ (𝜑 → ((∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂 ↔ (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂))
15	7, 14	mpbird 257	. 2 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂)
16		elpwi 4573	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝒫 ∪ dom 𝑂 → 𝑎 ⊆ ∪ dom 𝑂)
17	16	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑎 ⊆ ∪ dom 𝑂)
18	1, 3	caragenuni 46516	. . . . . . . . . 10 ⊢ (𝜑 → ∪ 𝑆 = ∪ dom 𝑂)
19	18	eqcomd 2736	. . . . . . . . 9 ⊢ (𝜑 → ∪ dom 𝑂 = ∪ 𝑆)
20	19	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ∪ dom 𝑂 = ∪ 𝑆)
21	17, 20	sseqtrd 3986	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑎 ⊆ ∪ 𝑆)
22		difin2 4267	. . . . . . 7 ⊢ (𝑎 ⊆ ∪ 𝑆 → (𝑎 ∖ 𝐸) = ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎))
23	21, 22	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) = ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎))
24		incom 4175	. . . . . . 7 ⊢ ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎) = (𝑎 ∩ (∪ 𝑆 ∖ 𝐸))
25	24	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎) = (𝑎 ∩ (∪ 𝑆 ∖ 𝐸)))
26	23, 25	eqtr2d 2766	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ (∪ 𝑆 ∖ 𝐸)) = (𝑎 ∖ 𝐸))
27	26	fveq2d 6865	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) = (𝑂‘(𝑎 ∖ 𝐸)))
28	21	ssdifd 4111	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) ⊆ (∪ 𝑆 ∖ 𝐸))
29		sscon 4109	. . . . . . . 8 ⊢ ((𝑎 ∖ 𝐸) ⊆ (∪ 𝑆 ∖ 𝐸) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∖ (𝑎 ∖ 𝐸)))
30	28, 29	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∖ (𝑎 ∖ 𝐸)))
31		dfin4 4244	. . . . . . . . 9 ⊢ (𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸))
32	31	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸)))
33		eqimss2 4009	. . . . . . . 8 ⊢ ((𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸)) → (𝑎 ∖ (𝑎 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
34	32, 33	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (𝑎 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
35	30, 34	sstrd 3960	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
36		elinel1 4167	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ 𝑎)
37		elinel2 4168	. . . . . . . . . 10 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ 𝐸)
38		elndif 4099	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐸 → ¬ 𝑥 ∈ (∪ 𝑆 ∖ 𝐸))
39	37, 38	syl 17	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → ¬ 𝑥 ∈ (∪ 𝑆 ∖ 𝐸))
40	36, 39	eldifd 3928	. . . . . . . 8 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))
41	40	ssriv 3953	. . . . . . 7 ⊢ (𝑎 ∩ 𝐸) ⊆ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸))
42	41	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) ⊆ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))
43	35, 42	eqssd 3967	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) = (𝑎 ∩ 𝐸))
44	43	fveq2d 6865	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸))) = (𝑂‘(𝑎 ∩ 𝐸)))
45	27, 44	oveq12d 7408	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) +𝑒 (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))) = ((𝑂‘(𝑎 ∖ 𝐸)) +𝑒 (𝑂‘(𝑎 ∩ 𝐸))))
46		iccssxr 13398	. . . . 5 ⊢ (0[,]+∞) ⊆ ℝ*
47	1	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑂 ∈ OutMeas)
48	17	ssdifssd 4113	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) ⊆ ∪ dom 𝑂)
49	47, 2, 48	omecl 46508	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ 𝐸)) ∈ (0[,]+∞))
50	46, 49	sselid 3947	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ 𝐸)) ∈ ℝ*)
51		ssinss1 4212	. . . . . . . 8 ⊢ (𝑎 ⊆ ∪ dom 𝑂 → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
52	16, 51	syl 17	. . . . . . 7 ⊢ (𝑎 ∈ 𝒫 ∪ dom 𝑂 → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
53	52	adantl 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
54	47, 2, 53	omecl 46508	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ 𝐸)) ∈ (0[,]+∞))
55	46, 54	sselid 3947	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ 𝐸)) ∈ ℝ*)
56	50, 55	xaddcomd 45327	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∖ 𝐸)) +𝑒 (𝑂‘(𝑎 ∩ 𝐸))) = ((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))))
57		caragendifcl.e	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ 𝑆)
58	1, 3	caragenel 46500	. . . . . 6 ⊢ (𝜑 → (𝐸 ∈ 𝑆 ↔ (𝐸 ∈ 𝒫 ∪ dom 𝑂 ∧ ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))))
59	57, 58	mpbid 232	. . . . 5 ⊢ (𝜑 → (𝐸 ∈ 𝒫 ∪ dom 𝑂 ∧ ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎)))
60	59	simprd 495	. . . 4 ⊢ (𝜑 → ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))
61	60	r19.21bi 3230	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))
62	45, 56, 61	3eqtrd 2769	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) +𝑒 (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))) = (𝑂‘𝑎))
63	1, 2, 3, 15, 62	carageneld 46507	1 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝑆)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ∀wral 3045  Vcvv 3450   ∖ cdif 3914   ∩ cin 3916   ⊆ wss 3917  𝒫 cpw 4566  ∪ cuni 4874  dom cdm 5641  ‘cfv 6514  (class class class)co 7390  0cc0 11075  +∞cpnf 11212  ℝ^*cxr 11214   +_𝑒 cxad 13077  [,]cicc 13316  OutMeascome 46494  CaraGenccaragen 46496

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-po 5549  df-so 5550  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-ov 7393  df-oprab 7394  df-mpo 7395  df-1st 7971  df-2nd 7972  df-er 8674  df-en 8922  df-dom 8923  df-sdom 8924  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-xadd 13080  df-icc 13320  df-ome 46495  df-caragen 46497

This theorem is referenced by:  caragensal  46530