Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  lincresunit3lem3 Structured version   Visualization version   GIF version

Theorem lincresunit3lem3 49405
Description: Lemma 3 for lincresunit3 49412. (Contributed by AV, 18-May-2019.)
Hypotheses
Ref Expression
lincresunit3lem3.b 𝐵 = (Base‘𝑀)
lincresunit3lem3.r 𝑅 = (Scalar‘𝑀)
lincresunit3lem3.e 𝐸 = (Base‘𝑅)
lincresunit3lem3.u 𝑈 = (Unit‘𝑅)
lincresunit3lem3.n 𝑁 = (invg𝑅)
lincresunit3lem3.t · = ( ·𝑠𝑀)
Assertion
Ref Expression
lincresunit3lem3 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌) ↔ 𝑋 = 𝑌))

Proof of Theorem lincresunit3lem3
StepHypRef Expression
1 3simpa 1166 . . . . . . . 8 ((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) → (𝑀 ∈ LMod ∧ 𝑋𝐵))
21adantr 486 . . . . . . 7 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (𝑀 ∈ LMod ∧ 𝑋𝐵))
3 lincresunit3lem3.b . . . . . . . 8 𝐵 = (Base‘𝑀)
4 lincresunit3lem3.r . . . . . . . 8 𝑅 = (Scalar‘𝑀)
5 lincresunit3lem3.t . . . . . . . 8 · = ( ·𝑠𝑀)
6 eqid 2760 . . . . . . . 8 (1r𝑅) = (1r𝑅)
73, 4, 5, 6lmodvs1 21075 . . . . . . 7 ((𝑀 ∈ LMod ∧ 𝑋𝐵) → ((1r𝑅) · 𝑋) = 𝑋)
82, 7syl 18 . . . . . 6 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → ((1r𝑅) · 𝑋) = 𝑋)
94lmodring 21053 . . . . . . . . . . . 12 (𝑀 ∈ LMod → 𝑅 ∈ Ring)
1093ad2ant1 1151 . . . . . . . . . . 11 ((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) → 𝑅 ∈ Ring)
1110adantr 486 . . . . . . . . . 10 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → 𝑅 ∈ Ring)
12 lincresunit3lem3.u . . . . . . . . . . . . 13 𝑈 = (Unit‘𝑅)
13 lincresunit3lem3.n . . . . . . . . . . . . 13 𝑁 = (invg𝑅)
1412, 13unitnegcl 20539 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝐴𝑈) → (𝑁𝐴) ∈ 𝑈)
159, 14sylan 592 . . . . . . . . . . 11 ((𝑀 ∈ LMod ∧ 𝐴𝑈) → (𝑁𝐴) ∈ 𝑈)
16153ad2antl1 1204 . . . . . . . . . 10 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (𝑁𝐴) ∈ 𝑈)
1711, 16jca 521 . . . . . . . . 9 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (𝑅 ∈ Ring ∧ (𝑁𝐴) ∈ 𝑈))
18 eqid 2760 . . . . . . . . . 10 (invr𝑅) = (invr𝑅)
19 eqid 2760 . . . . . . . . . 10 (.r𝑅) = (.r𝑅)
2012, 18, 19, 6unitlinv 20535 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝑁𝐴) ∈ 𝑈) → (((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) = (1r𝑅))
2117, 20syl 18 . . . . . . . 8 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) = (1r𝑅))
2221eqcomd 2766 . . . . . . 7 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (1r𝑅) = (((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)))
2322oveq1d 7429 . . . . . 6 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → ((1r𝑅) · 𝑋) = ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑋))
248, 23eqtr3d 2797 . . . . 5 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → 𝑋 = ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑋))
2524adantr 486 . . . 4 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → 𝑋 = ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑋))
26 simpl1 1210 . . . . . . . 8 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → 𝑀 ∈ LMod)
27 lincresunit3lem3.e . . . . . . . . . . 11 𝐸 = (Base‘𝑅)
2812, 18, 27ringinvcl 20534 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ (𝑁𝐴) ∈ 𝑈) → ((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸)
2917, 28syl 18 . . . . . . . . 9 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → ((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸)
304lmodfgrp 21054 . . . . . . . . . . 11 (𝑀 ∈ LMod → 𝑅 ∈ Grp)
31303ad2ant1 1151 . . . . . . . . . 10 ((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) → 𝑅 ∈ Grp)
3227, 12unitcl 20517 . . . . . . . . . 10 (𝐴𝑈𝐴𝐸)
3327, 13grpinvcl 19112 . . . . . . . . . 10 ((𝑅 ∈ Grp ∧ 𝐴𝐸) → (𝑁𝐴) ∈ 𝐸)
3431, 32, 33syl2an 608 . . . . . . . . 9 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (𝑁𝐴) ∈ 𝐸)
35 simpl2 1211 . . . . . . . . 9 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → 𝑋𝐵)
3629, 34, 353jca 1146 . . . . . . . 8 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸 ∧ (𝑁𝐴) ∈ 𝐸𝑋𝐵))
3726, 36jca 521 . . . . . . 7 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (𝑀 ∈ LMod ∧ (((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸 ∧ (𝑁𝐴) ∈ 𝐸𝑋𝐵)))
3837adantr 486 . . . . . 6 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → (𝑀 ∈ LMod ∧ (((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸 ∧ (𝑁𝐴) ∈ 𝐸𝑋𝐵)))
393, 4, 5, 27, 19lmodvsass 21072 . . . . . 6 ((𝑀 ∈ LMod ∧ (((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸 ∧ (𝑁𝐴) ∈ 𝐸𝑋𝐵)) → ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑋) = (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑋)))
4038, 39syl 18 . . . . 5 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑋) = (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑋)))
41 oveq2 7422 . . . . . 6 (((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌) → (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑋)) = (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑌)))
4241adantl 487 . . . . 5 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑋)) = (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑌)))
4326adantr 486 . . . . . . . 8 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → 𝑀 ∈ LMod)
44 simpl3 1212 . . . . . . . . . 10 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → 𝑌𝐵)
4529, 34, 443jca 1146 . . . . . . . . 9 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸 ∧ (𝑁𝐴) ∈ 𝐸𝑌𝐵))
4645adantr 486 . . . . . . . 8 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → (((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸 ∧ (𝑁𝐴) ∈ 𝐸𝑌𝐵))
4743, 46jca 521 . . . . . . 7 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → (𝑀 ∈ LMod ∧ (((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸 ∧ (𝑁𝐴) ∈ 𝐸𝑌𝐵)))
483, 4, 5, 27, 19lmodvsass 21072 . . . . . . 7 ((𝑀 ∈ LMod ∧ (((invr𝑅)‘(𝑁𝐴)) ∈ 𝐸 ∧ (𝑁𝐴) ∈ 𝐸𝑌𝐵)) → ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑌) = (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑌)))
4947, 48syl 18 . . . . . 6 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑌) = (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑌)))
5017adantr 486 . . . . . . . 8 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → (𝑅 ∈ Ring ∧ (𝑁𝐴) ∈ 𝑈))
5150, 20syl 18 . . . . . . 7 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → (((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) = (1r𝑅))
5251oveq1d 7429 . . . . . 6 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑌) = ((1r𝑅) · 𝑌))
5349, 52eqtr3d 2797 . . . . 5 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → (((invr𝑅)‘(𝑁𝐴)) · ((𝑁𝐴) · 𝑌)) = ((1r𝑅) · 𝑌))
5440, 42, 533eqtrd 2799 . . . 4 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → ((((invr𝑅)‘(𝑁𝐴))(.r𝑅)(𝑁𝐴)) · 𝑋) = ((1r𝑅) · 𝑌))
55 3simpb 1167 . . . . . . 7 ((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) → (𝑀 ∈ LMod ∧ 𝑌𝐵))
5655adantr 486 . . . . . 6 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (𝑀 ∈ LMod ∧ 𝑌𝐵))
5756adantr 486 . . . . 5 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → (𝑀 ∈ LMod ∧ 𝑌𝐵))
583, 4, 5, 6lmodvs1 21075 . . . . 5 ((𝑀 ∈ LMod ∧ 𝑌𝐵) → ((1r𝑅) · 𝑌) = 𝑌)
5957, 58syl 18 . . . 4 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → ((1r𝑅) · 𝑌) = 𝑌)
6025, 54, 593eqtrd 2799 . . 3 ((((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) ∧ ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌)) → 𝑋 = 𝑌)
6160ex 418 . 2 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌) → 𝑋 = 𝑌))
62 oveq2 7422 . 2 (𝑋 = 𝑌 → ((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌))
6361, 62impbid1 228 1 (((𝑀 ∈ LMod ∧ 𝑋𝐵𝑌𝐵) ∧ 𝐴𝑈) → (((𝑁𝐴) · 𝑋) = ((𝑁𝐴) · 𝑌) ↔ 𝑋 = 𝑌))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2145  cfv 6533  (class class class)co 7414  Basecbs 17302  .rcmulr 17344  Scalarcsca 17346   ·𝑠 cvsca 17347  Grpcgrp 19058  invgcminusg 19059  1rcur 20321  Ringcrg 20373  Unitcui 20497  invrcinvr 20529  LModclmod 21045
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11181  ax-resscn 11182  ax-1cn 11183  ax-icn 11184  ax-addcl 11185  ax-addrcl 11186  ax-mulcl 11187  ax-mulrcl 11188  ax-mulcom 11189  ax-addass 11190  ax-mulass 11191  ax-distr 11192  ax-i2m1 11193  ax-1ne0 11194  ax-1rid 11195  ax-rnegex 11196  ax-rrecex 11197  ax-cnre 11198  ax-pre-lttri 11199  ax-pre-lttrn 11200  ax-pre-ltadd 11201  ax-pre-mulgt0 11202
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7864  df-2nd 7988  df-tpos 8225  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-er 8697  df-en 8954  df-dom 8955  df-sdom 8956  df-pnf 11270  df-mnf 11271  df-xr 11272  df-ltxr 11273  df-le 11274  df-sub 11468  df-neg 11469  df-nn 12259  df-2 12328  df-3 12329  df-sets 17257  df-slot 17275  df-ndx 17287  df-base 17303  df-ress 17324  df-plusg 17356  df-mulr 17357  df-0g 17527  df-mgm 18731  df-sgrp 18822  df-mnd 18838  df-grp 19061  df-minusg 19062  df-cmn 19910  df-abl 19911  df-mgp 20275  df-rng 20289  df-ur 20322  df-ring 20375  df-oppr 20479  df-dvdsr 20499  df-unit 20500  df-invr 20530  df-lmod 21047
This theorem is used by:  lincresunit3  49412
  Copyright terms: Public domain W3C validator