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 36789
Description: Lemma for lcvexch 36790. (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 20002 . . . . 5 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑇𝑈) ∈ 𝑆)
73, 4, 5, 6syl3anc 1373 . . . 4 (𝜑 → (𝑇𝑈) ∈ 𝑆)
8 lcvexch.g . . . 4 (𝜑 → (𝑇𝑈)𝐶𝑈)
91, 2, 3, 7, 5, 8lcvpss 36775 . . 3 (𝜑 → (𝑇𝑈) ⊊ 𝑈)
10 lcvexch.p . . . 4 = (LSSum‘𝑊)
111, 10, 2, 3, 4, 5lcvexchlem1 36785 . . 3 (𝜑 → (𝑇 ⊊ (𝑇 𝑈) ↔ (𝑇𝑈) ⊊ 𝑈))
129, 11mpbird 260 . 2 (𝜑𝑇 ⊊ (𝑇 𝑈))
13 simp3l 1203 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑇𝑠)
1413ssrind 4150 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (𝑇𝑈) ⊆ (𝑠𝑈))
15 inss2 4144 . . . . . . 7 (𝑠𝑈) ⊆ 𝑈
1614, 15jctir 524 . . . . . 6 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈))
1783ad2ant1 1135 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (𝑇𝑈)𝐶𝑈)
181, 2, 3, 7, 5lcvbr3 36774 . . . . . . . . . 10 (𝜑 → ((𝑇𝑈)𝐶𝑈 ↔ ((𝑇𝑈) ⊊ 𝑈 ∧ ∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)))))
1918adantr 484 . . . . . . . . 9 ((𝜑𝑠𝑆) → ((𝑇𝑈)𝐶𝑈 ↔ ((𝑇𝑈) ⊊ 𝑈 ∧ ∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)))))
203adantr 484 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑊 ∈ LMod)
21 simpr 488 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑠𝑆)
225adantr 484 . . . . . . . . . . . 12 ((𝜑𝑠𝑆) → 𝑈𝑆)
231lssincl 20002 . . . . . . . . . . . 12 ((𝑊 ∈ LMod ∧ 𝑠𝑆𝑈𝑆) → (𝑠𝑈) ∈ 𝑆)
2420, 21, 22, 23syl3anc 1373 . . . . . . . . . . 11 ((𝜑𝑠𝑆) → (𝑠𝑈) ∈ 𝑆)
25 sseq2 3927 . . . . . . . . . . . . . 14 (𝑟 = (𝑠𝑈) → ((𝑇𝑈) ⊆ 𝑟 ↔ (𝑇𝑈) ⊆ (𝑠𝑈)))
26 sseq1 3926 . . . . . . . . . . . . . 14 (𝑟 = (𝑠𝑈) → (𝑟𝑈 ↔ (𝑠𝑈) ⊆ 𝑈))
2725, 26anbi12d 634 . . . . . . . . . . . . 13 (𝑟 = (𝑠𝑈) → (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) ↔ ((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈)))
28 eqeq1 2741 . . . . . . . . . . . . . 14 (𝑟 = (𝑠𝑈) → (𝑟 = (𝑇𝑈) ↔ (𝑠𝑈) = (𝑇𝑈)))
29 eqeq1 2741 . . . . . . . . . . . . . 14 (𝑟 = (𝑠𝑈) → (𝑟 = 𝑈 ↔ (𝑠𝑈) = 𝑈))
3028, 29orbi12d 919 . . . . . . . . . . . . 13 (𝑟 = (𝑠𝑈) → ((𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈) ↔ ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈)))
3127, 30imbi12d 348 . . . . . . . . . . . 12 (𝑟 = (𝑠𝑈) → ((((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)) ↔ (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3231rspcv 3532 . . . . . . . . . . 11 ((𝑠𝑈) ∈ 𝑆 → (∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)) → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3324, 32syl 17 . . . . . . . . . 10 ((𝜑𝑠𝑆) → (∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈)) → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3433adantld 494 . . . . . . . . 9 ((𝜑𝑠𝑆) → (((𝑇𝑈) ⊊ 𝑈 ∧ ∀𝑟𝑆 (((𝑇𝑈) ⊆ 𝑟𝑟𝑈) → (𝑟 = (𝑇𝑈) ∨ 𝑟 = 𝑈))) → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3519, 34sylbid 243 . . . . . . . 8 ((𝜑𝑠𝑆) → ((𝑇𝑈)𝐶𝑈 → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
36353adant3 1134 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑇𝑈)𝐶𝑈 → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))))
3717, 36mpd 15 . . . . . 6 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (((𝑇𝑈) ⊆ (𝑠𝑈) ∧ (𝑠𝑈) ⊆ 𝑈) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈)))
3816, 37mpd 15 . . . . 5 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈))
39 oveq1 7220 . . . . . . 7 ((𝑠𝑈) = (𝑇𝑈) → ((𝑠𝑈) 𝑇) = ((𝑇𝑈) 𝑇))
4033ad2ant1 1135 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑊 ∈ LMod)
4143ad2ant1 1135 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑇𝑆)
4253ad2ant1 1135 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑈𝑆)
43 simp2 1139 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑠𝑆)
44 simp3r 1204 . . . . . . . . 9 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → 𝑠 ⊆ (𝑇 𝑈))
451, 10, 2, 40, 41, 42, 43, 13, 44lcvexchlem3 36787 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑠𝑈) 𝑇) = 𝑠)
461lsssssubg 19995 . . . . . . . . . . . 12 (𝑊 ∈ LMod → 𝑆 ⊆ (SubGrp‘𝑊))
473, 46syl 17 . . . . . . . . . . 11 (𝜑𝑆 ⊆ (SubGrp‘𝑊))
4847, 7sseldd 3902 . . . . . . . . . 10 (𝜑 → (𝑇𝑈) ∈ (SubGrp‘𝑊))
4947, 4sseldd 3902 . . . . . . . . . 10 (𝜑𝑇 ∈ (SubGrp‘𝑊))
50 inss1 4143 . . . . . . . . . . 11 (𝑇𝑈) ⊆ 𝑇
5150a1i 11 . . . . . . . . . 10 (𝜑 → (𝑇𝑈) ⊆ 𝑇)
5210lsmss1 19055 . . . . . . . . . 10 (((𝑇𝑈) ∈ (SubGrp‘𝑊) ∧ 𝑇 ∈ (SubGrp‘𝑊) ∧ (𝑇𝑈) ⊆ 𝑇) → ((𝑇𝑈) 𝑇) = 𝑇)
5348, 49, 51, 52syl3anc 1373 . . . . . . . . 9 (𝜑 → ((𝑇𝑈) 𝑇) = 𝑇)
54533ad2ant1 1135 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑇𝑈) 𝑇) = 𝑇)
5545, 54eqeq12d 2753 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (((𝑠𝑈) 𝑇) = ((𝑇𝑈) 𝑇) ↔ 𝑠 = 𝑇))
5639, 55syl5ib 247 . . . . . 6 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑠𝑈) = (𝑇𝑈) → 𝑠 = 𝑇))
57 oveq1 7220 . . . . . . 7 ((𝑠𝑈) = 𝑈 → ((𝑠𝑈) 𝑇) = (𝑈 𝑇))
58 lmodabl 19946 . . . . . . . . . . 11 (𝑊 ∈ LMod → 𝑊 ∈ Abel)
593, 58syl 17 . . . . . . . . . 10 (𝜑𝑊 ∈ Abel)
6047, 5sseldd 3902 . . . . . . . . . 10 (𝜑𝑈 ∈ (SubGrp‘𝑊))
6110lsmcom 19243 . . . . . . . . . 10 ((𝑊 ∈ Abel ∧ 𝑈 ∈ (SubGrp‘𝑊) ∧ 𝑇 ∈ (SubGrp‘𝑊)) → (𝑈 𝑇) = (𝑇 𝑈))
6259, 60, 49, 61syl3anc 1373 . . . . . . . . 9 (𝜑 → (𝑈 𝑇) = (𝑇 𝑈))
63623ad2ant1 1135 . . . . . . . 8 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (𝑈 𝑇) = (𝑇 𝑈))
6445, 63eqeq12d 2753 . . . . . . 7 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (((𝑠𝑈) 𝑇) = (𝑈 𝑇) ↔ 𝑠 = (𝑇 𝑈)))
6557, 64syl5ib 247 . . . . . 6 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → ((𝑠𝑈) = 𝑈𝑠 = (𝑇 𝑈)))
6656, 65orim12d 965 . . . . 5 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (((𝑠𝑈) = (𝑇𝑈) ∨ (𝑠𝑈) = 𝑈) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈))))
6738, 66mpd 15 . . . 4 ((𝜑𝑠𝑆 ∧ (𝑇𝑠𝑠 ⊆ (𝑇 𝑈))) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈)))
68673exp 1121 . . 3 (𝜑 → (𝑠𝑆 → ((𝑇𝑠𝑠 ⊆ (𝑇 𝑈)) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈)))))
6968ralrimiv 3104 . 2 (𝜑 → ∀𝑠𝑆 ((𝑇𝑠𝑠 ⊆ (𝑇 𝑈)) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈))))
701, 10lsmcl 20120 . . . 4 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑇 𝑈) ∈ 𝑆)
713, 4, 5, 70syl3anc 1373 . . 3 (𝜑 → (𝑇 𝑈) ∈ 𝑆)
721, 2, 3, 4, 71lcvbr3 36774 . 2 (𝜑 → (𝑇𝐶(𝑇 𝑈) ↔ (𝑇 ⊊ (𝑇 𝑈) ∧ ∀𝑠𝑆 ((𝑇𝑠𝑠 ⊆ (𝑇 𝑈)) → (𝑠 = 𝑇𝑠 = (𝑇 𝑈))))))
7312, 69, 72mpbir2and 713 1 (𝜑𝑇𝐶(𝑇 𝑈))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  wo 847  w3a 1089   = wceq 1543  wcel 2110  wral 3061  cin 3865  wss 3866  wpss 3867   class class class wbr 5053  cfv 6380  (class class class)co 7213  SubGrpcsubg 18537  LSSumclsm 19023  Abelcabl 19171  LModclmod 19899  LSubSpclss 19968  L clcv 36769
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523  ax-cnex 10785  ax-resscn 10786  ax-1cn 10787  ax-icn 10788  ax-addcl 10789  ax-addrcl 10790  ax-mulcl 10791  ax-mulrcl 10792  ax-mulcom 10793  ax-addass 10794  ax-mulass 10795  ax-distr 10796  ax-i2m1 10797  ax-1ne0 10798  ax-1rid 10799  ax-rnegex 10800  ax-rrecex 10801  ax-cnre 10802  ax-pre-lttri 10803  ax-pre-lttrn 10804  ax-pre-ltadd 10805  ax-pre-mulgt0 10806
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-int 4860  df-iun 4906  df-iin 4907  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-riota 7170  df-ov 7216  df-oprab 7217  df-mpo 7218  df-om 7645  df-1st 7761  df-2nd 7762  df-tpos 7968  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-1o 8202  df-er 8391  df-en 8627  df-dom 8628  df-sdom 8629  df-fin 8630  df-pnf 10869  df-mnf 10870  df-xr 10871  df-ltxr 10872  df-le 10873  df-sub 11064  df-neg 11065  df-nn 11831  df-2 11893  df-sets 16717  df-slot 16735  df-ndx 16745  df-base 16761  df-ress 16785  df-plusg 16815  df-0g 16946  df-mre 17089  df-mrc 17090  df-acs 17092  df-mgm 18114  df-sgrp 18163  df-mnd 18174  df-submnd 18219  df-grp 18368  df-minusg 18369  df-sbg 18370  df-subg 18540  df-cntz 18711  df-oppg 18738  df-lsm 19025  df-cmn 19172  df-abl 19173  df-mgp 19505  df-ur 19517  df-ring 19564  df-lmod 19901  df-lss 19969  df-lcv 36770
This theorem is referenced by:  lcvexch  36790
  Copyright terms: Public domain W3C validator