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

Theorem dihord6apre 38890
Description: Part of proof that isomorphism H is order-preserving . (Contributed by NM, 7-Mar-2014.)
Hypotheses
Ref Expression
dihord6apre.b 𝐵 = (Base‘𝐾)
dihord6apre.l = (le‘𝐾)
dihord6apre.a 𝐴 = (Atoms‘𝐾)
dihord6apre.h 𝐻 = (LHyp‘𝐾)
dihord6apre.p 𝑃 = ((oc‘𝐾)‘𝑊)
dihord6apre.o 𝑂 = (𝑇 ↦ ( I ↾ 𝐵))
dihord6apre.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
dihord6apre.e 𝐸 = ((TEndo‘𝐾)‘𝑊)
dihord6apre.i 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihord6apre.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihord6apre.s = (LSSum‘𝑈)
dihord6apre.g 𝐺 = (𝑇 (𝑃) = 𝑞)
Assertion
Ref Expression
dihord6apre ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ (𝐼𝑋) ⊆ (𝐼𝑌)) → 𝑋 𝑌)
Distinct variable groups:   ,𝑞   𝐴,𝑞   ,𝑞,𝐵   𝐻,𝑞   𝐼,𝑞   ,𝐾,𝑞   𝑂,𝑞   𝑇,,𝑞   ,𝑊,𝑞   𝑋,𝑞   𝑌,𝑞
Allowed substitution hints:   𝐴()   𝑃(,𝑞)   (,𝑞)   𝑈(,𝑞)   𝐸(,𝑞)   𝐺(,𝑞)   𝐻()   𝐼()   ()   𝑂()   𝑋()   𝑌()

Proof of Theorem dihord6apre
StepHypRef Expression
1 dihord6apre.b . . . . . . 7 𝐵 = (Base‘𝐾)
2 dihord6apre.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
3 dihord6apre.t . . . . . . 7 𝑇 = ((LTrn‘𝐾)‘𝑊)
4 dihord6apre.e . . . . . . 7 𝐸 = ((TEndo‘𝐾)‘𝑊)
5 dihord6apre.o . . . . . . 7 𝑂 = (𝑇 ↦ ( I ↾ 𝐵))
61, 2, 3, 4, 5tendo1ne0 38462 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( I ↾ 𝑇) ≠ 𝑂)
763ad2ant1 1134 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → ( I ↾ 𝑇) ≠ 𝑂)
87neneqd 2939 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → ¬ ( I ↾ 𝑇) = 𝑂)
9 dihord6apre.l . . . . . . 7 = (le‘𝐾)
10 eqid 2738 . . . . . . 7 (join‘𝐾) = (join‘𝐾)
11 eqid 2738 . . . . . . 7 (meet‘𝐾) = (meet‘𝐾)
12 dihord6apre.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
131, 9, 10, 11, 12, 2lhpmcvr2 37658 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → ∃𝑞𝐴𝑞 𝑊 ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋))
14133adant3 1133 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → ∃𝑞𝐴𝑞 𝑊 ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋))
15 simpl1 1192 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
16 simpl2 1193 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝑋𝐵 ∧ ¬ 𝑋 𝑊))
17 simpr 488 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋))
18 dihord6apre.i . . . . . . . . . . . 12 𝐼 = ((DIsoH‘𝐾)‘𝑊)
19 eqid 2738 . . . . . . . . . . . 12 ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
20 eqid 2738 . . . . . . . . . . . 12 ((DIsoC‘𝐾)‘𝑊) = ((DIsoC‘𝐾)‘𝑊)
21 dihord6apre.u . . . . . . . . . . . 12 𝑈 = ((DVecH‘𝐾)‘𝑊)
22 dihord6apre.s . . . . . . . . . . . 12 = (LSSum‘𝑈)
231, 9, 10, 11, 12, 2, 18, 19, 20, 21, 22dihvalcq 38870 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝐼𝑋) = ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))))
2415, 16, 17, 23syl3anc 1372 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝐼𝑋) = ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))))
25 simpl3 1194 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝑌𝐵𝑌 𝑊))
261, 9, 2, 18, 19dihvalb 38871 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑌𝐵𝑌 𝑊)) → (𝐼𝑌) = (((DIsoB‘𝐾)‘𝑊)‘𝑌))
2715, 25, 26syl2anc 587 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝐼𝑌) = (((DIsoB‘𝐾)‘𝑊)‘𝑌))
2824, 27sseq12d 3911 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → ((𝐼𝑋) ⊆ (𝐼𝑌) ↔ ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))) ⊆ (((DIsoB‘𝐾)‘𝑊)‘𝑌)))
292, 21, 15dvhlmod 38744 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → 𝑈 ∈ LMod)
30 eqid 2738 . . . . . . . . . . . . . 14 (LSubSp‘𝑈) = (LSubSp‘𝑈)
3130lsssssubg 19850 . . . . . . . . . . . . 13 (𝑈 ∈ LMod → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
3229, 31syl 17 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
33 simprl 771 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝑞𝐴 ∧ ¬ 𝑞 𝑊))
349, 12, 2, 21, 20, 30diclss 38827 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑞𝐴 ∧ ¬ 𝑞 𝑊)) → (((DIsoC‘𝐾)‘𝑊)‘𝑞) ∈ (LSubSp‘𝑈))
3515, 33, 34syl2anc 587 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (((DIsoC‘𝐾)‘𝑊)‘𝑞) ∈ (LSubSp‘𝑈))
3632, 35sseldd 3879 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (((DIsoC‘𝐾)‘𝑊)‘𝑞) ∈ (SubGrp‘𝑈))
37 simpl1l 1225 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → 𝐾 ∈ HL)
3837hllatd 36998 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → 𝐾 ∈ Lat)
39 simpl2l 1227 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → 𝑋𝐵)
40 simpl1r 1226 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → 𝑊𝐻)
411, 2lhpbase 37632 . . . . . . . . . . . . . . 15 (𝑊𝐻𝑊𝐵)
4240, 41syl 17 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → 𝑊𝐵)
431, 11latmcl 17779 . . . . . . . . . . . . . 14 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋(meet‘𝐾)𝑊) ∈ 𝐵)
4438, 39, 42, 43syl3anc 1372 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝑋(meet‘𝐾)𝑊) ∈ 𝐵)
451, 9, 11latmle2 17804 . . . . . . . . . . . . . 14 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋(meet‘𝐾)𝑊) 𝑊)
4638, 39, 42, 45syl3anc 1372 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (𝑋(meet‘𝐾)𝑊) 𝑊)
471, 9, 2, 21, 19, 30diblss 38804 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑋(meet‘𝐾)𝑊) ∈ 𝐵 ∧ (𝑋(meet‘𝐾)𝑊) 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊)) ∈ (LSubSp‘𝑈))
4815, 44, 46, 47syl12anc 836 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊)) ∈ (LSubSp‘𝑈))
4932, 48sseldd 3879 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊)) ∈ (SubGrp‘𝑈))
5022lsmub1 18901 . . . . . . . . . . 11 (((((DIsoC‘𝐾)‘𝑊)‘𝑞) ∈ (SubGrp‘𝑈) ∧ (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊)) ∈ (SubGrp‘𝑈)) → (((DIsoC‘𝐾)‘𝑊)‘𝑞) ⊆ ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))))
5136, 49, 50syl2anc 587 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (((DIsoC‘𝐾)‘𝑊)‘𝑞) ⊆ ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))))
52 sstr 3886 . . . . . . . . . . 11 (((((DIsoC‘𝐾)‘𝑊)‘𝑞) ⊆ ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))) ∧ ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))) ⊆ (((DIsoB‘𝐾)‘𝑊)‘𝑌)) → (((DIsoC‘𝐾)‘𝑊)‘𝑞) ⊆ (((DIsoB‘𝐾)‘𝑊)‘𝑌))
53 eqidd 2739 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (( I ↾ 𝑇)‘𝐺) = (( I ↾ 𝑇)‘𝐺))
542, 3, 4tendoidcl 38403 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( I ↾ 𝑇) ∈ 𝐸)
5515, 54syl 17 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → ( I ↾ 𝑇) ∈ 𝐸)
56 dihord6apre.p . . . . . . . . . . . . . . 15 𝑃 = ((oc‘𝐾)‘𝑊)
57 dihord6apre.g . . . . . . . . . . . . . . 15 𝐺 = (𝑇 (𝑃) = 𝑞)
58 fvex 6688 . . . . . . . . . . . . . . 15 (( I ↾ 𝑇)‘𝐺) ∈ V
593fvexi 6689 . . . . . . . . . . . . . . . 16 𝑇 ∈ V
60 resiexg 7646 . . . . . . . . . . . . . . . 16 (𝑇 ∈ V → ( I ↾ 𝑇) ∈ V)
6159, 60ax-mp 5 . . . . . . . . . . . . . . 15 ( I ↾ 𝑇) ∈ V
629, 12, 2, 56, 3, 4, 20, 57, 58, 61dicopelval2 38815 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑞𝐴 ∧ ¬ 𝑞 𝑊)) → (⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoC‘𝐾)‘𝑊)‘𝑞) ↔ ((( I ↾ 𝑇)‘𝐺) = (( I ↾ 𝑇)‘𝐺) ∧ ( I ↾ 𝑇) ∈ 𝐸)))
6315, 33, 62syl2anc 587 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoC‘𝐾)‘𝑊)‘𝑞) ↔ ((( I ↾ 𝑇)‘𝐺) = (( I ↾ 𝑇)‘𝐺) ∧ ( I ↾ 𝑇) ∈ 𝐸)))
6453, 55, 63mpbir2and 713 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → ⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoC‘𝐾)‘𝑊)‘𝑞))
65 ssel2 3873 . . . . . . . . . . . . 13 (((((DIsoC‘𝐾)‘𝑊)‘𝑞) ⊆ (((DIsoB‘𝐾)‘𝑊)‘𝑌) ∧ ⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoC‘𝐾)‘𝑊)‘𝑞)) → ⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑌))
66 eqid 2738 . . . . . . . . . . . . . . . 16 ((DIsoA‘𝐾)‘𝑊) = ((DIsoA‘𝐾)‘𝑊)
671, 9, 2, 3, 5, 66, 19dibopelval2 38779 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑌𝐵𝑌 𝑊)) → (⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑌) ↔ ((( I ↾ 𝑇)‘𝐺) ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑌) ∧ ( I ↾ 𝑇) = 𝑂)))
6815, 25, 67syl2anc 587 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑌) ↔ ((( I ↾ 𝑇)‘𝐺) ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑌) ∧ ( I ↾ 𝑇) = 𝑂)))
69 simpr 488 . . . . . . . . . . . . . 14 (((( I ↾ 𝑇)‘𝐺) ∈ (((DIsoA‘𝐾)‘𝑊)‘𝑌) ∧ ( I ↾ 𝑇) = 𝑂) → ( I ↾ 𝑇) = 𝑂)
7068, 69syl6bi 256 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑌) → ( I ↾ 𝑇) = 𝑂))
7165, 70syl5 34 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (((((DIsoC‘𝐾)‘𝑊)‘𝑞) ⊆ (((DIsoB‘𝐾)‘𝑊)‘𝑌) ∧ ⟨(( I ↾ 𝑇)‘𝐺), ( I ↾ 𝑇)⟩ ∈ (((DIsoC‘𝐾)‘𝑊)‘𝑞)) → ( I ↾ 𝑇) = 𝑂))
7264, 71mpan2d 694 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → ((((DIsoC‘𝐾)‘𝑊)‘𝑞) ⊆ (((DIsoB‘𝐾)‘𝑊)‘𝑌) → ( I ↾ 𝑇) = 𝑂))
7352, 72syl5 34 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (((((DIsoC‘𝐾)‘𝑊)‘𝑞) ⊆ ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))) ∧ ((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))) ⊆ (((DIsoB‘𝐾)‘𝑊)‘𝑌)) → ( I ↾ 𝑇) = 𝑂))
7451, 73mpand 695 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → (((((DIsoC‘𝐾)‘𝑊)‘𝑞) (((DIsoB‘𝐾)‘𝑊)‘(𝑋(meet‘𝐾)𝑊))) ⊆ (((DIsoB‘𝐾)‘𝑊)‘𝑌) → ( I ↾ 𝑇) = 𝑂))
7528, 74sylbid 243 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ ((𝑞𝐴 ∧ ¬ 𝑞 𝑊) ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋)) → ((𝐼𝑋) ⊆ (𝐼𝑌) → ( I ↾ 𝑇) = 𝑂))
7675exp44 441 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → (𝑞𝐴 → (¬ 𝑞 𝑊 → ((𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋 → ((𝐼𝑋) ⊆ (𝐼𝑌) → ( I ↾ 𝑇) = 𝑂)))))
7776imp4a 426 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → (𝑞𝐴 → ((¬ 𝑞 𝑊 ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋) → ((𝐼𝑋) ⊆ (𝐼𝑌) → ( I ↾ 𝑇) = 𝑂))))
7877rexlimdv 3193 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → (∃𝑞𝐴𝑞 𝑊 ∧ (𝑞(join‘𝐾)(𝑋(meet‘𝐾)𝑊)) = 𝑋) → ((𝐼𝑋) ⊆ (𝐼𝑌) → ( I ↾ 𝑇) = 𝑂)))
7914, 78mpd 15 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → ((𝐼𝑋) ⊆ (𝐼𝑌) → ( I ↾ 𝑇) = 𝑂))
808, 79mtod 201 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → ¬ (𝐼𝑋) ⊆ (𝐼𝑌))
8180pm2.21d 121 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) → ((𝐼𝑋) ⊆ (𝐼𝑌) → 𝑋 𝑌))
8281imp 410 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑌𝐵𝑌 𝑊)) ∧ (𝐼𝑋) ⊆ (𝐼𝑌)) → 𝑋 𝑌)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  w3a 1088   = wceq 1542  wcel 2113  wne 2934  wrex 3054  Vcvv 3398  wss 3844  cop 4523   class class class wbr 5031  cmpt 5111   I cid 5429  cres 5528  cfv 6340  crio 7127  (class class class)co 7171  Basecbs 16587  lecple 16676  occoc 16677  joincjn 17671  meetcmee 17672  Latclat 17772  SubGrpcsubg 18392  LSSumclsm 18878  LModclmod 19754  LSubSpclss 19823  Atomscatm 36897  HLchlt 36984  LHypclh 37618  LTrncltrn 37735  TEndoctendo 38386  DIsoAcdia 38662  DVecHcdvh 38712  DIsoBcdib 38772  DIsoCcdic 38806  DIsoHcdih 38862
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1916  ax-6 1974  ax-7 2019  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2161  ax-12 2178  ax-ext 2710  ax-rep 5155  ax-sep 5168  ax-nul 5175  ax-pow 5233  ax-pr 5297  ax-un 7480  ax-cnex 10672  ax-resscn 10673  ax-1cn 10674  ax-icn 10675  ax-addcl 10676  ax-addrcl 10677  ax-mulcl 10678  ax-mulrcl 10679  ax-mulcom 10680  ax-addass 10681  ax-mulass 10682  ax-distr 10683  ax-i2m1 10684  ax-1ne0 10685  ax-1rid 10686  ax-rnegex 10687  ax-rrecex 10688  ax-cnre 10689  ax-pre-lttri 10690  ax-pre-lttrn 10691  ax-pre-ltadd 10692  ax-pre-mulgt0 10693  ax-riotaBAD 36587
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-nel 3039  df-ral 3058  df-rex 3059  df-reu 3060  df-rmo 3061  df-rab 3062  df-v 3400  df-sbc 3683  df-csb 3792  df-dif 3847  df-un 3849  df-in 3851  df-ss 3861  df-pss 3863  df-nul 4213  df-if 4416  df-pw 4491  df-sn 4518  df-pr 4520  df-tp 4522  df-op 4524  df-uni 4798  df-int 4838  df-iun 4884  df-iin 4885  df-br 5032  df-opab 5094  df-mpt 5112  df-tr 5138  df-id 5430  df-eprel 5435  df-po 5443  df-so 5444  df-fr 5484  df-we 5486  df-xp 5532  df-rel 5533  df-cnv 5534  df-co 5535  df-dm 5536  df-rn 5537  df-res 5538  df-ima 5539  df-pred 6130  df-ord 6176  df-on 6177  df-lim 6178  df-suc 6179  df-iota 6298  df-fun 6342  df-fn 6343  df-f 6344  df-f1 6345  df-fo 6346  df-f1o 6347  df-fv 6348  df-riota 7128  df-ov 7174  df-oprab 7175  df-mpo 7176  df-om 7601  df-1st 7715  df-2nd 7716  df-tpos 7922  df-undef 7969  df-wrecs 7977  df-recs 8038  df-rdg 8076  df-1o 8132  df-er 8321  df-map 8440  df-en 8557  df-dom 8558  df-sdom 8559  df-fin 8560  df-pnf 10756  df-mnf 10757  df-xr 10758  df-ltxr 10759  df-le 10760  df-sub 10951  df-neg 10952  df-nn 11718  df-2 11780  df-3 11781  df-4 11782  df-5 11783  df-6 11784  df-n0 11978  df-z 12064  df-uz 12326  df-fz 12983  df-struct 16589  df-ndx 16590  df-slot 16591  df-base 16593  df-sets 16594  df-ress 16595  df-plusg 16682  df-mulr 16683  df-sca 16685  df-vsca 16686  df-0g 16819  df-proset 17655  df-poset 17673  df-plt 17685  df-lub 17701  df-glb 17702  df-join 17703  df-meet 17704  df-p0 17766  df-p1 17767  df-lat 17773  df-clat 17835  df-mgm 17969  df-sgrp 18018  df-mnd 18029  df-submnd 18074  df-grp 18223  df-minusg 18224  df-sbg 18225  df-subg 18395  df-cntz 18566  df-lsm 18880  df-cmn 19027  df-abl 19028  df-mgp 19360  df-ur 19372  df-ring 19419  df-oppr 19496  df-dvdsr 19514  df-unit 19515  df-invr 19545  df-dvr 19556  df-drng 19624  df-lmod 19756  df-lss 19824  df-lsp 19864  df-lvec 19995  df-oposet 36810  df-ol 36812  df-oml 36813  df-covers 36900  df-ats 36901  df-atl 36932  df-cvlat 36956  df-hlat 36985  df-llines 37132  df-lplanes 37133  df-lvols 37134  df-lines 37135  df-psubsp 37137  df-pmap 37138  df-padd 37430  df-lhyp 37622  df-laut 37623  df-ldil 37738  df-ltrn 37739  df-trl 37793  df-tendo 38389  df-edring 38391  df-disoa 38663  df-dvech 38713  df-dib 38773  df-dic 38807  df-dih 38863
This theorem is referenced by:  dihord6a  38895
  Copyright terms: Public domain W3C validator