Theorem dihord2b 41792

Description: Part of proof after Lemma N of [Crawley] p. 122. Reverse ordering property. (Contributed by NM, 3-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
dihord2b	⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊))))

Proof of Theorem dihord2b

Step	Hyp	Ref	Expression
1		dihjust.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
2		dihjust.u	. . . . . 6 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
3		simp11 1213	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
4	1, 2, 3	dvhlmod 41682	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → 𝑈 ∈ LMod)
5		eqid 2756	. . . . . 6 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
6	5	lsssssubg 20998	. . . . 5 ⊢ (𝑈 ∈ LMod → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
7	4, 6	syl 17	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
8		simp12 1214	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
9		dihjust.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
10		dihjust.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
11		dihjust.J	. . . . . 6 ⊢ 𝐽 = ((DIsoC‘𝐾)‘𝑊)
12	9, 10, 1, 2, 11, 5	diclss 41765	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐽‘𝑄) ∈ (LSubSp‘𝑈))
13	3, 8, 12	syl2anc 592	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝐽‘𝑄) ∈ (LSubSp‘𝑈))
14	7, 13	sseldd 3932	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝐽‘𝑄) ∈ (SubGrp‘𝑈))
15		simp11l 1294	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → 𝐾 ∈ HL)
16	15	hllatd 39936	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → 𝐾 ∈ Lat)
17		simp2l 1209	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → 𝑋 ∈ 𝐵)
18		simp11r 1295	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → 𝑊 ∈ 𝐻)
19		dihjust.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐾)
20	19, 1	lhpbase 40570	. . . . . . 7 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
21	18, 20	syl 17	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → 𝑊 ∈ 𝐵)
22		dihjust.m	. . . . . . 7 ⊢ ∧ = (meet‘𝐾)
23	19, 22	latmcl 18448	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ∈ 𝐵)
24	16, 17, 21, 23	syl3anc 1386	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝑋 ∧ 𝑊) ∈ 𝐵)
25	19, 9, 22	latmle2 18473	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ≤ 𝑊)
26	16, 17, 21, 25	syl3anc 1386	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝑋 ∧ 𝑊) ≤ 𝑊)
27		dihjust.i	. . . . . 6 ⊢ 𝐼 = ((DIsoB‘𝐾)‘𝑊)
28	19, 9, 1, 2, 27, 5	diblss 41742	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋 ∧ 𝑊) ∈ 𝐵 ∧ (𝑋 ∧ 𝑊) ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) ∈ (LSubSp‘𝑈))
29	3, 24, 26, 28	syl12anc 845	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝐼‘(𝑋 ∧ 𝑊)) ∈ (LSubSp‘𝑈))
30	7, 29	sseldd 3932	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝐼‘(𝑋 ∧ 𝑊)) ∈ (SubGrp‘𝑈))
31		dihjust.s	. . . 4 ⊢ ⊕ = (LSSum‘𝑈)
32	31	lsmub2 19674	. . 3 ⊢ (((𝐽‘𝑄) ∈ (SubGrp‘𝑈) ∧ (𝐼‘(𝑋 ∧ 𝑊)) ∈ (SubGrp‘𝑈)) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))))
33	14, 30, 32	syl2anc 592	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))))
34		simp3 1147	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊))))
35	33, 34	sstrd 3941	1 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ ((𝐽‘𝑄) ⊕ (𝐼‘(𝑋 ∧ 𝑊))) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊)))) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ ((𝐽‘𝑅) ⊕ (𝐼‘(𝑌 ∧ 𝑊))))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 398   ∧ w3a 1095   = wceq 1554   ∈ wcel 2136   ⊆ wss 3899   class class class wbr 5094  ‘cfv 6510  (class class class)co 7385  Basecbs 17221  lecple 17269  joincjn 18319  meetcmee 18320  Latclat 18439  SubGrpcsubg 19138  LSSumclsm 19650  LModclmod 20900  LSubSpclss 20971  Atomscatm 39835  HLchlt 39922  LHypclh 40556  DVecHcdvh 41650  DIsoBcdib 41710  DIsoCcdic 41744

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1809  ax-4 1823  ax-5 1924  ax-6 1981  ax-7 2022  ax-8 2138  ax-9 2146  ax-10 2169  ax-11 2185  ax-12 2206  ax-ext 2728  ax-rep 5221  ax-sep 5240  ax-nul 5250  ax-pow 5316  ax-pr 5384  ax-un 7707  ax-cnex 11119  ax-resscn 11120  ax-1cn 11121  ax-icn 11122  ax-addcl 11123  ax-addrcl 11124  ax-mulcl 11125  ax-mulrcl 11126  ax-mulcom 11127  ax-addass 11128  ax-mulass 11129  ax-distr 11130  ax-i2m1 11131  ax-1ne0 11132  ax-1rid 11133  ax-rnegex 11134  ax-rrecex 11135  ax-cnre 11136  ax-pre-lttri 11137  ax-pre-lttrn 11138  ax-pre-ltadd 11139  ax-pre-mulgt0 11140  ax-riotaBAD 39525

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 857  df-3or 1096  df-3an 1097  df-tru 1557  df-fal 1567  df-ex 1794  df-nf 1798  df-sb 2085  df-mo 2560  df-eu 2590  df-clab 2735  df-cleq 2748  df-clel 2831  df-nfc 2905  df-ne 2952  df-nel 3056  df-ral 3071  df-rex 3081  df-rmo 3361  df-reu 3362  df-rab 3409  df-v 3450  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4281  df-if 4475  df-pw 4551  df-sn 4577  df-pr 4579  df-tp 4581  df-op 4583  df-uni 4860  df-iun 4945  df-iin 4946  df-br 5095  df-opab 5157  df-mpt 5176  df-tr 5202  df-id 5535  df-eprel 5540  df-po 5548  df-so 5549  df-fr 5593  df-we 5595  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6466  df-fun 6512  df-fn 6513  df-f 6514  df-f1 6515  df-fo 6516  df-f1o 6517  df-fv 6518  df-riota 7342  df-ov 7388  df-oprab 7389  df-mpo 7390  df-om 7836  df-1st 7959  df-2nd 7960  df-tpos 8194  df-undef 8241  df-frecs 8250  df-wrecs 8281  df-recs 8330  df-rdg 8369  df-1o 8425  df-er 8666  df-map 8798  df-en 8917  df-dom 8918  df-sdom 8919  df-fin 8920  df-pnf 11208  df-mnf 11209  df-xr 11210  df-ltxr 11211  df-le 11212  df-sub 11406  df-neg 11407  df-nn 12201  df-2 12270  df-3 12271  df-4 12272  df-5 12273  df-6 12274  df-n0 12472  df-z 12559  df-uz 12830  df-fz 13503  df-struct 17159  df-sets 17176  df-slot 17194  df-ndx 17206  df-base 17222  df-ress 17243  df-plusg 17275  df-mulr 17276  df-sca 17278  df-vsca 17279  df-0g 17446  df-proset 18302  df-poset 18321  df-plt 18336  df-lub 18352  df-glb 18353  df-join 18354  df-meet 18355  df-p0 18431  df-p1 18432  df-lat 18440  df-clat 18507  df-mgm 18650  df-sgrp 18729  df-mnd 18745  df-submnd 18794  df-grp 18954  df-minusg 18955  df-sbg 18956  df-subg 19141  df-lsm 19652  df-cmn 19798  df-abl 19799  df-mgp 20163  df-rng 20175  df-ur 20204  df-ring 20257  df-oppr 20358  df-dvdsr 20378  df-unit 20379  df-invr 20409  df-dvr 20422  df-drng 20753  df-lmod 20902  df-lss 20972  df-lvec 21143  df-oposet 39748  df-ol 39750  df-oml 39751  df-covers 39838  df-ats 39839  df-atl 39870  df-cvlat 39894  df-hlat 39923  df-llines 40070  df-lplanes 40071  df-lvols 40072  df-lines 40073  df-psubsp 40075  df-pmap 40076  df-padd 40368  df-lhyp 40560  df-laut 40561  df-ldil 40676  df-ltrn 40677  df-trl 40731  df-tendo 41327  df-edring 41329  df-disoa 41601  df-dvech 41651  df-dib 41711  df-dic 41745

This theorem is referenced by:  dihord11b  41794