Theorem carsgval 34663

Description: Value of the Caratheodory sigma-Algebra construction function. (Contributed by Thierry Arnoux, 17-May-2020.)

Hypotheses

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

Assertion

Ref	Expression
carsgval	⊢ (𝜑 → (toCaraSiga‘𝑀) = {𝑎 ∈ 𝒫 𝑂 ∣ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))) = (𝑀‘𝑒)})

Distinct variable groups:   𝑀,𝑎,𝑒   𝑂,𝑎,𝑒   𝜑,𝑎,𝑒

Allowed substitution hints:   𝑉(𝑒,𝑎)

Proof of Theorem carsgval

Dummy variable 𝑚 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-carsg 34662	. 2 ⊢ toCaraSiga = (𝑚 ∈ V ↦ {𝑎 ∈ 𝒫 ∪ dom 𝑚 ∣ ∀𝑒 ∈ 𝒫 ∪ dom 𝑚((𝑚‘(𝑒 ∩ 𝑎)) +𝑒 (𝑚‘(𝑒 ∖ 𝑎))) = (𝑚‘𝑒)})
2		simpr 489	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → 𝑚 = 𝑀)
3	2	dmeqd 5899	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → dom 𝑚 = dom 𝑀)
4		carsgval.2	. . . . . . . . 9 ⊢ (𝜑 → 𝑀:𝒫 𝑂⟶(0[,]+∞))
5	4	fdmd 6720	. . . . . . . 8 ⊢ (𝜑 → dom 𝑀 = 𝒫 𝑂)
6	5	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → dom 𝑀 = 𝒫 𝑂)
7	3, 6	eqtrd 2805	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → dom 𝑚 = 𝒫 𝑂)
8	7	unieqd 4890	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → ∪ dom 𝑚 = ∪ 𝒫 𝑂)
9		unipw 5435	. . . . 5 ⊢ ∪ 𝒫 𝑂 = 𝑂
10	8, 9	eqtrdi 2821	. . . 4 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → ∪ dom 𝑚 = 𝑂)
11	10	pweqd 4584	. . 3 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → 𝒫 ∪ dom 𝑚 = 𝒫 𝑂)
12		fveq1 6884	. . . . . . 7 ⊢ (𝑚 = 𝑀 → (𝑚‘(𝑒 ∩ 𝑎)) = (𝑀‘(𝑒 ∩ 𝑎)))
13		fveq1 6884	. . . . . . 7 ⊢ (𝑚 = 𝑀 → (𝑚‘(𝑒 ∖ 𝑎)) = (𝑀‘(𝑒 ∖ 𝑎)))
14	12, 13	oveq12d 7432	. . . . . 6 ⊢ (𝑚 = 𝑀 → ((𝑚‘(𝑒 ∩ 𝑎)) +𝑒 (𝑚‘(𝑒 ∖ 𝑎))) = ((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))))
15		fveq1 6884	. . . . . 6 ⊢ (𝑚 = 𝑀 → (𝑚‘𝑒) = (𝑀‘𝑒))
16	14, 15	eqeq12d 2786	. . . . 5 ⊢ (𝑚 = 𝑀 → (((𝑚‘(𝑒 ∩ 𝑎)) +𝑒 (𝑚‘(𝑒 ∖ 𝑎))) = (𝑚‘𝑒) ↔ ((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))) = (𝑀‘𝑒)))
17	16	adantl 486	. . . 4 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → (((𝑚‘(𝑒 ∩ 𝑎)) +𝑒 (𝑚‘(𝑒 ∖ 𝑎))) = (𝑚‘𝑒) ↔ ((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))) = (𝑀‘𝑒)))
18	11, 17	raleqbidv 3345	. . 3 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → (∀𝑒 ∈ 𝒫 ∪ dom 𝑚((𝑚‘(𝑒 ∩ 𝑎)) +𝑒 (𝑚‘(𝑒 ∖ 𝑎))) = (𝑚‘𝑒) ↔ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))) = (𝑀‘𝑒)))
19	11, 18	rabeqbidv 3441	. 2 ⊢ ((𝜑 ∧ 𝑚 = 𝑀) → {𝑎 ∈ 𝒫 ∪ dom 𝑚 ∣ ∀𝑒 ∈ 𝒫 ∪ dom 𝑚((𝑚‘(𝑒 ∩ 𝑎)) +𝑒 (𝑚‘(𝑒 ∖ 𝑎))) = (𝑚‘𝑒)} = {𝑎 ∈ 𝒫 𝑂 ∣ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))) = (𝑀‘𝑒)})
20		carsgval.1	. . . 4 ⊢ (𝜑 → 𝑂 ∈ 𝑉)
21	20	pwexd 5354	. . 3 ⊢ (𝜑 → 𝒫 𝑂 ∈ V)
22	4, 21	fexd 7229	. 2 ⊢ (𝜑 → 𝑀 ∈ V)
23		pwexg 5353	. . 3 ⊢ (𝑂 ∈ 𝑉 → 𝒫 𝑂 ∈ V)
24		rabexg 5311	. . 3 ⊢ (𝒫 𝑂 ∈ V → {𝑎 ∈ 𝒫 𝑂 ∣ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))) = (𝑀‘𝑒)} ∈ V)
25	20, 23, 24	3syl 19	. 2 ⊢ (𝜑 → {𝑎 ∈ 𝒫 𝑂 ∣ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))) = (𝑀‘𝑒)} ∈ V)
26	1, 19, 22, 25	fvmptd2 7002	1 ⊢ (𝜑 → (toCaraSiga‘𝑀) = {𝑎 ∈ 𝒫 𝑂 ∣ ∀𝑒 ∈ 𝒫 𝑂((𝑀‘(𝑒 ∩ 𝑎)) +𝑒 (𝑀‘(𝑒 ∖ 𝑎))) = (𝑀‘𝑒)})

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1568   ∈ wcel 2150  ∀wral 3086  {crab 3423  Vcvv 3462   ∖ cdif 3910   ∩ cin 3912  𝒫 cpw 4567  ∪ cuni 4877  dom cdm 5665  ⟶wf 6536  ‘cfv 6540  (class class class)co 7414  0cc0 11103  +∞cpnf 11243   +_𝑒 cxad 13138  [,]cicc 13378  toCaraSigaccarsg 34661

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2152  ax-9 2160  ax-10 2183  ax-11 2199  ax-12 2220  ax-ext 2742  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5340  ax-pr 5408

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2099  df-mo 2574  df-eu 2604  df-clab 2749  df-cleq 2762  df-clel 2845  df-nfc 2919  df-ne 2966  df-ral 3087  df-rex 3097  df-reu 3377  df-rab 3424  df-v 3464  df-sbc 3753  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5560  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-ov 7417  df-carsg 34662

This theorem is referenced by:  carsgcl  34664  elcarsg  34665