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

Theorem dihmeetlem9N 41259
Description: Lemma for isomorphism H of a lattice meet. (Contributed by NM, 6-Apr-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
dihmeetlem9.b 𝐵 = (Base‘𝐾)
dihmeetlem9.l = (le‘𝐾)
dihmeetlem9.h 𝐻 = (LHyp‘𝐾)
dihmeetlem9.j = (join‘𝐾)
dihmeetlem9.m = (meet‘𝐾)
dihmeetlem9.a 𝐴 = (Atoms‘𝐾)
dihmeetlem9.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihmeetlem9.s = (LSSum‘𝑈)
dihmeetlem9.i 𝐼 = ((DIsoH‘𝐾)‘𝑊)
Assertion
Ref Expression
dihmeetlem9N (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (((𝐼𝑝) (𝐼‘(𝑋 𝑌))) ∩ (𝐼𝑌)) = ((𝐼‘(𝑋 𝑌)) ((𝐼𝑝) ∩ (𝐼𝑌))))

Proof of Theorem dihmeetlem9N
StepHypRef Expression
1 dihmeetlem9.h . . . . . 6 𝐻 = (LHyp‘𝐾)
2 dihmeetlem9.u . . . . . 6 𝑈 = ((DVecH‘𝐾)‘𝑊)
3 simp1 1134 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝐾 ∈ HL ∧ 𝑊𝐻))
41, 2, 3dvhlmod 41054 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝑈 ∈ LMod)
5 eqid 2733 . . . . . 6 (LSubSp‘𝑈) = (LSubSp‘𝑈)
65lsssssubg 20955 . . . . 5 (𝑈 ∈ LMod → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
74, 6syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
8 simp1l 1195 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝐾 ∈ HL)
98hllatd 39307 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝐾 ∈ Lat)
10 simp2l 1197 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝑋𝐵)
11 simp2r 1198 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝑌𝐵)
12 dihmeetlem9.b . . . . . . 7 𝐵 = (Base‘𝐾)
13 dihmeetlem9.m . . . . . . 7 = (meet‘𝐾)
1412, 13latmcl 18486 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌) ∈ 𝐵)
159, 10, 11, 14syl3anc 1369 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝑋 𝑌) ∈ 𝐵)
16 dihmeetlem9.i . . . . . 6 𝐼 = ((DIsoH‘𝐾)‘𝑊)
1712, 1, 16, 2, 5dihlss 41194 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 𝑌) ∈ 𝐵) → (𝐼‘(𝑋 𝑌)) ∈ (LSubSp‘𝑈))
183, 15, 17syl2anc 583 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝐼‘(𝑋 𝑌)) ∈ (LSubSp‘𝑈))
197, 18sseldd 3996 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝐼‘(𝑋 𝑌)) ∈ (SubGrp‘𝑈))
20 dihmeetlem9.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
2112, 20atbase 39232 . . . . . 6 (𝑝𝐴𝑝𝐵)
22213ad2ant3 1133 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝑝𝐵)
2312, 1, 16, 2, 5dihlss 41194 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑝𝐵) → (𝐼𝑝) ∈ (LSubSp‘𝑈))
243, 22, 23syl2anc 583 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝐼𝑝) ∈ (LSubSp‘𝑈))
257, 24sseldd 3996 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝐼𝑝) ∈ (SubGrp‘𝑈))
2612, 1, 16, 2, 5dihlss 41194 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑌𝐵) → (𝐼𝑌) ∈ (LSubSp‘𝑈))
273, 11, 26syl2anc 583 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝐼𝑌) ∈ (LSubSp‘𝑈))
287, 27sseldd 3996 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝐼𝑌) ∈ (SubGrp‘𝑈))
29 dihmeetlem9.l . . . . . 6 = (le‘𝐾)
3012, 29, 13latmle2 18511 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌) 𝑌)
319, 10, 11, 30syl3anc 1369 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝑋 𝑌) 𝑌)
3212, 29, 1, 16dihord 41208 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 𝑌) ∈ 𝐵𝑌𝐵) → ((𝐼‘(𝑋 𝑌)) ⊆ (𝐼𝑌) ↔ (𝑋 𝑌) 𝑌))
333, 15, 11, 32syl3anc 1369 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → ((𝐼‘(𝑋 𝑌)) ⊆ (𝐼𝑌) ↔ (𝑋 𝑌) 𝑌))
3431, 33mpbird 257 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝐼‘(𝑋 𝑌)) ⊆ (𝐼𝑌))
35 dihmeetlem9.s . . . 4 = (LSSum‘𝑈)
3635lsmmod 19693 . . 3 ((((𝐼‘(𝑋 𝑌)) ∈ (SubGrp‘𝑈) ∧ (𝐼𝑝) ∈ (SubGrp‘𝑈) ∧ (𝐼𝑌) ∈ (SubGrp‘𝑈)) ∧ (𝐼‘(𝑋 𝑌)) ⊆ (𝐼𝑌)) → ((𝐼‘(𝑋 𝑌)) ((𝐼𝑝) ∩ (𝐼𝑌))) = (((𝐼‘(𝑋 𝑌)) (𝐼𝑝)) ∩ (𝐼𝑌)))
3719, 25, 28, 34, 36syl31anc 1371 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → ((𝐼‘(𝑋 𝑌)) ((𝐼𝑝) ∩ (𝐼𝑌))) = (((𝐼‘(𝑋 𝑌)) (𝐼𝑝)) ∩ (𝐼𝑌)))
38 lmodabl 20905 . . . . 5 (𝑈 ∈ LMod → 𝑈 ∈ Abel)
394, 38syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝑈 ∈ Abel)
4035lsmcom 19876 . . . 4 ((𝑈 ∈ Abel ∧ (𝐼‘(𝑋 𝑌)) ∈ (SubGrp‘𝑈) ∧ (𝐼𝑝) ∈ (SubGrp‘𝑈)) → ((𝐼‘(𝑋 𝑌)) (𝐼𝑝)) = ((𝐼𝑝) (𝐼‘(𝑋 𝑌))))
4139, 19, 25, 40syl3anc 1369 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → ((𝐼‘(𝑋 𝑌)) (𝐼𝑝)) = ((𝐼𝑝) (𝐼‘(𝑋 𝑌))))
4241ineq1d 4227 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (((𝐼‘(𝑋 𝑌)) (𝐼𝑝)) ∩ (𝐼𝑌)) = (((𝐼𝑝) (𝐼‘(𝑋 𝑌))) ∩ (𝐼𝑌)))
4337, 42eqtr2d 2774 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (((𝐼𝑝) (𝐼‘(𝑋 𝑌))) ∩ (𝐼𝑌)) = ((𝐼‘(𝑋 𝑌)) ((𝐼𝑝) ∩ (𝐼𝑌))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1085   = wceq 1535  wcel 2104  cin 3962  wss 3963   class class class wbr 5149  cfv 6558  (class class class)co 7425  Basecbs 17234  lecple 17294  joincjn 18357  meetcmee 18358  Latclat 18477  SubGrpcsubg 19136  LSSumclsm 19652  Abelcabl 19799  LModclmod 20856  LSubSpclss 20928  Atomscatm 39206  HLchlt 39293  LHypclh 39928  DVecHcdvh 41022  DIsoHcdih 41172
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1963  ax-7 2003  ax-8 2106  ax-9 2114  ax-10 2137  ax-11 2153  ax-12 2173  ax-ext 2704  ax-rep 5286  ax-sep 5300  ax-nul 5307  ax-pow 5366  ax-pr 5430  ax-un 7747  ax-cnex 11202  ax-resscn 11203  ax-1cn 11204  ax-icn 11205  ax-addcl 11206  ax-addrcl 11207  ax-mulcl 11208  ax-mulrcl 11209  ax-mulcom 11210  ax-addass 11211  ax-mulass 11212  ax-distr 11213  ax-i2m1 11214  ax-1ne0 11215  ax-1rid 11216  ax-rnegex 11217  ax-rrecex 11218  ax-cnre 11219  ax-pre-lttri 11220  ax-pre-lttrn 11221  ax-pre-ltadd 11222  ax-pre-mulgt0 11223  ax-riotaBAD 38896
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1538  df-fal 1548  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2536  df-eu 2565  df-clab 2711  df-cleq 2725  df-clel 2812  df-nfc 2888  df-ne 2937  df-nel 3043  df-ral 3058  df-rex 3067  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3479  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-pss 3983  df-nul 4340  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-uni 4915  df-int 4954  df-iun 5000  df-iin 5001  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5635  df-we 5637  df-xp 5689  df-rel 5690  df-cnv 5691  df-co 5692  df-dm 5693  df-rn 5694  df-res 5695  df-ima 5696  df-pred 6317  df-ord 6383  df-on 6384  df-lim 6385  df-suc 6386  df-iota 6510  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-riota 7381  df-ov 7428  df-oprab 7429  df-mpo 7430  df-om 7881  df-1st 8007  df-2nd 8008  df-tpos 8244  df-undef 8291  df-frecs 8299  df-wrecs 8330  df-recs 8404  df-rdg 8443  df-1o 8499  df-2o 8500  df-er 8738  df-map 8861  df-en 8979  df-dom 8980  df-sdom 8981  df-fin 8982  df-pnf 11288  df-mnf 11289  df-xr 11290  df-ltxr 11291  df-le 11292  df-sub 11485  df-neg 11486  df-nn 12258  df-2 12320  df-3 12321  df-4 12322  df-5 12323  df-6 12324  df-n0 12518  df-z 12605  df-uz 12870  df-fz 13538  df-struct 17170  df-sets 17187  df-slot 17205  df-ndx 17217  df-base 17235  df-ress 17264  df-plusg 17300  df-mulr 17301  df-sca 17303  df-vsca 17304  df-0g 17477  df-mre 17620  df-mrc 17621  df-acs 17623  df-proset 18341  df-poset 18359  df-plt 18376  df-lub 18392  df-glb 18393  df-join 18394  df-meet 18395  df-p0 18471  df-p1 18472  df-lat 18478  df-clat 18545  df-mgm 18654  df-sgrp 18733  df-mnd 18749  df-submnd 18795  df-grp 18952  df-minusg 18953  df-sbg 18954  df-subg 19139  df-cntz 19333  df-lsm 19654  df-cmn 19800  df-abl 19801  df-mgp 20138  df-rng 20156  df-ur 20185  df-ring 20238  df-oppr 20336  df-dvdsr 20359  df-unit 20360  df-invr 20390  df-dvr 20403  df-drng 20729  df-lmod 20858  df-lss 20929  df-lsp 20969  df-lvec 21101  df-oposet 39119  df-ol 39121  df-oml 39122  df-covers 39209  df-ats 39210  df-atl 39241  df-cvlat 39265  df-hlat 39294  df-llines 39442  df-lplanes 39443  df-lvols 39444  df-lines 39445  df-psubsp 39447  df-pmap 39448  df-padd 39740  df-lhyp 39932  df-laut 39933  df-ldil 40048  df-ltrn 40049  df-trl 40103  df-tendo 40699  df-edring 40701  df-disoa 40973  df-dvech 41023  df-dib 41083  df-dic 41117  df-dih 41173
This theorem is referenced by:  dihmeetlem12N  41262
  Copyright terms: Public domain W3C validator