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 41847
Description: Part of proof after Lemma N of [Crawley] p. 122. Forward ordering property. TODO: change (𝑄 (𝑋 𝑊)) = 𝑋 to 𝑄 𝑋 using lhpmcvr3 40654, 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 1218 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp13 1220 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
3 simp12 1219 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
4 simp11l 1299 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝐾 ∈ HL)
54hllatd 39993 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝐾 ∈ Lat)
6 simp2r 1215 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑌𝐵)
7 simp11r 1300 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑊𝐻)
8 dihjust.b . . . . . . 7 𝐵 = (Base‘𝐾)
9 dihjust.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
108, 9lhpbase 40627 . . . . . 6 (𝑊𝐻𝑊𝐵)
117, 10syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑊𝐵)
12 dihjust.m . . . . . 6 = (meet‘𝐾)
138, 12latmcl 18474 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌 𝑊) ∈ 𝐵)
145, 6, 11, 13syl3anc 1392 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑌 𝑊) ∈ 𝐵)
15 dihjust.l . . . . . 6 = (le‘𝐾)
168, 15, 12latmle2 18499 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌 𝑊) 𝑊)
175, 6, 11, 16syl3anc 1392 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑌 𝑊) 𝑊)
1814, 17jca 519 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊))
19 simp12l 1301 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄𝐴)
20 dihjust.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
218, 20atbase 39918 . . . . . 6 (𝑄𝐴𝑄𝐵)
2219, 21syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄𝐵)
23 simp2l 1214 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑋𝐵)
248, 12latmcl 18474 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) ∈ 𝐵)
255, 23, 11, 24syl3anc 1392 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) ∈ 𝐵)
26 dihjust.j . . . . . . 7 = (join‘𝐾)
278, 26latjcl 18473 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → (𝑄 (𝑋 𝑊)) ∈ 𝐵)
285, 22, 25, 27syl3anc 1392 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) ∈ 𝐵)
298, 15, 26latlej1 18482 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → 𝑄 (𝑄 (𝑋 𝑊)))
305, 22, 25, 29syl3anc 1392 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄 (𝑄 (𝑋 𝑊)))
31 simp31 1224 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) = 𝑋)
32 simp33 1226 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑋 𝑌)
3331, 32eqbrtrd 5124 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑄 (𝑋 𝑊)) 𝑌)
348, 15, 5, 22, 28, 6, 30, 33lattrd 18480 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑄 𝑌)
35 simp32 1225 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑅 (𝑌 𝑊)) = 𝑌)
3634, 35breqtrrd 5130 . . 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 41830 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) ∧ 𝑄 (𝑅 (𝑌 𝑊))) → (𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
421, 2, 3, 18, 36, 41syl131anc 1404 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
438, 15, 12latmlem1 18503 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑋𝐵𝑌𝐵𝑊𝐵)) → (𝑋 𝑌 → (𝑋 𝑊) (𝑌 𝑊)))
445, 23, 6, 11, 43syl13anc 1393 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑌 → (𝑋 𝑊) (𝑌 𝑊)))
4532, 44mpd 15 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) (𝑌 𝑊))
468, 15, 12latmle2 18499 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) 𝑊)
475, 23, 11, 46syl3anc 1392 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝑋 𝑊) 𝑊)
488, 15, 9, 39dibord 41788 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑋 𝑊) ∈ 𝐵 ∧ (𝑋 𝑊) 𝑊) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) → ((𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)) ↔ (𝑋 𝑊) (𝑌 𝑊)))
491, 25, 47, 14, 17, 48syl122anc 1400 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)) ↔ (𝑋 𝑊) (𝑌 𝑊)))
5045, 49mpbird 259 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ⊆ (𝐼‘(𝑌 𝑊)))
519, 37, 1dvhlmod 41739 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → 𝑈 ∈ LMod)
52 eqid 2764 . . . . . . 7 (LSubSp‘𝑈) = (LSubSp‘𝑈)
5352lsssssubg 21027 . . . . . 6 (𝑈 ∈ LMod → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
5451, 53syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
5515, 20, 9, 37, 40, 52diclss 41822 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → (𝐽𝑅) ∈ (LSubSp‘𝑈))
561, 2, 55syl2anc 593 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑅) ∈ (LSubSp‘𝑈))
5754, 56sseldd 3939 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑅) ∈ (SubGrp‘𝑈))
588, 15, 9, 37, 39, 52diblss 41799 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑌 𝑊) ∈ 𝐵 ∧ (𝑌 𝑊) 𝑊)) → (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈))
591, 14, 17, 58syl12anc 847 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈))
6054, 59sseldd 3939 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ∈ (SubGrp‘𝑈))
6138lsmub2 19700 . . . 4 (((𝐽𝑅) ∈ (SubGrp‘𝑈) ∧ (𝐼‘(𝑌 𝑊)) ∈ (SubGrp‘𝑈)) → (𝐼‘(𝑌 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6257, 60, 61syl2anc 593 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑌 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6350, 62sstrd 3948 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
6415, 20, 9, 37, 40, 52diclss 41822 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐽𝑄) ∈ (LSubSp‘𝑈))
651, 3, 64syl2anc 593 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ∈ (LSubSp‘𝑈))
6654, 65sseldd 3939 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐽𝑄) ∈ (SubGrp‘𝑈))
678, 15, 9, 37, 39, 52diblss 41799 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑋 𝑊) ∈ 𝐵 ∧ (𝑋 𝑊) 𝑊)) → (𝐼‘(𝑋 𝑊)) ∈ (LSubSp‘𝑈))
681, 25, 47, 67syl12anc 847 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ∈ (LSubSp‘𝑈))
6954, 68sseldd 3939 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (𝐼‘(𝑋 𝑊)) ∈ (SubGrp‘𝑈))
7052, 38lsmcl 21152 . . . . 5 ((𝑈 ∈ LMod ∧ (𝐽𝑅) ∈ (LSubSp‘𝑈) ∧ (𝐼‘(𝑌 𝑊)) ∈ (LSubSp‘𝑈)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (LSubSp‘𝑈))
7151, 56, 59, 70syl3anc 1392 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (LSubSp‘𝑈))
7254, 71sseldd 3939 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (SubGrp‘𝑈))
7338lsmlub 19706 . . 3 (((𝐽𝑄) ∈ (SubGrp‘𝑈) ∧ (𝐼‘(𝑋 𝑊)) ∈ (SubGrp‘𝑈) ∧ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∈ (SubGrp‘𝑈)) → (((𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∧ (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))) ↔ ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))))
7466, 69, 72, 73syl3anc 1392 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → (((𝐽𝑄) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))) ∧ (𝐼‘(𝑋 𝑊)) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))) ↔ ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊)))))
7542, 63, 74mpbi2and 722 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ (𝑋𝐵𝑌𝐵) ∧ ((𝑄 (𝑋 𝑊)) = 𝑋 ∧ (𝑅 (𝑌 𝑊)) = 𝑌𝑋 𝑌)) → ((𝐽𝑄) (𝐼‘(𝑋 𝑊))) ⊆ ((𝐽𝑅) (𝐼‘(𝑌 𝑊))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 399  w3a 1099   = wceq 1562  wcel 2144  wss 3906   class class class wbr 5102  cfv 6523  (class class class)co 7398  Basecbs 17247  lecple 17295  joincjn 18345  meetcmee 18346  Latclat 18465  SubGrpcsubg 19164  LSSumclsm 19676  LModclmod 20929  LSubSpclss 21000  Atomscatm 39892  HLchlt 39979  LHypclh 40613  DVecHcdvh 41707  DIsoBcdib 41767  DIsoCcdic 41801
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1817  ax-4 1831  ax-5 1932  ax-6 1989  ax-7 2030  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2214  ax-ext 2736  ax-rep 5229  ax-sep 5248  ax-nul 5258  ax-pow 5324  ax-pr 5392  ax-un 7720  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-riotaBAD 39582
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1565  df-fal 1575  df-ex 1802  df-nf 1806  df-sb 2093  df-mo 2568  df-eu 2598  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3458  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  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 5103  df-opab 5165  df-mpt 5184  df-tr 5210  df-id 5544  df-eprel 5549  df-po 5557  df-so 5558  df-fr 5602  df-we 5604  df-xp 5655  df-rel 5656  df-cnv 5657  df-co 5658  df-dm 5659  df-rn 5660  df-res 5661  df-ima 5662  df-pred 6290  df-ord 6351  df-on 6352  df-lim 6353  df-suc 6354  df-iota 6479  df-fun 6525  df-fn 6526  df-f 6527  df-f1 6528  df-fo 6529  df-f1o 6530  df-fv 6531  df-riota 7355  df-ov 7401  df-oprab 7402  df-mpo 7403  df-om 7849  df-1st 7972  df-2nd 7973  df-tpos 8208  df-undef 8255  df-frecs 8264  df-wrecs 8295  df-recs 8344  df-rdg 8383  df-1o 8439  df-er 8680  df-map 8812  df-en 8930  df-dom 8931  df-sdom 8932  df-fin 8933  df-pnf 11220  df-mnf 11221  df-xr 11222  df-ltxr 11223  df-le 11224  df-sub 11418  df-neg 11419  df-nn 12213  df-2 12282  df-3 12283  df-4 12284  df-5 12285  df-6 12286  df-n0 12484  df-z 12571  df-uz 12842  df-fz 13515  df-struct 17185  df-sets 17202  df-slot 17220  df-ndx 17232  df-base 17248  df-ress 17269  df-plusg 17301  df-mulr 17302  df-sca 17304  df-vsca 17305  df-0g 17472  df-proset 18328  df-poset 18347  df-plt 18362  df-lub 18378  df-glb 18379  df-join 18380  df-meet 18381  df-p0 18457  df-p1 18458  df-lat 18466  df-clat 18533  df-mgm 18676  df-sgrp 18755  df-mnd 18771  df-submnd 18820  df-grp 18980  df-minusg 18981  df-sbg 18982  df-subg 19167  df-cntz 19359  df-lsm 19678  df-cmn 19824  df-abl 19825  df-mgp 20189  df-rng 20201  df-ur 20234  df-ring 20287  df-oppr 20388  df-dvdsr 20408  df-unit 20409  df-invr 20439  df-dvr 20452  df-drng 20783  df-lmod 20931  df-lss 21001  df-lsp 21041  df-lvec 21172  df-oposet 39805  df-ol 39807  df-oml 39808  df-covers 39895  df-ats 39896  df-atl 39927  df-cvlat 39951  df-hlat 39980  df-llines 40127  df-lplanes 40128  df-lvols 40129  df-lines 40130  df-psubsp 40132  df-pmap 40133  df-padd 40425  df-lhyp 40617  df-laut 40618  df-ldil 40733  df-ltrn 40734  df-trl 40788  df-tendo 41384  df-edring 41386  df-disoa 41658  df-dvech 41708  df-dib 41768  df-dic 41802
This theorem is referenced by:  dihord4  41887
  Copyright terms: Public domain W3C validator