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

Theorem pmapglb2xN 35751
Description: The projective map of the GLB of a set of lattice elements. Index-set version of pmapglb2N 35750, where we read 𝑆 as 𝑆(𝑖). Extension of Theorem 15.5.2 of [MaedaMaeda] p. 62 that allows 𝐼 = ∅. (Contributed by NM, 21-Jan-2012.) (New usage is discouraged.)
Hypotheses
Ref Expression
pmapglb2.b 𝐵 = (Base‘𝐾)
pmapglb2.g 𝐺 = (glb‘𝐾)
pmapglb2.a 𝐴 = (Atoms‘𝐾)
pmapglb2.m 𝑀 = (pmap‘𝐾)
Assertion
Ref Expression
pmapglb2xN ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) → (𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = (𝐴 𝑖𝐼 (𝑀𝑆)))
Distinct variable groups:   𝐴,𝑖   𝑦,𝑖,𝐵   𝑖,𝐼,𝑦   𝑖,𝐾,𝑦   𝑦,𝑆
Allowed substitution hints:   𝐴(𝑦)   𝑆(𝑖)   𝐺(𝑦,𝑖)   𝑀(𝑦,𝑖)

Proof of Theorem pmapglb2xN
StepHypRef Expression
1 hlop 35341 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ OP)
2 pmapglb2.g . . . . . . . 8 𝐺 = (glb‘𝐾)
3 eqid 2765 . . . . . . . 8 (1.‘𝐾) = (1.‘𝐾)
42, 3glb0N 35172 . . . . . . 7 (𝐾 ∈ OP → (𝐺‘∅) = (1.‘𝐾))
54fveq2d 6383 . . . . . 6 (𝐾 ∈ OP → (𝑀‘(𝐺‘∅)) = (𝑀‘(1.‘𝐾)))
6 pmapglb2.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
7 pmapglb2.m . . . . . . 7 𝑀 = (pmap‘𝐾)
83, 6, 7pmap1N 35746 . . . . . 6 (𝐾 ∈ OP → (𝑀‘(1.‘𝐾)) = 𝐴)
95, 8eqtrd 2799 . . . . 5 (𝐾 ∈ OP → (𝑀‘(𝐺‘∅)) = 𝐴)
101, 9syl 17 . . . 4 (𝐾 ∈ HL → (𝑀‘(𝐺‘∅)) = 𝐴)
11 rexeq 3287 . . . . . . . . 9 (𝐼 = ∅ → (∃𝑖𝐼 𝑦 = 𝑆 ↔ ∃𝑖 ∈ ∅ 𝑦 = 𝑆))
1211abbidv 2884 . . . . . . . 8 (𝐼 = ∅ → {𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆} = {𝑦 ∣ ∃𝑖 ∈ ∅ 𝑦 = 𝑆})
13 rex0 4104 . . . . . . . . 9 ¬ ∃𝑖 ∈ ∅ 𝑦 = 𝑆
1413abf 4142 . . . . . . . 8 {𝑦 ∣ ∃𝑖 ∈ ∅ 𝑦 = 𝑆} = ∅
1512, 14syl6eq 2815 . . . . . . 7 (𝐼 = ∅ → {𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆} = ∅)
1615fveq2d 6383 . . . . . 6 (𝐼 = ∅ → (𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆}) = (𝐺‘∅))
1716fveq2d 6383 . . . . 5 (𝐼 = ∅ → (𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = (𝑀‘(𝐺‘∅)))
18 riin0 4752 . . . . 5 (𝐼 = ∅ → (𝐴 𝑖𝐼 (𝑀𝑆)) = 𝐴)
1917, 18eqeq12d 2780 . . . 4 (𝐼 = ∅ → ((𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = (𝐴 𝑖𝐼 (𝑀𝑆)) ↔ (𝑀‘(𝐺‘∅)) = 𝐴))
2010, 19syl5ibrcom 238 . . 3 (𝐾 ∈ HL → (𝐼 = ∅ → (𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = (𝐴 𝑖𝐼 (𝑀𝑆))))
2120adantr 472 . 2 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) → (𝐼 = ∅ → (𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = (𝐴 𝑖𝐼 (𝑀𝑆))))
22 pmapglb2.b . . . . 5 𝐵 = (Base‘𝐾)
2322, 2, 7pmapglbx 35748 . . . 4 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵𝐼 ≠ ∅) → (𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = 𝑖𝐼 (𝑀𝑆))
24 nfv 2009 . . . . . . . . . 10 𝑖 𝐾 ∈ HL
25 nfra1 3088 . . . . . . . . . 10 𝑖𝑖𝐼 𝑆𝐵
2624, 25nfan 1998 . . . . . . . . 9 𝑖(𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵)
27 simpr 477 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) ∧ 𝑖𝐼) → 𝑖𝐼)
28 simpll 783 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) ∧ 𝑖𝐼) → 𝐾 ∈ HL)
29 rspa 3077 . . . . . . . . . . . . 13 ((∀𝑖𝐼 𝑆𝐵𝑖𝐼) → 𝑆𝐵)
3029adantll 705 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) ∧ 𝑖𝐼) → 𝑆𝐵)
3122, 6, 7pmapssat 35738 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ 𝑆𝐵) → (𝑀𝑆) ⊆ 𝐴)
3228, 30, 31syl2anc 579 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) ∧ 𝑖𝐼) → (𝑀𝑆) ⊆ 𝐴)
3327, 32jca 507 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) ∧ 𝑖𝐼) → (𝑖𝐼 ∧ (𝑀𝑆) ⊆ 𝐴))
3433ex 401 . . . . . . . . 9 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) → (𝑖𝐼 → (𝑖𝐼 ∧ (𝑀𝑆) ⊆ 𝐴)))
3526, 34eximd 2249 . . . . . . . 8 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) → (∃𝑖 𝑖𝐼 → ∃𝑖(𝑖𝐼 ∧ (𝑀𝑆) ⊆ 𝐴)))
36 n0 4097 . . . . . . . 8 (𝐼 ≠ ∅ ↔ ∃𝑖 𝑖𝐼)
37 df-rex 3061 . . . . . . . 8 (∃𝑖𝐼 (𝑀𝑆) ⊆ 𝐴 ↔ ∃𝑖(𝑖𝐼 ∧ (𝑀𝑆) ⊆ 𝐴))
3835, 36, 373imtr4g 287 . . . . . . 7 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) → (𝐼 ≠ ∅ → ∃𝑖𝐼 (𝑀𝑆) ⊆ 𝐴))
39383impia 1145 . . . . . 6 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵𝐼 ≠ ∅) → ∃𝑖𝐼 (𝑀𝑆) ⊆ 𝐴)
40 iinss 4729 . . . . . 6 (∃𝑖𝐼 (𝑀𝑆) ⊆ 𝐴 𝑖𝐼 (𝑀𝑆) ⊆ 𝐴)
4139, 40syl 17 . . . . 5 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵𝐼 ≠ ∅) → 𝑖𝐼 (𝑀𝑆) ⊆ 𝐴)
42 sseqin2 3981 . . . . 5 ( 𝑖𝐼 (𝑀𝑆) ⊆ 𝐴 ↔ (𝐴 𝑖𝐼 (𝑀𝑆)) = 𝑖𝐼 (𝑀𝑆))
4341, 42sylib 209 . . . 4 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵𝐼 ≠ ∅) → (𝐴 𝑖𝐼 (𝑀𝑆)) = 𝑖𝐼 (𝑀𝑆))
4423, 43eqtr4d 2802 . . 3 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵𝐼 ≠ ∅) → (𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = (𝐴 𝑖𝐼 (𝑀𝑆)))
45443expia 1150 . 2 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) → (𝐼 ≠ ∅ → (𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = (𝐴 𝑖𝐼 (𝑀𝑆))))
4621, 45pm2.61dne 3023 1 ((𝐾 ∈ HL ∧ ∀𝑖𝐼 𝑆𝐵) → (𝑀‘(𝐺‘{𝑦 ∣ ∃𝑖𝐼 𝑦 = 𝑆})) = (𝐴 𝑖𝐼 (𝑀𝑆)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 384  w3a 1107   = wceq 1652  wex 1874  wcel 2155  {cab 2751  wne 2937  wral 3055  wrex 3056  cin 3733  wss 3734  c0 4081   ciin 4679  cfv 6070  Basecbs 16146  glbcglb 17225  1.cp1 17320  OPcops 35151  Atomscatm 35242  HLchlt 35329  pmapcpmap 35476
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4932  ax-sep 4943  ax-nul 4951  ax-pow 5003  ax-pr 5064  ax-un 7151
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-ral 3060  df-rex 3061  df-reu 3062  df-rab 3064  df-v 3352  df-sbc 3599  df-csb 3694  df-dif 3737  df-un 3739  df-in 3741  df-ss 3748  df-nul 4082  df-if 4246  df-pw 4319  df-sn 4337  df-pr 4339  df-op 4343  df-uni 4597  df-iun 4680  df-iin 4681  df-br 4812  df-opab 4874  df-mpt 4891  df-id 5187  df-xp 5285  df-rel 5286  df-cnv 5287  df-co 5288  df-dm 5289  df-rn 5290  df-res 5291  df-ima 5292  df-iota 6033  df-fun 6072  df-fn 6073  df-f 6074  df-f1 6075  df-fo 6076  df-f1o 6077  df-fv 6078  df-riota 6807  df-ov 6849  df-oprab 6850  df-proset 17210  df-poset 17228  df-lub 17256  df-glb 17257  df-join 17258  df-meet 17259  df-p1 17322  df-lat 17328  df-clat 17390  df-oposet 35155  df-ol 35157  df-oml 35158  df-ats 35246  df-hlat 35330  df-pmap 35483
This theorem is referenced by:  polval2N  35885
  Copyright terms: Public domain W3C validator