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

Theorem cdlemn5pre 39940
Description: Part of proof of Lemma N of [Crawley] p. 121 line 32. (Contributed by NM, 25-Feb-2014.)
Hypotheses
Ref Expression
cdlemn5.b 𝐵 = (Base‘𝐾)
cdlemn5.l = (le‘𝐾)
cdlemn5.j = (join‘𝐾)
cdlemn5.a 𝐴 = (Atoms‘𝐾)
cdlemn5.h 𝐻 = (LHyp‘𝐾)
cdlemn5.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
cdlemn5.s = (LSSum‘𝑈)
cdlemn5.i 𝐼 = ((DIsoB‘𝐾)‘𝑊)
cdlemn5.J 𝐽 = ((DIsoC‘𝐾)‘𝑊)
cdlemn5.p 𝑃 = ((oc‘𝐾)‘𝑊)
cdlemn5.o 𝑂 = (𝑇 ↦ ( I ↾ 𝐵))
cdlemn5.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemn5.e 𝐸 = ((TEndo‘𝐾)‘𝑊)
cdlemn5.n 𝑁 = (LSpan‘𝑈)
cdlemn5.f 𝐹 = (𝑇 (𝑃) = 𝑄)
cdlemn5.g 𝐺 = (𝑇 (𝑃) = 𝑅)
cdlemn5.m 𝑀 = (𝑇 (𝑄) = 𝑅)
Assertion
Ref Expression
cdlemn5pre (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐽𝑅) ⊆ ((𝐽𝑄) (𝐼𝑋)))
Distinct variable groups:   ,   𝐴,   𝐵,   ,𝐻   ,𝐾   𝑃,   𝑄,   𝑅,   𝑇,   ,𝑊
Allowed substitution hints:   ()   𝑈()   𝐸()   𝐹()   𝐺()   𝐼()   𝐽()   ()   𝑀()   𝑁()   𝑂()   𝑋()

Proof of Theorem cdlemn5pre
StepHypRef Expression
1 simp1 1136 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp22 1207 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
3 cdlemn5.l . . . 4 = (le‘𝐾)
4 cdlemn5.a . . . 4 𝐴 = (Atoms‘𝐾)
5 cdlemn5.h . . . 4 𝐻 = (LHyp‘𝐾)
6 cdlemn5.p . . . 4 𝑃 = ((oc‘𝐾)‘𝑊)
7 cdlemn5.t . . . 4 𝑇 = ((LTrn‘𝐾)‘𝑊)
8 cdlemn5.J . . . 4 𝐽 = ((DIsoC‘𝐾)‘𝑊)
9 cdlemn5.u . . . 4 𝑈 = ((DVecH‘𝐾)‘𝑊)
10 cdlemn5.n . . . 4 𝑁 = (LSpan‘𝑈)
11 cdlemn5.g . . . 4 𝐺 = (𝑇 (𝑃) = 𝑅)
123, 4, 5, 6, 7, 8, 9, 10, 11diclspsn 39934 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝐽𝑅) = (𝑁‘{⟨𝐺, ( I ↾ 𝑇)⟩}))
131, 2, 12syl2anc 584 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐽𝑅) = (𝑁‘{⟨𝐺, ( I ↾ 𝑇)⟩}))
14 simp21 1206 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
15 cdlemn5.b . . . . . 6 𝐵 = (Base‘𝐾)
16 cdlemn5.o . . . . . 6 𝑂 = (𝑇 ↦ ( I ↾ 𝐵))
17 cdlemn5.f . . . . . 6 𝐹 = (𝑇 (𝑃) = 𝑄)
18 cdlemn5.m . . . . . 6 𝑀 = (𝑇 (𝑄) = 𝑅)
19 cdlemn5.s . . . . . 6 = (LSSum‘𝑈)
2015, 3, 4, 6, 5, 7, 16, 9, 17, 11, 18, 10, 19cdlemn4a 39939 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝑁‘{⟨𝐺, ( I ↾ 𝑇)⟩}) ⊆ ((𝑁‘{⟨𝐹, ( I ↾ 𝑇)⟩}) (𝑁‘{⟨𝑀, 𝑂⟩})))
211, 14, 2, 20syl3anc 1371 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝑁‘{⟨𝐺, ( I ↾ 𝑇)⟩}) ⊆ ((𝑁‘{⟨𝐹, ( I ↾ 𝑇)⟩}) (𝑁‘{⟨𝑀, 𝑂⟩})))
223, 4, 5, 6, 7, 8, 9, 10, 17diclspsn 39934 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐽𝑄) = (𝑁‘{⟨𝐹, ( I ↾ 𝑇)⟩}))
231, 14, 22syl2anc 584 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐽𝑄) = (𝑁‘{⟨𝐹, ( I ↾ 𝑇)⟩}))
2423oveq1d 7409 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → ((𝐽𝑄) (𝑁‘{⟨𝑀, 𝑂⟩})) = ((𝑁‘{⟨𝐹, ( I ↾ 𝑇)⟩}) (𝑁‘{⟨𝑀, 𝑂⟩})))
2521, 24sseqtrrd 4020 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝑁‘{⟨𝐺, ( I ↾ 𝑇)⟩}) ⊆ ((𝐽𝑄) (𝑁‘{⟨𝑀, 𝑂⟩})))
265, 9, 1dvhlmod 39850 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → 𝑈 ∈ LMod)
27 eqid 2732 . . . . . . 7 (LSubSp‘𝑈) = (LSubSp‘𝑈)
2827lsssssubg 20520 . . . . . 6 (𝑈 ∈ LMod → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
2926, 28syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
303, 4, 5, 9, 8, 27diclss 39933 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐽𝑄) ∈ (LSubSp‘𝑈))
311, 14, 30syl2anc 584 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐽𝑄) ∈ (LSubSp‘𝑈))
3229, 31sseldd 3980 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐽𝑄) ∈ (SubGrp‘𝑈))
33 simp23 1208 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝑋𝐵𝑋 𝑊))
34 cdlemn5.i . . . . . . 7 𝐼 = ((DIsoB‘𝐾)‘𝑊)
3515, 3, 5, 9, 34, 27diblss 39910 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊)) → (𝐼𝑋) ∈ (LSubSp‘𝑈))
361, 33, 35syl2anc 584 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐼𝑋) ∈ (LSubSp‘𝑈))
3729, 36sseldd 3980 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐼𝑋) ∈ (SubGrp‘𝑈))
38 cdlemn5.j . . . . 5 = (join‘𝐾)
39 eqid 2732 . . . . 5 ((trL‘𝐾)‘𝑊) = ((trL‘𝐾)‘𝑊)
4015, 3, 38, 4, 5, 7, 39, 16, 34, 9, 10, 18cdlemn2a 39936 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝑁‘{⟨𝑀, 𝑂⟩}) ⊆ (𝐼𝑋))
4119lsmless2 19495 . . . 4 (((𝐽𝑄) ∈ (SubGrp‘𝑈) ∧ (𝐼𝑋) ∈ (SubGrp‘𝑈) ∧ (𝑁‘{⟨𝑀, 𝑂⟩}) ⊆ (𝐼𝑋)) → ((𝐽𝑄) (𝑁‘{⟨𝑀, 𝑂⟩})) ⊆ ((𝐽𝑄) (𝐼𝑋)))
4232, 37, 40, 41syl3anc 1371 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → ((𝐽𝑄) (𝑁‘{⟨𝑀, 𝑂⟩})) ⊆ ((𝐽𝑄) (𝐼𝑋)))
4325, 42sstrd 3989 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝑁‘{⟨𝐺, ( I ↾ 𝑇)⟩}) ⊆ ((𝐽𝑄) (𝐼𝑋)))
4413, 43eqsstrd 4017 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑋𝐵𝑋 𝑊)) ∧ 𝑅 (𝑄 𝑋)) → (𝐽𝑅) ⊆ ((𝐽𝑄) (𝐼𝑋)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1087   = wceq 1541  wcel 2106  wss 3945  {csn 4623  cop 4629   class class class wbr 5142  cmpt 5225   I cid 5567  cres 5672  cfv 6533  crio 7349  (class class class)co 7394  Basecbs 17128  lecple 17188  occoc 17189  joincjn 18248  SubGrpcsubg 18974  LSSumclsm 19468  LModclmod 20422  LSubSpclss 20493  LSpanclspn 20533  Atomscatm 38002  HLchlt 38089  LHypclh 38724  LTrncltrn 38841  trLctrl 38898  TEndoctendo 39492  DVecHcdvh 39818  DIsoBcdib 39878  DIsoCcdic 39912
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 2703  ax-rep 5279  ax-sep 5293  ax-nul 5300  ax-pow 5357  ax-pr 5421  ax-un 7709  ax-cnex 11150  ax-resscn 11151  ax-1cn 11152  ax-icn 11153  ax-addcl 11154  ax-addrcl 11155  ax-mulcl 11156  ax-mulrcl 11157  ax-mulcom 11158  ax-addass 11159  ax-mulass 11160  ax-distr 11161  ax-i2m1 11162  ax-1ne0 11163  ax-1rid 11164  ax-rnegex 11165  ax-rrecex 11166  ax-cnre 11167  ax-pre-lttri 11168  ax-pre-lttrn 11169  ax-pre-ltadd 11170  ax-pre-mulgt0 11171  ax-riotaBAD 37692
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3775  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-pss 3964  df-nul 4320  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-uni 4903  df-int 4945  df-iun 4993  df-iin 4994  df-br 5143  df-opab 5205  df-mpt 5226  df-tr 5260  df-id 5568  df-eprel 5574  df-po 5582  df-so 5583  df-fr 5625  df-we 5627  df-xp 5676  df-rel 5677  df-cnv 5678  df-co 5679  df-dm 5680  df-rn 5681  df-res 5682  df-ima 5683  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7350  df-ov 7397  df-oprab 7398  df-mpo 7399  df-om 7840  df-1st 7959  df-2nd 7960  df-tpos 8195  df-undef 8242  df-frecs 8250  df-wrecs 8281  df-recs 8355  df-rdg 8394  df-1o 8450  df-er 8688  df-map 8807  df-en 8925  df-dom 8926  df-sdom 8927  df-fin 8928  df-pnf 11234  df-mnf 11235  df-xr 11236  df-ltxr 11237  df-le 11238  df-sub 11430  df-neg 11431  df-nn 12197  df-2 12259  df-3 12260  df-4 12261  df-5 12262  df-6 12263  df-n0 12457  df-z 12543  df-uz 12807  df-fz 13469  df-struct 17064  df-sets 17081  df-slot 17099  df-ndx 17111  df-base 17129  df-ress 17158  df-plusg 17194  df-mulr 17195  df-sca 17197  df-vsca 17198  df-0g 17371  df-proset 18232  df-poset 18250  df-plt 18267  df-lub 18283  df-glb 18284  df-join 18285  df-meet 18286  df-p0 18362  df-p1 18363  df-lat 18369  df-clat 18436  df-mgm 18545  df-sgrp 18594  df-mnd 18605  df-submnd 18650  df-grp 18799  df-minusg 18800  df-sbg 18801  df-subg 18977  df-cntz 19149  df-lsm 19470  df-cmn 19616  df-abl 19617  df-mgp 19949  df-ur 19966  df-ring 20018  df-oppr 20104  df-dvdsr 20125  df-unit 20126  df-invr 20156  df-dvr 20167  df-drng 20269  df-lmod 20424  df-lss 20494  df-lsp 20534  df-lvec 20665  df-oposet 37915  df-ol 37917  df-oml 37918  df-covers 38005  df-ats 38006  df-atl 38037  df-cvlat 38061  df-hlat 38090  df-llines 38238  df-lplanes 38239  df-lvols 38240  df-lines 38241  df-psubsp 38243  df-pmap 38244  df-padd 38536  df-lhyp 38728  df-laut 38729  df-ldil 38844  df-ltrn 38845  df-trl 38899  df-tendo 39495  df-edring 39497  df-disoa 39769  df-dvech 39819  df-dib 39879  df-dic 39913
This theorem is referenced by:  cdlemn5  39941
  Copyright terms: Public domain W3C validator