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

Theorem lcfrlem31 42030
Description: Lemma for lcfr 42042. (Contributed by NM, 10-Mar-2015.)
Hypotheses
Ref Expression
lcfrlem17.h 𝐻 = (LHyp‘𝐾)
lcfrlem17.o = ((ocH‘𝐾)‘𝑊)
lcfrlem17.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
lcfrlem17.v 𝑉 = (Base‘𝑈)
lcfrlem17.p + = (+g𝑈)
lcfrlem17.z 0 = (0g𝑈)
lcfrlem17.n 𝑁 = (LSpan‘𝑈)
lcfrlem17.a 𝐴 = (LSAtoms‘𝑈)
lcfrlem17.k (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
lcfrlem17.x (𝜑𝑋 ∈ (𝑉 ∖ { 0 }))
lcfrlem17.y (𝜑𝑌 ∈ (𝑉 ∖ { 0 }))
lcfrlem17.ne (𝜑 → (𝑁‘{𝑋}) ≠ (𝑁‘{𝑌}))
lcfrlem22.b 𝐵 = ((𝑁‘{𝑋, 𝑌}) ∩ ( ‘{(𝑋 + 𝑌)}))
lcfrlem24.t · = ( ·𝑠𝑈)
lcfrlem24.s 𝑆 = (Scalar‘𝑈)
lcfrlem24.q 𝑄 = (0g𝑆)
lcfrlem24.r 𝑅 = (Base‘𝑆)
lcfrlem24.j 𝐽 = (𝑥 ∈ (𝑉 ∖ { 0 }) ↦ (𝑣𝑉 ↦ (𝑘𝑅𝑤 ∈ ( ‘{𝑥})𝑣 = (𝑤 + (𝑘 · 𝑥)))))
lcfrlem24.ib (𝜑𝐼𝐵)
lcfrlem24.l 𝐿 = (LKer‘𝑈)
lcfrlem25.d 𝐷 = (LDual‘𝑈)
lcfrlem28.jn (𝜑 → ((𝐽𝑌)‘𝐼) ≠ 𝑄)
lcfrlem29.i 𝐹 = (invr𝑆)
lcfrlem30.m = (-g𝐷)
lcfrlem30.c 𝐶 = ((𝐽𝑋) (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌)))
lcfrlem31.xi (𝜑 → ((𝐽𝑋)‘𝐼) ≠ 𝑄)
lcfrlem31.cn (𝜑𝐶 = (0g𝐷))
Assertion
Ref Expression
lcfrlem31 (𝜑 → (𝑁‘{𝑋}) = (𝑁‘{𝑌}))
Distinct variable groups:   𝑣,𝑘,𝑤,𝑥,   + ,𝑘,𝑣,𝑤,𝑥   𝑅,𝑘,𝑣,𝑥   𝑆,𝑘   · ,𝑘,𝑣,𝑤,𝑥   𝑣,𝑉,𝑥   𝑘,𝑋,𝑣,𝑤,𝑥   𝑘,𝑌,𝑣,𝑤,𝑥   𝑥, 0
Allowed substitution hints:   𝜑(𝑥,𝑤,𝑣,𝑘)   𝐴(𝑥,𝑤,𝑣,𝑘)   𝐵(𝑥,𝑤,𝑣,𝑘)   𝐶(𝑥,𝑤,𝑣,𝑘)   𝐷(𝑥,𝑤,𝑣,𝑘)   𝑄(𝑥,𝑤,𝑣,𝑘)   𝑅(𝑤)   𝑆(𝑥,𝑤,𝑣)   𝑈(𝑥,𝑤,𝑣,𝑘)   𝐹(𝑥,𝑤,𝑣,𝑘)   𝐻(𝑥,𝑤,𝑣,𝑘)   𝐼(𝑥,𝑤,𝑣,𝑘)   𝐽(𝑥,𝑤,𝑣,𝑘)   𝐾(𝑥,𝑤,𝑣,𝑘)   𝐿(𝑥,𝑤,𝑣,𝑘)   (𝑥,𝑤,𝑣,𝑘)   𝑁(𝑥,𝑤,𝑣,𝑘)   𝑉(𝑤,𝑘)   𝑊(𝑥,𝑤,𝑣,𝑘)   0 (𝑤,𝑣,𝑘)

Proof of Theorem lcfrlem31
Dummy variable 𝑓 is distinct from all other variables.
StepHypRef Expression
1 lcfrlem30.c . . . . . . 7 𝐶 = ((𝐽𝑋) (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌)))
2 lcfrlem31.cn . . . . . . 7 (𝜑𝐶 = (0g𝐷))
31, 2eqtr3id 2786 . . . . . 6 (𝜑 → ((𝐽𝑋) (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌))) = (0g𝐷))
4 lcfrlem25.d . . . . . . . 8 𝐷 = (LDual‘𝑈)
5 lcfrlem17.h . . . . . . . . 9 𝐻 = (LHyp‘𝐾)
6 lcfrlem17.u . . . . . . . . 9 𝑈 = ((DVecH‘𝐾)‘𝑊)
7 lcfrlem17.k . . . . . . . . 9 (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
85, 6, 7dvhlmod 41567 . . . . . . . 8 (𝜑𝑈 ∈ LMod)
94, 8lduallmod 39610 . . . . . . 7 (𝜑𝐷 ∈ LMod)
10 eqid 2737 . . . . . . . 8 (LFnl‘𝑈) = (LFnl‘𝑈)
11 eqid 2737 . . . . . . . 8 (Base‘𝐷) = (Base‘𝐷)
12 lcfrlem17.o . . . . . . . . 9 = ((ocH‘𝐾)‘𝑊)
13 lcfrlem17.v . . . . . . . . 9 𝑉 = (Base‘𝑈)
14 lcfrlem17.p . . . . . . . . 9 + = (+g𝑈)
15 lcfrlem24.t . . . . . . . . 9 · = ( ·𝑠𝑈)
16 lcfrlem24.s . . . . . . . . 9 𝑆 = (Scalar‘𝑈)
17 lcfrlem24.r . . . . . . . . 9 𝑅 = (Base‘𝑆)
18 lcfrlem17.z . . . . . . . . 9 0 = (0g𝑈)
19 lcfrlem24.l . . . . . . . . 9 𝐿 = (LKer‘𝑈)
20 eqid 2737 . . . . . . . . 9 (0g𝐷) = (0g𝐷)
21 eqid 2737 . . . . . . . . 9 {𝑓 ∈ (LFnl‘𝑈) ∣ ( ‘( ‘(𝐿𝑓))) = (𝐿𝑓)} = {𝑓 ∈ (LFnl‘𝑈) ∣ ( ‘( ‘(𝐿𝑓))) = (𝐿𝑓)}
22 lcfrlem24.j . . . . . . . . 9 𝐽 = (𝑥 ∈ (𝑉 ∖ { 0 }) ↦ (𝑣𝑉 ↦ (𝑘𝑅𝑤 ∈ ( ‘{𝑥})𝑣 = (𝑤 + (𝑘 · 𝑥)))))
23 lcfrlem17.x . . . . . . . . 9 (𝜑𝑋 ∈ (𝑉 ∖ { 0 }))
245, 12, 6, 13, 14, 15, 16, 17, 18, 10, 19, 4, 20, 21, 22, 7, 23lcfrlem10 42009 . . . . . . . 8 (𝜑 → (𝐽𝑋) ∈ (LFnl‘𝑈))
2510, 4, 11, 8, 24ldualelvbase 39584 . . . . . . 7 (𝜑 → (𝐽𝑋) ∈ (Base‘𝐷))
26 eqid 2737 . . . . . . . . 9 ( ·𝑠𝐷) = ( ·𝑠𝐷)
27 lcfrlem17.n . . . . . . . . . 10 𝑁 = (LSpan‘𝑈)
28 lcfrlem17.a . . . . . . . . . 10 𝐴 = (LSAtoms‘𝑈)
29 lcfrlem17.y . . . . . . . . . 10 (𝜑𝑌 ∈ (𝑉 ∖ { 0 }))
30 lcfrlem17.ne . . . . . . . . . 10 (𝜑 → (𝑁‘{𝑋}) ≠ (𝑁‘{𝑌}))
31 lcfrlem22.b . . . . . . . . . 10 𝐵 = ((𝑁‘{𝑋, 𝑌}) ∩ ( ‘{(𝑋 + 𝑌)}))
32 lcfrlem24.q . . . . . . . . . 10 𝑄 = (0g𝑆)
33 lcfrlem24.ib . . . . . . . . . 10 (𝜑𝐼𝐵)
34 lcfrlem28.jn . . . . . . . . . 10 (𝜑 → ((𝐽𝑌)‘𝐼) ≠ 𝑄)
35 lcfrlem29.i . . . . . . . . . 10 𝐹 = (invr𝑆)
365, 12, 6, 13, 14, 18, 27, 28, 7, 23, 29, 30, 31, 15, 16, 32, 17, 22, 33, 19, 4, 34, 35lcfrlem29 42028 . . . . . . . . 9 (𝜑 → ((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼)) ∈ 𝑅)
375, 12, 6, 13, 14, 15, 16, 17, 18, 10, 19, 4, 20, 21, 22, 7, 29lcfrlem10 42009 . . . . . . . . 9 (𝜑 → (𝐽𝑌) ∈ (LFnl‘𝑈))
3810, 16, 17, 4, 26, 8, 36, 37ldualvscl 39596 . . . . . . . 8 (𝜑 → (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌)) ∈ (LFnl‘𝑈))
3910, 4, 11, 8, 38ldualelvbase 39584 . . . . . . 7 (𝜑 → (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌)) ∈ (Base‘𝐷))
40 lcfrlem30.m . . . . . . . 8 = (-g𝐷)
4111, 20, 40lmodsubeq0 20905 . . . . . . 7 ((𝐷 ∈ LMod ∧ (𝐽𝑋) ∈ (Base‘𝐷) ∧ (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌)) ∈ (Base‘𝐷)) → (((𝐽𝑋) (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌))) = (0g𝐷) ↔ (𝐽𝑋) = (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌))))
429, 25, 39, 41syl3anc 1374 . . . . . 6 (𝜑 → (((𝐽𝑋) (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌))) = (0g𝐷) ↔ (𝐽𝑋) = (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌))))
433, 42mpbid 232 . . . . 5 (𝜑 → (𝐽𝑋) = (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌)))
4443fveq2d 6836 . . . 4 (𝜑 → (𝐿‘(𝐽𝑋)) = (𝐿‘(((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌))))
455, 6, 7dvhlvec 41566 . . . . 5 (𝜑𝑈 ∈ LVec)
4616lvecdrng 21090 . . . . . . . 8 (𝑈 ∈ LVec → 𝑆 ∈ DivRing)
4745, 46syl 17 . . . . . . 7 (𝜑𝑆 ∈ DivRing)
485, 12, 6, 13, 14, 18, 27, 28, 7, 23, 29, 30, 31lcfrlem22 42021 . . . . . . . . . 10 (𝜑𝐵𝐴)
4913, 28, 8, 48lsatssv 39455 . . . . . . . . 9 (𝜑𝐵𝑉)
5049, 33sseldd 3923 . . . . . . . 8 (𝜑𝐼𝑉)
5116, 17, 13, 10lflcl 39521 . . . . . . . 8 ((𝑈 ∈ LMod ∧ (𝐽𝑌) ∈ (LFnl‘𝑈) ∧ 𝐼𝑉) → ((𝐽𝑌)‘𝐼) ∈ 𝑅)
528, 37, 50, 51syl3anc 1374 . . . . . . 7 (𝜑 → ((𝐽𝑌)‘𝐼) ∈ 𝑅)
5317, 32, 35drnginvrn0 20720 . . . . . . 7 ((𝑆 ∈ DivRing ∧ ((𝐽𝑌)‘𝐼) ∈ 𝑅 ∧ ((𝐽𝑌)‘𝐼) ≠ 𝑄) → (𝐹‘((𝐽𝑌)‘𝐼)) ≠ 𝑄)
5447, 52, 34, 53syl3anc 1374 . . . . . 6 (𝜑 → (𝐹‘((𝐽𝑌)‘𝐼)) ≠ 𝑄)
55 lcfrlem31.xi . . . . . 6 (𝜑 → ((𝐽𝑋)‘𝐼) ≠ 𝑄)
56 eqid 2737 . . . . . . 7 (.r𝑆) = (.r𝑆)
5717, 32, 35drnginvrcl 20719 . . . . . . . 8 ((𝑆 ∈ DivRing ∧ ((𝐽𝑌)‘𝐼) ∈ 𝑅 ∧ ((𝐽𝑌)‘𝐼) ≠ 𝑄) → (𝐹‘((𝐽𝑌)‘𝐼)) ∈ 𝑅)
5847, 52, 34, 57syl3anc 1374 . . . . . . 7 (𝜑 → (𝐹‘((𝐽𝑌)‘𝐼)) ∈ 𝑅)
5916, 17, 13, 10lflcl 39521 . . . . . . . 8 ((𝑈 ∈ LMod ∧ (𝐽𝑋) ∈ (LFnl‘𝑈) ∧ 𝐼𝑉) → ((𝐽𝑋)‘𝐼) ∈ 𝑅)
608, 24, 50, 59syl3anc 1374 . . . . . . 7 (𝜑 → ((𝐽𝑋)‘𝐼) ∈ 𝑅)
6117, 32, 56, 47, 58, 60drngmulne0 20728 . . . . . 6 (𝜑 → (((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼)) ≠ 𝑄 ↔ ((𝐹‘((𝐽𝑌)‘𝐼)) ≠ 𝑄 ∧ ((𝐽𝑋)‘𝐼) ≠ 𝑄)))
6254, 55, 61mpbir2and 714 . . . . 5 (𝜑 → ((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼)) ≠ 𝑄)
6316, 17, 32, 10, 19, 4, 26, 45, 37, 36, 62ldualkrsc 39624 . . . 4 (𝜑 → (𝐿‘(((𝐹‘((𝐽𝑌)‘𝐼))(.r𝑆)((𝐽𝑋)‘𝐼))( ·𝑠𝐷)(𝐽𝑌))) = (𝐿‘(𝐽𝑌)))
6444, 63eqtrd 2772 . . 3 (𝜑 → (𝐿‘(𝐽𝑋)) = (𝐿‘(𝐽𝑌)))
6564fveq2d 6836 . 2 (𝜑 → ( ‘(𝐿‘(𝐽𝑋))) = ( ‘(𝐿‘(𝐽𝑌))))
665, 12, 6, 13, 14, 15, 16, 17, 18, 10, 19, 4, 20, 21, 22, 7, 23, 27lcfrlem14 42013 . 2 (𝜑 → ( ‘(𝐿‘(𝐽𝑋))) = (𝑁‘{𝑋}))
675, 12, 6, 13, 14, 15, 16, 17, 18, 10, 19, 4, 20, 21, 22, 7, 29, 27lcfrlem14 42013 . 2 (𝜑 → ( ‘(𝐿‘(𝐽𝑌))) = (𝑁‘{𝑌}))
6865, 66, 673eqtr3d 2780 1 (𝜑 → (𝑁‘{𝑋}) = (𝑁‘{𝑌}))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  wne 2933  wrex 3062  {crab 3390  cdif 3887  cin 3889  {csn 4568  {cpr 4570  cmpt 5167  cfv 6490  crio 7314  (class class class)co 7358  Basecbs 17168  +gcplusg 17209  .rcmulr 17210  Scalarcsca 17212   ·𝑠 cvsca 17213  0gc0g 17391  -gcsg 18900  invrcinvr 20356  DivRingcdr 20695  LModclmod 20844  LSpanclspn 20955  LVecclvec 21087  LSAtomsclsa 39431  LFnlclfn 39514  LKerclk 39542  LDualcld 39580  HLchlt 39807  LHypclh 40441  DVecHcdvh 41535  ocHcoch 41804
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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5300  ax-pr 5368  ax-un 7680  ax-cnex 11083  ax-resscn 11084  ax-1cn 11085  ax-icn 11086  ax-addcl 11087  ax-addrcl 11088  ax-mulcl 11089  ax-mulrcl 11090  ax-mulcom 11091  ax-addass 11092  ax-mulass 11093  ax-distr 11094  ax-i2m1 11095  ax-1ne0 11096  ax-1rid 11097  ax-rnegex 11098  ax-rrecex 11099  ax-cnre 11100  ax-pre-lttri 11101  ax-pre-lttrn 11102  ax-pre-ltadd 11103  ax-pre-mulgt0 11104  ax-riotaBAD 39410
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-om 7809  df-1st 7933  df-2nd 7934  df-tpos 8167  df-undef 8214  df-frecs 8222  df-wrecs 8253  df-recs 8302  df-rdg 8340  df-1o 8396  df-2o 8397  df-er 8634  df-map 8766  df-en 8885  df-dom 8886  df-sdom 8887  df-fin 8888  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11368  df-neg 11369  df-nn 12164  df-2 12233  df-3 12234  df-4 12235  df-5 12236  df-6 12237  df-n0 12427  df-z 12514  df-uz 12778  df-fz 13451  df-struct 17106  df-sets 17123  df-slot 17141  df-ndx 17153  df-base 17169  df-ress 17190  df-plusg 17222  df-mulr 17223  df-sca 17225  df-vsca 17226  df-0g 17393  df-mre 17537  df-mrc 17538  df-acs 17540  df-proset 18249  df-poset 18268  df-plt 18283  df-lub 18299  df-glb 18300  df-join 18301  df-meet 18302  df-p0 18378  df-p1 18379  df-lat 18387  df-clat 18454  df-mgm 18597  df-sgrp 18676  df-mnd 18692  df-submnd 18741  df-grp 18901  df-minusg 18902  df-sbg 18903  df-subg 19088  df-cntz 19281  df-oppg 19310  df-lsm 19600  df-cmn 19746  df-abl 19747  df-mgp 20111  df-rng 20123  df-ur 20152  df-ring 20205  df-oppr 20306  df-dvdsr 20326  df-unit 20327  df-invr 20357  df-dvr 20370  df-nzr 20479  df-rlreg 20660  df-domn 20661  df-drng 20697  df-lmod 20846  df-lss 20916  df-lsp 20956  df-lvec 21088  df-lsatoms 39433  df-lshyp 39434  df-lcv 39476  df-lfl 39515  df-lkr 39543  df-ldual 39581  df-oposet 39633  df-ol 39635  df-oml 39636  df-covers 39723  df-ats 39724  df-atl 39755  df-cvlat 39779  df-hlat 39808  df-llines 39955  df-lplanes 39956  df-lvols 39957  df-lines 39958  df-psubsp 39960  df-pmap 39961  df-padd 40253  df-lhyp 40445  df-laut 40446  df-ldil 40561  df-ltrn 40562  df-trl 40616  df-tgrp 41200  df-tendo 41212  df-edring 41214  df-dveca 41460  df-disoa 41486  df-dvech 41536  df-dib 41596  df-dic 41630  df-dih 41686  df-doch 41805  df-djh 41852
This theorem is referenced by:  lcfrlem32  42031
  Copyright terms: Public domain W3C validator