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

Theorem dihord1 41546
Description: Part of proof after Lemma N of [Crawley] p. 122. Forward ordering property. TODO: change (𝑄 (𝑋 𝑊)) = 𝑋 to 𝑄 𝑋 using lhpmcvr3 40353, here and all theorems below. (Contributed by NM, 2-Mar-2014.)
Hypotheses
Ref Expression
dihjust.b 𝐵 = (Base‘𝐾)
dihjust.l = (le‘𝐾)
dihjust.j = (join‘𝐾)
dihjust.m = (meet‘𝐾)
dihjust.a 𝐴 = (Atoms‘𝐾)
dihjust.h 𝐻 = (LHyp‘𝐾)
dihjust.i 𝐼 = ((DIsoB‘𝐾)‘𝑊)
dihjust.J 𝐽 = ((DIsoC‘𝐾)‘𝑊)
dihjust.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihjust.s = (LSSum‘𝑈)
Assertion
Ref Expression
dihord1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))

Proof of Theorem dihord1
StepHypRef Expression
1 simp11 1205 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp13 1207 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
3 simp12 1206 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
4 simp11l 1286 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝐾 ∈ HL)
54hllatd 39692 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝐾 ∈ Lat)
6 simp2r 1202 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑌𝐵)
7 simp11r 1287 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑊𝐻)
8 dihjust.b . . . . . . 7 𝐵 = (Base‘𝐾)
9 dihjust.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
108, 9lhpbase 40326 . . . . . 6 (𝑊𝐻𝑊𝐵)
117, 10syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑊𝐵)
12 dihjust.m . . . . . 6 = (meet‘𝐾)
138, 12latmcl 18367 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌 𝑊) ∈ 𝐵)
145, 6, 11, 13syl3anc 1374 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑌 𝑊) ∈ 𝐵)
15 dihjust.l . . . . . 6 = (le‘𝐾)
168, 15, 12latmle2 18392 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌 𝑊) 𝑊)
175, 6, 11, 16syl3anc 1374 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑌 𝑊) 𝑊)
1814, 17jca 511 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊))
19 simp12l 1288 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄𝐴)
20 dihjust.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
218, 20atbase 39617 . . . . . 6 (𝑄𝐴𝑄𝐵)
2219, 21syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄𝐵)
23 simp2l 1201 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑋𝐵)
248, 12latmcl 18367 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) ∈ 𝐵)
255, 23, 11, 24syl3anc 1374 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) ∈ 𝐵)
26 dihjust.j . . . . . . 7 = (join‘𝐾)
278, 26latjcl 18366 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → (𝑄 (𝑋 𝑊)) ∈ 𝐵)
285, 22, 25, 27syl3anc 1374 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) ∈ 𝐵)
298, 15, 26latlej1 18375 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → 𝑄 (𝑄 (𝑋 𝑊)))
305, 22, 25, 29syl3anc 1374 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄 (𝑄 (𝑋 𝑊)))
31 simp31 1211 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) = 𝑋)
32 simp33 1213 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑋 𝑌)
3331, 32eqbrtrd 5121 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) 𝑌)
348, 15, 5, 22, 28, 6, 30, 33lattrd 18373 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄 𝑌)
35 simp32 1212 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑅 (𝑌 𝑊)) = 𝑌)
3634, 35breqtrrd 5127 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄 (𝑅 (𝑌 𝑊)))
37 dihjust.u . . . 4 𝑈 = ((DVecH‘𝐾)‘𝑊)
38 dihjust.s . . . 4 = (LSSum‘𝑈)
39 dihjust.i . . . 4 𝐼 = ((DIsoB‘𝐾)‘𝑊)
40 dihjust.J . . . 4 𝐽 = ((DIsoC‘𝐾)‘𝑊)
418, 15, 26, 20, 9, 37, 38, 39, 40cdlemn5 41529 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) ∧ 𝑄 (𝑅 (𝑌 𝑊))) → (𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
421, 2, 3, 18, 36, 41syl131anc 1386 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
438, 15, 12latmlem1 18396 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑋𝐵𝑌𝐵𝑊𝐵)) → (𝑋 𝑌 → (𝑋 𝑊) (𝑌 𝑊)))
445, 23, 6, 11, 43syl13anc 1375 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑌 → (𝑋 𝑊) (𝑌 𝑊)))
4532, 44mpd 15 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) (𝑌 𝑊))
468, 15, 12latmle2 18392 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) 𝑊)
475, 23, 11, 46syl3anc 1374 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) 𝑊)
488, 15, 9, 39dibord 41487 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑋 𝑊) ∈ 𝐵 ∧ (𝑋 𝑊) 𝑊) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) → ((𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)) ↔ (𝑋 𝑊) (𝑌 𝑊)))
491, 25, 47, 14, 17, 48syl122anc 1382 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)) ↔ (𝑋 𝑊) (𝑌 𝑊)))
5045, 49mpbird 257 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)))
519, 37, 1dvhlmod 41438 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑈 ∈ LMod)
52 eqid 2737 . . . . . . 7 (LSubSp‘𝑈) = (LSubSp‘𝑈)
5352lsssssubg 20913 . . . . . 6 (𝑈 ∈ LMod → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
5451, 53syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
5515, 20, 9, 37, 40, 52diclss 41521 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝐽𝑅) ∈ (LSubSp‘𝑈))
561, 2, 55syl2anc 585 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑅) ∈ (LSubSp‘𝑈))
5754, 56sseldd 3935 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑅) ∈ (SubGrp‘𝑈))
588, 15, 9, 37, 39, 52diblss 41498 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) → (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈))
591, 14, 17, 58syl12anc 837 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈))
6054, 59sseldd 3935 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ∈ (SubGrp‘𝑈))
6138lsmub2 19591 . . . 4 (((𝐽𝑅) ∈ (SubGrp‘𝑈) ∧ (𝐼‘(𝑌 𝑊)) ∈ (SubGrp‘𝑈)) → (𝐼‘(𝑌 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6257, 60, 61syl2anc 585 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6350, 62sstrd 3945 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6415, 20, 9, 37, 40, 52diclss 41521 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐽𝑄) ∈ (LSubSp‘𝑈))
651, 3, 64syl2anc 585 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ∈ (LSubSp‘𝑈))
6654, 65sseldd 3935 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ∈ (SubGrp‘𝑈))
678, 15, 9, 37, 39, 52diblss 41498 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑋 𝑊) ∈ 𝐵 ∧ (𝑋 𝑊) 𝑊)) → (𝐼‘(𝑋 𝑊)) ∈ (LSubSp‘𝑈))
681, 25, 47, 67syl12anc 837 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ∈ (LSubSp‘𝑈))
6954, 68sseldd 3935 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ∈ (SubGrp‘𝑈))
7052, 38lsmcl 21039 . . . . 5 ((𝑈 ∈ LMod ∧ (𝐽𝑅) ∈ (LSubSp‘𝑈) ∧ (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (LSubSp‘𝑈))
7151, 56, 59, 70syl3anc 1374 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (LSubSp‘𝑈))
7254, 71sseldd 3935 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (SubGrp‘𝑈))
7338lsmlub 19597 . . 3 (((𝐽𝑄) ∈ (SubGrp‘𝑈) ∧ (𝐼‘(𝑋 𝑊)) ∈ (SubGrp‘𝑈) ∧ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (SubGrp‘𝑈)) → (((𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∧ (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))) ↔ ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))))
7466, 69, 72, 73syl3anc 1374 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (((𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∧ (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))) ↔ ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))))
7542, 63, 74mpbi2and 713 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1087   = wceq 1542  wcel 2114  wss 3902   class class class wbr 5099  cfv 6493  (class class class)co 7360  Basecbs 17140  lecple 17188  joincjn 18238  meetcmee 18239  Latclat 18358  SubGrpcsubg 19054  LSSumclsm 19567  LModclmod 20815  LSubSpclss 20886  Atomscatm 39591  HLchlt 39678  LHypclh 40312  DVecHcdvh 41406  DIsoBcdib 41466  DIsoCcdic 41500
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5225  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378  ax-un 7682  ax-cnex 11086  ax-resscn 11087  ax-1cn 11088  ax-icn 11089  ax-addcl 11090  ax-addrcl 11091  ax-mulcl 11092  ax-mulrcl 11093  ax-mulcom 11094  ax-addass 11095  ax-mulass 11096  ax-distr 11097  ax-i2m1 11098  ax-1ne0 11099  ax-1rid 11100  ax-rnegex 11101  ax-rrecex 11102  ax-cnre 11103  ax-pre-lttri 11104  ax-pre-lttrn 11105  ax-pre-ltadd 11106  ax-pre-mulgt0 11107  ax-riotaBAD 39281
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3062  df-rmo 3351  df-reu 3352  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-tp 4586  df-op 4588  df-uni 4865  df-int 4904  df-iun 4949  df-iin 4950  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-tpos 8170  df-undef 8217  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-1o 8399  df-er 8637  df-map 8769  df-en 8888  df-dom 8889  df-sdom 8890  df-fin 8891  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-nn 12150  df-2 12212  df-3 12213  df-4 12214  df-5 12215  df-6 12216  df-n0 12406  df-z 12493  df-uz 12756  df-fz 13428  df-struct 17078  df-sets 17095  df-slot 17113  df-ndx 17125  df-base 17141  df-ress 17162  df-plusg 17194  df-mulr 17195  df-sca 17197  df-vsca 17198  df-0g 17365  df-proset 18221  df-poset 18240  df-plt 18255  df-lub 18271  df-glb 18272  df-join 18273  df-meet 18274  df-p0 18350  df-p1 18351  df-lat 18359  df-clat 18426  df-mgm 18569  df-sgrp 18648  df-mnd 18664  df-submnd 18713  df-grp 18870  df-minusg 18871  df-sbg 18872  df-subg 19057  df-cntz 19250  df-lsm 19569  df-cmn 19715  df-abl 19716  df-mgp 20080  df-rng 20092  df-ur 20121  df-ring 20174  df-oppr 20277  df-dvdsr 20297  df-unit 20298  df-invr 20328  df-dvr 20341  df-drng 20668  df-lmod 20817  df-lss 20887  df-lsp 20927  df-lvec 21059  df-oposet 39504  df-ol 39506  df-oml 39507  df-covers 39594  df-ats 39595  df-atl 39626  df-cvlat 39650  df-hlat 39679  df-llines 39826  df-lplanes 39827  df-lvols 39828  df-lines 39829  df-psubsp 39831  df-pmap 39832  df-padd 40124  df-lhyp 40316  df-laut 40317  df-ldil 40432  df-ltrn 40433  df-trl 40487  df-tendo 41083  df-edring 41085  df-disoa 41357  df-dvech 41407  df-dib 41467  df-dic 41501
This theorem is referenced by:  dihord4  41586
  Copyright terms: Public domain W3C validator