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

Theorem lcvexchlem5 39667
Description: Lemma for lcvexch 39668. (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.g (𝜑 → (𝑇𝑈)𝐶𝑈)
Assertion
Ref Expression
lcvexchlem5 (𝜑𝑇𝐶(𝑇 𝑈))

Proof of Theorem lcvexchlem5
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 . . . . 5 (𝜑𝑇𝑆)
5 lcvexch.u . . . . 5 (𝜑𝑈𝑆)
61lssincl 21039 . . . . 5 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑇𝑈) ∈ 𝑆)
73, 4, 5, 6syl3anc 1392 . . . 4 (𝜑 → (𝑇𝑈) ∈ 𝑆)
8 lcvexch.g . . . 4 (𝜑 → (𝑇𝑈)𝐶𝑈)
91, 2, 3, 7, 5, 8lcvpss 39653 . . 3 (𝜑 → (𝑇𝑈) ⊊ 𝑈)
10 lcvexch.p . . . 4 = (LSSum‘𝑊)
111, 10, 2, 3, 4, 5lcvexchlem1 39663 . . 3 (𝜑 → (𝑇 ⊊ (𝑇 𝑈) ↔ (𝑇𝑈) ⊊ 𝑈))
129, 11mpbird 259 . 2 (𝜑𝑇 ⊊ (𝑇 𝑈))
13 simp3l 1216 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑇𝑠)
1413ssrind 4196 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (𝑇𝑈) ⊆ (𝑠𝑈))
15 inss2 4190 . . . . . . 7 (𝑠𝑈) ⊆ 𝑈
1614, 15jctir 528 . . . . . 6 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈))
1783ad2ant1 1147 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (𝑇𝑈)𝐶𝑈)
181, 2, 3, 7, 5lcvbr3 39652 . . . . . . . . . 10 (𝜑 → ((𝑇𝑈)𝐶𝑈 ↔ ((𝑇𝑈) ⊊ 𝑈 ∧ ∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)))))
1918adantr 484 . . . . . . . . 9 ((𝜑𝑠𝑆) → ((𝑇𝑈)𝐶𝑈 ↔ ((𝑇𝑈) ⊊ 𝑈 ∧ ∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)))))
203adantr 484 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑊 ∈ LMod)
21 simpr 488 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑠𝑆)
225adantr 484 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑈𝑆)
231lssincl 21039 . . . . . . . . . . . 12 ((𝑊 ∈ LMod ∧ 𝑠𝑆𝑈𝑆) → (𝑠𝑈) ∈ 𝑆)
2420, 21, 22, 23syl3anc 1392 . . . . . . . . . . 11 ((𝜑𝑠𝑆) → (𝑠𝑈) ∈ 𝑆)
25 sseq2 3963 . . . . . . . . . . . . . 14 (𝑟 = (𝑠𝑈) → ((𝑇𝑈) ⊆ 𝑟 ↔ (𝑇𝑈) ⊆ (𝑠𝑈)))
26 sseq1 3962 . . . . . . . . . . . . . 14 (𝑟 = (𝑠𝑈) → (𝑟𝑈 ↔ (𝑠𝑈) ⊆ 𝑈))
2725, 26anbi12d 641 . . . . . . . . . . . . 13 (𝑟 = (𝑠𝑈) → (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) ↔ ((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈)))
28 eqeq1 2767 . . . . . . . . . . . . . 14 (𝑟 = (𝑠𝑈) → (𝑟 = (𝑇𝑈) ↔ (𝑠𝑈) = (𝑇𝑈)))
29 eqeq1 2767 . . . . . . . . . . . . . 14 (𝑟 = (𝑠𝑈) → (𝑟 = 𝑈 ↔ (𝑠𝑈) = 𝑈))
3028, 29orbi12d 929 . . . . . . . . . . . . 13 (𝑟 = (𝑠𝑈) → ((𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈) ↔ ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈)))
3127, 30imbi12d 346 . . . . . . . . . . . 12 (𝑟 = (𝑠𝑈) → ((((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)) ↔ (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3231rspcv 3578 . . . . . . . . . . 11 ((𝑠𝑈) ∈ 𝑆 → (∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)) → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3324, 32syl 17 . . . . . . . . . 10 ((𝜑𝑠𝑆) → (∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)) → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3433adantld 494 . . . . . . . . 9 ((𝜑𝑠𝑆) → (((𝑇𝑈) ⊊ 𝑈 ∧ ∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈))) → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3519, 34sylbid 242 . . . . . . . 8 ((𝜑𝑠𝑆) → ((𝑇𝑈)𝐶𝑈 → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
36353adant3 1146 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑇𝑈)𝐶𝑈 → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3717, 36mpd 15 . . . . . 6 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈)))
3816, 37mpd 15 . . . . 5 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))
39 oveq1 7403 . . . . . . 7 ((𝑠𝑈) = (𝑇𝑈) → ((𝑠𝑈) 𝑇) = ((𝑇𝑈) 𝑇))
4033ad2ant1 1147 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑊 ∈ LMod)
4143ad2ant1 1147 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑇𝑆)
4253ad2ant1 1147 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑈𝑆)
43 simp2 1151 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑠𝑆)
44 simp3r 1217 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑠 ⊆ (𝑇 𝑈))
451, 10, 2, 40, 41, 42, 43, 13, 44lcvexchlem3 39665 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑠𝑈) 𝑇) = 𝑠)
461lsssssubg 21032 . . . . . . . . . . . 12 (𝑊 ∈ LMod → 𝑆 ⊆ (SubGrp‘𝑊))
473, 46syl 17 . . . . . . . . . . 11 (𝜑𝑆 ⊆ (SubGrp‘𝑊))
4847, 7sseldd 3938 . . . . . . . . . 10 (𝜑 → (𝑇𝑈) ∈ (SubGrp‘𝑊))
4947, 4sseldd 3938 . . . . . . . . . 10 (𝜑𝑇 ∈ (SubGrp‘𝑊))
50 inss1 4189 . . . . . . . . . . 11 (𝑇𝑈) ⊆ 𝑇
5150a1i 11 . . . . . . . . . 10 (𝜑 → (𝑇𝑈) ⊆ 𝑇)
5210lsmss1 19715 . . . . . . . . . 10 (((𝑇𝑈) ∈ (SubGrp‘𝑊) ∧ 𝑇 ∈ (SubGrp‘𝑊) ∧ (𝑇𝑈) ⊆ 𝑇) → ((𝑇𝑈) 𝑇) = 𝑇)
5348, 49, 51, 52syl3anc 1392 . . . . . . . . 9 (𝜑 → ((𝑇𝑈) 𝑇) = 𝑇)
54533ad2ant1 1147 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑇𝑈) 𝑇) = 𝑇)
5545, 54eqeq12d 2779 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (((𝑠𝑈) 𝑇) = ((𝑇𝑈) 𝑇) ↔ 𝑠 = 𝑇))
5639, 55imbitrid 246 . . . . . 6 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑠𝑈) = (𝑇𝑈) → 𝑠 = 𝑇))
57 oveq1 7403 . . . . . . 7 ((𝑠𝑈) = 𝑈 → ((𝑠𝑈) 𝑇) = (𝑈 𝑇))
58 lmodabl 20983 . . . . . . . . . . 11 (𝑊 ∈ LMod → 𝑊 ∈ Abel)
593, 58syl 17 . . . . . . . . . 10 (𝜑𝑊 ∈ Abel)
6047, 5sseldd 3938 . . . . . . . . . 10 (𝜑𝑈 ∈ (SubGrp‘𝑊))
6110lsmcom 19908 . . . . . . . . . 10 ((𝑊 ∈ Abel ∧ 𝑈 ∈ (SubGrp‘𝑊) ∧ 𝑇 ∈ (SubGrp‘𝑊)) → (𝑈 𝑇) = (𝑇 𝑈))
6259, 60, 49, 61syl3anc 1392 . . . . . . . . 9 (𝜑 → (𝑈 𝑇) = (𝑇 𝑈))
63623ad2ant1 1147 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (𝑈 𝑇) = (𝑇 𝑈))
6445, 63eqeq12d 2779 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (((𝑠𝑈) 𝑇) = (𝑈 𝑇) ↔ 𝑠 = (𝑇 𝑈)))
6557, 64imbitrid 246 . . . . . 6 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑠𝑈) = 𝑈𝑠 = (𝑇 𝑈)))
6656, 65orim12d 977 . . . . 5 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈))))
6738, 66mpd 15 . . . 4 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈)))
68673exp 1133 . . 3 (𝜑 → (𝑠𝑆 → ((𝑇𝑠𝑠 ⊆ (𝑇 𝑈)) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈)))))
6968ralrimiv 3154 . 2 (𝜑 → ∀𝑠𝑆 ((𝑇𝑠𝑠 ⊆ (𝑇 𝑈)) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈))))
701, 10lsmcl 21157 . . . 4 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑇 𝑈) ∈ 𝑆)
713, 4, 5, 70syl3anc 1392 . . 3 (𝜑 → (𝑇 𝑈) ∈ 𝑆)
721, 2, 3, 4, 71lcvbr3 39652 . 2 (𝜑 → (𝑇𝐶(𝑇 𝑈) ↔ (𝑇 ⊊ (𝑇 𝑈) ∧ ∀𝑠𝑆 ((𝑇𝑠𝑠 ⊆ (𝑇 𝑈)) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈))))))
7312, 69, 72mpbir2and 723 1 (𝜑𝑇𝐶(𝑇 𝑈))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 399  wo 858  w3a 1099   = wceq 1561  wcel 2143  wral 3077  cin 3904  wss 3905  wpss 3906   class class class wbr 5101  cfv 6521  (class class class)co 7396  SubGrpcsubg 19172  LSSumclsm 19684  Abelcabl 19831  LModclmod 20934  LSubSpclss 21005  L clcv 39647
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1816  ax-4 1830  ax-5 1931  ax-6 1988  ax-7 2029  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5228  ax-sep 5247  ax-nul 5257  ax-pow 5323  ax-pr 5391  ax-un 7718  ax-cnex 11140  ax-resscn 11141  ax-1cn 11142  ax-icn 11143  ax-addcl 11144  ax-addrcl 11145  ax-mulcl 11146  ax-mulrcl 11147  ax-mulcom 11148  ax-addass 11149  ax-mulass 11150  ax-distr 11151  ax-i2m1 11152  ax-1ne0 11153  ax-1rid 11154  ax-rnegex 11155  ax-rrecex 11156  ax-cnre 11157  ax-pre-lttri 11158  ax-pre-lttrn 11159  ax-pre-ltadd 11160  ax-pre-mulgt0 11161
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1564  df-fal 1574  df-ex 1801  df-nf 1805  df-sb 2092  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3457  df-sbc 3746  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-iin 4953  df-br 5102  df-opab 5164  df-mpt 5183  df-tr 5209  df-id 5543  df-eprel 5548  df-po 5556  df-so 5557  df-fr 5601  df-we 5603  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-om 7847  df-1st 7970  df-2nd 7971  df-tpos 8206  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-1o 8437  df-2o 8438  df-er 8678  df-en 8928  df-dom 8929  df-sdom 8930  df-fin 8931  df-pnf 11229  df-mnf 11230  df-xr 11231  df-ltxr 11232  df-le 11233  df-sub 11427  df-neg 11428  df-nn 12221  df-2 12290  df-sets 17210  df-slot 17228  df-ndx 17240  df-base 17256  df-ress 17277  df-plusg 17309  df-0g 17480  df-mre 17624  df-mrc 17625  df-acs 17627  df-mgm 18684  df-sgrp 18763  df-mnd 18779  df-submnd 18828  df-grp 18988  df-minusg 18989  df-sbg 18990  df-subg 19175  df-cntz 19367  df-oppg 19396  df-lsm 19686  df-cmn 19832  df-abl 19833  df-mgp 20197  df-ur 20242  df-ring 20295  df-lmod 20936  df-lss 21006  df-lcv 39648
This theorem is referenced by:  lcvexch  39668
  Copyright terms: Public domain W3C validator