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

Theorem eqlkr3 39300
Description: Two functionals with the same kernel are equal if they are equal at any nonzero value. (Contributed by NM, 2-Jan-2015.)
Hypotheses
Ref Expression
eqlkr3.v 𝑉 = (Base‘𝑊)
eqlkr3.s 𝑆 = (Scalar‘𝑊)
eqlkr3.r 𝑅 = (Base‘𝑆)
eqlkr3.o 0 = (0g𝑆)
eqlkr3.f 𝐹 = (LFnl‘𝑊)
eqlkr3.k 𝐾 = (LKer‘𝑊)
eqlkr3.w (𝜑𝑊 ∈ LVec)
eqlkr3.x (𝜑𝑋𝑉)
eqlkr3.g (𝜑𝐺𝐹)
eqlkr3.h (𝜑𝐻𝐹)
eqlkr3.e (𝜑 → (𝐾𝐺) = (𝐾𝐻))
eqlkr3.a (𝜑 → (𝐺𝑋) = (𝐻𝑋))
eqlkr3.n (𝜑 → (𝐺𝑋) ≠ 0 )
Assertion
Ref Expression
eqlkr3 (𝜑𝐺 = 𝐻)

Proof of Theorem eqlkr3
Dummy variables 𝑥 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqlkr3.w . . . 4 (𝜑𝑊 ∈ LVec)
2 eqlkr3.g . . . 4 (𝜑𝐺𝐹)
3 eqlkr3.s . . . . 5 𝑆 = (Scalar‘𝑊)
4 eqlkr3.r . . . . 5 𝑅 = (Base‘𝑆)
5 eqlkr3.v . . . . 5 𝑉 = (Base‘𝑊)
6 eqlkr3.f . . . . 5 𝐹 = (LFnl‘𝑊)
73, 4, 5, 6lflf 39262 . . . 4 ((𝑊 ∈ LVec ∧ 𝐺𝐹) → 𝐺:𝑉𝑅)
81, 2, 7syl2anc 584 . . 3 (𝜑𝐺:𝑉𝑅)
98ffnd 6661 . 2 (𝜑𝐺 Fn 𝑉)
10 eqlkr3.h . . . 4 (𝜑𝐻𝐹)
113, 4, 5, 6lflf 39262 . . . 4 ((𝑊 ∈ LVec ∧ 𝐻𝐹) → 𝐻:𝑉𝑅)
121, 10, 11syl2anc 584 . . 3 (𝜑𝐻:𝑉𝑅)
1312ffnd 6661 . 2 (𝜑𝐻 Fn 𝑉)
14 eqlkr3.e . . . . . . 7 (𝜑 → (𝐾𝐺) = (𝐾𝐻))
15 eqid 2734 . . . . . . . 8 (.r𝑆) = (.r𝑆)
16 eqlkr3.k . . . . . . . 8 𝐾 = (LKer‘𝑊)
173, 4, 15, 5, 6, 16eqlkr 39298 . . . . . . 7 ((𝑊 ∈ LVec ∧ (𝐺𝐹𝐻𝐹) ∧ (𝐾𝐺) = (𝐾𝐻)) → ∃𝑟𝑅𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟))
181, 2, 10, 14, 17syl121anc 1377 . . . . . 6 (𝜑 → ∃𝑟𝑅𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟))
19 eqlkr3.x . . . . . . . . . . 11 (𝜑𝑋𝑉)
2019adantr 480 . . . . . . . . . 10 ((𝜑𝑟𝑅) → 𝑋𝑉)
21 fveq2 6832 . . . . . . . . . . . 12 (𝑥 = 𝑋 → (𝐻𝑥) = (𝐻𝑋))
22 fveq2 6832 . . . . . . . . . . . . 13 (𝑥 = 𝑋 → (𝐺𝑥) = (𝐺𝑋))
2322oveq1d 7371 . . . . . . . . . . . 12 (𝑥 = 𝑋 → ((𝐺𝑥)(.r𝑆)𝑟) = ((𝐺𝑋)(.r𝑆)𝑟))
2421, 23eqeq12d 2750 . . . . . . . . . . 11 (𝑥 = 𝑋 → ((𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟) ↔ (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)))
2524rspcv 3570 . . . . . . . . . 10 (𝑋𝑉 → (∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟) → (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)))
2620, 25syl 17 . . . . . . . . 9 ((𝜑𝑟𝑅) → (∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟) → (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)))
27 eqlkr3.a . . . . . . . . . . . . . . 15 (𝜑 → (𝐺𝑋) = (𝐻𝑋))
2827adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑟𝑅) → (𝐺𝑋) = (𝐻𝑋))
2928adantr 480 . . . . . . . . . . . . 13 (((𝜑𝑟𝑅) ∧ (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)) → (𝐺𝑋) = (𝐻𝑋))
30 simpr 484 . . . . . . . . . . . . 13 (((𝜑𝑟𝑅) ∧ (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)) → (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟))
3129, 30eqtr2d 2770 . . . . . . . . . . . 12 (((𝜑𝑟𝑅) ∧ (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)) → ((𝐺𝑋)(.r𝑆)𝑟) = (𝐺𝑋))
3231oveq2d 7372 . . . . . . . . . . 11 (((𝜑𝑟𝑅) ∧ (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)) → (((invr𝑆)‘(𝐺𝑋))(.r𝑆)((𝐺𝑋)(.r𝑆)𝑟)) = (((invr𝑆)‘(𝐺𝑋))(.r𝑆)(𝐺𝑋)))
333lvecdrng 21055 . . . . . . . . . . . . . . . . 17 (𝑊 ∈ LVec → 𝑆 ∈ DivRing)
341, 33syl 17 . . . . . . . . . . . . . . . 16 (𝜑𝑆 ∈ DivRing)
3534adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑟𝑅) → 𝑆 ∈ DivRing)
363, 4, 5, 6lflcl 39263 . . . . . . . . . . . . . . . . 17 ((𝑊 ∈ LVec ∧ 𝐺𝐹𝑋𝑉) → (𝐺𝑋) ∈ 𝑅)
371, 2, 19, 36syl3anc 1373 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐺𝑋) ∈ 𝑅)
3837adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑟𝑅) → (𝐺𝑋) ∈ 𝑅)
39 eqlkr3.n . . . . . . . . . . . . . . . 16 (𝜑 → (𝐺𝑋) ≠ 0 )
4039adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑟𝑅) → (𝐺𝑋) ≠ 0 )
41 eqlkr3.o . . . . . . . . . . . . . . . 16 0 = (0g𝑆)
42 eqid 2734 . . . . . . . . . . . . . . . 16 (1r𝑆) = (1r𝑆)
43 eqid 2734 . . . . . . . . . . . . . . . 16 (invr𝑆) = (invr𝑆)
444, 41, 15, 42, 43drnginvrl 20687 . . . . . . . . . . . . . . 15 ((𝑆 ∈ DivRing ∧ (𝐺𝑋) ∈ 𝑅 ∧ (𝐺𝑋) ≠ 0 ) → (((invr𝑆)‘(𝐺𝑋))(.r𝑆)(𝐺𝑋)) = (1r𝑆))
4535, 38, 40, 44syl3anc 1373 . . . . . . . . . . . . . 14 ((𝜑𝑟𝑅) → (((invr𝑆)‘(𝐺𝑋))(.r𝑆)(𝐺𝑋)) = (1r𝑆))
4645oveq1d 7371 . . . . . . . . . . . . 13 ((𝜑𝑟𝑅) → ((((invr𝑆)‘(𝐺𝑋))(.r𝑆)(𝐺𝑋))(.r𝑆)𝑟) = ((1r𝑆)(.r𝑆)𝑟))
47 lveclmod 21056 . . . . . . . . . . . . . . . . 17 (𝑊 ∈ LVec → 𝑊 ∈ LMod)
481, 47syl 17 . . . . . . . . . . . . . . . 16 (𝜑𝑊 ∈ LMod)
493lmodring 20817 . . . . . . . . . . . . . . . 16 (𝑊 ∈ LMod → 𝑆 ∈ Ring)
5048, 49syl 17 . . . . . . . . . . . . . . 15 (𝜑𝑆 ∈ Ring)
5150adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑟𝑅) → 𝑆 ∈ Ring)
524, 41, 43drnginvrcl 20684 . . . . . . . . . . . . . . 15 ((𝑆 ∈ DivRing ∧ (𝐺𝑋) ∈ 𝑅 ∧ (𝐺𝑋) ≠ 0 ) → ((invr𝑆)‘(𝐺𝑋)) ∈ 𝑅)
5335, 38, 40, 52syl3anc 1373 . . . . . . . . . . . . . 14 ((𝜑𝑟𝑅) → ((invr𝑆)‘(𝐺𝑋)) ∈ 𝑅)
54 simpr 484 . . . . . . . . . . . . . 14 ((𝜑𝑟𝑅) → 𝑟𝑅)
554, 15ringass 20186 . . . . . . . . . . . . . 14 ((𝑆 ∈ Ring ∧ (((invr𝑆)‘(𝐺𝑋)) ∈ 𝑅 ∧ (𝐺𝑋) ∈ 𝑅𝑟𝑅)) → ((((invr𝑆)‘(𝐺𝑋))(.r𝑆)(𝐺𝑋))(.r𝑆)𝑟) = (((invr𝑆)‘(𝐺𝑋))(.r𝑆)((𝐺𝑋)(.r𝑆)𝑟)))
5651, 53, 38, 54, 55syl13anc 1374 . . . . . . . . . . . . 13 ((𝜑𝑟𝑅) → ((((invr𝑆)‘(𝐺𝑋))(.r𝑆)(𝐺𝑋))(.r𝑆)𝑟) = (((invr𝑆)‘(𝐺𝑋))(.r𝑆)((𝐺𝑋)(.r𝑆)𝑟)))
574, 15, 42ringlidm 20202 . . . . . . . . . . . . . 14 ((𝑆 ∈ Ring ∧ 𝑟𝑅) → ((1r𝑆)(.r𝑆)𝑟) = 𝑟)
5851, 54, 57syl2anc 584 . . . . . . . . . . . . 13 ((𝜑𝑟𝑅) → ((1r𝑆)(.r𝑆)𝑟) = 𝑟)
5946, 56, 583eqtr3d 2777 . . . . . . . . . . . 12 ((𝜑𝑟𝑅) → (((invr𝑆)‘(𝐺𝑋))(.r𝑆)((𝐺𝑋)(.r𝑆)𝑟)) = 𝑟)
6059adantr 480 . . . . . . . . . . 11 (((𝜑𝑟𝑅) ∧ (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)) → (((invr𝑆)‘(𝐺𝑋))(.r𝑆)((𝐺𝑋)(.r𝑆)𝑟)) = 𝑟)
6145adantr 480 . . . . . . . . . . 11 (((𝜑𝑟𝑅) ∧ (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)) → (((invr𝑆)‘(𝐺𝑋))(.r𝑆)(𝐺𝑋)) = (1r𝑆))
6232, 60, 613eqtr3d 2777 . . . . . . . . . 10 (((𝜑𝑟𝑅) ∧ (𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟)) → 𝑟 = (1r𝑆))
6362ex 412 . . . . . . . . 9 ((𝜑𝑟𝑅) → ((𝐻𝑋) = ((𝐺𝑋)(.r𝑆)𝑟) → 𝑟 = (1r𝑆)))
6426, 63syld 47 . . . . . . . 8 ((𝜑𝑟𝑅) → (∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟) → 𝑟 = (1r𝑆)))
6564ancrd 551 . . . . . . 7 ((𝜑𝑟𝑅) → (∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟) → (𝑟 = (1r𝑆) ∧ ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟))))
6665reximdva 3147 . . . . . 6 (𝜑 → (∃𝑟𝑅𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟) → ∃𝑟𝑅 (𝑟 = (1r𝑆) ∧ ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟))))
6718, 66mpd 15 . . . . 5 (𝜑 → ∃𝑟𝑅 (𝑟 = (1r𝑆) ∧ ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟)))
684, 42ringidcl 20198 . . . . . . 7 (𝑆 ∈ Ring → (1r𝑆) ∈ 𝑅)
6950, 68syl 17 . . . . . 6 (𝜑 → (1r𝑆) ∈ 𝑅)
70 oveq2 7364 . . . . . . . . 9 (𝑟 = (1r𝑆) → ((𝐺𝑥)(.r𝑆)𝑟) = ((𝐺𝑥)(.r𝑆)(1r𝑆)))
7170eqeq2d 2745 . . . . . . . 8 (𝑟 = (1r𝑆) → ((𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟) ↔ (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)(1r𝑆))))
7271ralbidv 3157 . . . . . . 7 (𝑟 = (1r𝑆) → (∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟) ↔ ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)(1r𝑆))))
7372ceqsrexv 3607 . . . . . 6 ((1r𝑆) ∈ 𝑅 → (∃𝑟𝑅 (𝑟 = (1r𝑆) ∧ ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟)) ↔ ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)(1r𝑆))))
7469, 73syl 17 . . . . 5 (𝜑 → (∃𝑟𝑅 (𝑟 = (1r𝑆) ∧ ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)𝑟)) ↔ ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)(1r𝑆))))
7567, 74mpbid 232 . . . 4 (𝜑 → ∀𝑥𝑉 (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)(1r𝑆)))
7675r19.21bi 3226 . . 3 ((𝜑𝑥𝑉) → (𝐻𝑥) = ((𝐺𝑥)(.r𝑆)(1r𝑆)))
7748adantr 480 . . . . 5 ((𝜑𝑥𝑉) → 𝑊 ∈ LMod)
7877, 49syl 17 . . . 4 ((𝜑𝑥𝑉) → 𝑆 ∈ Ring)
791adantr 480 . . . . 5 ((𝜑𝑥𝑉) → 𝑊 ∈ LVec)
802adantr 480 . . . . 5 ((𝜑𝑥𝑉) → 𝐺𝐹)
81 simpr 484 . . . . 5 ((𝜑𝑥𝑉) → 𝑥𝑉)
823, 4, 5, 6lflcl 39263 . . . . 5 ((𝑊 ∈ LVec ∧ 𝐺𝐹𝑥𝑉) → (𝐺𝑥) ∈ 𝑅)
8379, 80, 81, 82syl3anc 1373 . . . 4 ((𝜑𝑥𝑉) → (𝐺𝑥) ∈ 𝑅)
844, 15, 42ringridm 20203 . . . 4 ((𝑆 ∈ Ring ∧ (𝐺𝑥) ∈ 𝑅) → ((𝐺𝑥)(.r𝑆)(1r𝑆)) = (𝐺𝑥))
8578, 83, 84syl2anc 584 . . 3 ((𝜑𝑥𝑉) → ((𝐺𝑥)(.r𝑆)(1r𝑆)) = (𝐺𝑥))
8676, 85eqtr2d 2770 . 2 ((𝜑𝑥𝑉) → (𝐺𝑥) = (𝐻𝑥))
879, 13, 86eqfnfvd 6977 1 (𝜑𝐺 = 𝐻)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1541  wcel 2113  wne 2930  wral 3049  wrex 3058  wf 6486  cfv 6490  (class class class)co 7356  Basecbs 17134  .rcmulr 17176  Scalarcsca 17178  0gc0g 17357  1rcur 20114  Ringcrg 20166  invrcinvr 20321  DivRingcdr 20660  LModclmod 20809  LVecclvec 21052  LFnlclfn 39256  LKerclk 39284
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  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 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-tpos 8166  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-er 8633  df-map 8763  df-en 8882  df-dom 8883  df-sdom 8884  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-nn 12144  df-2 12206  df-3 12207  df-sets 17089  df-slot 17107  df-ndx 17119  df-base 17135  df-ress 17156  df-plusg 17188  df-mulr 17189  df-0g 17359  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-grp 18864  df-minusg 18865  df-sbg 18866  df-cmn 19709  df-abl 19710  df-mgp 20074  df-rng 20086  df-ur 20115  df-ring 20168  df-oppr 20271  df-dvdsr 20291  df-unit 20292  df-invr 20322  df-drng 20662  df-lmod 20811  df-lvec 21053  df-lfl 39257  df-lkr 39285
This theorem is referenced by:  lcfl6lem  41697
  Copyright terms: Public domain W3C validator