Theorem caragendifcl 39201

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 2609	. 2 ⊢ ∪ dom 𝑂 = ∪ dom 𝑂
3		caragendifcl.s	. 2 ⊢ 𝑆 = (CaraGen‘𝑂)
4	3	caragenss 39191	. . . . . 6 ⊢ (𝑂 ∈ OutMeas → 𝑆 ⊆ dom 𝑂)
5	1, 4	syl 17	. . . . 5 ⊢ (𝜑 → 𝑆 ⊆ dom 𝑂)
6	5	unissd 4392	. . . 4 ⊢ (𝜑 → ∪ 𝑆 ⊆ ∪ dom 𝑂)
7	6	ssdifssd 3709	. . 3 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂)
8		fvex 6098	. . . . . . . 8 ⊢ (CaraGen‘𝑂) ∈ V
9	3, 8	eqeltri 2683	. . . . . . 7 ⊢ 𝑆 ∈ V
10	9	uniex 6828	. . . . . 6 ⊢ ∪ 𝑆 ∈ V
11		difexg 4730	. . . . . 6 ⊢ (∪ 𝑆 ∈ V → (∪ 𝑆 ∖ 𝐸) ∈ V)
12	10, 11	ax-mp 5	. . . . 5 ⊢ (∪ 𝑆 ∖ 𝐸) ∈ V
13	12	a1i 11	. . . 4 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ V)
14		elpwg 4115	. . . 4 ⊢ ((∪ 𝑆 ∖ 𝐸) ∈ V → ((∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂 ↔ (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂))
15	13, 14	syl 17	. . 3 ⊢ (𝜑 → ((∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂 ↔ (∪ 𝑆 ∖ 𝐸) ⊆ ∪ dom 𝑂))
16	7, 15	mpbird 245	. 2 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝒫 ∪ dom 𝑂)
17		elpwi 4116	. . . . . . . . 9 ⊢ (𝑎 ∈ 𝒫 ∪ dom 𝑂 → 𝑎 ⊆ ∪ dom 𝑂)
18	17	adantl 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑎 ⊆ ∪ dom 𝑂)
19	1, 3	caragenuni 39198	. . . . . . . . . 10 ⊢ (𝜑 → ∪ 𝑆 = ∪ dom 𝑂)
20	19	eqcomd 2615	. . . . . . . . 9 ⊢ (𝜑 → ∪ dom 𝑂 = ∪ 𝑆)
21	20	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ∪ dom 𝑂 = ∪ 𝑆)
22	18, 21	sseqtrd 3603	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑎 ⊆ ∪ 𝑆)
23		difin2 3848	. . . . . . 7 ⊢ (𝑎 ⊆ ∪ 𝑆 → (𝑎 ∖ 𝐸) = ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎))
24	22, 23	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) = ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎))
25		incom 3766	. . . . . . 7 ⊢ ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎) = (𝑎 ∩ (∪ 𝑆 ∖ 𝐸))
26	25	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((∪ 𝑆 ∖ 𝐸) ∩ 𝑎) = (𝑎 ∩ (∪ 𝑆 ∖ 𝐸)))
27	24, 26	eqtr2d 2644	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ (∪ 𝑆 ∖ 𝐸)) = (𝑎 ∖ 𝐸))
28	27	fveq2d 6092	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) = (𝑂‘(𝑎 ∖ 𝐸)))
29	22	ssdifd 3707	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) ⊆ (∪ 𝑆 ∖ 𝐸))
30		sscon 3705	. . . . . . . 8 ⊢ ((𝑎 ∖ 𝐸) ⊆ (∪ 𝑆 ∖ 𝐸) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∖ (𝑎 ∖ 𝐸)))
31	29, 30	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∖ (𝑎 ∖ 𝐸)))
32		dfin4 3825	. . . . . . . . 9 ⊢ (𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸))
33	32	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸)))
34		eqimss2 3620	. . . . . . . 8 ⊢ ((𝑎 ∩ 𝐸) = (𝑎 ∖ (𝑎 ∖ 𝐸)) → (𝑎 ∖ (𝑎 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
35	33, 34	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (𝑎 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
36	31, 35	sstrd 3577	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) ⊆ (𝑎 ∩ 𝐸))
37		elinel1 3760	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ 𝑎)
38		elinel2 3761	. . . . . . . . . 10 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ 𝐸)
39		elndif 3695	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐸 → ¬ 𝑥 ∈ (∪ 𝑆 ∖ 𝐸))
40	38, 39	syl 17	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → ¬ 𝑥 ∈ (∪ 𝑆 ∖ 𝐸))
41	37, 40	eldifd 3550	. . . . . . . 8 ⊢ (𝑥 ∈ (𝑎 ∩ 𝐸) → 𝑥 ∈ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))
42	41	ssriv 3571	. . . . . . 7 ⊢ (𝑎 ∩ 𝐸) ⊆ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸))
43	42	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) ⊆ (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))
44	36, 43	eqssd 3584	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ (∪ 𝑆 ∖ 𝐸)) = (𝑎 ∩ 𝐸))
45	44	fveq2d 6092	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸))) = (𝑂‘(𝑎 ∩ 𝐸)))
46	28, 45	oveq12d 6545	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) +𝑒 (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))) = ((𝑂‘(𝑎 ∖ 𝐸)) +𝑒 (𝑂‘(𝑎 ∩ 𝐸))))
47		iccssxr 12083	. . . . 5 ⊢ (0[,]+∞) ⊆ ℝ*
48	1	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → 𝑂 ∈ OutMeas)
49	18	ssdifssd 3709	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∖ 𝐸) ⊆ ∪ dom 𝑂)
50	48, 2, 49	omecl 39190	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ 𝐸)) ∈ (0[,]+∞))
51	47, 50	sseldi 3565	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∖ 𝐸)) ∈ ℝ*)
52		ssinss1 3802	. . . . . . . 8 ⊢ (𝑎 ⊆ ∪ dom 𝑂 → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
53	17, 52	syl 17	. . . . . . 7 ⊢ (𝑎 ∈ 𝒫 ∪ dom 𝑂 → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
54	53	adantl 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑎 ∩ 𝐸) ⊆ ∪ dom 𝑂)
55	48, 2, 54	omecl 39190	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ 𝐸)) ∈ (0[,]+∞))
56	47, 55	sseldi 3565	. . . 4 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → (𝑂‘(𝑎 ∩ 𝐸)) ∈ ℝ*)
57	51, 56	xaddcomd 38278	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∖ 𝐸)) +𝑒 (𝑂‘(𝑎 ∩ 𝐸))) = ((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))))
58		caragendifcl.e	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ 𝑆)
59	1, 3	caragenel 39182	. . . . . 6 ⊢ (𝜑 → (𝐸 ∈ 𝑆 ↔ (𝐸 ∈ 𝒫 ∪ dom 𝑂 ∧ ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))))
60	58, 59	mpbid 220	. . . . 5 ⊢ (𝜑 → (𝐸 ∈ 𝒫 ∪ dom 𝑂 ∧ ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎)))
61	60	simprd 477	. . . 4 ⊢ (𝜑 → ∀𝑎 ∈ 𝒫 ∪ dom 𝑂((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))
62	61	r19.21bi 2915	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ 𝐸)) +𝑒 (𝑂‘(𝑎 ∖ 𝐸))) = (𝑂‘𝑎))
63	46, 57, 62	3eqtrd 2647	. 2 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝒫 ∪ dom 𝑂) → ((𝑂‘(𝑎 ∩ (∪ 𝑆 ∖ 𝐸))) +𝑒 (𝑂‘(𝑎 ∖ (∪ 𝑆 ∖ 𝐸)))) = (𝑂‘𝑎))
64	1, 2, 3, 16, 63	carageneld 39189	1 ⊢ (𝜑 → (∪ 𝑆 ∖ 𝐸) ∈ 𝑆)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 194   ∧ wa 382   = wceq 1474   ∈ wcel 1976  ∀wral 2895  Vcvv 3172   ∖ cdif 3536   ∩ cin 3538   ⊆ wss 3539  𝒫 cpw 4107  ∪ cuni 4366  dom cdm 5028  ‘cfv 5790  (class class class)co 6527  0cc0 9792  +∞cpnf 9927  ℝ^*cxr 9929   +_𝑒 cxad 11776  [,]cicc 12005  OutMeascome 39176  CaraGenccaragen 39178

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1712  ax-4 1727  ax-5 1826  ax-6 1874  ax-7 1921  ax-8 1978  ax-9 1985  ax-10 2005  ax-11 2020  ax-12 2033  ax-13 2233  ax-ext 2589  ax-sep 4703  ax-nul 4712  ax-pow 4764  ax-pr 4828  ax-un 6824  ax-cnex 9848  ax-resscn 9849  ax-1cn 9850  ax-icn 9851  ax-addcl 9852  ax-addrcl 9853  ax-mulcl 9854  ax-mulrcl 9855  ax-mulcom 9856  ax-addass 9857  ax-mulass 9858  ax-distr 9859  ax-i2m1 9860  ax-1ne0 9861  ax-1rid 9862  ax-rnegex 9863  ax-rrecex 9864  ax-cnre 9865  ax-pre-lttri 9866  ax-pre-lttrn 9867  ax-pre-ltadd 9868

This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1867  df-eu 2461  df-mo 2462  df-clab 2596  df-cleq 2602  df-clel 2605  df-nfc 2739  df-ne 2781  df-nel 2782  df-ral 2900  df-rex 2901  df-rab 2904  df-v 3174  df-sbc 3402  df-csb 3499  df-dif 3542  df-un 3544  df-in 3546  df-ss 3553  df-nul 3874  df-if 4036  df-pw 4109  df-sn 4125  df-pr 4127  df-op 4131  df-uni 4367  df-iun 4451  df-br 4578  df-opab 4638  df-mpt 4639  df-id 4943  df-po 4949  df-so 4950  df-xp 5034  df-rel 5035  df-cnv 5036  df-co 5037  df-dm 5038  df-rn 5039  df-res 5040  df-ima 5041  df-iota 5754  df-fun 5792  df-fn 5793  df-f 5794  df-f1 5795  df-fo 5796  df-f1o 5797  df-fv 5798  df-ov 6530  df-oprab 6531  df-mpt2 6532  df-1st 7036  df-2nd 7037  df-er 7606  df-en 7819  df-dom 7820  df-sdom 7821  df-pnf 9932  df-mnf 9933  df-xr 9934  df-ltxr 9935  df-xadd 11779  df-icc 12009  df-ome 39177  df-caragen 39179

This theorem is referenced by:  caragensal  39212