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

Theorem lcvexchlem4 38578
Description: Lemma for lcvexch 38580. (Contributed by NM, 10-Jan-2015.)
Hypotheses
Ref Expression
lcvexch.s 𝑆 = (LSubSp‘𝑊)
lcvexch.p = (LSSum‘𝑊)
lcvexch.c 𝐶 = ( ⋖L𝑊)
lcvexch.w (𝜑𝑊 ∈ LMod)
lcvexch.t (𝜑𝑇𝑆)
lcvexch.u (𝜑𝑈𝑆)
lcvexch.f (𝜑𝑇𝐶(𝑇 𝑈))
Assertion
Ref Expression
lcvexchlem4 (𝜑 → (𝑇𝑈)𝐶𝑈)

Proof of Theorem lcvexchlem4
Dummy variables 𝑠 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 lcvexch.s . . . 4 𝑆 = (LSubSp‘𝑊)
2 lcvexch.c . . . 4 𝐶 = ( ⋖L𝑊)
3 lcvexch.w . . . 4 (𝜑𝑊 ∈ LMod)
4 lcvexch.t . . . 4 (𝜑𝑇𝑆)
5 lcvexch.u . . . . 5 (𝜑𝑈𝑆)
6 lcvexch.p . . . . . 6 = (LSSum‘𝑊)
71, 6lsmcl 20972 . . . . 5 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑇 𝑈) ∈ 𝑆)
83, 4, 5, 7syl3anc 1368 . . . 4 (𝜑 → (𝑇 𝑈) ∈ 𝑆)
9 lcvexch.f . . . 4 (𝜑𝑇𝐶(𝑇 𝑈))
101, 2, 3, 4, 8, 9lcvpss 38565 . . 3 (𝜑𝑇 ⊊ (𝑇 𝑈))
111, 6, 2, 3, 4, 5lcvexchlem1 38575 . . 3 (𝜑 → (𝑇 ⊊ (𝑇 𝑈) ↔ (𝑇𝑈) ⊊ 𝑈))
1210, 11mpbid 231 . 2 (𝜑 → (𝑇𝑈) ⊊ 𝑈)
1333ad2ant1 1130 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑊 ∈ LMod)
141lsssssubg 20846 . . . . . . . . 9 (𝑊 ∈ LMod → 𝑆 ⊆ (SubGrp‘𝑊))
1513, 14syl 17 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑆 ⊆ (SubGrp‘𝑊))
16 simp2 1134 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑠𝑆)
1715, 16sseldd 3978 . . . . . . 7 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑠 ∈ (SubGrp‘𝑊))
1843ad2ant1 1130 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑇𝑆)
1915, 18sseldd 3978 . . . . . . 7 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑇 ∈ (SubGrp‘𝑊))
206lsmub2 19617 . . . . . . 7 ((𝑠 ∈ (SubGrp‘𝑊) ∧ 𝑇 ∈ (SubGrp‘𝑊)) → 𝑇 ⊆ (𝑠 𝑇))
2117, 19, 20syl2anc 582 . . . . . 6 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑇 ⊆ (𝑠 𝑇))
2253ad2ant1 1130 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑈𝑆)
2315, 22sseldd 3978 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑈 ∈ (SubGrp‘𝑊))
24 simp3r 1199 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑠𝑈)
256lsmless1 19619 . . . . . . . 8 ((𝑈 ∈ (SubGrp‘𝑊) ∧ 𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑠𝑈) → (𝑠 𝑇) ⊆ (𝑈 𝑇))
2623, 19, 24, 25syl3anc 1368 . . . . . . 7 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (𝑠 𝑇) ⊆ (𝑈 𝑇))
27 lmodabl 20796 . . . . . . . . . 10 (𝑊 ∈ LMod → 𝑊 ∈ Abel)
283, 27syl 17 . . . . . . . . 9 (𝜑𝑊 ∈ Abel)
293, 14syl 17 . . . . . . . . . 10 (𝜑𝑆 ⊆ (SubGrp‘𝑊))
3029, 4sseldd 3978 . . . . . . . . 9 (𝜑𝑇 ∈ (SubGrp‘𝑊))
3129, 5sseldd 3978 . . . . . . . . 9 (𝜑𝑈 ∈ (SubGrp‘𝑊))
326lsmcom 19817 . . . . . . . . 9 ((𝑊 ∈ Abel ∧ 𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑈 ∈ (SubGrp‘𝑊)) → (𝑇 𝑈) = (𝑈 𝑇))
3328, 30, 31, 32syl3anc 1368 . . . . . . . 8 (𝜑 → (𝑇 𝑈) = (𝑈 𝑇))
34333ad2ant1 1130 . . . . . . 7 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (𝑇 𝑈) = (𝑈 𝑇))
3526, 34sseqtrrd 4019 . . . . . 6 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (𝑠 𝑇) ⊆ (𝑇 𝑈))
3693ad2ant1 1130 . . . . . . 7 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑇𝐶(𝑇 𝑈))
371, 2, 3, 4, 8lcvbr3 38564 . . . . . . . . . 10 (𝜑 → (𝑇𝐶(𝑇 𝑈) ↔ (𝑇 ⊊ (𝑇 𝑈) ∧ ∀𝑟𝑆 ((𝑇𝑟𝑟 ⊆ (𝑇 𝑈)) → (𝑟 = 𝑇𝑟 = (𝑇 𝑈))))))
3837adantr 479 . . . . . . . . 9 ((𝜑𝑠𝑆) → (𝑇𝐶(𝑇 𝑈) ↔ (𝑇 ⊊ (𝑇 𝑈) ∧ ∀𝑟𝑆 ((𝑇𝑟𝑟 ⊆ (𝑇 𝑈)) → (𝑟 = 𝑇𝑟 = (𝑇 𝑈))))))
393adantr 479 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑊 ∈ LMod)
40 simpr 483 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑠𝑆)
414adantr 479 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑇𝑆)
421, 6lsmcl 20972 . . . . . . . . . . . 12 ((𝑊 ∈ LMod ∧ 𝑠𝑆𝑇𝑆) → (𝑠 𝑇) ∈ 𝑆)
4339, 40, 41, 42syl3anc 1368 . . . . . . . . . . 11 ((𝜑𝑠𝑆) → (𝑠 𝑇) ∈ 𝑆)
44 sseq2 4004 . . . . . . . . . . . . . 14 (𝑟 = (𝑠 𝑇) → (𝑇𝑟𝑇 ⊆ (𝑠 𝑇)))
45 sseq1 4003 . . . . . . . . . . . . . 14 (𝑟 = (𝑠 𝑇) → (𝑟 ⊆ (𝑇 𝑈) ↔ (𝑠 𝑇) ⊆ (𝑇 𝑈)))
4644, 45anbi12d 630 . . . . . . . . . . . . 13 (𝑟 = (𝑠 𝑇) → ((𝑇𝑟𝑟 ⊆ (𝑇 𝑈)) ↔ (𝑇 ⊆ (𝑠 𝑇) ∧ (𝑠 𝑇) ⊆ (𝑇 𝑈))))
47 eqeq1 2729 . . . . . . . . . . . . . 14 (𝑟 = (𝑠 𝑇) → (𝑟 = 𝑇 ↔ (𝑠 𝑇) = 𝑇))
48 eqeq1 2729 . . . . . . . . . . . . . 14 (𝑟 = (𝑠 𝑇) → (𝑟 = (𝑇 𝑈) ↔ (𝑠 𝑇) = (𝑇 𝑈)))
4947, 48orbi12d 916 . . . . . . . . . . . . 13 (𝑟 = (𝑠 𝑇) → ((𝑟 = 𝑇𝑟 = (𝑇 𝑈)) ↔ ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈))))
5046, 49imbi12d 343 . . . . . . . . . . . 12 (𝑟 = (𝑠 𝑇) → (((𝑇𝑟𝑟 ⊆ (𝑇 𝑈)) → (𝑟 = 𝑇𝑟 = (𝑇 𝑈))) ↔ ((𝑇 ⊆ (𝑠 𝑇) ∧ (𝑠 𝑇) ⊆ (𝑇 𝑈)) → ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈)))))
5150rspcv 3603 . . . . . . . . . . 11 ((𝑠 𝑇) ∈ 𝑆 → (∀𝑟𝑆 ((𝑇𝑟𝑟 ⊆ (𝑇 𝑈)) → (𝑟 = 𝑇𝑟 = (𝑇 𝑈))) → ((𝑇 ⊆ (𝑠 𝑇) ∧ (𝑠 𝑇) ⊆ (𝑇 𝑈)) → ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈)))))
5243, 51syl 17 . . . . . . . . . 10 ((𝜑𝑠𝑆) → (∀𝑟𝑆 ((𝑇𝑟𝑟 ⊆ (𝑇 𝑈)) → (𝑟 = 𝑇𝑟 = (𝑇 𝑈))) → ((𝑇 ⊆ (𝑠 𝑇) ∧ (𝑠 𝑇) ⊆ (𝑇 𝑈)) → ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈)))))
5352adantld 489 . . . . . . . . 9 ((𝜑𝑠𝑆) → ((𝑇 ⊊ (𝑇 𝑈) ∧ ∀𝑟𝑆 ((𝑇𝑟𝑟 ⊆ (𝑇 𝑈)) → (𝑟 = 𝑇𝑟 = (𝑇 𝑈)))) → ((𝑇 ⊆ (𝑠 𝑇) ∧ (𝑠 𝑇) ⊆ (𝑇 𝑈)) → ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈)))))
5438, 53sylbid 239 . . . . . . . 8 ((𝜑𝑠𝑆) → (𝑇𝐶(𝑇 𝑈) → ((𝑇 ⊆ (𝑠 𝑇) ∧ (𝑠 𝑇) ⊆ (𝑇 𝑈)) → ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈)))))
55543adant3 1129 . . . . . . 7 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (𝑇𝐶(𝑇 𝑈) → ((𝑇 ⊆ (𝑠 𝑇) ∧ (𝑠 𝑇) ⊆ (𝑇 𝑈)) → ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈)))))
5636, 55mpd 15 . . . . . 6 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → ((𝑇 ⊆ (𝑠 𝑇) ∧ (𝑠 𝑇) ⊆ (𝑇 𝑈)) → ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈))))
5721, 35, 56mp2and 697 . . . . 5 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → ((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈)))
58 ineq1 4204 . . . . . . 7 ((𝑠 𝑇) = 𝑇 → ((𝑠 𝑇) ∩ 𝑈) = (𝑇𝑈))
59 simp3l 1198 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (𝑇𝑈) ⊆ 𝑠)
601, 6, 2, 13, 18, 22, 16, 59, 24lcvexchlem2 38576 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → ((𝑠 𝑇) ∩ 𝑈) = 𝑠)
6160eqeq1d 2727 . . . . . . 7 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (((𝑠 𝑇) ∩ 𝑈) = (𝑇𝑈) ↔ 𝑠 = (𝑇𝑈)))
6258, 61imbitrid 243 . . . . . 6 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → ((𝑠 𝑇) = 𝑇𝑠 = (𝑇𝑈)))
63 ineq1 4204 . . . . . . 7 ((𝑠 𝑇) = (𝑇 𝑈) → ((𝑠 𝑇) ∩ 𝑈) = ((𝑇 𝑈) ∩ 𝑈))
646lsmub2 19617 . . . . . . . . . 10 ((𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑈 ∈ (SubGrp‘𝑊)) → 𝑈 ⊆ (𝑇 𝑈))
6519, 23, 64syl2anc 582 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → 𝑈 ⊆ (𝑇 𝑈))
66 sseqin2 4214 . . . . . . . . 9 (𝑈 ⊆ (𝑇 𝑈) ↔ ((𝑇 𝑈) ∩ 𝑈) = 𝑈)
6765, 66sylib 217 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → ((𝑇 𝑈) ∩ 𝑈) = 𝑈)
6860, 67eqeq12d 2741 . . . . . . 7 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (((𝑠 𝑇) ∩ 𝑈) = ((𝑇 𝑈) ∩ 𝑈) ↔ 𝑠 = 𝑈))
6963, 68imbitrid 243 . . . . . 6 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → ((𝑠 𝑇) = (𝑇 𝑈) → 𝑠 = 𝑈))
7062, 69orim12d 962 . . . . 5 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (((𝑠 𝑇) = 𝑇 ∨ (𝑠 𝑇) = (𝑇 𝑈)) → (𝑠 = (𝑇𝑈) ∨ 𝑠 = 𝑈)))
7157, 70mpd 15 . . . 4 ((𝜑𝑠𝑆 ∧ ((𝑇𝑈) ⊆ 𝑠𝑠𝑈)) → (𝑠 = (𝑇𝑈) ∨ 𝑠 = 𝑈))
72713exp 1116 . . 3 (𝜑 → (𝑠𝑆 → (((𝑇𝑈) ⊆ 𝑠𝑠𝑈) → (𝑠 = (𝑇𝑈) ∨ 𝑠 = 𝑈))))
7372ralrimiv 3135 . 2 (𝜑 → ∀𝑠𝑆 (((𝑇𝑈) ⊆ 𝑠𝑠𝑈) → (𝑠 = (𝑇𝑈) ∨ 𝑠 = 𝑈)))
741lssincl 20853 . . . 4 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑇𝑈) ∈ 𝑆)
753, 4, 5, 74syl3anc 1368 . . 3 (𝜑 → (𝑇𝑈) ∈ 𝑆)
761, 2, 3, 75, 5lcvbr3 38564 . 2 (𝜑 → ((𝑇𝑈)𝐶𝑈 ↔ ((𝑇𝑈) ⊊ 𝑈 ∧ ∀𝑠𝑆 (((𝑇𝑈) ⊆ 𝑠𝑠𝑈) → (𝑠 = (𝑇𝑈) ∨ 𝑠 = 𝑈)))))
7712, 73, 76mpbir2and 711 1 (𝜑 → (𝑇𝑈)𝐶𝑈)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 394  wo 845  w3a 1084   = wceq 1533  wcel 2098  wral 3051  cin 3944  wss 3945  wpss 3946   class class class wbr 5148  cfv 6547  (class class class)co 7417  SubGrpcsubg 19079  LSSumclsm 19593  Abelcabl 19740  LModclmod 20747  LSubSpclss 20819  L clcv 38559
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5364  ax-pr 5428  ax-un 7739  ax-cnex 11194  ax-resscn 11195  ax-1cn 11196  ax-icn 11197  ax-addcl 11198  ax-addrcl 11199  ax-mulcl 11200  ax-mulrcl 11201  ax-mulcom 11202  ax-addass 11203  ax-mulass 11204  ax-distr 11205  ax-i2m1 11206  ax-1ne0 11207  ax-1rid 11208  ax-rnegex 11209  ax-rrecex 11210  ax-cnre 11211  ax-pre-lttri 11212  ax-pre-lttrn 11213  ax-pre-ltadd 11214  ax-pre-mulgt0 11215
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3775  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-pss 3965  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4909  df-int 4950  df-iun 4998  df-iin 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5575  df-eprel 5581  df-po 5589  df-so 5590  df-fr 5632  df-we 5634  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-res 5689  df-ima 5690  df-pred 6305  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6499  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-riota 7373  df-ov 7420  df-oprab 7421  df-mpo 7422  df-om 7870  df-1st 7992  df-2nd 7993  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-er 8723  df-en 8963  df-dom 8964  df-sdom 8965  df-fin 8966  df-pnf 11280  df-mnf 11281  df-xr 11282  df-ltxr 11283  df-le 11284  df-sub 11476  df-neg 11477  df-nn 12243  df-2 12305  df-sets 17132  df-slot 17150  df-ndx 17162  df-base 17180  df-ress 17209  df-plusg 17245  df-0g 17422  df-mre 17565  df-mrc 17566  df-acs 17568  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-submnd 18740  df-grp 18897  df-minusg 18898  df-sbg 18899  df-subg 19082  df-cntz 19272  df-lsm 19595  df-cmn 19741  df-abl 19742  df-mgp 20079  df-ur 20126  df-ring 20179  df-lmod 20749  df-lss 20820  df-lcv 38560
This theorem is referenced by:  lcvexch  38580  lsatcvat3  38593
  Copyright terms: Public domain W3C validator