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

Theorem pmapsub 37994
Description: The projective map of a Hilbert lattice maps to projective subspaces. Part of Theorem 15.5 of [MaedaMaeda] p. 62. (Contributed by NM, 17-Oct-2011.)
Hypotheses
Ref Expression
pmapsub.b 𝐵 = (Base‘𝐾)
pmapsub.s 𝑆 = (PSubSp‘𝐾)
pmapsub.m 𝑀 = (pmap‘𝐾)
Assertion
Ref Expression
pmapsub ((𝐾 ∈ Lat ∧ 𝑋𝐵) → (𝑀𝑋) ∈ 𝑆)

Proof of Theorem pmapsub
Dummy variables 𝑞 𝑝 𝑟 𝑐 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pmapsub.b . . 3 𝐵 = (Base‘𝐾)
2 eqid 2737 . . 3 (le‘𝐾) = (le‘𝐾)
3 eqid 2737 . . 3 (Atoms‘𝐾) = (Atoms‘𝐾)
4 pmapsub.m . . 3 𝑀 = (pmap‘𝐾)
51, 2, 3, 4pmapval 37983 . 2 ((𝐾 ∈ Lat ∧ 𝑋𝐵) → (𝑀𝑋) = {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})
6 breq1 5088 . . . . . . . . . . . . . 14 (𝑐 = 𝑝 → (𝑐(le‘𝐾)𝑋𝑝(le‘𝐾)𝑋))
76elrab 3633 . . . . . . . . . . . . 13 (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ↔ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋))
81, 3atbase 37515 . . . . . . . . . . . . . 14 (𝑝 ∈ (Atoms‘𝐾) → 𝑝𝐵)
98anim1i 615 . . . . . . . . . . . . 13 ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑝(le‘𝐾)𝑋) → (𝑝𝐵𝑝(le‘𝐾)𝑋))
107, 9sylbi 216 . . . . . . . . . . . 12 (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} → (𝑝𝐵𝑝(le‘𝐾)𝑋))
11 breq1 5088 . . . . . . . . . . . . . 14 (𝑐 = 𝑞 → (𝑐(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋))
1211elrab 3633 . . . . . . . . . . . . 13 (𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ↔ (𝑞 ∈ (Atoms‘𝐾) ∧ 𝑞(le‘𝐾)𝑋))
131, 3atbase 37515 . . . . . . . . . . . . . 14 (𝑞 ∈ (Atoms‘𝐾) → 𝑞𝐵)
1413anim1i 615 . . . . . . . . . . . . 13 ((𝑞 ∈ (Atoms‘𝐾) ∧ 𝑞(le‘𝐾)𝑋) → (𝑞𝐵𝑞(le‘𝐾)𝑋))
1512, 14sylbi 216 . . . . . . . . . . . 12 (𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} → (𝑞𝐵𝑞(le‘𝐾)𝑋))
1610, 15anim12i 613 . . . . . . . . . . 11 ((𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}) → ((𝑝𝐵𝑝(le‘𝐾)𝑋) ∧ (𝑞𝐵𝑞(le‘𝐾)𝑋)))
17 an4 653 . . . . . . . . . . 11 (((𝑝𝐵𝑝(le‘𝐾)𝑋) ∧ (𝑞𝐵𝑞(le‘𝐾)𝑋)) ↔ ((𝑝𝐵𝑞𝐵) ∧ (𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋)))
1816, 17sylib 217 . . . . . . . . . 10 ((𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}) → ((𝑝𝐵𝑞𝐵) ∧ (𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋)))
1918anim2i 617 . . . . . . . . 9 (((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) → ((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ ((𝑝𝐵𝑞𝐵) ∧ (𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋))))
201, 3atbase 37515 . . . . . . . . 9 (𝑟 ∈ (Atoms‘𝐾) → 𝑟𝐵)
21 eqid 2737 . . . . . . . . . . . . . . . . 17 (join‘𝐾) = (join‘𝐾)
221, 2, 21latjle12 18235 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ Lat ∧ (𝑝𝐵𝑞𝐵𝑋𝐵)) → ((𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋) ↔ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋))
2322biimpd 228 . . . . . . . . . . . . . . 15 ((𝐾 ∈ Lat ∧ (𝑝𝐵𝑞𝐵𝑋𝐵)) → ((𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋))
24233exp2 1353 . . . . . . . . . . . . . 14 (𝐾 ∈ Lat → (𝑝𝐵 → (𝑞𝐵 → (𝑋𝐵 → ((𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋)))))
2524impd 411 . . . . . . . . . . . . 13 (𝐾 ∈ Lat → ((𝑝𝐵𝑞𝐵) → (𝑋𝐵 → ((𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋))))
2625com23 86 . . . . . . . . . . . 12 (𝐾 ∈ Lat → (𝑋𝐵 → ((𝑝𝐵𝑞𝐵) → ((𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋))))
2726imp43 428 . . . . . . . . . . 11 (((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ ((𝑝𝐵𝑞𝐵) ∧ (𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋))) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋)
2827adantr 481 . . . . . . . . . 10 ((((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ ((𝑝𝐵𝑞𝐵) ∧ (𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋))) ∧ 𝑟𝐵) → (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋)
291, 21latjcl 18224 . . . . . . . . . . . . . 14 ((𝐾 ∈ Lat ∧ 𝑝𝐵𝑞𝐵) → (𝑝(join‘𝐾)𝑞) ∈ 𝐵)
30293expib 1121 . . . . . . . . . . . . 13 (𝐾 ∈ Lat → ((𝑝𝐵𝑞𝐵) → (𝑝(join‘𝐾)𝑞) ∈ 𝐵))
311, 2lattr 18229 . . . . . . . . . . . . . . 15 ((𝐾 ∈ Lat ∧ (𝑟𝐵 ∧ (𝑝(join‘𝐾)𝑞) ∈ 𝐵𝑋𝐵)) → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋))
32313exp2 1353 . . . . . . . . . . . . . 14 (𝐾 ∈ Lat → (𝑟𝐵 → ((𝑝(join‘𝐾)𝑞) ∈ 𝐵 → (𝑋𝐵 → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋)))))
3332com24 95 . . . . . . . . . . . . 13 (𝐾 ∈ Lat → (𝑋𝐵 → ((𝑝(join‘𝐾)𝑞) ∈ 𝐵 → (𝑟𝐵 → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋)))))
3430, 33syl5d 73 . . . . . . . . . . . 12 (𝐾 ∈ Lat → (𝑋𝐵 → ((𝑝𝐵𝑞𝐵) → (𝑟𝐵 → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋)))))
3534imp41 426 . . . . . . . . . . 11 ((((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ (𝑝𝐵𝑞𝐵)) ∧ 𝑟𝐵) → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋))
3635adantlrr 718 . . . . . . . . . 10 ((((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ ((𝑝𝐵𝑞𝐵) ∧ (𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋))) ∧ 𝑟𝐵) → ((𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) ∧ (𝑝(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑟(le‘𝐾)𝑋))
3728, 36mpan2d 691 . . . . . . . . 9 ((((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ ((𝑝𝐵𝑞𝐵) ∧ (𝑝(le‘𝐾)𝑋𝑞(le‘𝐾)𝑋))) ∧ 𝑟𝐵) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟(le‘𝐾)𝑋))
3819, 20, 37syl2an 596 . . . . . . . 8 ((((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟(le‘𝐾)𝑋))
39 simpr 485 . . . . . . . 8 ((((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) ∧ 𝑟 ∈ (Atoms‘𝐾)) → 𝑟 ∈ (Atoms‘𝐾))
4038, 39jctild 526 . . . . . . 7 ((((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑟(le‘𝐾)𝑋)))
41 breq1 5088 . . . . . . . 8 (𝑐 = 𝑟 → (𝑐(le‘𝐾)𝑋𝑟(le‘𝐾)𝑋))
4241elrab 3633 . . . . . . 7 (𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ↔ (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑟(le‘𝐾)𝑋))
4340, 42syl6ibr 251 . . . . . 6 ((((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))
4443ralrimiva 3140 . . . . 5 (((𝐾 ∈ Lat ∧ 𝑋𝐵) ∧ (𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∧ 𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})) → ∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))
4544ralrimivva 3194 . . . 4 ((𝐾 ∈ Lat ∧ 𝑋𝐵) → ∀𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))
46 ssrab2 4023 . . . 4 {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ⊆ (Atoms‘𝐾)
4745, 46jctil 520 . . 3 ((𝐾 ∈ Lat ∧ 𝑋𝐵) → ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ⊆ (Atoms‘𝐾) ∧ ∀𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋})))
48 pmapsub.s . . . . 5 𝑆 = (PSubSp‘𝐾)
492, 21, 3, 48ispsubsp 37971 . . . 4 (𝐾 ∈ Lat → ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∈ 𝑆 ↔ ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ⊆ (Atoms‘𝐾) ∧ ∀𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))))
5049adantr 481 . . 3 ((𝐾 ∈ Lat ∧ 𝑋𝐵) → ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∈ 𝑆 ↔ ({𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ⊆ (Atoms‘𝐾) ∧ ∀𝑝 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑞 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}∀𝑟 ∈ (Atoms‘𝐾)(𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋}))))
5147, 50mpbird 256 . 2 ((𝐾 ∈ Lat ∧ 𝑋𝐵) → {𝑐 ∈ (Atoms‘𝐾) ∣ 𝑐(le‘𝐾)𝑋} ∈ 𝑆)
525, 51eqeltrd 2838 1 ((𝐾 ∈ Lat ∧ 𝑋𝐵) → (𝑀𝑋) ∈ 𝑆)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1086   = wceq 1540  wcel 2105  wral 3062  {crab 3404  wss 3896   class class class wbr 5085  cfv 6463  (class class class)co 7313  Basecbs 16979  lecple 17036  joincjn 18096  Latclat 18216  Atomscatm 37489  PSubSpcpsubsp 37722  pmapcpmap 37723
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2708  ax-rep 5222  ax-sep 5236  ax-nul 5243  ax-pow 5301  ax-pr 5365  ax-un 7626
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-reu 3351  df-rab 3405  df-v 3443  df-sbc 3726  df-csb 3842  df-dif 3899  df-un 3901  df-in 3903  df-ss 3913  df-nul 4267  df-if 4470  df-pw 4545  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4849  df-iun 4937  df-br 5086  df-opab 5148  df-mpt 5169  df-id 5505  df-xp 5611  df-rel 5612  df-cnv 5613  df-co 5614  df-dm 5615  df-rn 5616  df-res 5617  df-ima 5618  df-iota 6415  df-fun 6465  df-fn 6466  df-f 6467  df-f1 6468  df-fo 6469  df-f1o 6470  df-fv 6471  df-riota 7270  df-ov 7316  df-oprab 7317  df-poset 18098  df-lub 18131  df-glb 18132  df-join 18133  df-meet 18134  df-lat 18217  df-ats 37493  df-psubsp 37729  df-pmap 37730
This theorem is referenced by:  hlmod1i  38082  polsubN  38133  pl42lem4N  38208
  Copyright terms: Public domain W3C validator