Theorem paddfval 40834

Description: Projective subspace sum operation. (Contributed by NM, 29-Dec-2011.)

Hypotheses

Ref	Expression
paddfval.l	⊢ ≤ = (le‘𝐾)
paddfval.j	⊢ ∨ = (join‘𝐾)
paddfval.a	⊢ 𝐴 = (Atoms‘𝐾)
paddfval.p	⊢ + = (+𝑃‘𝐾)

Assertion

Ref	Expression
paddfval	⊢ (𝐾 ∈ 𝐵 → + = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))

Distinct variable groups:   𝑚,𝑛,𝑝,𝐴   𝑚,𝑞,𝑟,𝐾,𝑛,𝑝

Allowed substitution hints:   𝐴(𝑟, 𝑞)   𝐵(𝑚, 𝑛, 𝑟, 𝑞, 𝑝)   + (𝑚, 𝑛, 𝑟, 𝑞, 𝑝)   ∨ (𝑚, 𝑛, 𝑟, 𝑞, 𝑝)   ≤ (𝑚, 𝑛, 𝑟, 𝑞, 𝑝)

Proof of Theorem paddfval

Dummy variable ℎ is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 3472	. 2 ⊢ (𝐾 ∈ 𝐵 → 𝐾 ∈ V)
2		paddfval.p	. . 3 ⊢ + = (+𝑃‘𝐾)
3		fveq2 6883	. . . . . . 7 ⊢ (ℎ = 𝐾 → (Atoms‘ℎ) = (Atoms‘𝐾))
4		paddfval.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
5	3, 4	eqtr4di 2814	. . . . . 6 ⊢ (ℎ = 𝐾 → (Atoms‘ℎ) = 𝐴)
6	5	pweqd 4574	. . . . 5 ⊢ (ℎ = 𝐾 → 𝒫 (Atoms‘ℎ) = 𝒫 𝐴)
7		eqidd 2762	. . . . . . . . 9 ⊢ (ℎ = 𝐾 → 𝑝 = 𝑝)
8		fveq2 6883	. . . . . . . . . 10 ⊢ (ℎ = 𝐾 → (le‘ℎ) = (le‘𝐾))
9		paddfval.l	. . . . . . . . . 10 ⊢ ≤ = (le‘𝐾)
10	8, 9	eqtr4di 2814	. . . . . . . . 9 ⊢ (ℎ = 𝐾 → (le‘ℎ) = ≤ )
11		fveq2 6883	. . . . . . . . . . 11 ⊢ (ℎ = 𝐾 → (join‘ℎ) = (join‘𝐾))
12		paddfval.j	. . . . . . . . . . 11 ⊢ ∨ = (join‘𝐾)
13	11, 12	eqtr4di 2814	. . . . . . . . . 10 ⊢ (ℎ = 𝐾 → (join‘ℎ) = ∨ )
14	13	oveqd 7435	. . . . . . . . 9 ⊢ (ℎ = 𝐾 → (𝑞(join‘ℎ)𝑟) = (𝑞 ∨ 𝑟))
15	7, 10, 14	breq123d 5117	. . . . . . . 8 ⊢ (ℎ = 𝐾 → (𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟) ↔ 𝑝 ≤ (𝑞 ∨ 𝑟)))
16	15	2rexbidv 3228	. . . . . . 7 ⊢ (ℎ = 𝐾 → (∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟) ↔ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)))
17	5, 16	rabeqbidv 3430	. . . . . 6 ⊢ (ℎ = 𝐾 → {𝑝 ∈ (Atoms‘ℎ) ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟)} = {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})
18	17	uneq2d 4115	. . . . 5 ⊢ (ℎ = 𝐾 → ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ (Atoms‘ℎ) ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟)}) = ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)}))
19	6, 6, 18	mpoeq123dv 7493	. . . 4 ⊢ (ℎ = 𝐾 → (𝑚 ∈ 𝒫 (Atoms‘ℎ), 𝑛 ∈ 𝒫 (Atoms‘ℎ) ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ (Atoms‘ℎ) ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟)})) = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))
20		df-padd 40833	. . . 4 ⊢ +𝑃 = (ℎ ∈ V ↦ (𝑚 ∈ 𝒫 (Atoms‘ℎ), 𝑛 ∈ 𝒫 (Atoms‘ℎ) ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ (Atoms‘ℎ) ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟)})))
21	4	fvexi 6897	. . . . . 6 ⊢ 𝐴 ∈ V
22	21	pwex 5342	. . . . 5 ⊢ 𝒫 𝐴 ∈ V
23	22, 22	mpoex 8090	. . . 4 ⊢ (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})) ∈ V
24	19, 20, 23	fvmpt 6991	. . 3 ⊢ (𝐾 ∈ V → (+𝑃‘𝐾) = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))
25	2, 24	eqtrid 2808	. 2 ⊢ (𝐾 ∈ V → + = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))
26	1, 25	syl 18	1 ⊢ (𝐾 ∈ 𝐵 → + = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))

This proof depends on syntax axioms:   → wi 4   = wceq 1570   ∈ wcel 2145  ∃wrex 3087  {crab 3413  Vcvv 3451   ∪ cun 3897  𝒫 cpw 4557   class class class wbr 5103  ‘cfv 6537  (class class class)co 7418   ∈ cmpo 7420  lecple 17428  joincjn 18478  Atomscatm 40300  +_𝑃cpadd 40832

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-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7749

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  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-ral 3078  df-rex 3088  df-reu 3367  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-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 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-ov 7421  df-oprab 7422  df-mpo 7423  df-1st 7999  df-2nd 8000  df-padd 40833

This theorem is used by:  paddval  40835