Theorem lmod0rng 43528

Description: If the scalar ring of a module is the zero ring, the module is the zero module, i.e. the base set of the module is the singleton consisting of the identity element only. (Contributed by AV, 17-Apr-2019.)

Assertion

Ref	Expression
lmod0rng	⊢ ((𝑀 ∈ LMod ∧ ¬ (Scalar‘𝑀) ∈ NzRing) → (Base‘𝑀) = {(0g‘𝑀)})

Proof of Theorem lmod0rng

Dummy variable 𝑣 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2772	. . . 4 ⊢ (Scalar‘𝑀) = (Scalar‘𝑀)
2	1	lmodring 19376	. . 3 ⊢ (𝑀 ∈ LMod → (Scalar‘𝑀) ∈ Ring)
3		0ringnnzr 19775	. . . . 5 ⊢ ((Scalar‘𝑀) ∈ Ring → ((♯‘(Base‘(Scalar‘𝑀))) = 1 ↔ ¬ (Scalar‘𝑀) ∈ NzRing))
4		eqid 2772	. . . . . . . 8 ⊢ (Base‘(Scalar‘𝑀)) = (Base‘(Scalar‘𝑀))
5		eqid 2772	. . . . . . . 8 ⊢ (0g‘(Scalar‘𝑀)) = (0g‘(Scalar‘𝑀))
6		eqid 2772	. . . . . . . 8 ⊢ (1r‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀))
7	4, 5, 6	0ring01eq 19777	. . . . . . 7 ⊢ (((Scalar‘𝑀) ∈ Ring ∧ (♯‘(Base‘(Scalar‘𝑀))) = 1) → (0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)))
8		eqid 2772	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑀) = (Base‘𝑀)
9		eqid 2772	. . . . . . . . . . . . . 14 ⊢ ( ·𝑠 ‘𝑀) = ( ·𝑠 ‘𝑀)
10	8, 1, 9, 6	lmodvs1 19396	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ LMod ∧ 𝑣 ∈ (Base‘𝑀)) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = 𝑣)
11		eqcom 2779	. . . . . . . . . . . . . . . 16 ⊢ (((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = 𝑣 ↔ 𝑣 = ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣))
12	11	biimpi 208	. . . . . . . . . . . . . . 15 ⊢ (((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = 𝑣 → 𝑣 = ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣))
13		oveq1 6981	. . . . . . . . . . . . . . . . 17 ⊢ ((1r‘(Scalar‘𝑀)) = (0g‘(Scalar‘𝑀)) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = ((0g‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣))
14	13	eqcoms 2780	. . . . . . . . . . . . . . . 16 ⊢ ((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = ((0g‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣))
15		eqid 2772	. . . . . . . . . . . . . . . . 17 ⊢ (0g‘𝑀) = (0g‘𝑀)
16	8, 1, 9, 5, 15	lmod0vs 19401	. . . . . . . . . . . . . . . 16 ⊢ ((𝑀 ∈ LMod ∧ 𝑣 ∈ (Base‘𝑀)) → ((0g‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = (0g‘𝑀))
17	14, 16	sylan9eqr 2830	. . . . . . . . . . . . . . 15 ⊢ (((𝑀 ∈ LMod ∧ 𝑣 ∈ (Base‘𝑀)) ∧ (0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀))) → ((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = (0g‘𝑀))
18	12, 17	sylan9eq 2828	. . . . . . . . . . . . . 14 ⊢ ((((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = 𝑣 ∧ ((𝑀 ∈ LMod ∧ 𝑣 ∈ (Base‘𝑀)) ∧ (0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)))) → 𝑣 = (0g‘𝑀))
19	18	exp32 413	. . . . . . . . . . . . 13 ⊢ (((1r‘(Scalar‘𝑀))( ·𝑠 ‘𝑀)𝑣) = 𝑣 → ((𝑀 ∈ LMod ∧ 𝑣 ∈ (Base‘𝑀)) → ((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) → 𝑣 = (0g‘𝑀))))
20	10, 19	mpcom 38	. . . . . . . . . . . 12 ⊢ ((𝑀 ∈ LMod ∧ 𝑣 ∈ (Base‘𝑀)) → ((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) → 𝑣 = (0g‘𝑀)))
21	20	com12 32	. . . . . . . . . . 11 ⊢ ((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) → ((𝑀 ∈ LMod ∧ 𝑣 ∈ (Base‘𝑀)) → 𝑣 = (0g‘𝑀)))
22	21	impl 448	. . . . . . . . . 10 ⊢ ((((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) ∧ 𝑀 ∈ LMod) ∧ 𝑣 ∈ (Base‘𝑀)) → 𝑣 = (0g‘𝑀))
23	22	ralrimiva 3126	. . . . . . . . 9 ⊢ (((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) ∧ 𝑀 ∈ LMod) → ∀𝑣 ∈ (Base‘𝑀)𝑣 = (0g‘𝑀))
24	8	lmodbn0 19378	. . . . . . . . . . 11 ⊢ (𝑀 ∈ LMod → (Base‘𝑀) ≠ ∅)
25		eqsn 4632	. . . . . . . . . . 11 ⊢ ((Base‘𝑀) ≠ ∅ → ((Base‘𝑀) = {(0g‘𝑀)} ↔ ∀𝑣 ∈ (Base‘𝑀)𝑣 = (0g‘𝑀)))
26	24, 25	syl 17	. . . . . . . . . 10 ⊢ (𝑀 ∈ LMod → ((Base‘𝑀) = {(0g‘𝑀)} ↔ ∀𝑣 ∈ (Base‘𝑀)𝑣 = (0g‘𝑀)))
27	26	adantl 474	. . . . . . . . 9 ⊢ (((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) ∧ 𝑀 ∈ LMod) → ((Base‘𝑀) = {(0g‘𝑀)} ↔ ∀𝑣 ∈ (Base‘𝑀)𝑣 = (0g‘𝑀)))
28	23, 27	mpbird 249	. . . . . . . 8 ⊢ (((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) ∧ 𝑀 ∈ LMod) → (Base‘𝑀) = {(0g‘𝑀)})
29	28	ex 405	. . . . . . 7 ⊢ ((0g‘(Scalar‘𝑀)) = (1r‘(Scalar‘𝑀)) → (𝑀 ∈ LMod → (Base‘𝑀) = {(0g‘𝑀)}))
30	7, 29	syl 17	. . . . . 6 ⊢ (((Scalar‘𝑀) ∈ Ring ∧ (♯‘(Base‘(Scalar‘𝑀))) = 1) → (𝑀 ∈ LMod → (Base‘𝑀) = {(0g‘𝑀)}))
31	30	ex 405	. . . . 5 ⊢ ((Scalar‘𝑀) ∈ Ring → ((♯‘(Base‘(Scalar‘𝑀))) = 1 → (𝑀 ∈ LMod → (Base‘𝑀) = {(0g‘𝑀)})))
32	3, 31	sylbird 252	. . . 4 ⊢ ((Scalar‘𝑀) ∈ Ring → (¬ (Scalar‘𝑀) ∈ NzRing → (𝑀 ∈ LMod → (Base‘𝑀) = {(0g‘𝑀)})))
33	32	com23 86	. . 3 ⊢ ((Scalar‘𝑀) ∈ Ring → (𝑀 ∈ LMod → (¬ (Scalar‘𝑀) ∈ NzRing → (Base‘𝑀) = {(0g‘𝑀)})))
34	2, 33	mpcom 38	. 2 ⊢ (𝑀 ∈ LMod → (¬ (Scalar‘𝑀) ∈ NzRing → (Base‘𝑀) = {(0g‘𝑀)}))
35	34	imp 398	1 ⊢ ((𝑀 ∈ LMod ∧ ¬ (Scalar‘𝑀) ∈ NzRing) → (Base‘𝑀) = {(0g‘𝑀)})

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 198   ∧ wa 387   = wceq 1507   ∈ wcel 2050   ≠ wne 2961  ∀wral 3082  ∅c0 4172  {csn 4435  ‘cfv 6185  (class class class)co 6974  1c1 10334  ♯chash 13503  Basecbs 16337  Scalarcsca 16422   ·_𝑠 cvsca 16423  0_gc0g 16567  1_rcur 18986  Ringcrg 19032  LModclmod 19368  NzRingcnzr 19763

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2744  ax-rep 5045  ax-sep 5056  ax-nul 5063  ax-pow 5115  ax-pr 5182  ax-un 7277  ax-cnex 10389  ax-resscn 10390  ax-1cn 10391  ax-icn 10392  ax-addcl 10393  ax-addrcl 10394  ax-mulcl 10395  ax-mulrcl 10396  ax-mulcom 10397  ax-addass 10398  ax-mulass 10399  ax-distr 10400  ax-i2m1 10401  ax-1ne0 10402  ax-1rid 10403  ax-rnegex 10404  ax-rrecex 10405  ax-cnre 10406  ax-pre-lttri 10407  ax-pre-lttrn 10408  ax-pre-ltadd 10409  ax-pre-mulgt0 10410

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2584  df-clab 2753  df-cleq 2765  df-clel 2840  df-nfc 2912  df-ne 2962  df-nel 3068  df-ral 3087  df-rex 3088  df-reu 3089  df-rmo 3090  df-rab 3091  df-v 3411  df-sbc 3676  df-csb 3781  df-dif 3826  df-un 3828  df-in 3830  df-ss 3837  df-pss 3839  df-nul 4173  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4709  df-int 4746  df-iun 4790  df-br 4926  df-opab 4988  df-mpt 5005  df-tr 5027  df-id 5308  df-eprel 5313  df-po 5322  df-so 5323  df-fr 5362  df-we 5364  df-xp 5409  df-rel 5410  df-cnv 5411  df-co 5412  df-dm 5413  df-rn 5414  df-res 5415  df-ima 5416  df-pred 5983  df-ord 6029  df-on 6030  df-lim 6031  df-suc 6032  df-iota 6149  df-fun 6187  df-fn 6188  df-f 6189  df-f1 6190  df-fo 6191  df-f1o 6192  df-fv 6193  df-riota 6935  df-ov 6977  df-oprab 6978  df-mpo 6979  df-om 7395  df-1st 7499  df-2nd 7500  df-wrecs 7748  df-recs 7810  df-rdg 7848  df-1o 7903  df-oadd 7907  df-er 8087  df-en 8305  df-dom 8306  df-sdom 8307  df-fin 8308  df-dju 9122  df-card 9160  df-pnf 10474  df-mnf 10475  df-xr 10476  df-ltxr 10477  df-le 10478  df-sub 10670  df-neg 10671  df-nn 11438  df-2 11501  df-n0 11706  df-xnn0 11778  df-z 11792  df-uz 12057  df-fz 12707  df-hash 13504  df-ndx 16340  df-slot 16341  df-base 16343  df-sets 16344  df-plusg 16432  df-0g 16569  df-mgm 17722  df-sgrp 17764  df-mnd 17775  df-grp 17906  df-minusg 17907  df-mgp 18975  df-ur 18987  df-ring 19034  df-lmod 19370  df-nzr 19764

This theorem is referenced by: (None)