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

Theorem lcfl8 42257
Description: Property of a functional with a closed kernel. (Contributed by NM, 17-Jan-2015.)
Hypotheses
Ref Expression
lcfl8.h 𝐻 = (LHyp‘𝐾)
lcfl8.o = ((ocH‘𝐾)‘𝑊)
lcfl8.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
lcfl8.v 𝑉 = (Base‘𝑈)
lcfl8.f 𝐹 = (LFnl‘𝑈)
lcfl8.l 𝐿 = (LKer‘𝑈)
lcfl8.c 𝐶 = {𝑓𝐹 ∣ ( ‘( ‘(𝐿𝑓))) = (𝐿𝑓)}
lcfl8.k (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
lcfl8.g (𝜑𝐺𝐹)
Assertion
Ref Expression
lcfl8 (𝜑 → (𝐺𝐶 ↔ ∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥})))
Distinct variable groups:   𝑥,𝐶   𝑓,𝐹   𝑥,𝑓,𝐺   𝑓,𝐿,𝑥   ,𝑓,𝑥   𝑥,𝑈   𝑥,𝑉   𝜑,𝑥
Allowed substitution hints:   𝜑(𝑓)   𝐶(𝑓)   𝑈(𝑓)   𝐹(𝑥)   𝐻(𝑥,𝑓)   𝐾(𝑥,𝑓)   𝑉(𝑓)   𝑊(𝑥,𝑓)

Proof of Theorem lcfl8
StepHypRef Expression
1 lcfl8.h . . . . . . . 8 𝐻 = (LHyp‘𝐾)
2 lcfl8.u . . . . . . . 8 𝑈 = ((DVecH‘𝐾)‘𝑊)
3 lcfl8.k . . . . . . . 8 (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
41, 2, 3dvhlmod 41865 . . . . . . 7 (𝜑𝑈 ∈ LMod)
54adantr 485 . . . . . 6 ((𝜑𝐺𝐶) → 𝑈 ∈ LMod)
6 lcfl8.v . . . . . . 7 𝑉 = (Base‘𝑈)
7 eqid 2763 . . . . . . 7 (LSpan‘𝑈) = (LSpan‘𝑈)
8 eqid 2763 . . . . . . 7 (LSAtoms‘𝑈) = (LSAtoms‘𝑈)
96, 7, 8islsati 39749 . . . . . 6 ((𝑈 ∈ LMod ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) → ∃𝑥𝑉 ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥}))
105, 9sylan 591 . . . . 5 (((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) → ∃𝑥𝑉 ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥}))
11 simpr 489 . . . . . . . . 9 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥}))
1211fveq2d 6887 . . . . . . . 8 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → ( ‘( ‘(𝐿𝐺))) = ( ‘((LSpan‘𝑈)‘{𝑥})))
13 simp-4r 795 . . . . . . . . 9 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → 𝐺𝐶)
14 lcfl8.c . . . . . . . . . 10 𝐶 = {𝑓𝐹 ∣ ( ‘( ‘(𝐿𝑓))) = (𝐿𝑓)}
15 lcfl8.g . . . . . . . . . . 11 (𝜑𝐺𝐹)
1615ad4antr 744 . . . . . . . . . 10 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → 𝐺𝐹)
1714, 16lcfl1 42247 . . . . . . . . 9 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → (𝐺𝐶 ↔ ( ‘( ‘(𝐿𝐺))) = (𝐿𝐺)))
1813, 17mpbid 235 . . . . . . . 8 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → ( ‘( ‘(𝐿𝐺))) = (𝐿𝐺))
19 lcfl8.o . . . . . . . . 9 = ((ocH‘𝐾)‘𝑊)
203ad4antr 744 . . . . . . . . 9 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → (𝐾 ∈ HL ∧ 𝑊𝐻))
21 simplr 780 . . . . . . . . . 10 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → 𝑥𝑉)
2221snssd 4753 . . . . . . . . 9 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → {𝑥} ⊆ 𝑉)
231, 2, 19, 6, 7, 20, 22dochocsp 42134 . . . . . . . 8 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → ( ‘((LSpan‘𝑈)‘{𝑥})) = ( ‘{𝑥}))
2412, 18, 233eqtr3d 2806 . . . . . . 7 (((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) ∧ ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥})) → (𝐿𝐺) = ( ‘{𝑥}))
2524ex 417 . . . . . 6 ((((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) ∧ 𝑥𝑉) → (( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥}) → (𝐿𝐺) = ( ‘{𝑥})))
2625reximdva 3178 . . . . 5 (((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) → (∃𝑥𝑉 ( ‘(𝐿𝐺)) = ((LSpan‘𝑈)‘{𝑥}) → ∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥})))
2710, 26mpd 16 . . . 4 (((𝜑𝐺𝐶) ∧ ( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈)) → ∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥}))
285adantr 485 . . . . . 6 (((𝜑𝐺𝐶) ∧ (𝐿𝐺) = 𝑉) → 𝑈 ∈ LMod)
29 eqid 2763 . . . . . . 7 (0g𝑈) = (0g𝑈)
306, 29lmod0vcl 20993 . . . . . 6 (𝑈 ∈ LMod → (0g𝑈) ∈ 𝑉)
3128, 30syl 18 . . . . 5 (((𝜑𝐺𝐶) ∧ (𝐿𝐺) = 𝑉) → (0g𝑈) ∈ 𝑉)
32 simpr 489 . . . . . 6 (((𝜑𝐺𝐶) ∧ (𝐿𝐺) = 𝑉) → (𝐿𝐺) = 𝑉)
333adantr 485 . . . . . . . 8 ((𝜑𝐺𝐶) → (𝐾 ∈ HL ∧ 𝑊𝐻))
3433adantr 485 . . . . . . 7 (((𝜑𝐺𝐶) ∧ (𝐿𝐺) = 𝑉) → (𝐾 ∈ HL ∧ 𝑊𝐻))
351, 2, 19, 6, 29doch0 42113 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( ‘{(0g𝑈)}) = 𝑉)
3634, 35syl 18 . . . . . 6 (((𝜑𝐺𝐶) ∧ (𝐿𝐺) = 𝑉) → ( ‘{(0g𝑈)}) = 𝑉)
3732, 36eqtr4d 2801 . . . . 5 (((𝜑𝐺𝐶) ∧ (𝐿𝐺) = 𝑉) → (𝐿𝐺) = ( ‘{(0g𝑈)}))
38 sneq 4600 . . . . . . 7 (𝑥 = (0g𝑈) → {𝑥} = {(0g𝑈)})
3938fveq2d 6887 . . . . . 6 (𝑥 = (0g𝑈) → ( ‘{𝑥}) = ( ‘{(0g𝑈)}))
4039rspceeqv 3605 . . . . 5 (((0g𝑈) ∈ 𝑉 ∧ (𝐿𝐺) = ( ‘{(0g𝑈)})) → ∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥}))
4131, 37, 40syl2anc 595 . . . 4 (((𝜑𝐺𝐶) ∧ (𝐿𝐺) = 𝑉) → ∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥}))
42 lcfl8.f . . . . . 6 𝐹 = (LFnl‘𝑈)
43 lcfl8.l . . . . . 6 𝐿 = (LKer‘𝑈)
441, 19, 2, 6, 8, 42, 43, 14, 3, 15lcfl3 42249 . . . . 5 (𝜑 → (𝐺𝐶 ↔ (( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈) ∨ (𝐿𝐺) = 𝑉)))
4544biimpa 481 . . . 4 ((𝜑𝐺𝐶) → (( ‘(𝐿𝐺)) ∈ (LSAtoms‘𝑈) ∨ (𝐿𝐺) = 𝑉))
4627, 41, 45mpjaodan 973 . . 3 ((𝜑𝐺𝐶) → ∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥}))
4746ex 417 . 2 (𝜑 → (𝐺𝐶 → ∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥})))
4833ad2ant1 1151 . . . . . 6 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → (𝐾 ∈ HL ∧ 𝑊𝐻))
49 simp2 1155 . . . . . . . 8 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → 𝑥𝑉)
5049snssd 4753 . . . . . . 7 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → {𝑥} ⊆ 𝑉)
51 eqid 2763 . . . . . . . 8 ((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊)
521, 51, 2, 6, 19dochcl 42108 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ {𝑥} ⊆ 𝑉) → ( ‘{𝑥}) ∈ ran ((DIsoH‘𝐾)‘𝑊))
5348, 50, 52syl2anc 595 . . . . . 6 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → ( ‘{𝑥}) ∈ ran ((DIsoH‘𝐾)‘𝑊))
541, 51, 19dochoc 42122 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ( ‘{𝑥}) ∈ ran ((DIsoH‘𝐾)‘𝑊)) → ( ‘( ‘( ‘{𝑥}))) = ( ‘{𝑥}))
5548, 53, 54syl2anc 595 . . . . 5 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → ( ‘( ‘( ‘{𝑥}))) = ( ‘{𝑥}))
56 simp3 1156 . . . . . . 7 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → (𝐿𝐺) = ( ‘{𝑥}))
5756fveq2d 6887 . . . . . 6 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → ( ‘(𝐿𝐺)) = ( ‘( ‘{𝑥})))
5857fveq2d 6887 . . . . 5 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → ( ‘( ‘(𝐿𝐺))) = ( ‘( ‘( ‘{𝑥}))))
5955, 58, 563eqtr4d 2808 . . . 4 ((𝜑𝑥𝑉 ∧ (𝐿𝐺) = ( ‘{𝑥})) → ( ‘( ‘(𝐿𝐺))) = (𝐿𝐺))
6059rexlimdv3a 3170 . . 3 (𝜑 → (∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥}) → ( ‘( ‘(𝐿𝐺))) = (𝐿𝐺)))
6114, 15lcfl1 42247 . . 3 (𝜑 → (𝐺𝐶 ↔ ( ‘( ‘(𝐿𝐺))) = (𝐿𝐺)))
6260, 61sylibrd 262 . 2 (𝜑 → (∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥}) → 𝐺𝐶))
6347, 62impbid 215 1 (𝜑 → (𝐺𝐶 ↔ ∃𝑥𝑉 (𝐿𝐺) = ( ‘{𝑥})))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400  wo 860  w3a 1103   = wceq 1570  wcel 2143  wrex 3089  {crab 3416  wss 3906  {csn 4590  ran crn 5664  cfv 6538  Basecbs 17270  0gc0g 17493  LModclmod 20962  LSpanclspn 21073  LSAtomsclsa 39729  LFnlclfn 39812  LKerclk 39840  HLchlt 40105  LHypclh 40739  DVecHcdvh 41833  DIsoHcdih 41983  ocHcoch 42102
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734  ax-cnex 11157  ax-resscn 11158  ax-1cn 11159  ax-icn 11160  ax-addcl 11161  ax-addrcl 11162  ax-mulcl 11163  ax-mulrcl 11164  ax-mulcom 11165  ax-addass 11166  ax-mulass 11167  ax-distr 11168  ax-i2m1 11169  ax-1ne0 11170  ax-1rid 11171  ax-rnegex 11172  ax-rrecex 11173  ax-cnre 11174  ax-pre-lttri 11175  ax-pre-lttrn 11176  ax-pre-ltadd 11177  ax-pre-mulgt0 11178  ax-riotaBAD 39708
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-tp 4595  df-op 4597  df-uni 4874  df-int 4914  df-iun 4959  df-iin 4960  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7864  df-1st 7987  df-2nd 7988  df-tpos 8223  df-undef 8270  df-frecs 8279  df-wrecs 8310  df-recs 8359  df-rdg 8398  df-1o 8454  df-er 8695  df-map 8827  df-en 8945  df-dom 8946  df-sdom 8947  df-fin 8948  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11444  df-neg 11445  df-nn 12235  df-2 12304  df-3 12305  df-4 12306  df-5 12307  df-6 12308  df-n0 12506  df-z 12593  df-uz 12864  df-fz 13537  df-struct 17208  df-sets 17225  df-slot 17243  df-ndx 17255  df-base 17271  df-ress 17292  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-0g 17495  df-proset 18351  df-poset 18370  df-plt 18385  df-lub 18401  df-glb 18402  df-join 18403  df-meet 18404  df-p0 18480  df-p1 18481  df-lat 18489  df-clat 18556  df-mgm 18699  df-sgrp 18778  df-mnd 18794  df-submnd 18843  df-grp 19004  df-minusg 19005  df-sbg 19006  df-subg 19190  df-cntz 19388  df-lsm 19707  df-cmn 19853  df-abl 19854  df-mgp 20218  df-rng 20232  df-ur 20265  df-ring 20318  df-oppr 20420  df-dvdsr 20440  df-unit 20441  df-invr 20471  df-dvr 20484  df-drng 20816  df-lmod 20964  df-lss 21034  df-lsp 21074  df-lvec 21205  df-lsatoms 39731  df-lshyp 39732  df-lfl 39813  df-lkr 39841  df-oposet 39931  df-ol 39933  df-oml 39934  df-covers 40021  df-ats 40022  df-atl 40053  df-cvlat 40077  df-hlat 40106  df-llines 40253  df-lplanes 40254  df-lvols 40255  df-lines 40256  df-psubsp 40258  df-pmap 40259  df-padd 40551  df-lhyp 40743  df-laut 40744  df-ldil 40859  df-ltrn 40860  df-trl 40914  df-tgrp 41498  df-tendo 41510  df-edring 41512  df-dveca 41758  df-disoa 41784  df-dvech 41834  df-dib 41894  df-dic 41928  df-dih 41984  df-doch 42103  df-djh 42150
This theorem is referenced by:  lcfl8a  42258  lcfl8b  42259
  Copyright terms: Public domain W3C validator