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

Theorem dochfl1 42060
Description: The value of the explicit functional 𝐺 is 1 at the 𝑋 that determines it. (Contributed by NM, 27-Oct-2014.)
Hypotheses
Ref Expression
dochfl1.h 𝐻 = (LHyp‘𝐾)
dochfl1.o = ((ocH‘𝐾)‘𝑊)
dochfl1.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
dochfl1.v 𝑉 = (Base‘𝑈)
dochfl1.a + = (+g𝑈)
dochfl1.t · = ( ·𝑠𝑈)
dochfl1.z 0 = (0g𝑈)
dochfl1.d 𝐷 = (Scalar‘𝑈)
dochfl1.r 𝑅 = (Base‘𝐷)
dochfl1.i 1 = (1r𝐷)
dochfl1.k (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
dochfl1.x (𝜑𝑋 ∈ (𝑉 ∖ { 0 }))
dochfl1.g 𝐺 = (𝑣𝑉 ↦ (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑣 = (𝑤 + (𝑘 · 𝑋))))
Assertion
Ref Expression
dochfl1 (𝜑 → (𝐺𝑋) = 1 )
Distinct variable groups:   𝑣,𝑘,𝑤, +   1 ,𝑘,𝑤   ,𝑘,𝑣,𝑤   𝑅,𝑘,𝑣   · ,𝑘,𝑣,𝑤   𝑣,𝑉   𝑘,𝑋,𝑣,𝑤   𝑤, 0
Allowed substitution hints:   𝜑(𝑤,𝑣,𝑘)   𝐷(𝑤,𝑣,𝑘)   𝑅(𝑤)   𝑈(𝑤,𝑣,𝑘)   1 (𝑣)   𝐺(𝑤,𝑣,𝑘)   𝐻(𝑤,𝑣,𝑘)   𝐾(𝑤,𝑣,𝑘)   𝑉(𝑤,𝑘)   𝑊(𝑤,𝑣,𝑘)   0 (𝑣,𝑘)

Proof of Theorem dochfl1
StepHypRef Expression
1 dochfl1.x . . . 4 (𝜑𝑋 ∈ (𝑉 ∖ { 0 }))
21eldifad 3914 . . 3 (𝜑𝑋𝑉)
3 eqeq1 2765 . . . . . 6 (𝑣 = 𝑋 → (𝑣 = (𝑤 + (𝑘 · 𝑋)) ↔ 𝑋 = (𝑤 + (𝑘 · 𝑋))))
43rexbidv 3185 . . . . 5 (𝑣 = 𝑋 → (∃𝑤 ∈ ( ‘{𝑋})𝑣 = (𝑤 + (𝑘 · 𝑋)) ↔ ∃𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))))
54riotabidv 7349 . . . 4 (𝑣 = 𝑋 → (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑣 = (𝑤 + (𝑘 · 𝑋))) = (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))))
6 dochfl1.g . . . 4 𝐺 = (𝑣𝑉 ↦ (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑣 = (𝑤 + (𝑘 · 𝑋))))
7 riotaex 7351 . . . 4 (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))) ∈ V
85, 6, 7fvmpt 6969 . . 3 (𝑋𝑉 → (𝐺𝑋) = (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))))
92, 8syl 17 . 2 (𝜑 → (𝐺𝑋) = (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))))
10 dochfl1.h . . . . . 6 𝐻 = (LHyp‘𝐾)
11 dochfl1.u . . . . . 6 𝑈 = ((DVecH‘𝐾)‘𝑊)
12 dochfl1.k . . . . . 6 (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
1310, 11, 12dvhlmod 41694 . . . . 5 (𝜑𝑈 ∈ LMod)
142snssd 4742 . . . . . 6 (𝜑 → {𝑋} ⊆ 𝑉)
15 dochfl1.v . . . . . . 7 𝑉 = (Base‘𝑈)
16 eqid 2761 . . . . . . 7 (LSubSp‘𝑈) = (LSubSp‘𝑈)
17 dochfl1.o . . . . . . 7 = ((ocH‘𝐾)‘𝑊)
1810, 11, 15, 16, 17dochlss 41938 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ {𝑋} ⊆ 𝑉) → ( ‘{𝑋}) ∈ (LSubSp‘𝑈))
1912, 14, 18syl2anc 593 . . . . 5 (𝜑 → ( ‘{𝑋}) ∈ (LSubSp‘𝑈))
20 dochfl1.z . . . . . 6 0 = (0g𝑈)
2120, 16lss0cl 21001 . . . . 5 ((𝑈 ∈ LMod ∧ ( ‘{𝑋}) ∈ (LSubSp‘𝑈)) → 0 ∈ ( ‘{𝑋}))
2213, 19, 21syl2anc 593 . . . 4 (𝜑0 ∈ ( ‘{𝑋}))
23 dochfl1.d . . . . . . . 8 𝐷 = (Scalar‘𝑈)
24 dochfl1.t . . . . . . . 8 · = ( ·𝑠𝑈)
25 dochfl1.i . . . . . . . 8 1 = (1r𝐷)
2615, 23, 24, 25lmodvs1 20944 . . . . . . 7 ((𝑈 ∈ LMod ∧ 𝑋𝑉) → ( 1 · 𝑋) = 𝑋)
2713, 2, 26syl2anc 593 . . . . . 6 (𝜑 → ( 1 · 𝑋) = 𝑋)
2827oveq2d 7406 . . . . 5 (𝜑 → ( 0 + ( 1 · 𝑋)) = ( 0 + 𝑋))
29 dochfl1.a . . . . . . 7 + = (+g𝑈)
3015, 29, 20lmod0vlid 20946 . . . . . 6 ((𝑈 ∈ LMod ∧ 𝑋𝑉) → ( 0 + 𝑋) = 𝑋)
3113, 2, 30syl2anc 593 . . . . 5 (𝜑 → ( 0 + 𝑋) = 𝑋)
3228, 31eqtr2d 2797 . . . 4 (𝜑𝑋 = ( 0 + ( 1 · 𝑋)))
33 oveq1 7397 . . . . 5 (𝑤 = 0 → (𝑤 + ( 1 · 𝑋)) = ( 0 + ( 1 · 𝑋)))
3433rspceeqv 3603 . . . 4 (( 0 ∈ ( ‘{𝑋}) ∧ 𝑋 = ( 0 + ( 1 · 𝑋))) → ∃𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + ( 1 · 𝑋)))
3522, 32, 34syl2anc 593 . . 3 (𝜑 → ∃𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + ( 1 · 𝑋)))
3623lmodring 20922 . . . . 5 (𝑈 ∈ LMod → 𝐷 ∈ Ring)
37 dochfl1.r . . . . . 6 𝑅 = (Base‘𝐷)
3837, 25ringidcl 20301 . . . . 5 (𝐷 ∈ Ring → 1𝑅)
3913, 36, 383syl 18 . . . 4 (𝜑1𝑅)
40 eqid 2761 . . . . 5 (LSpan‘𝑈) = (LSpan‘𝑈)
41 eqid 2761 . . . . 5 (LSSum‘𝑈) = (LSSum‘𝑈)
42 eqid 2761 . . . . 5 (LSHyp‘𝑈) = (LSHyp‘𝑈)
4310, 11, 12dvhlvec 41693 . . . . 5 (𝜑𝑈 ∈ LVec)
4410, 17, 11, 15, 20, 42, 12, 1dochsnshp 42037 . . . . 5 (𝜑 → ( ‘{𝑋}) ∈ (LSHyp‘𝑈))
4510, 17, 11, 15, 20, 40, 41, 12, 1dochexmidat 42043 . . . . 5 (𝜑 → (( ‘{𝑋})(LSSum‘𝑈)((LSpan‘𝑈)‘{𝑋})) = 𝑉)
4615, 29, 40, 41, 42, 43, 44, 2, 2, 45, 23, 37, 24lshpsmreu 39693 . . . 4 (𝜑 → ∃!𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋)))
47 oveq1 7397 . . . . . . . 8 (𝑘 = 1 → (𝑘 · 𝑋) = ( 1 · 𝑋))
4847oveq2d 7406 . . . . . . 7 (𝑘 = 1 → (𝑤 + (𝑘 · 𝑋)) = (𝑤 + ( 1 · 𝑋)))
4948eqeq2d 2772 . . . . . 6 (𝑘 = 1 → (𝑋 = (𝑤 + (𝑘 · 𝑋)) ↔ 𝑋 = (𝑤 + ( 1 · 𝑋))))
5049rexbidv 3185 . . . . 5 (𝑘 = 1 → (∃𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋)) ↔ ∃𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + ( 1 · 𝑋))))
5150riota2 7372 . . . 4 (( 1𝑅 ∧ ∃!𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))) → (∃𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + ( 1 · 𝑋)) ↔ (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))) = 1 ))
5239, 46, 51syl2anc 593 . . 3 (𝜑 → (∃𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + ( 1 · 𝑋)) ↔ (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))) = 1 ))
5335, 52mpbid 234 . 2 (𝜑 → (𝑘𝑅𝑤 ∈ ( ‘{𝑋})𝑋 = (𝑤 + (𝑘 · 𝑋))) = 1 )
549, 53eqtrd 2796 1 (𝜑 → (𝐺𝑋) = 1 )
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 399   = wceq 1559  wcel 2141  wrex 3085  ∃!wreu 3364  cdif 3899  wss 3902  {csn 4579  cmpt 5178  cfv 6515  crio 7346  (class class class)co 7390  Basecbs 17235  +gcplusg 17276  Scalarcsca 17279   ·𝑠 cvsca 17280  0gc0g 17458  LSSumclsm 19664  1rcur 20217  Ringcrg 20269  LModclmod 20914  LSubSpclss 20985  LSpanclspn 21025  LSHypclsh 39559  HLchlt 39934  LHypclh 40568  DVecHcdvh 41662  ocHcoch 41931
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7712  ax-cnex 11122  ax-resscn 11123  ax-1cn 11124  ax-icn 11125  ax-addcl 11126  ax-addrcl 11127  ax-mulcl 11128  ax-mulrcl 11129  ax-mulcom 11130  ax-addass 11131  ax-mulass 11132  ax-distr 11133  ax-i2m1 11134  ax-1ne0 11135  ax-1rid 11136  ax-rnegex 11137  ax-rrecex 11138  ax-cnre 11139  ax-pre-lttri 11140  ax-pre-lttrn 11141  ax-pre-ltadd 11142  ax-pre-mulgt0 11143  ax-riotaBAD 39537
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3061  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4863  df-int 4903  df-iun 4948  df-iin 4949  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5538  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-pred 6282  df-ord 6343  df-on 6344  df-lim 6345  df-suc 6346  df-iota 6471  df-fun 6517  df-fn 6518  df-f 6519  df-f1 6520  df-fo 6521  df-f1o 6522  df-fv 6523  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-om 7841  df-1st 7964  df-2nd 7965  df-tpos 8199  df-undef 8246  df-frecs 8255  df-wrecs 8286  df-recs 8335  df-rdg 8374  df-1o 8430  df-er 8671  df-map 8803  df-en 8921  df-dom 8922  df-sdom 8923  df-fin 8924  df-pnf 11211  df-mnf 11212  df-xr 11213  df-ltxr 11214  df-le 11215  df-sub 11409  df-neg 11410  df-nn 12204  df-2 12273  df-3 12274  df-4 12275  df-5 12276  df-6 12277  df-n0 12475  df-z 12562  df-uz 12833  df-fz 13506  df-struct 17173  df-sets 17190  df-slot 17208  df-ndx 17220  df-base 17236  df-ress 17257  df-plusg 17289  df-mulr 17290  df-sca 17292  df-vsca 17293  df-0g 17460  df-proset 18316  df-poset 18335  df-plt 18350  df-lub 18366  df-glb 18367  df-join 18368  df-meet 18369  df-p0 18445  df-p1 18446  df-lat 18454  df-clat 18521  df-mgm 18664  df-sgrp 18743  df-mnd 18759  df-submnd 18808  df-grp 18968  df-minusg 18969  df-sbg 18970  df-subg 19155  df-cntz 19347  df-lsm 19666  df-cmn 19812  df-abl 19813  df-mgp 20177  df-rng 20189  df-ur 20218  df-ring 20271  df-oppr 20372  df-dvdsr 20392  df-unit 20393  df-invr 20423  df-dvr 20436  df-drng 20767  df-lmod 20916  df-lss 20986  df-lsp 21026  df-lvec 21157  df-lsatoms 39560  df-lshyp 39561  df-oposet 39760  df-ol 39762  df-oml 39763  df-covers 39850  df-ats 39851  df-atl 39882  df-cvlat 39906  df-hlat 39935  df-llines 40082  df-lplanes 40083  df-lvols 40084  df-lines 40085  df-psubsp 40087  df-pmap 40088  df-padd 40380  df-lhyp 40572  df-laut 40573  df-ldil 40688  df-ltrn 40689  df-trl 40743  df-tgrp 41327  df-tendo 41339  df-edring 41341  df-dveca 41587  df-disoa 41613  df-dvech 41663  df-dib 41723  df-dic 41757  df-dih 41813  df-doch 41932  df-djh 41979
This theorem is referenced by:  lcfl6lem  42082  lcfl7lem  42083  hvmapidN  42346  hdmapevec2  42420
  Copyright terms: Public domain W3C validator