Theorem caragendifcl 47523

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 2761	. 2 ⊢ ∪ dom 𝑂 = ∪ dom 𝑂
3		caragendifcl.s	. 2 ⊢ 𝑆 = (CaraGen‘𝑂)
4	3	caragenss 47513	. . . . . 6 ⊢ (𝑂 ∈ OutMeas → 𝑆 ⊆ dom 𝑂)
5	1, 4	syl 18	. . . . 5 ⊢ (𝜑 → 𝑆 ⊆ dom 𝑂)
6	5	unissd 4877	. . . 4 ⊢ (𝜑 → ∪ 𝑆 ⊆ ∪ dom 𝑂)
7	6	ssdifssd 4094	. . 3 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂)
8	3	fvexi 6899	. . . . . . 7 ⊢ 𝑆 ∈ V
9	8	uniex 7758	. . . . . 6 ⊢ ∪ 𝑆 ∈ V
10		difexg 5291	. . . . . 6 ⊢ (∪ 𝑆 ∈ V → (∪ 𝑆 ∖ 𝐸) ∈ V)
11	9, 10	ax-mp 5	. . . . 5 ⊢ (∪ 𝑆 ∖ 𝐸) ∈ V
12	11	a1i 11	. . . 4 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ V)
13		elpwg 4560	. . . 4 ⊢ ((∪ 𝑆 ∖ 𝐸) ∈ V → ((∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂 ↔ (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂))
14	12, 13	syl 18	. . 3 ⊢ (𝜑 → ((∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂 ↔ (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂))
15	7, 14	mpbird 260	. 2 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂)
16		elpwi 4564	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝒫 ∪ dom 𝑂 → 𝑎 ⊆ ∪ dom 𝑂)
17	16	adantl 487	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑎 ⊆ ∪ dom 𝑂)
18	1, 3	caragenuni 47520	. . . . . . . . . 10 ⊢ (𝜑 → ∪ 𝑆 = ∪ dom 𝑂)
19	18	eqcomd 2767	. . . . . . . . 9 ⊢ (𝜑 → ∪ dom 𝑂 = ∪ 𝑆)
20	19	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ∪ dom 𝑂 = ∪ 𝑆)
21	17, 20	sseqtrd 3967	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑎 ⊆ ∪ 𝑆)
22		difin2 4247	. . . . . . 7 ⊢ (𝑎 ⊆ ∪ 𝑆 → (𝑎 ∖ 𝐸) = ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎))
23	21, 22	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) = ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎))
24		incom 4155	. . . . . . 7 ⊢ ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎) = (𝑎 ∩ (∪ 𝑆 ∖ 𝐸))
25	24	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎) = (𝑎 ∩ (∪ 𝑆 ∖ 𝐸)))
26	23, 25	eqtr2d 2797	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ (∪ 𝑆 ∖ 𝐸)) = (𝑎 ∖ 𝐸))
27	26	fveq2d 6889	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) = (𝑂‘(𝑎 ∖ 𝐸)))
28	21	ssdifd 4092	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) ⊆ (∪ 𝑆 ∖ 𝐸))
29		sscon 4090	. . . . . . . 8 ⊢ ((𝑎 ∖ 𝐸) ⊆ (∪ 𝑆 ∖ 𝐸) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∖ (𝑎 ∖ 𝐸)))
30	28, 29	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∖ (𝑎 ∖ 𝐸)))
31		dfin4 4224	. . . . . . . . 9 ⊢ (𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸))
32	31	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸)))
33		eqimss2 3990	. . . . . . . 8 ⊢ ((𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸)) → (𝑎 ∖ (𝑎 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
34	32, 33	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (𝑎 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
35	30, 34	sstrd 3941	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
36		elinel1 4147	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ 𝑎)
37		elinel2 4148	. . . . . . . . . 10 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ 𝐸)
38		elndif 4080	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐸 → ¬ 𝑥 ∈ (∪ 𝑆 ∖ 𝐸))
39	37, 38	syl 18	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → ¬ 𝑥 ∈ (∪ 𝑆 ∖ 𝐸))
40	36, 39	eldifd 3910	. . . . . . . 8 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))
41	40	ssriv 3935	. . . . . . 7 ⊢ (𝑎 ∩ 𝐸) ⊆ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸))
42	41	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) ⊆ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))
43	35, 42	eqssd 3948	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) = (𝑎 ∩ 𝐸))
44	43	fveq2d 6889	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸))) = (𝑂‘(𝑎 ∩ 𝐸)))
45	27, 44	oveq12d 7438	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) +𝑒 (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))) = ((𝑂‘(𝑎 ∖ 𝐸)) +𝑒 (𝑂‘(𝑎 ∩ 𝐸))))
46		iccssxr 13561	. . . . 5 ⊢ (0[,]+∞) ⊆ ℝ*
47	1	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑂 ∈ OutMeas)
48	17	ssdifssd 4094	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) ⊆ ∪ dom 𝑂)
49	47, 2, 48	omecl 47512	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ 𝐸)) ∈ (0[,]+∞))
50	46, 49	sselid 3929	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ 𝐸)) ∈ ℝ*)
51		ssinss1 4191	. . . . . . . 8 ⊢ (𝑎 ⊆ ∪ dom 𝑂 → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
52	16, 51	syl 18	. . . . . . 7 ⊢ (𝑎 ∈ 𝒫 ∪ dom 𝑂 → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
53	52	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
54	47, 2, 53	omecl 47512	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ 𝐸)) ∈ (0[,]+∞))
55	46, 54	sselid 3929	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ 𝐸)) ∈ ℝ*)
56	50, 55	xaddcomd 46335	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∖ 𝐸)) +𝑒 (𝑂‘(𝑎 ∩ 𝐸))) = ((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))))
57		caragendifcl.e	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ 𝑆)
58	1, 3	caragenel 47504	. . . . . 6 ⊢ (𝜑 → (𝐸 ∈ 𝑆 ↔ (𝐸 ∈ 𝒫 ∪ dom 𝑂 ∧ ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))))
59	57, 58	mpbid 235	. . . . 5 ⊢ (𝜑 → (𝐸 ∈ 𝒫 ∪ dom 𝑂 ∧ ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎)))
60	59	simprd 501	. . . 4 ⊢ (𝜑 → ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))
61	60	r19.21bi 3255	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))
62	45, 56, 61	3eqtrd 2800	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) +𝑒 (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))) = (𝑂‘𝑎))
63	1, 2, 3, 15, 62	carageneld 47511	1 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝑆)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2145  ∀wral 3077  Vcvv 3451   ∖ cdif 3896   ∩ cin 3898   ⊆ wss 3899  𝒫 cpw 4557  ∪ cuni 4867  dom cdm 5651  ‘cfv 6538  (class class class)co 7420  0cc0 11200  +∞cpnf 11340  ℝ^*cxr 11342   +_𝑒 cxad 13239  [,]cicc 13479  OutMeascome 47498  CaraGenccaragen 47500

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7751  ax-cnex 11256  ax-resscn 11257  ax-1cn 11258  ax-icn 11259  ax-addcl 11260  ax-addrcl 11261  ax-mulcl 11262  ax-mulrcl 11263  ax-mulcom 11264  ax-addass 11265  ax-mulass 11266  ax-distr 11267  ax-i2m1 11268  ax-1ne0 11269  ax-1rid 11270  ax-rnegex 11271  ax-rrecex 11272  ax-cnre 11273  ax-pre-lttri 11274  ax-pre-lttrn 11275  ax-pre-ltadd 11276

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5546  df-po 5559  df-so 5560  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-ov 7423  df-oprab 7424  df-mpo 7425  df-1st 8001  df-2nd 8002  df-er 8717  df-en 8974  df-dom 8975  df-sdom 8976  df-pnf 11345  df-mnf 11346  df-xr 11347  df-ltxr 11348  df-xadd 13242  df-icc 13483  df-ome 47499  df-caragen 47501

This theorem is used by:  caragensal  47534