Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  lpolsetN Structured version   Visualization version   GIF version

Theorem lpolsetN 39945
Description: The set of polarities of a left module or left vector space. (Contributed by NM, 24-Nov-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
lpolset.v 𝑉 = (Base‘𝑊)
lpolset.s 𝑆 = (LSubSp‘𝑊)
lpolset.z 0 = (0g𝑊)
lpolset.a 𝐴 = (LSAtoms‘𝑊)
lpolset.h 𝐻 = (LSHyp‘𝑊)
lpolset.p 𝑃 = (LPol‘𝑊)
Assertion
Ref Expression
lpolsetN (𝑊𝑋𝑃 = {𝑜 ∈ (𝑆m 𝒫 𝑉) ∣ ((𝑜𝑉) = { 0 } ∧ ∀𝑥𝑦((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥𝐴 ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥))})
Distinct variable groups:   𝑥,𝐴   𝑆,𝑜   𝑜,𝑉   𝑥,𝑜,𝑦,𝑊
Allowed substitution hints:   𝐴(𝑦,𝑜)   𝑃(𝑥,𝑦,𝑜)   𝑆(𝑥,𝑦)   𝐻(𝑥,𝑦,𝑜)   𝑉(𝑥,𝑦)   𝑋(𝑥,𝑦,𝑜)   0 (𝑥,𝑦,𝑜)

Proof of Theorem lpolsetN
Dummy variable 𝑤 is distinct from all other variables.
StepHypRef Expression
1 elex 3463 . 2 (𝑊𝑋𝑊 ∈ V)
2 lpolset.p . . 3 𝑃 = (LPol‘𝑊)
3 fveq2 6842 . . . . . . 7 (𝑤 = 𝑊 → (LSubSp‘𝑤) = (LSubSp‘𝑊))
4 lpolset.s . . . . . . 7 𝑆 = (LSubSp‘𝑊)
53, 4eqtr4di 2794 . . . . . 6 (𝑤 = 𝑊 → (LSubSp‘𝑤) = 𝑆)
6 fveq2 6842 . . . . . . . 8 (𝑤 = 𝑊 → (Base‘𝑤) = (Base‘𝑊))
7 lpolset.v . . . . . . . 8 𝑉 = (Base‘𝑊)
86, 7eqtr4di 2794 . . . . . . 7 (𝑤 = 𝑊 → (Base‘𝑤) = 𝑉)
98pweqd 4577 . . . . . 6 (𝑤 = 𝑊 → 𝒫 (Base‘𝑤) = 𝒫 𝑉)
105, 9oveq12d 7375 . . . . 5 (𝑤 = 𝑊 → ((LSubSp‘𝑤) ↑m 𝒫 (Base‘𝑤)) = (𝑆m 𝒫 𝑉))
118fveq2d 6846 . . . . . . 7 (𝑤 = 𝑊 → (𝑜‘(Base‘𝑤)) = (𝑜𝑉))
12 fveq2 6842 . . . . . . . . 9 (𝑤 = 𝑊 → (0g𝑤) = (0g𝑊))
13 lpolset.z . . . . . . . . 9 0 = (0g𝑊)
1412, 13eqtr4di 2794 . . . . . . . 8 (𝑤 = 𝑊 → (0g𝑤) = 0 )
1514sneqd 4598 . . . . . . 7 (𝑤 = 𝑊 → {(0g𝑤)} = { 0 })
1611, 15eqeq12d 2752 . . . . . 6 (𝑤 = 𝑊 → ((𝑜‘(Base‘𝑤)) = {(0g𝑤)} ↔ (𝑜𝑉) = { 0 }))
178sseq2d 3976 . . . . . . . . 9 (𝑤 = 𝑊 → (𝑥 ⊆ (Base‘𝑤) ↔ 𝑥𝑉))
188sseq2d 3976 . . . . . . . . 9 (𝑤 = 𝑊 → (𝑦 ⊆ (Base‘𝑤) ↔ 𝑦𝑉))
1917, 183anbi12d 1437 . . . . . . . 8 (𝑤 = 𝑊 → ((𝑥 ⊆ (Base‘𝑤) ∧ 𝑦 ⊆ (Base‘𝑤) ∧ 𝑥𝑦) ↔ (𝑥𝑉𝑦𝑉𝑥𝑦)))
2019imbi1d 341 . . . . . . 7 (𝑤 = 𝑊 → (((𝑥 ⊆ (Base‘𝑤) ∧ 𝑦 ⊆ (Base‘𝑤) ∧ 𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ↔ ((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥))))
21202albidv 1926 . . . . . 6 (𝑤 = 𝑊 → (∀𝑥𝑦((𝑥 ⊆ (Base‘𝑤) ∧ 𝑦 ⊆ (Base‘𝑤) ∧ 𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ↔ ∀𝑥𝑦((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥))))
22 fveq2 6842 . . . . . . . 8 (𝑤 = 𝑊 → (LSAtoms‘𝑤) = (LSAtoms‘𝑊))
23 lpolset.a . . . . . . . 8 𝐴 = (LSAtoms‘𝑊)
2422, 23eqtr4di 2794 . . . . . . 7 (𝑤 = 𝑊 → (LSAtoms‘𝑤) = 𝐴)
25 fveq2 6842 . . . . . . . . . 10 (𝑤 = 𝑊 → (LSHyp‘𝑤) = (LSHyp‘𝑊))
26 lpolset.h . . . . . . . . . 10 𝐻 = (LSHyp‘𝑊)
2725, 26eqtr4di 2794 . . . . . . . . 9 (𝑤 = 𝑊 → (LSHyp‘𝑤) = 𝐻)
2827eleq2d 2823 . . . . . . . 8 (𝑤 = 𝑊 → ((𝑜𝑥) ∈ (LSHyp‘𝑤) ↔ (𝑜𝑥) ∈ 𝐻))
2928anbi1d 630 . . . . . . 7 (𝑤 = 𝑊 → (((𝑜𝑥) ∈ (LSHyp‘𝑤) ∧ (𝑜‘(𝑜𝑥)) = 𝑥) ↔ ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥)))
3024, 29raleqbidv 3319 . . . . . 6 (𝑤 = 𝑊 → (∀𝑥 ∈ (LSAtoms‘𝑤)((𝑜𝑥) ∈ (LSHyp‘𝑤) ∧ (𝑜‘(𝑜𝑥)) = 𝑥) ↔ ∀𝑥𝐴 ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥)))
3116, 21, 303anbi123d 1436 . . . . 5 (𝑤 = 𝑊 → (((𝑜‘(Base‘𝑤)) = {(0g𝑤)} ∧ ∀𝑥𝑦((𝑥 ⊆ (Base‘𝑤) ∧ 𝑦 ⊆ (Base‘𝑤) ∧ 𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥 ∈ (LSAtoms‘𝑤)((𝑜𝑥) ∈ (LSHyp‘𝑤) ∧ (𝑜‘(𝑜𝑥)) = 𝑥)) ↔ ((𝑜𝑉) = { 0 } ∧ ∀𝑥𝑦((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥𝐴 ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥))))
3210, 31rabeqbidv 3424 . . . 4 (𝑤 = 𝑊 → {𝑜 ∈ ((LSubSp‘𝑤) ↑m 𝒫 (Base‘𝑤)) ∣ ((𝑜‘(Base‘𝑤)) = {(0g𝑤)} ∧ ∀𝑥𝑦((𝑥 ⊆ (Base‘𝑤) ∧ 𝑦 ⊆ (Base‘𝑤) ∧ 𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥 ∈ (LSAtoms‘𝑤)((𝑜𝑥) ∈ (LSHyp‘𝑤) ∧ (𝑜‘(𝑜𝑥)) = 𝑥))} = {𝑜 ∈ (𝑆m 𝒫 𝑉) ∣ ((𝑜𝑉) = { 0 } ∧ ∀𝑥𝑦((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥𝐴 ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥))})
33 df-lpolN 39944 . . . 4 LPol = (𝑤 ∈ V ↦ {𝑜 ∈ ((LSubSp‘𝑤) ↑m 𝒫 (Base‘𝑤)) ∣ ((𝑜‘(Base‘𝑤)) = {(0g𝑤)} ∧ ∀𝑥𝑦((𝑥 ⊆ (Base‘𝑤) ∧ 𝑦 ⊆ (Base‘𝑤) ∧ 𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥 ∈ (LSAtoms‘𝑤)((𝑜𝑥) ∈ (LSHyp‘𝑤) ∧ (𝑜‘(𝑜𝑥)) = 𝑥))})
34 ovex 7390 . . . . 5 (𝑆m 𝒫 𝑉) ∈ V
3534rabex 5289 . . . 4 {𝑜 ∈ (𝑆m 𝒫 𝑉) ∣ ((𝑜𝑉) = { 0 } ∧ ∀𝑥𝑦((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥𝐴 ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥))} ∈ V
3632, 33, 35fvmpt 6948 . . 3 (𝑊 ∈ V → (LPol‘𝑊) = {𝑜 ∈ (𝑆m 𝒫 𝑉) ∣ ((𝑜𝑉) = { 0 } ∧ ∀𝑥𝑦((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥𝐴 ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥))})
372, 36eqtrid 2788 . 2 (𝑊 ∈ V → 𝑃 = {𝑜 ∈ (𝑆m 𝒫 𝑉) ∣ ((𝑜𝑉) = { 0 } ∧ ∀𝑥𝑦((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥𝐴 ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥))})
381, 37syl 17 1 (𝑊𝑋𝑃 = {𝑜 ∈ (𝑆m 𝒫 𝑉) ∣ ((𝑜𝑉) = { 0 } ∧ ∀𝑥𝑦((𝑥𝑉𝑦𝑉𝑥𝑦) → (𝑜𝑦) ⊆ (𝑜𝑥)) ∧ ∀𝑥𝐴 ((𝑜𝑥) ∈ 𝐻 ∧ (𝑜‘(𝑜𝑥)) = 𝑥))})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1087  wal 1539   = wceq 1541  wcel 2106  wral 3064  {crab 3407  Vcvv 3445  wss 3910  𝒫 cpw 4560  {csn 4586  cfv 6496  (class class class)co 7357  m cmap 8765  Basecbs 17083  0gc0g 17321  LSubSpclss 20392  LSAtomsclsa 37436  LSHypclsh 37437  LPolclpoN 39943
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5256  ax-nul 5263  ax-pr 5384
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-ral 3065  df-rex 3074  df-rab 3408  df-v 3447  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-br 5106  df-opab 5168  df-mpt 5189  df-id 5531  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-iota 6448  df-fun 6498  df-fv 6504  df-ov 7360  df-lpolN 39944
This theorem is referenced by:  islpolN  39946
  Copyright terms: Public domain W3C validator