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

Theorem djajN 36940
Description: Transfer lattice join to DVecA partial vector space closed subspace join. Part of Lemma M of [Crawley] p. 120 line 29, with closed subspace join rather than subspace sum. (Contributed by NM, 5-Dec-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
djaj.k = (join‘𝐾)
djaj.h 𝐻 = (LHyp‘𝐾)
djaj.i 𝐼 = ((DIsoA‘𝐾)‘𝑊)
djaj.j 𝐽 = ((vA‘𝐾)‘𝑊)
Assertion
Ref Expression
djajN (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼‘(𝑋 𝑌)) = ((𝐼𝑋)𝐽(𝐼𝑌)))

Proof of Theorem djajN
StepHypRef Expression
1 hllat 35165 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ Lat)
21ad2antrr 697 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝐾 ∈ Lat)
3 hlop 35164 . . . . . . . . 9 (𝐾 ∈ HL → 𝐾 ∈ OP)
43ad2antrr 697 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝐾 ∈ OP)
5 eqid 2770 . . . . . . . . . 10 (Base‘𝐾) = (Base‘𝐾)
6 djaj.h . . . . . . . . . 10 𝐻 = (LHyp‘𝐾)
7 djaj.i . . . . . . . . . 10 𝐼 = ((DIsoA‘𝐾)‘𝑊)
85, 6, 7diadmclN 36840 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋 ∈ (Base‘𝐾))
98adantrr 688 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝑋 ∈ (Base‘𝐾))
10 eqid 2770 . . . . . . . . 9 (oc‘𝐾) = (oc‘𝐾)
115, 10opoccl 34996 . . . . . . . 8 ((𝐾 ∈ OP ∧ 𝑋 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘𝑋) ∈ (Base‘𝐾))
124, 9, 11syl2anc 565 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘𝑋) ∈ (Base‘𝐾))
135, 6lhpbase 35799 . . . . . . . . 9 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
1413ad2antlr 698 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝑊 ∈ (Base‘𝐾))
155, 10opoccl 34996 . . . . . . . 8 ((𝐾 ∈ OP ∧ 𝑊 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾))
164, 14, 15syl2anc 565 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾))
17 djaj.k . . . . . . . 8 = (join‘𝐾)
185, 17latjcl 17258 . . . . . . 7 ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑋) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾)) → (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾))
192, 12, 16, 18syl3anc 1475 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾))
20 eqid 2770 . . . . . . 7 (meet‘𝐾) = (meet‘𝐾)
215, 20latmcl 17259 . . . . . 6 ((𝐾 ∈ Lat ∧ (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾))
222, 19, 14, 21syl3anc 1475 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾))
235, 6, 7diadmclN 36840 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑌 ∈ dom 𝐼) → 𝑌 ∈ (Base‘𝐾))
2423adantrl 687 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝑌 ∈ (Base‘𝐾))
255, 10opoccl 34996 . . . . . . . 8 ((𝐾 ∈ OP ∧ 𝑌 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘𝑌) ∈ (Base‘𝐾))
264, 24, 25syl2anc 565 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘𝑌) ∈ (Base‘𝐾))
275, 17latjcl 17258 . . . . . . 7 ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑌) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾)) → (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾))
282, 26, 16, 27syl3anc 1475 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾))
295, 20latmcl 17259 . . . . . 6 ((𝐾 ∈ Lat ∧ (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾))
302, 28, 14, 29syl3anc 1475 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾))
315, 20latmcl 17259 . . . . 5 ((𝐾 ∈ Lat ∧ ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾)) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∈ (Base‘𝐾))
322, 22, 30, 31syl3anc 1475 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∈ (Base‘𝐾))
33 eqid 2770 . . . . 5 (le‘𝐾) = (le‘𝐾)
345, 33, 20latmle2 17284 . . . . . 6 ((𝐾 ∈ Lat ∧ ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾)) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(le‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))
352, 22, 30, 34syl3anc 1475 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(le‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))
365, 33, 20latmle2 17284 . . . . . 6 ((𝐾 ∈ Lat ∧ (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)
372, 28, 14, 36syl3anc 1475 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)
385, 33, 2, 32, 30, 14, 35, 37lattrd 17265 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(le‘𝐾)𝑊)
395, 33, 6, 7diaeldm 36839 . . . . 5 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ((((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∈ dom 𝐼 ↔ ((((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∈ (Base‘𝐾) ∧ (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(le‘𝐾)𝑊)))
4039adantr 466 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∈ dom 𝐼 ↔ ((((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∈ (Base‘𝐾) ∧ (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(le‘𝐾)𝑊)))
4132, 38, 40mpbir2and 684 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∈ dom 𝐼)
42 eqid 2770 . . . 4 ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
43 eqid 2770 . . . 4 ((ocA‘𝐾)‘𝑊) = ((ocA‘𝐾)‘𝑊)
4417, 20, 10, 6, 42, 7, 43diaocN 36928 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∈ dom 𝐼) → (𝐼‘((((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = (((ocA‘𝐾)‘𝑊)‘(𝐼‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))))
4541, 44syldan 571 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼‘((((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = (((ocA‘𝐾)‘𝑊)‘(𝐼‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))))
46 hloml 35159 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ OML)
4746ad2antrr 697 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝐾 ∈ OML)
485, 17latjcl 17258 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) → (𝑋 𝑌) ∈ (Base‘𝐾))
492, 9, 24, 48syl3anc 1475 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝑋 𝑌) ∈ (Base‘𝐾))
5033, 6, 7diadmleN 36841 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋(le‘𝐾)𝑊)
5150adantrr 688 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝑋(le‘𝐾)𝑊)
5233, 6, 7diadmleN 36841 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑌 ∈ dom 𝐼) → 𝑌(le‘𝐾)𝑊)
5352adantrl 687 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝑌(le‘𝐾)𝑊)
545, 33, 17latjle12 17269 . . . . . . 7 ((𝐾 ∈ Lat ∧ (𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑋(le‘𝐾)𝑊𝑌(le‘𝐾)𝑊) ↔ (𝑋 𝑌)(le‘𝐾)𝑊))
552, 9, 24, 14, 54syl13anc 1477 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((𝑋(le‘𝐾)𝑊𝑌(le‘𝐾)𝑊) ↔ (𝑋 𝑌)(le‘𝐾)𝑊))
5651, 53, 55mpbi2and 683 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝑋 𝑌)(le‘𝐾)𝑊)
575, 33, 17, 20, 10omlspjN 35063 . . . . 5 ((𝐾 ∈ OML ∧ ((𝑋 𝑌) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ (𝑋 𝑌)(le‘𝐾)𝑊) → (((𝑋 𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) = (𝑋 𝑌))
5847, 49, 14, 56, 57syl121anc 1480 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((𝑋 𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) = (𝑋 𝑌))
595, 17latjidm 17281 . . . . . . . 8 ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾)) → (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑊)) = ((oc‘𝐾)‘𝑊))
602, 16, 59syl2anc 565 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑊)) = ((oc‘𝐾)‘𝑊))
6160oveq2d 6808 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((𝑋 𝑌) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑊))) = ((𝑋 𝑌) ((oc‘𝐾)‘𝑊)))
625, 17latjass 17302 . . . . . . . 8 ((𝐾 ∈ Lat ∧ ((𝑋 𝑌) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾))) → (((𝑋 𝑌) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑊)) = ((𝑋 𝑌) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑊))))
632, 49, 16, 16, 62syl13anc 1477 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((𝑋 𝑌) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑊)) = ((𝑋 𝑌) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑊))))
64 hlol 35163 . . . . . . . . . . 11 (𝐾 ∈ HL → 𝐾 ∈ OL)
6564ad2antrr 697 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → 𝐾 ∈ OL)
665, 17, 20, 10oldmm2 35020 . . . . . . . . . 10 ((𝐾 ∈ OL ∧ (𝑋 𝑌) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(((oc‘𝐾)‘(𝑋 𝑌))(meet‘𝐾)𝑊)) = ((𝑋 𝑌) ((oc‘𝐾)‘𝑊)))
6765, 49, 14, 66syl3anc 1475 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘(((oc‘𝐾)‘(𝑋 𝑌))(meet‘𝐾)𝑊)) = ((𝑋 𝑌) ((oc‘𝐾)‘𝑊)))
685, 17, 20, 10oldmj1 35023 . . . . . . . . . . . . . 14 ((𝐾 ∈ OL ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(𝑋 𝑌)) = (((oc‘𝐾)‘𝑋)(meet‘𝐾)((oc‘𝐾)‘𝑌)))
6965, 9, 24, 68syl3anc 1475 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘(𝑋 𝑌)) = (((oc‘𝐾)‘𝑋)(meet‘𝐾)((oc‘𝐾)‘𝑌)))
705, 33, 20latleeqm1 17286 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ Lat ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → (𝑋(le‘𝐾)𝑊 ↔ (𝑋(meet‘𝐾)𝑊) = 𝑋))
712, 9, 14, 70syl3anc 1475 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝑋(le‘𝐾)𝑊 ↔ (𝑋(meet‘𝐾)𝑊) = 𝑋))
7251, 71mpbid 222 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝑋(meet‘𝐾)𝑊) = 𝑋)
7372fveq2d 6336 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊)) = ((oc‘𝐾)‘𝑋))
745, 17, 20, 10oldmm1 35019 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ OL ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊)) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)))
7565, 9, 14, 74syl3anc 1475 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊)) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)))
7673, 75eqtr3d 2806 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘𝑋) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)))
775, 33, 20latleeqm1 17286 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ Lat ∧ 𝑌 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → (𝑌(le‘𝐾)𝑊 ↔ (𝑌(meet‘𝐾)𝑊) = 𝑌))
782, 24, 14, 77syl3anc 1475 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝑌(le‘𝐾)𝑊 ↔ (𝑌(meet‘𝐾)𝑊) = 𝑌))
7953, 78mpbid 222 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝑌(meet‘𝐾)𝑊) = 𝑌)
8079fveq2d 6336 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘(𝑌(meet‘𝐾)𝑊)) = ((oc‘𝐾)‘𝑌))
815, 17, 20, 10oldmm1 35019 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ OL ∧ 𝑌 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(𝑌(meet‘𝐾)𝑊)) = (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))
8265, 24, 14, 81syl3anc 1475 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘(𝑌(meet‘𝐾)𝑊)) = (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))
8380, 82eqtr3d 2806 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘𝑌) = (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))
8476, 83oveq12d 6810 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((oc‘𝐾)‘𝑋)(meet‘𝐾)((oc‘𝐾)‘𝑌)) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)(((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))))
8569, 84eqtrd 2804 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘(𝑋 𝑌)) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)(((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))))
8685oveq1d 6807 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((oc‘𝐾)‘(𝑋 𝑌))(meet‘𝐾)𝑊) = (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)(((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊))
875, 20latmmdir 35037 . . . . . . . . . . . 12 ((𝐾 ∈ OL ∧ ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾) ∧ (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)(((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊) = (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))
8865, 19, 28, 14, 87syl13anc 1477 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)(((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊) = (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))
8986, 88eqtrd 2804 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((oc‘𝐾)‘(𝑋 𝑌))(meet‘𝐾)𝑊) = (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))
9089fveq2d 6336 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((oc‘𝐾)‘(((oc‘𝐾)‘(𝑋 𝑌))(meet‘𝐾)𝑊)) = ((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))))
9167, 90eqtr3d 2806 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((𝑋 𝑌) ((oc‘𝐾)‘𝑊)) = ((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))))
9291oveq1d 6807 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((𝑋 𝑌) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑊)) = (((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) ((oc‘𝐾)‘𝑊)))
9363, 92eqtr3d 2806 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((𝑋 𝑌) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑊))) = (((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) ((oc‘𝐾)‘𝑊)))
9461, 93eqtr3d 2806 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((𝑋 𝑌) ((oc‘𝐾)‘𝑊)) = (((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) ((oc‘𝐾)‘𝑊)))
9594oveq1d 6807 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((𝑋 𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) = ((((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))
9658, 95eqtr3d 2806 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝑋 𝑌) = ((((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))
9796fveq2d 6336 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼‘(𝑋 𝑌)) = (𝐼‘((((oc‘𝐾)‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))
98 simpl 468 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
996, 7diaclN 36853 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼𝑋) ∈ ran 𝐼)
10099adantrr 688 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼𝑋) ∈ ran 𝐼)
1016, 42, 7diaelrnN 36848 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐼𝑋) ∈ ran 𝐼) → (𝐼𝑋) ⊆ ((LTrn‘𝐾)‘𝑊))
102100, 101syldan 571 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼𝑋) ⊆ ((LTrn‘𝐾)‘𝑊))
1036, 7diaclN 36853 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑌 ∈ dom 𝐼) → (𝐼𝑌) ∈ ran 𝐼)
104103adantrl 687 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼𝑌) ∈ ran 𝐼)
1056, 42, 7diaelrnN 36848 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐼𝑌) ∈ ran 𝐼) → (𝐼𝑌) ⊆ ((LTrn‘𝐾)‘𝑊))
106104, 105syldan 571 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼𝑌) ⊆ ((LTrn‘𝐾)‘𝑊))
107 djaj.j . . . . 5 𝐽 = ((vA‘𝐾)‘𝑊)
1086, 42, 7, 43, 107djavalN 36938 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝐼𝑋) ⊆ ((LTrn‘𝐾)‘𝑊) ∧ (𝐼𝑌) ⊆ ((LTrn‘𝐾)‘𝑊))) → ((𝐼𝑋)𝐽(𝐼𝑌)) = (((ocA‘𝐾)‘𝑊)‘((((ocA‘𝐾)‘𝑊)‘(𝐼𝑋)) ∩ (((ocA‘𝐾)‘𝑊)‘(𝐼𝑌)))))
10998, 102, 106, 108syl12anc 1473 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((𝐼𝑋)𝐽(𝐼𝑌)) = (((ocA‘𝐾)‘𝑊)‘((((ocA‘𝐾)‘𝑊)‘(𝐼𝑋)) ∩ (((ocA‘𝐾)‘𝑊)‘(𝐼𝑌)))))
1105, 33, 20latmle2 17284 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)
1112, 19, 14, 110syl3anc 1475 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)
1125, 33, 6, 7diaeldm 36839 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼 ↔ (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)))
113112adantr 466 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼 ↔ (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)))
11422, 111, 113mpbir2and 684 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼)
1155, 33, 6, 7diaeldm 36839 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼 ↔ (((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)))
116115adantr 466 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼 ↔ (((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)))
11730, 37, 116mpbir2and 684 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼)
11820, 6, 7diameetN 36859 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼 ∧ ((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼)) → (𝐼‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) = ((𝐼‘((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∩ (𝐼‘((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))))
11998, 114, 117, 118syl12anc 1473 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) = ((𝐼‘((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∩ (𝐼‘((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))))
12017, 20, 10, 6, 42, 7, 43diaocN 36928 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = (((ocA‘𝐾)‘𝑊)‘(𝐼𝑋)))
121120adantrr 688 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼‘((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = (((ocA‘𝐾)‘𝑊)‘(𝐼𝑋)))
12217, 20, 10, 6, 42, 7, 43diaocN 36928 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑌 ∈ dom 𝐼) → (𝐼‘((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = (((ocA‘𝐾)‘𝑊)‘(𝐼𝑌)))
123122adantrl 687 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼‘((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = (((ocA‘𝐾)‘𝑊)‘(𝐼𝑌)))
124121, 123ineq12d 3964 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((𝐼‘((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) ∩ (𝐼‘((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) = ((((ocA‘𝐾)‘𝑊)‘(𝐼𝑋)) ∩ (((ocA‘𝐾)‘𝑊)‘(𝐼𝑌))))
125119, 124eqtrd 2804 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) = ((((ocA‘𝐾)‘𝑊)‘(𝐼𝑋)) ∩ (((ocA‘𝐾)‘𝑊)‘(𝐼𝑌))))
126125fveq2d 6336 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (((ocA‘𝐾)‘𝑊)‘(𝐼‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))) = (((ocA‘𝐾)‘𝑊)‘((((ocA‘𝐾)‘𝑊)‘(𝐼𝑋)) ∩ (((ocA‘𝐾)‘𝑊)‘(𝐼𝑌)))))
127109, 126eqtr4d 2807 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → ((𝐼𝑋)𝐽(𝐼𝑌)) = (((ocA‘𝐾)‘𝑊)‘(𝐼‘(((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(meet‘𝐾)((((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))))
12845, 97, 1273eqtr4d 2814 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋 ∈ dom 𝐼𝑌 ∈ dom 𝐼)) → (𝐼‘(𝑋 𝑌)) = ((𝐼𝑋)𝐽(𝐼𝑌)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 382   = wceq 1630  wcel 2144  cin 3720  wss 3721   class class class wbr 4784  dom cdm 5249  ran crn 5250  cfv 6031  (class class class)co 6792  Basecbs 16063  lecple 16155  occoc 16156  joincjn 17151  meetcmee 17152  Latclat 17252  OPcops 34974  OLcol 34976  OMLcoml 34977  HLchlt 35152  LHypclh 35785  LTrncltrn 35902  DIsoAcdia 36831  ocAcocaN 36922  vAcdjaN 36934
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 1990  ax-6 2056  ax-7 2092  ax-8 2146  ax-9 2153  ax-10 2173  ax-11 2189  ax-12 2202  ax-13 2407  ax-ext 2750  ax-rep 4902  ax-sep 4912  ax-nul 4920  ax-pow 4971  ax-pr 5034  ax-un 7095  ax-riotaBAD 34754
This theorem depends on definitions:  df-bi 197  df-an 383  df-or 827  df-3or 1071  df-3an 1072  df-tru 1633  df-ex 1852  df-nf 1857  df-sb 2049  df-eu 2621  df-mo 2622  df-clab 2757  df-cleq 2763  df-clel 2766  df-nfc 2901  df-ne 2943  df-nel 3046  df-ral 3065  df-rex 3066  df-reu 3067  df-rmo 3068  df-rab 3069  df-v 3351  df-sbc 3586  df-csb 3681  df-dif 3724  df-un 3726  df-in 3728  df-ss 3735  df-nul 4062  df-if 4224  df-pw 4297  df-sn 4315  df-pr 4317  df-op 4321  df-uni 4573  df-int 4610  df-iun 4654  df-iin 4655  df-br 4785  df-opab 4845  df-mpt 4862  df-id 5157  df-xp 5255  df-rel 5256  df-cnv 5257  df-co 5258  df-dm 5259  df-rn 5260  df-res 5261  df-ima 5262  df-iota 5994  df-fun 6033  df-fn 6034  df-f 6035  df-f1 6036  df-fo 6037  df-f1o 6038  df-fv 6039  df-riota 6753  df-ov 6795  df-oprab 6796  df-mpt2 6797  df-1st 7314  df-2nd 7315  df-undef 7550  df-map 8010  df-preset 17135  df-poset 17153  df-plt 17165  df-lub 17181  df-glb 17182  df-join 17183  df-meet 17184  df-p0 17246  df-p1 17247  df-lat 17253  df-clat 17315  df-oposet 34978  df-cmtN 34979  df-ol 34980  df-oml 34981  df-covers 35068  df-ats 35069  df-atl 35100  df-cvlat 35124  df-hlat 35153  df-llines 35299  df-lplanes 35300  df-lvols 35301  df-lines 35302  df-psubsp 35304  df-pmap 35305  df-padd 35597  df-lhyp 35789  df-laut 35790  df-ldil 35905  df-ltrn 35906  df-trl 35961  df-disoa 36832  df-docaN 36923  df-djaN 36935
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator