Theorem lcfrlem29 41076

Description: Lemma for lcfr 41090. (Contributed by NM, 9-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‘𝑆)

Assertion

Ref	Expression
lcfrlem29	⊢ (𝜑 → ((𝐹‘((𝐽‘𝑌)‘𝐼))(.r‘𝑆)((𝐽‘𝑋)‘𝐼)) ∈ 𝑅)

Distinct variable groups:   𝑣,𝑘,𝑤,𝑥, ⊥   + ,𝑘,𝑣,𝑤,𝑥   𝑅,𝑘,𝑣,𝑥   𝑆,𝑘   · ,𝑘,𝑣,𝑤,𝑥   𝑣,𝑉,𝑥   𝑘,𝑋,𝑣,𝑤,𝑥   𝑘,𝑌,𝑣,𝑤,𝑥   𝑥, 0

Allowed substitution hints:   𝜑(𝑥,𝑤,𝑣,𝑘)   𝐴(𝑥,𝑤,𝑣,𝑘)   𝐵(𝑥,𝑤,𝑣,𝑘)   𝐷(𝑥,𝑤,𝑣,𝑘)   𝑄(𝑥,𝑤,𝑣,𝑘)   𝑅(𝑤)   𝑆(𝑥,𝑤,𝑣)   𝑈(𝑥,𝑤,𝑣,𝑘)   𝐹(𝑥,𝑤,𝑣,𝑘)   𝐻(𝑥,𝑤,𝑣,𝑘)   𝐼(𝑥,𝑤,𝑣,𝑘)   𝐽(𝑥,𝑤,𝑣,𝑘)   𝐾(𝑥,𝑤,𝑣,𝑘)   𝐿(𝑥,𝑤,𝑣,𝑘)   𝑁(𝑥,𝑤,𝑣,𝑘)   𝑉(𝑤,𝑘)   𝑊(𝑥,𝑤,𝑣,𝑘)   0 (𝑤,𝑣,𝑘)

Proof of Theorem lcfrlem29

Step	Hyp	Ref	Expression
1		lcfrlem17.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
2		lcfrlem17.u	. . . 4 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
3		lcfrlem17.k	. . . 4 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
4	1, 2, 3	dvhlmod 40615	. . 3 ⊢ (𝜑 → 𝑈 ∈ LMod)
5		lcfrlem24.s	. . . 4 ⊢ 𝑆 = (Scalar‘𝑈)
6	5	lmodring 20758	. . 3 ⊢ (𝑈 ∈ LMod → 𝑆 ∈ Ring)
7	4, 6	syl 17	. 2 ⊢ (𝜑 → 𝑆 ∈ Ring)
8	1, 2, 3	dvhlvec 40614	. . . 4 ⊢ (𝜑 → 𝑈 ∈ LVec)
9	5	lvecdrng 20997	. . . 4 ⊢ (𝑈 ∈ LVec → 𝑆 ∈ DivRing)
10	8, 9	syl 17	. . 3 ⊢ (𝜑 → 𝑆 ∈ DivRing)
11		lcfrlem17.o	. . . . 5 ⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
12		lcfrlem17.v	. . . . 5 ⊢ 𝑉 = (Base‘𝑈)
13		lcfrlem17.p	. . . . 5 ⊢ + = (+g‘𝑈)
14		lcfrlem24.t	. . . . 5 ⊢ · = ( ·𝑠 ‘𝑈)
15		lcfrlem24.r	. . . . 5 ⊢ 𝑅 = (Base‘𝑆)
16		lcfrlem17.z	. . . . 5 ⊢ 0 = (0g‘𝑈)
17		eqid 2728	. . . . 5 ⊢ (LFnl‘𝑈) = (LFnl‘𝑈)
18		lcfrlem24.l	. . . . 5 ⊢ 𝐿 = (LKer‘𝑈)
19		lcfrlem25.d	. . . . 5 ⊢ 𝐷 = (LDual‘𝑈)
20		eqid 2728	. . . . 5 ⊢ (0g‘𝐷) = (0g‘𝐷)
21		eqid 2728	. . . . 5 ⊢ {𝑓 ∈ (LFnl‘𝑈) ∣ ( ⊥ ‘( ⊥ ‘(𝐿‘𝑓))) = (𝐿‘𝑓)} = {𝑓 ∈ (LFnl‘𝑈) ∣ ( ⊥ ‘( ⊥ ‘(𝐿‘𝑓))) = (𝐿‘𝑓)}
22		lcfrlem24.j	. . . . 5 ⊢ 𝐽 = (𝑥 ∈ (𝑉 ∖ { 0 }) ↦ (𝑣 ∈ 𝑉 ↦ (℩𝑘 ∈ 𝑅 ∃𝑤 ∈ ( ⊥ ‘{𝑥})𝑣 = (𝑤 + (𝑘 · 𝑥)))))
23		lcfrlem17.y	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (𝑉 ∖ { 0 }))
24	1, 11, 2, 12, 13, 14, 5, 15, 16, 17, 18, 19, 20, 21, 22, 3, 23	lcfrlem10 41057	. . . 4 ⊢ (𝜑 → (𝐽‘𝑌) ∈ (LFnl‘𝑈))
25		eqid 2728	. . . . . 6 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
26		lcfrlem17.a	. . . . . 6 ⊢ 𝐴 = (LSAtoms‘𝑈)
27		lcfrlem17.n	. . . . . . 7 ⊢ 𝑁 = (LSpan‘𝑈)
28		lcfrlem17.x	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ (𝑉 ∖ { 0 }))
29		lcfrlem17.ne	. . . . . . 7 ⊢ (𝜑 → (𝑁‘{𝑋}) ≠ (𝑁‘{𝑌}))
30		lcfrlem22.b	. . . . . . 7 ⊢ 𝐵 = ((𝑁‘{𝑋, 𝑌}) ∩ ( ⊥ ‘{(𝑋 + 𝑌)}))
31	1, 11, 2, 12, 13, 16, 27, 26, 3, 28, 23, 29, 30	lcfrlem22 41069	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ 𝐴)
32	25, 26, 4, 31	lsatlssel 38501	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ (LSubSp‘𝑈))
33		lcfrlem24.ib	. . . . 5 ⊢ (𝜑 → 𝐼 ∈ 𝐵)
34	12, 25	lssel 20828	. . . . 5 ⊢ ((𝐵 ∈ (LSubSp‘𝑈) ∧ 𝐼 ∈ 𝐵) → 𝐼 ∈ 𝑉)
35	32, 33, 34	syl2anc 582	. . . 4 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
36	5, 15, 12, 17	lflcl 38568	. . . 4 ⊢ ((𝑈 ∈ LMod ∧ (𝐽‘𝑌) ∈ (LFnl‘𝑈) ∧ 𝐼 ∈ 𝑉) → ((𝐽‘𝑌)‘𝐼) ∈ 𝑅)
37	4, 24, 35, 36	syl3anc 1368	. . 3 ⊢ (𝜑 → ((𝐽‘𝑌)‘𝐼) ∈ 𝑅)
38		lcfrlem28.jn	. . 3 ⊢ (𝜑 → ((𝐽‘𝑌)‘𝐼) ≠ 𝑄)
39		lcfrlem24.q	. . . 4 ⊢ 𝑄 = (0g‘𝑆)
40		lcfrlem29.i	. . . 4 ⊢ 𝐹 = (invr‘𝑆)
41	15, 39, 40	drnginvrcl 20653	. . 3 ⊢ ((𝑆 ∈ DivRing ∧ ((𝐽‘𝑌)‘𝐼) ∈ 𝑅 ∧ ((𝐽‘𝑌)‘𝐼) ≠ 𝑄) → (𝐹‘((𝐽‘𝑌)‘𝐼)) ∈ 𝑅)
42	10, 37, 38, 41	syl3anc 1368	. 2 ⊢ (𝜑 → (𝐹‘((𝐽‘𝑌)‘𝐼)) ∈ 𝑅)
43	1, 11, 2, 12, 13, 14, 5, 15, 16, 17, 18, 19, 20, 21, 22, 3, 28	lcfrlem10 41057	. . 3 ⊢ (𝜑 → (𝐽‘𝑋) ∈ (LFnl‘𝑈))
44	5, 15, 12, 17	lflcl 38568	. . 3 ⊢ ((𝑈 ∈ LMod ∧ (𝐽‘𝑋) ∈ (LFnl‘𝑈) ∧ 𝐼 ∈ 𝑉) → ((𝐽‘𝑋)‘𝐼) ∈ 𝑅)
45	4, 43, 35, 44	syl3anc 1368	. 2 ⊢ (𝜑 → ((𝐽‘𝑋)‘𝐼) ∈ 𝑅)
46		eqid 2728	. . 3 ⊢ (.r‘𝑆) = (.r‘𝑆)
47	15, 46	ringcl 20197	. 2 ⊢ ((𝑆 ∈ Ring ∧ (𝐹‘((𝐽‘𝑌)‘𝐼)) ∈ 𝑅 ∧ ((𝐽‘𝑋)‘𝐼) ∈ 𝑅) → ((𝐹‘((𝐽‘𝑌)‘𝐼))(.r‘𝑆)((𝐽‘𝑋)‘𝐼)) ∈ 𝑅)
48	7, 42, 45, 47	syl3anc 1368	1 ⊢ (𝜑 → ((𝐹‘((𝐽‘𝑌)‘𝐼))(.r‘𝑆)((𝐽‘𝑋)‘𝐼)) ∈ 𝑅)

Syntax hints:   → wi 4   ∧ wa 394   = wceq 1533   ∈ wcel 2098   ≠ wne 2937  ∃wrex 3067  {crab 3430   ∖ cdif 3946   ∩ cin 3948  {csn 4632  {cpr 4634   ↦ cmpt 5235  ‘cfv 6553  ℩crio 7381  (class class class)co 7426  Basecbs 17187  +_gcplusg 17240  ._rcmulr 17241  Scalarcsca 17243   ·_𝑠 cvsca 17244  0_gc0g 17428  Ringcrg 20180  inv_rcinvr 20333  DivRingcdr 20631  LModclmod 20750  LSubSpclss 20822  LSpanclspn 20862  LVecclvec 20994  LSAtomsclsa 38478  LFnlclfn 38561  LKerclk 38589  LDualcld 38627  HLchlt 38854  LHypclh 39489  DVecHcdvh 40583  ocHcoch 40852

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2699  ax-rep 5289  ax-sep 5303  ax-nul 5310  ax-pow 5369  ax-pr 5433  ax-un 7746  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 38457

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2529  df-eu 2558  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3374  df-reu 3375  df-rab 3431  df-v 3475  df-sbc 3779  df-csb 3895  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-pss 3968  df-nul 4327  df-if 4533  df-pw 4608  df-sn 4633  df-pr 4635  df-tp 4637  df-op 4639  df-uni 4913  df-int 4954  df-iun 5002  df-iin 5003  df-br 5153  df-opab 5215  df-mpt 5236  df-tr 5270  df-id 5580  df-eprel 5586  df-po 5594  df-so 5595  df-fr 5637  df-we 5639  df-xp 5688  df-rel 5689  df-cnv 5690  df-co 5691  df-dm 5692  df-rn 5693  df-res 5694  df-ima 5695  df-pred 6310  df-ord 6377  df-on 6378  df-lim 6379  df-suc 6380  df-iota 6505  df-fun 6555  df-fn 6556  df-f 6557  df-f1 6558  df-fo 6559  df-f1o 6560  df-fv 6561  df-riota 7382  df-ov 7429  df-oprab 7430  df-mpo 7431  df-om 7877  df-1st 7999  df-2nd 8000  df-tpos 8238  df-undef 8285  df-frecs 8293  df-wrecs 8324  df-recs 8398  df-rdg 8437  df-1o 8493  df-er 8731  df-map 8853  df-en 8971  df-dom 8972  df-sdom 8973  df-fin 8974  df-pnf 11288  df-mnf 11289  df-xr 11290  df-ltxr 11291  df-le 11292  df-sub 11484  df-neg 11485  df-nn 12251  df-2 12313  df-3 12314  df-4 12315  df-5 12316  df-6 12317  df-n0 12511  df-z 12597  df-uz 12861  df-fz 13525  df-struct 17123  df-sets 17140  df-slot 17158  df-ndx 17170  df-base 17188  df-ress 17217  df-plusg 17253  df-mulr 17254  df-sca 17256  df-vsca 17257  df-0g 17430  df-mre 17573  df-mrc 17574  df-acs 17576  df-proset 18294  df-poset 18312  df-plt 18329  df-lub 18345  df-glb 18346  df-join 18347  df-meet 18348  df-p0 18424  df-p1 18425  df-lat 18431  df-clat 18498  df-mgm 18607  df-sgrp 18686  df-mnd 18702  df-submnd 18748  df-grp 18900  df-minusg 18901  df-sbg 18902  df-subg 19085  df-cntz 19275  df-oppg 19304  df-lsm 19598  df-cmn 19744  df-abl 19745  df-mgp 20082  df-rng 20100  df-ur 20129  df-ring 20182  df-oppr 20280  df-dvdsr 20303  df-unit 20304  df-invr 20334  df-dvr 20347  df-drng 20633  df-lmod 20752  df-lss 20823  df-lsp 20863  df-lvec 20995  df-lsatoms 38480  df-lshyp 38481  df-lcv 38523  df-lfl 38562  df-oposet 38680  df-ol 38682  df-oml 38683  df-covers 38770  df-ats 38771  df-atl 38802  df-cvlat 38826  df-hlat 38855  df-llines 39003  df-lplanes 39004  df-lvols 39005  df-lines 39006  df-psubsp 39008  df-pmap 39009  df-padd 39301  df-lhyp 39493  df-laut 39494  df-ldil 39609  df-ltrn 39610  df-trl 39664  df-tgrp 40248  df-tendo 40260  df-edring 40262  df-dveca 40508  df-disoa 40534  df-dvech 40584  df-dib 40644  df-dic 40678  df-dih 40734  df-doch 40853  df-djh 40900

This theorem is referenced by:  lcfrlem30  41077  lcfrlem31  41078  lcfrlem37  41084