Theorem caragendifcl 42360

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 2797	. 2 ⊢ ∪ dom 𝑂 = ∪ dom 𝑂
3		caragendifcl.s	. 2 ⊢ 𝑆 = (CaraGen‘𝑂)
4	3	caragenss 42350	. . . . . 6 ⊢ (𝑂 ∈ OutMeas → 𝑆 ⊆ dom 𝑂)
5	1, 4	syl 17	. . . . 5 ⊢ (𝜑 → 𝑆 ⊆ dom 𝑂)
6	5	unissd 4775	. . . 4 ⊢ (𝜑 → ∪ 𝑆 ⊆ ∪ dom 𝑂)
7	6	ssdifssd 4046	. . 3 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂)
8	3	fvexi 6559	. . . . . . 7 ⊢ 𝑆 ∈ V
9	8	uniex 7330	. . . . . 6 ⊢ ∪ 𝑆 ∈ V
10		difexg 5129	. . . . . 6 ⊢ (∪ 𝑆 ∈ V → (∪ 𝑆 ∖ 𝐸) ∈ V)
11	9, 10	ax-mp 5	. . . . 5 ⊢ (∪ 𝑆 ∖ 𝐸) ∈ V
12	11	a1i 11	. . . 4 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ V)
13		elpwg 4467	. . . 4 ⊢ ((∪ 𝑆 ∖ 𝐸) ∈ V → ((∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂 ↔ (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂))
14	12, 13	syl 17	. . 3 ⊢ (𝜑 → ((∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂 ↔ (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂))
15	7, 14	mpbird 258	. 2 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂)
16		elpwi 4469	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝒫 ∪ dom 𝑂 → 𝑎 ⊆ ∪ dom 𝑂)
17	16	adantl 482	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑎 ⊆ ∪ dom 𝑂)
18	1, 3	caragenuni 42357	. . . . . . . . . 10 ⊢ (𝜑 → ∪ 𝑆 = ∪ dom 𝑂)
19	18	eqcomd 2803	. . . . . . . . 9 ⊢ (𝜑 → ∪ dom 𝑂 = ∪ 𝑆)
20	19	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ∪ dom 𝑂 = ∪ 𝑆)
21	17, 20	sseqtrd 3934	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑎 ⊆ ∪ 𝑆)
22		difin2 4192	. . . . . . 7 ⊢ (𝑎 ⊆ ∪ 𝑆 → (𝑎 ∖ 𝐸) = ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎))
23	21, 22	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) = ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎))
24		incom 4105	. . . . . . 7 ⊢ ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎) = (𝑎 ∩ (∪ 𝑆 ∖ 𝐸))
25	24	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎) = (𝑎 ∩ (∪ 𝑆 ∖ 𝐸)))
26	23, 25	eqtr2d 2834	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ (∪ 𝑆 ∖ 𝐸)) = (𝑎 ∖ 𝐸))
27	26	fveq2d 6549	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) = (𝑂‘(𝑎 ∖ 𝐸)))
28	21	ssdifd 4044	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) ⊆ (∪ 𝑆 ∖ 𝐸))
29		sscon 4042	. . . . . . . 8 ⊢ ((𝑎 ∖ 𝐸) ⊆ (∪ 𝑆 ∖ 𝐸) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∖ (𝑎 ∖ 𝐸)))
30	28, 29	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∖ (𝑎 ∖ 𝐸)))
31		dfin4 4170	. . . . . . . . 9 ⊢ (𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸))
32	31	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸)))
33		eqimss2 3951	. . . . . . . 8 ⊢ ((𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸)) → (𝑎 ∖ (𝑎 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
34	32, 33	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (𝑎 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
35	30, 34	sstrd 3905	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
36		elinel1 4099	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ 𝑎)
37		elinel2 4100	. . . . . . . . . 10 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ 𝐸)
38		elndif 4032	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐸 → ¬ 𝑥 ∈ (∪ 𝑆 ∖ 𝐸))
39	37, 38	syl 17	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → ¬ 𝑥 ∈ (∪ 𝑆 ∖ 𝐸))
40	36, 39	eldifd 3876	. . . . . . . 8 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))
41	40	ssriv 3899	. . . . . . 7 ⊢ (𝑎 ∩ 𝐸) ⊆ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸))
42	41	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) ⊆ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))
43	35, 42	eqssd 3912	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) = (𝑎 ∩ 𝐸))
44	43	fveq2d 6549	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸))) = (𝑂‘(𝑎 ∩ 𝐸)))
45	27, 44	oveq12d 7041	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) +𝑒 (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))) = ((𝑂‘(𝑎 ∖ 𝐸)) +𝑒 (𝑂‘(𝑎 ∩ 𝐸))))
46		iccssxr 12673	. . . . 5 ⊢ (0[,]+∞) ⊆ ℝ*
47	1	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑂 ∈ OutMeas)
48	17	ssdifssd 4046	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) ⊆ ∪ dom 𝑂)
49	47, 2, 48	omecl 42349	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ 𝐸)) ∈ (0[,]+∞))
50	46, 49	sseldi 3893	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ 𝐸)) ∈ ℝ*)
51		ssinss1 4140	. . . . . . . 8 ⊢ (𝑎 ⊆ ∪ dom 𝑂 → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
52	16, 51	syl 17	. . . . . . 7 ⊢ (𝑎 ∈ 𝒫 ∪ dom 𝑂 → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
53	52	adantl 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
54	47, 2, 53	omecl 42349	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ 𝐸)) ∈ (0[,]+∞))
55	46, 54	sseldi 3893	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ 𝐸)) ∈ ℝ*)
56	50, 55	xaddcomd 41154	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∖ 𝐸)) +𝑒 (𝑂‘(𝑎 ∩ 𝐸))) = ((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))))
57		caragendifcl.e	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ 𝑆)
58	1, 3	caragenel 42341	. . . . . 6 ⊢ (𝜑 → (𝐸 ∈ 𝑆 ↔ (𝐸 ∈ 𝒫 ∪ dom 𝑂 ∧ ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))))
59	57, 58	mpbid 233	. . . . 5 ⊢ (𝜑 → (𝐸 ∈ 𝒫 ∪ dom 𝑂 ∧ ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎)))
60	59	simprd 496	. . . 4 ⊢ (𝜑 → ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))
61	60	r19.21bi 3177	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))
62	45, 56, 61	3eqtrd 2837	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) +𝑒 (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))) = (𝑂‘𝑎))
63	1, 2, 3, 15, 62	carageneld 42348	1 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝑆)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1525   ∈ wcel 2083  ∀wral 3107  Vcvv 3440   ∖ cdif 3862   ∩ cin 3864   ⊆ wss 3865  𝒫 cpw 4459  ∪ cuni 4751  dom cdm 5450  ‘cfv 6232  (class class class)co 7023  0cc0 10390  +∞cpnf 10525  ℝ^*cxr 10527   +_𝑒 cxad 12359  [,]cicc 12595  OutMeascome 42335  CaraGenccaragen 42337

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1781  ax-4 1795  ax-5 1892  ax-6 1951  ax-7 1996  ax-8 2085  ax-9 2093  ax-10 2114  ax-11 2128  ax-12 2143  ax-13 2346  ax-ext 2771  ax-sep 5101  ax-nul 5108  ax-pow 5164  ax-pr 5228  ax-un 7326  ax-cnex 10446  ax-resscn 10447  ax-1cn 10448  ax-icn 10449  ax-addcl 10450  ax-addrcl 10451  ax-mulcl 10452  ax-mulrcl 10453  ax-mulcom 10454  ax-addass 10455  ax-mulass 10456  ax-distr 10457  ax-i2m1 10458  ax-1ne0 10459  ax-1rid 10460  ax-rnegex 10461  ax-rrecex 10462  ax-cnre 10463  ax-pre-lttri 10464  ax-pre-lttrn 10465  ax-pre-ltadd 10466

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1528  df-ex 1766  df-nf 1770  df-sb 2045  df-mo 2578  df-eu 2614  df-clab 2778  df-cleq 2790  df-clel 2865  df-nfc 2937  df-ne 2987  df-nel 3093  df-ral 3112  df-rex 3113  df-rab 3116  df-v 3442  df-sbc 3712  df-csb 3818  df-dif 3868  df-un 3870  df-in 3872  df-ss 3880  df-nul 4218  df-if 4388  df-pw 4461  df-sn 4479  df-pr 4481  df-op 4485  df-uni 4752  df-iun 4833  df-br 4969  df-opab 5031  df-mpt 5048  df-id 5355  df-po 5369  df-so 5370  df-xp 5456  df-rel 5457  df-cnv 5458  df-co 5459  df-dm 5460  df-rn 5461  df-res 5462  df-ima 5463  df-iota 6196  df-fun 6234  df-fn 6235  df-f 6236  df-f1 6237  df-fo 6238  df-f1o 6239  df-fv 6240  df-ov 7026  df-oprab 7027  df-mpo 7028  df-1st 7552  df-2nd 7553  df-er 8146  df-en 8365  df-dom 8366  df-sdom 8367  df-pnf 10530  df-mnf 10531  df-xr 10532  df-ltxr 10533  df-xadd 12362  df-icc 12599  df-ome 42336  df-caragen 42338

This theorem is referenced by:  caragensal  42371