Theorem paddfval 37738

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 3440	. 2 ⊢ (𝐾 ∈ 𝐵 → 𝐾 ∈ V)
2		paddfval.p	. . 3 ⊢ + = (+𝑃‘𝐾)
3		fveq2 6756	. . . . . . 7 ⊢ (ℎ = 𝐾 → (Atoms‘ℎ) = (Atoms‘𝐾))
4		paddfval.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
5	3, 4	eqtr4di 2797	. . . . . 6 ⊢ (ℎ = 𝐾 → (Atoms‘ℎ) = 𝐴)
6	5	pweqd 4549	. . . . 5 ⊢ (ℎ = 𝐾 → 𝒫 (Atoms‘ℎ) = 𝒫 𝐴)
7		eqidd 2739	. . . . . . . . 9 ⊢ (ℎ = 𝐾 → 𝑝 = 𝑝)
8		fveq2 6756	. . . . . . . . . 10 ⊢ (ℎ = 𝐾 → (le‘ℎ) = (le‘𝐾))
9		paddfval.l	. . . . . . . . . 10 ⊢ ≤ = (le‘𝐾)
10	8, 9	eqtr4di 2797	. . . . . . . . 9 ⊢ (ℎ = 𝐾 → (le‘ℎ) = ≤ )
11		fveq2 6756	. . . . . . . . . . 11 ⊢ (ℎ = 𝐾 → (join‘ℎ) = (join‘𝐾))
12		paddfval.j	. . . . . . . . . . 11 ⊢ ∨ = (join‘𝐾)
13	11, 12	eqtr4di 2797	. . . . . . . . . 10 ⊢ (ℎ = 𝐾 → (join‘ℎ) = ∨ )
14	13	oveqd 7272	. . . . . . . . 9 ⊢ (ℎ = 𝐾 → (𝑞(join‘ℎ)𝑟) = (𝑞 ∨ 𝑟))
15	7, 10, 14	breq123d 5084	. . . . . . . 8 ⊢ (ℎ = 𝐾 → (𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟) ↔ 𝑝 ≤ (𝑞 ∨ 𝑟)))
16	15	2rexbidv 3228	. . . . . . 7 ⊢ (ℎ = 𝐾 → (∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟) ↔ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)))
17	5, 16	rabeqbidv 3410	. . . . . 6 ⊢ (ℎ = 𝐾 → {𝑝 ∈ (Atoms‘ℎ) ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟)} = {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})
18	17	uneq2d 4093	. . . . 5 ⊢ (ℎ = 𝐾 → ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ (Atoms‘ℎ) ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟)}) = ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)}))
19	6, 6, 18	mpoeq123dv 7328	. . . 4 ⊢ (ℎ = 𝐾 → (𝑚 ∈ 𝒫 (Atoms‘ℎ), 𝑛 ∈ 𝒫 (Atoms‘ℎ) ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ (Atoms‘ℎ) ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟)})) = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))
20		df-padd 37737	. . . 4 ⊢ +𝑃 = (ℎ ∈ V ↦ (𝑚 ∈ 𝒫 (Atoms‘ℎ), 𝑛 ∈ 𝒫 (Atoms‘ℎ) ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ (Atoms‘ℎ) ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝(le‘ℎ)(𝑞(join‘ℎ)𝑟)})))
21	4	fvexi 6770	. . . . . 6 ⊢ 𝐴 ∈ V
22	21	pwex 5298	. . . . 5 ⊢ 𝒫 𝐴 ∈ V
23	22, 22	mpoex 7893	. . . 4 ⊢ (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})) ∈ V
24	19, 20, 23	fvmpt 6857	. . 3 ⊢ (𝐾 ∈ V → (+𝑃‘𝐾) = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))
25	2, 24	syl5eq 2791	. 2 ⊢ (𝐾 ∈ V → + = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))
26	1, 25	syl 17	1 ⊢ (𝐾 ∈ 𝐵 → + = (𝑚 ∈ 𝒫 𝐴, 𝑛 ∈ 𝒫 𝐴 ↦ ((𝑚 ∪ 𝑛) ∪ {𝑝 ∈ 𝐴 ∣ ∃𝑞 ∈ 𝑚 ∃𝑟 ∈ 𝑛 𝑝 ≤ (𝑞 ∨ 𝑟)})))

Syntax hints:   → wi 4   = wceq 1539   ∈ wcel 2108  ∃wrex 3064  {crab 3067  Vcvv 3422   ∪ cun 3881  𝒫 cpw 4530   class class class wbr 5070  ‘cfv 6418  (class class class)co 7255   ∈ cmpo 7257  lecple 16895  joincjn 17944  Atomscatm 37204  +_𝑃cpadd 37736

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-ral 3068  df-rex 3069  df-reu 3070  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-id 5480  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-ov 7258  df-oprab 7259  df-mpo 7260  df-1st 7804  df-2nd 7805  df-padd 37737

This theorem is referenced by:  paddval  37739