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 42156
Description: Part of proof after Lemma N of [Crawley] p. 122. Forward ordering property. TODO: change (𝑄 (𝑋 𝑊)) = 𝑋 to 𝑄 𝑋 using lhpmcvr3 40963, 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 1222 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp13 1224 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
3 simp12 1223 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
4 simp11l 1303 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝐾 ∈ HL)
54hllatd 40302 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝐾 ∈ Lat)
6 simp2r 1219 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑌𝐵)
7 simp11r 1304 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑊𝐻)
8 dihjust.b . . . . . . 7 𝐵 = (Base‘𝐾)
9 dihjust.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
108, 9lhpbase 40936 . . . . . 6 (𝑊𝐻𝑊𝐵)
117, 10syl 18 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑊𝐵)
12 dihjust.m . . . . . 6 = (meet‘𝐾)
138, 12latmcl 18553 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌 𝑊) ∈ 𝐵)
145, 6, 11, 13syl3anc 1398 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑌 𝑊) ∈ 𝐵)
15 dihjust.l . . . . . 6 = (le‘𝐾)
168, 15, 12latmle2 18578 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌 𝑊) 𝑊)
175, 6, 11, 16syl3anc 1398 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑌 𝑊) 𝑊)
1814, 17jca 521 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊))
19 simp12l 1305 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄𝐴)
20 dihjust.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
218, 20atbase 40227 . . . . . 6 (𝑄𝐴𝑄𝐵)
2219, 21syl 18 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄𝐵)
23 simp2l 1218 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑋𝐵)
248, 12latmcl 18553 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) ∈ 𝐵)
255, 23, 11, 24syl3anc 1398 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) ∈ 𝐵)
26 dihjust.j . . . . . . 7 = (join‘𝐾)
278, 26latjcl 18552 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → (𝑄 (𝑋 𝑊)) ∈ 𝐵)
285, 22, 25, 27syl3anc 1398 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) ∈ 𝐵)
298, 15, 26latlej1 18561 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → 𝑄 (𝑄 (𝑋 𝑊)))
305, 22, 25, 29syl3anc 1398 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄 (𝑄 (𝑋 𝑊)))
31 simp31 1228 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) = 𝑋)
32 simp33 1230 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑋 𝑌)
3331, 32eqbrtrd 5127 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) 𝑌)
348, 15, 5, 22, 28, 6, 30, 33lattrd 18559 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄 𝑌)
35 simp32 1229 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑅 (𝑌 𝑊)) = 𝑌)
3634, 35breqtrrd 5133 . . 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 42139 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) ∧ 𝑄 (𝑅 (𝑌 𝑊))) → (𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
421, 2, 3, 18, 36, 41syl131anc 1410 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
438, 15, 12latmlem1 18582 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑋𝐵𝑌𝐵𝑊𝐵)) → (𝑋 𝑌 → (𝑋 𝑊) (𝑌 𝑊)))
445, 23, 6, 11, 43syl13anc 1399 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑌 → (𝑋 𝑊) (𝑌 𝑊)))
4532, 44mpd 16 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) (𝑌 𝑊))
468, 15, 12latmle2 18578 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) 𝑊)
475, 23, 11, 46syl3anc 1398 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) 𝑊)
488, 15, 9, 39dibord 42097 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑋 𝑊) ∈ 𝐵 ∧ (𝑋 𝑊) 𝑊) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) → ((𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)) ↔ (𝑋 𝑊) (𝑌 𝑊)))
491, 25, 47, 14, 17, 48syl122anc 1406 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)) ↔ (𝑋 𝑊) (𝑌 𝑊)))
5045, 49mpbird 260 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)))
519, 37, 1dvhlmod 42048 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑈 ∈ LMod)
52 eqid 2760 . . . . . . 7 (LSubSp‘𝑈) = (LSubSp‘𝑈)
5352lsssssubg 21172 . . . . . 6 (𝑈 ∈ LMod → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
5451, 53syl 18 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
5515, 20, 9, 37, 40, 52diclss 42131 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝐽𝑅) ∈ (LSubSp‘𝑈))
561, 2, 55syl2anc 596 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑅) ∈ (LSubSp‘𝑈))
5754, 56sseldd 3932 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑅) ∈ (SubGrp‘𝑈))
588, 15, 9, 37, 39, 52diblss 42108 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) → (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈))
591, 14, 17, 58syl12anc 850 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈))
6054, 59sseldd 3932 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ∈ (SubGrp‘𝑈))
6138lsmub2 19811 . . . 4 (((𝐽𝑅) ∈ (SubGrp‘𝑈) ∧ (𝐼‘(𝑌 𝑊)) ∈ (SubGrp‘𝑈)) → (𝐼‘(𝑌 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6257, 60, 61syl2anc 596 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6350, 62sstrd 3941 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6415, 20, 9, 37, 40, 52diclss 42131 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐽𝑄) ∈ (LSubSp‘𝑈))
651, 3, 64syl2anc 596 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ∈ (LSubSp‘𝑈))
6654, 65sseldd 3932 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ∈ (SubGrp‘𝑈))
678, 15, 9, 37, 39, 52diblss 42108 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑋 𝑊) ∈ 𝐵 ∧ (𝑋 𝑊) 𝑊)) → (𝐼‘(𝑋 𝑊)) ∈ (LSubSp‘𝑈))
681, 25, 47, 67syl12anc 850 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ∈ (LSubSp‘𝑈))
6954, 68sseldd 3932 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ∈ (SubGrp‘𝑈))
7052, 38lsmcl 21297 . . . . 5 ((𝑈 ∈ LMod ∧ (𝐽𝑅) ∈ (LSubSp‘𝑈) ∧ (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (LSubSp‘𝑈))
7151, 56, 59, 70syl3anc 1398 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (LSubSp‘𝑈))
7254, 71sseldd 3932 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (SubGrp‘𝑈))
7338lsmlub 19817 . . 3 (((𝐽𝑄) ∈ (SubGrp‘𝑈) ∧ (𝐼‘(𝑋 𝑊)) ∈ (SubGrp‘𝑈) ∧ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (SubGrp‘𝑈)) → (((𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∧ (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))) ↔ ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))))
7466, 69, 72, 73syl3anc 1398 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (((𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∧ (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))) ↔ ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))))
7542, 63, 74mpbi2and 725 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2145  wss 3899   class class class wbr 5103  cfv 6535  (class class class)co 7416  Basecbs 17326  lecple 17374  joincjn 18424  meetcmee 18425  Latclat 18544  SubGrpcsubg 19269  LSSumclsm 19787  LModclmod 21074  LSubSpclss 21145  Atomscatm 40201  HLchlt 40288  LHypclh 40922  DVecHcdvh 42016  DIsoBcdib 42076  DIsoCcdic 42110
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7742  ax-cnex 11205  ax-resscn 11206  ax-1cn 11207  ax-icn 11208  ax-addcl 11209  ax-addrcl 11210  ax-mulcl 11211  ax-mulrcl 11212  ax-mulcom 11213  ax-addass 11214  ax-mulass 11215  ax-distr 11216  ax-i2m1 11217  ax-1ne0 11218  ax-1rid 11219  ax-rnegex 11220  ax-rrecex 11221  ax-cnre 11222  ax-pre-lttri 11223  ax-pre-lttrn 11224  ax-pre-ltadd 11225  ax-pre-mulgt0 11226  ax-riotaBAD 39891
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-iin 4954  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6301  df-ord 6362  df-on 6363  df-lim 6364  df-suc 6365  df-iota 6491  df-fun 6537  df-fn 6538  df-f 6539  df-f1 6540  df-fo 6541  df-f1o 6542  df-fv 6543  df-riota 7373  df-ov 7419  df-oprab 7420  df-mpo 7421  df-om 7869  df-1st 7992  df-2nd 7993  df-tpos 8229  df-undef 8276  df-frecs 8285  df-wrecs 8316  df-recs 8365  df-rdg 8404  df-1o 8462  df-er 8703  df-map 8835  df-en 8960  df-dom 8961  df-sdom 8962  df-fin 8963  df-pnf 11294  df-mnf 11295  df-xr 11296  df-ltxr 11297  df-le 11298  df-sub 11492  df-neg 11493  df-nn 12283  df-2 12352  df-3 12353  df-4 12354  df-5 12355  df-6 12356  df-n0 12554  df-z 12641  df-uz 12913  df-fz 13587  df-struct 17264  df-sets 17281  df-slot 17299  df-ndx 17311  df-base 17327  df-ress 17348  df-plusg 17380  df-mulr 17381  df-sca 17383  df-vsca 17384  df-0g 17551  df-proset 18407  df-poset 18426  df-plt 18441  df-lub 18457  df-glb 18458  df-join 18459  df-meet 18460  df-p0 18536  df-p1 18537  df-lat 18545  df-clat 18612  df-mgm 18755  df-sgrp 18847  df-mnd 18863  df-submnd 18918  df-grp 19086  df-minusg 19087  df-sbg 19088  df-subg 19272  df-cntz 19470  df-lsm 19789  df-cmn 19935  df-abl 19936  df-mgp 20300  df-rng 20314  df-ur 20347  df-ring 20400  df-oppr 20506  df-dvdsr 20526  df-unit 20527  df-invr 20557  df-dvr 20570  df-drng 20921  df-lmod 21076  df-lss 21146  df-lsp 21186  df-lvec 21317  df-oposet 40114  df-ol 40116  df-oml 40117  df-covers 40204  df-ats 40205  df-atl 40236  df-cvlat 40260  df-hlat 40289  df-llines 40436  df-lplanes 40437  df-lvols 40438  df-lines 40439  df-psubsp 40441  df-pmap 40442  df-padd 40734  df-lhyp 40926  df-laut 40927  df-ldil 41042  df-ltrn 41043  df-trl 41097  df-tendo 41693  df-edring 41695  df-disoa 41967  df-dvech 42017  df-dib 42077  df-dic 42111
This theorem is used by:  dihord4  42196
  Copyright terms: Public domain W3C validator