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

Theorem dihord5b 37048
Description: Part of proof that isomorphism H is order-preserving. TODO: eliminate 3ad2ant1; combine w/ other way to have one lhpmcvr2 . (Contributed by NM, 7-Mar-2014.)
Hypotheses
Ref Expression
dihord3.b 𝐵 = (Base‘𝐾)
dihord3.l = (le‘𝐾)
dihord3.h 𝐻 = (LHyp‘𝐾)
dihord3.i 𝐼 = ((DIsoH‘𝐾)‘𝑊)
Assertion
Ref Expression
dihord5b ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → (𝐼𝑋) ⊆ (𝐼𝑌))

Proof of Theorem dihord5b
Dummy variable 𝑟 is distinct from all other variables.
StepHypRef Expression
1 simpl1 1228 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simpl3 1232 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → (𝑌𝐵 ∧ ¬ 𝑌 𝑊))
3 dihord3.b . . . 4 𝐵 = (Base‘𝐾)
4 dihord3.l . . . 4 = (le‘𝐾)
5 eqid 2758 . . . 4 (join‘𝐾) = (join‘𝐾)
6 eqid 2758 . . . 4 (meet‘𝐾) = (meet‘𝐾)
7 eqid 2758 . . . 4 (Atoms‘𝐾) = (Atoms‘𝐾)
8 dihord3.h . . . 4 𝐻 = (LHyp‘𝐾)
93, 4, 5, 6, 7, 8lhpmcvr2 35811 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) → ∃𝑟 ∈ (Atoms‘𝐾)(¬ 𝑟 𝑊 ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌))
101, 2, 9syl2anc 696 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → ∃𝑟 ∈ (Atoms‘𝐾)(¬ 𝑟 𝑊 ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌))
11 simp1r 1241 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝑋 𝑌)
12 simpl2r 1285 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → 𝑋 𝑊)
13123ad2ant1 1128 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝑋 𝑊)
14 simpl1l 1279 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → 𝐾 ∈ HL)
15143ad2ant1 1128 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝐾 ∈ HL)
16 hllat 35151 . . . . . . . . . . . 12 (𝐾 ∈ HL → 𝐾 ∈ Lat)
1715, 16syl 17 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝐾 ∈ Lat)
18 simpl2l 1283 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → 𝑋𝐵)
19183ad2ant1 1128 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝑋𝐵)
20 simpl3l 1287 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → 𝑌𝐵)
21203ad2ant1 1128 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝑌𝐵)
22 simpl1r 1281 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → 𝑊𝐻)
23223ad2ant1 1128 . . . . . . . . . . . 12 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝑊𝐻)
243, 8lhpbase 35785 . . . . . . . . . . . 12 (𝑊𝐻𝑊𝐵)
2523, 24syl 17 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝑊𝐵)
263, 4, 6latlem12 17277 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ (𝑋𝐵𝑌𝐵𝑊𝐵)) → ((𝑋 𝑌𝑋 𝑊) ↔ 𝑋 (𝑌(meet‘𝐾)𝑊)))
2717, 19, 21, 25, 26syl13anc 1479 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → ((𝑋 𝑌𝑋 𝑊) ↔ 𝑋 (𝑌(meet‘𝐾)𝑊)))
2811, 13, 27mpbi2and 994 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → 𝑋 (𝑌(meet‘𝐾)𝑊))
29 simp1l1 1351 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝐾 ∈ HL ∧ 𝑊𝐻))
30 simp1l2 1352 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝑋𝐵𝑋 𝑊))
313, 6latmcl 17251 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌(meet‘𝐾)𝑊) ∈ 𝐵)
3217, 21, 25, 31syl3anc 1477 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝑌(meet‘𝐾)𝑊) ∈ 𝐵)
333, 4, 6latmle2 17276 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌(meet‘𝐾)𝑊) 𝑊)
3417, 21, 25, 33syl3anc 1477 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝑌(meet‘𝐾)𝑊) 𝑊)
35 eqid 2758 . . . . . . . . . . 11 ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
363, 4, 8, 35dibord 36948 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ ((𝑌(meet‘𝐾)𝑊) ∈ 𝐵 ∧ (𝑌(meet‘𝐾)𝑊) 𝑊)) → ((((DIsoB‘𝐾)‘𝑊)‘𝑋) ⊆ (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)) ↔ 𝑋 (𝑌(meet‘𝐾)𝑊)))
3729, 30, 32, 34, 36syl112anc 1481 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → ((((DIsoB‘𝐾)‘𝑊)‘𝑋) ⊆ (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)) ↔ 𝑋 (𝑌(meet‘𝐾)𝑊)))
3828, 37mpbird 247 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (((DIsoB‘𝐾)‘𝑊)‘𝑋) ⊆ (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)))
39 eqid 2758 . . . . . . . . . . . 12 ((DVecH‘𝐾)‘𝑊) = ((DVecH‘𝐾)‘𝑊)
408, 39, 29dvhlmod 36899 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → ((DVecH‘𝐾)‘𝑊) ∈ LMod)
41 eqid 2758 . . . . . . . . . . . 12 (LSubSp‘((DVecH‘𝐾)‘𝑊)) = (LSubSp‘((DVecH‘𝐾)‘𝑊))
4241lsssssubg 19158 . . . . . . . . . . 11 (((DVecH‘𝐾)‘𝑊) ∈ LMod → (LSubSp‘((DVecH‘𝐾)‘𝑊)) ⊆ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
4340, 42syl 17 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (LSubSp‘((DVecH‘𝐾)‘𝑊)) ⊆ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
44 simp2 1132 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊))
45 eqid 2758 . . . . . . . . . . . 12 ((DIsoC‘𝐾)‘𝑊) = ((DIsoC‘𝐾)‘𝑊)
464, 7, 8, 39, 45, 41diclss 36982 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊)) → (((DIsoC‘𝐾)‘𝑊)‘𝑟) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊)))
4729, 44, 46syl2anc 696 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (((DIsoC‘𝐾)‘𝑊)‘𝑟) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊)))
4843, 47sseldd 3743 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (((DIsoC‘𝐾)‘𝑊)‘𝑟) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
493, 4, 8, 39, 35, 41diblss 36959 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑌(meet‘𝐾)𝑊) ∈ 𝐵 ∧ (𝑌(meet‘𝐾)𝑊) 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊)))
5029, 32, 34, 49syl12anc 1475 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊)))
5143, 50sseldd 3743 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
52 eqid 2758 . . . . . . . . . 10 (LSSum‘((DVecH‘𝐾)‘𝑊)) = (LSSum‘((DVecH‘𝐾)‘𝑊))
5352lsmub2 18270 . . . . . . . . 9 (((((DIsoC‘𝐾)‘𝑊)‘𝑟) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)) ∧ (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊))) → (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)) ⊆ ((((DIsoC‘𝐾)‘𝑊)‘𝑟)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊))))
5448, 51, 53syl2anc 696 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊)) ⊆ ((((DIsoC‘𝐾)‘𝑊)‘𝑟)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊))))
5538, 54sstrd 3752 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (((DIsoB‘𝐾)‘𝑊)‘𝑋) ⊆ ((((DIsoC‘𝐾)‘𝑊)‘𝑟)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊))))
56 dihord3.i . . . . . . . . 9 𝐼 = ((DIsoH‘𝐾)‘𝑊)
573, 4, 8, 56, 35dihvalb 37026 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊)) → (𝐼𝑋) = (((DIsoB‘𝐾)‘𝑊)‘𝑋))
5829, 30, 57syl2anc 696 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝐼𝑋) = (((DIsoB‘𝐾)‘𝑊)‘𝑋))
59 simp1l3 1353 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝑌𝐵 ∧ ¬ 𝑌 𝑊))
60 simp3 1133 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌)
613, 4, 5, 6, 7, 8, 56, 35, 45, 39, 52dihvalcq 37025 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊) ∧ ((𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌)) → (𝐼𝑌) = ((((DIsoC‘𝐾)‘𝑊)‘𝑟)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊))))
6229, 59, 44, 60, 61syl112anc 1481 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝐼𝑌) = ((((DIsoC‘𝐾)‘𝑊)‘𝑟)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑌(meet‘𝐾)𝑊))))
6355, 58, 623sstr4d 3787 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝐼𝑋) ⊆ (𝐼𝑌))
64633exp 1113 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → ((𝑟 ∈ (Atoms‘𝐾) ∧ ¬ 𝑟 𝑊) → ((𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌 → (𝐼𝑋) ⊆ (𝐼𝑌))))
6564expd 451 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → (𝑟 ∈ (Atoms‘𝐾) → (¬ 𝑟 𝑊 → ((𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌 → (𝐼𝑋) ⊆ (𝐼𝑌)))))
6665imp4a 615 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → (𝑟 ∈ (Atoms‘𝐾) → ((¬ 𝑟 𝑊 ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝐼𝑋) ⊆ (𝐼𝑌))))
6766rexlimdv 3166 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → (∃𝑟 ∈ (Atoms‘𝐾)(¬ 𝑟 𝑊 ∧ (𝑟(join‘𝐾)(𝑌(meet‘𝐾)𝑊)) = 𝑌) → (𝐼𝑋) ⊆ (𝐼𝑌)))
6810, 67mpd 15 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑋 𝑊) ∧ (𝑌𝐵 ∧ ¬ 𝑌 𝑊)) ∧ 𝑋 𝑌) → (𝐼𝑋) ⊆ (𝐼𝑌))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 383  w3a 1072   = wceq 1630  wcel 2137  wrex 3049  wss 3713   class class class wbr 4802  cfv 6047  (class class class)co 6811  Basecbs 16057  lecple 16148  joincjn 17143  meetcmee 17144  Latclat 17244  SubGrpcsubg 17787  LSSumclsm 18247  LModclmod 19063  LSubSpclss 19132  Atomscatm 35051  HLchlt 35138  LHypclh 35771  DVecHcdvh 36867  DIsoBcdib 36927  DIsoCcdic 36961  DIsoHcdih 37017
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1869  ax-4 1884  ax-5 1986  ax-6 2052  ax-7 2088  ax-8 2139  ax-9 2146  ax-10 2166  ax-11 2181  ax-12 2194  ax-13 2389  ax-ext 2738  ax-rep 4921  ax-sep 4931  ax-nul 4939  ax-pow 4990  ax-pr 5053  ax-un 7112  ax-cnex 10182  ax-resscn 10183  ax-1cn 10184  ax-icn 10185  ax-addcl 10186  ax-addrcl 10187  ax-mulcl 10188  ax-mulrcl 10189  ax-mulcom 10190  ax-addass 10191  ax-mulass 10192  ax-distr 10193  ax-i2m1 10194  ax-1ne0 10195  ax-1rid 10196  ax-rnegex 10197  ax-rrecex 10198  ax-cnre 10199  ax-pre-lttri 10200  ax-pre-lttrn 10201  ax-pre-ltadd 10202  ax-pre-mulgt0 10203  ax-riotaBAD 34740
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1633  df-fal 1636  df-ex 1852  df-nf 1857  df-sb 2045  df-eu 2609  df-mo 2610  df-clab 2745  df-cleq 2751  df-clel 2754  df-nfc 2889  df-ne 2931  df-nel 3034  df-ral 3053  df-rex 3054  df-reu 3055  df-rmo 3056  df-rab 3057  df-v 3340  df-sbc 3575  df-csb 3673  df-dif 3716  df-un 3718  df-in 3720  df-ss 3727  df-pss 3729  df-nul 4057  df-if 4229  df-pw 4302  df-sn 4320  df-pr 4322  df-tp 4324  df-op 4326  df-uni 4587  df-int 4626  df-iun 4672  df-iin 4673  df-br 4803  df-opab 4863  df-mpt 4880  df-tr 4903  df-id 5172  df-eprel 5177  df-po 5185  df-so 5186  df-fr 5223  df-we 5225  df-xp 5270  df-rel 5271  df-cnv 5272  df-co 5273  df-dm 5274  df-rn 5275  df-res 5276  df-ima 5277  df-pred 5839  df-ord 5885  df-on 5886  df-lim 5887  df-suc 5888  df-iota 6010  df-fun 6049  df-fn 6050  df-f 6051  df-f1 6052  df-fo 6053  df-f1o 6054  df-fv 6055  df-riota 6772  df-ov 6814  df-oprab 6815  df-mpt2 6816  df-om 7229  df-1st 7331  df-2nd 7332  df-tpos 7519  df-undef 7566  df-wrecs 7574  df-recs 7635  df-rdg 7673  df-1o 7727  df-oadd 7731  df-er 7909  df-map 8023  df-en 8120  df-dom 8121  df-sdom 8122  df-fin 8123  df-pnf 10266  df-mnf 10267  df-xr 10268  df-ltxr 10269  df-le 10270  df-sub 10458  df-neg 10459  df-nn 11211  df-2 11269  df-3 11270  df-4 11271  df-5 11272  df-6 11273  df-n0 11483  df-z 11568  df-uz 11878  df-fz 12518  df-struct 16059  df-ndx 16060  df-slot 16061  df-base 16063  df-sets 16064  df-ress 16065  df-plusg 16154  df-mulr 16155  df-sca 16157  df-vsca 16158  df-0g 16302  df-preset 17127  df-poset 17145  df-plt 17157  df-lub 17173  df-glb 17174  df-join 17175  df-meet 17176  df-p0 17238  df-p1 17239  df-lat 17245  df-clat 17307  df-mgm 17441  df-sgrp 17483  df-mnd 17494  df-submnd 17535  df-grp 17624  df-minusg 17625  df-sbg 17626  df-subg 17790  df-cntz 17948  df-lsm 18249  df-cmn 18393  df-abl 18394  df-mgp 18688  df-ur 18700  df-ring 18747  df-oppr 18821  df-dvdsr 18839  df-unit 18840  df-invr 18870  df-dvr 18881  df-drng 18949  df-lmod 19065  df-lss 19133  df-lsp 19172  df-lvec 19303  df-oposet 34964  df-ol 34966  df-oml 34967  df-covers 35054  df-ats 35055  df-atl 35086  df-cvlat 35110  df-hlat 35139  df-llines 35285  df-lplanes 35286  df-lvols 35287  df-lines 35288  df-psubsp 35290  df-pmap 35291  df-padd 35583  df-lhyp 35775  df-laut 35776  df-ldil 35891  df-ltrn 35892  df-trl 35947  df-tendo 36543  df-edring 36545  df-disoa 36818  df-dvech 36868  df-dib 36928  df-dic 36962  df-dih 37018
This theorem is referenced by:  dihord  37053
  Copyright terms: Public domain W3C validator