Theorem doca2N 41246

Description: Double orthocomplement of partial isomorphism A. (Contributed by NM, 6-Dec-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
doca2.h	⊢ 𝐻 = (LHyp‘𝐾)
doca2.i	⊢ 𝐼 = ((DIsoA‘𝐾)‘𝑊)
doca2.n	⊢ ⊥ = ((ocA‘𝐾)‘𝑊)

Assertion

Ref	Expression
doca2N	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ( ⊥ ‘( ⊥ ‘(𝐼‘𝑋))) = (𝐼‘𝑋))

Proof of Theorem doca2N

Step	Hyp	Ref	Expression
1		hlol 39481	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
2	1	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝐾 ∈ OL)
3		eqid 2733	. . . . . . . . . . . . 13 ⊢ (Base‘𝐾) = (Base‘𝐾)
4		doca2.h	. . . . . . . . . . . . 13 ⊢ 𝐻 = (LHyp‘𝐾)
5		doca2.i	. . . . . . . . . . . . 13 ⊢ 𝐼 = ((DIsoA‘𝐾)‘𝑊)
6	3, 4, 5	diadmclN 41157	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋 ∈ (Base‘𝐾))
7	3, 4	lhpbase 40118	. . . . . . . . . . . . 13 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
8	7	ad2antlr 727	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑊 ∈ (Base‘𝐾))
9		eqid 2733	. . . . . . . . . . . . 13 ⊢ (join‘𝐾) = (join‘𝐾)
10		eqid 2733	. . . . . . . . . . . . 13 ⊢ (meet‘𝐾) = (meet‘𝐾)
11		eqid 2733	. . . . . . . . . . . . 13 ⊢ (oc‘𝐾) = (oc‘𝐾)
12	3, 9, 10, 11	oldmm1 39337	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ OL ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊)) = (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊)))
13	2, 6, 8, 12	syl3anc 1373	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊)) = (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊)))
14	13	oveq1d 7367	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊))(meet‘𝐾)𝑊) = ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))
15	14	eqcomd 2739	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) = (((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊))(meet‘𝐾)𝑊))
16	15	fveq2d 6832	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = ((oc‘𝐾)‘(((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊))(meet‘𝐾)𝑊)))
17		hllat 39483	. . . . . . . . . . 11 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
18	17	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝐾 ∈ Lat)
19	3, 10	latmcl 18348	. . . . . . . . . 10 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → (𝑋(meet‘𝐾)𝑊) ∈ (Base‘𝐾))
20	18, 6, 8, 19	syl3anc 1373	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝑋(meet‘𝐾)𝑊) ∈ (Base‘𝐾))
21	3, 9, 10, 11	oldmm2 39338	. . . . . . . . 9 ⊢ ((𝐾 ∈ OL ∧ (𝑋(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊))(meet‘𝐾)𝑊)) = ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊)))
22	2, 20, 8, 21	syl3anc 1373	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((oc‘𝐾)‘(((oc‘𝐾)‘(𝑋(meet‘𝐾)𝑊))(meet‘𝐾)𝑊)) = ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊)))
23	16, 22	eqtrd 2768	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊)))
24	23	oveq1d 7367	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊)) = (((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊)))
25		hlop 39482	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
26	25	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝐾 ∈ OP)
27	3, 11	opoccl 39314	. . . . . . . . 9 ⊢ ((𝐾 ∈ OP ∧ 𝑊 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾))
28	26, 8, 27	syl2anc 584	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾))
29	3, 9	latjass 18391	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ ((𝑋(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾))) → (((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊)) = ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)(((oc‘𝐾)‘𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))))
30	18, 20, 28, 28, 29	syl13anc 1374	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊)) = ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)(((oc‘𝐾)‘𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))))
31	3, 9	latjidm 18370	. . . . . . . . 9 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾)) → (((oc‘𝐾)‘𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊)) = ((oc‘𝐾)‘𝑊))
32	18, 28, 31	syl2anc 584	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((oc‘𝐾)‘𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊)) = ((oc‘𝐾)‘𝑊))
33	32	oveq2d 7368	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)(((oc‘𝐾)‘𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))) = ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊)))
34	30, 33	eqtrd 2768	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊)) = ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊)))
35	24, 34	eqtrd 2768	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊)) = ((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊)))
36	35	oveq1d 7367	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) = (((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))
37		hloml 39477	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OML)
38	37	ad2antrr 726	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝐾 ∈ OML)
39		eqid 2733	. . . . . . 7 ⊢ (le‘𝐾) = (le‘𝐾)
40	3, 39, 10	latmle2 18373	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → (𝑋(meet‘𝐾)𝑊)(le‘𝐾)𝑊)
41	18, 6, 8, 40	syl3anc 1373	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝑋(meet‘𝐾)𝑊)(le‘𝐾)𝑊)
42	3, 39, 9, 10, 11	omlspjN 39381	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ ((𝑋(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ (𝑋(meet‘𝐾)𝑊)(le‘𝐾)𝑊) → (((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) = (𝑋(meet‘𝐾)𝑊))
43	38, 20, 8, 41, 42	syl121anc 1377	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((𝑋(meet‘𝐾)𝑊)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) = (𝑋(meet‘𝐾)𝑊))
44	39, 4, 5	diadmleN 41158	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋(le‘𝐾)𝑊)
45	3, 39, 10	latleeqm1 18375	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → (𝑋(le‘𝐾)𝑊 ↔ (𝑋(meet‘𝐾)𝑊) = 𝑋))
46	18, 6, 8, 45	syl3anc 1373	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝑋(le‘𝐾)𝑊 ↔ (𝑋(meet‘𝐾)𝑊) = 𝑋))
47	44, 46	mpbid 232	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝑋(meet‘𝐾)𝑊) = 𝑋)
48	36, 43, 47	3eqtrrd 2773	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋 = ((((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))
49	48	fveq2d 6832	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘𝑋) = (𝐼‘((((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)))
50	3, 11	opoccl 39314	. . . . . . 7 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ (Base‘𝐾)) → ((oc‘𝐾)‘𝑋) ∈ (Base‘𝐾))
51	26, 6, 50	syl2anc 584	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((oc‘𝐾)‘𝑋) ∈ (Base‘𝐾))
52	3, 9	latjcl 18347	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑋) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘𝑊) ∈ (Base‘𝐾)) → (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾))
53	18, 51, 28, 52	syl3anc 1373	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾))
54	3, 10	latmcl 18348	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾))
55	18, 53, 8, 54	syl3anc 1373	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾))
56	3, 39, 10	latmle2 18373	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)
57	18, 53, 8, 56	syl3anc 1373	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)
58	3, 39, 4, 5	diaeldm 41156	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼 ↔ (((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)))
59	58	adantr 480	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼 ↔ (((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ (Base‘𝐾) ∧ ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)(le‘𝐾)𝑊)))
60	55, 57, 59	mpbir2and 713	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼)
61		eqid 2733	. . . 4 ⊢ ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
62		doca2.n	. . . 4 ⊢ ⊥ = ((ocA‘𝐾)‘𝑊)
63	9, 10, 11, 4, 61, 5, 62	diaocN 41245	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊) ∈ dom 𝐼) → (𝐼‘((((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = ( ⊥ ‘(𝐼‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))))
64	60, 63	syldan 591	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((((oc‘𝐾)‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = ( ⊥ ‘(𝐼‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))))
65	9, 10, 11, 4, 61, 5, 62	diaocN 41245	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊)) = ( ⊥ ‘(𝐼‘𝑋)))
66	65	fveq2d 6832	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ( ⊥ ‘(𝐼‘((((oc‘𝐾)‘𝑋)(join‘𝐾)((oc‘𝐾)‘𝑊))(meet‘𝐾)𝑊))) = ( ⊥ ‘( ⊥ ‘(𝐼‘𝑋))))
67	49, 64, 66	3eqtrrd 2773	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ( ⊥ ‘( ⊥ ‘(𝐼‘𝑋))) = (𝐼‘𝑋))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113   class class class wbr 5093  dom cdm 5619  ‘cfv 6486  (class class class)co 7352  Basecbs 17122  lecple 17170  occoc 17171  joincjn 18219  meetcmee 18220  Latclat 18339  OPcops 39292  OLcol 39294  OMLcoml 39295  HLchlt 39470  LHypclh 40104  LTrncltrn 40221  DIsoAcdia 41148  ocAcocaN 41239

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5219  ax-sep 5236  ax-nul 5246  ax-pow 5305  ax-pr 5372  ax-un 7674  ax-riotaBAD 39073

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4283  df-if 4475  df-pw 4551  df-sn 4576  df-pr 4578  df-op 4582  df-uni 4859  df-int 4898  df-iun 4943  df-iin 4944  df-br 5094  df-opab 5156  df-mpt 5175  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-riota 7309  df-ov 7355  df-oprab 7356  df-mpo 7357  df-1st 7927  df-2nd 7928  df-undef 8209  df-map 8758  df-proset 18202  df-poset 18221  df-plt 18236  df-lub 18252  df-glb 18253  df-join 18254  df-meet 18255  df-p0 18331  df-p1 18332  df-lat 18340  df-clat 18407  df-oposet 39296  df-cmtN 39297  df-ol 39298  df-oml 39299  df-covers 39386  df-ats 39387  df-atl 39418  df-cvlat 39442  df-hlat 39471  df-llines 39618  df-lplanes 39619  df-lvols 39620  df-lines 39621  df-psubsp 39623  df-pmap 39624  df-padd 39916  df-lhyp 40108  df-laut 40109  df-ldil 40224  df-ltrn 40225  df-trl 40279  df-disoa 41149  df-docaN 41240

This theorem is referenced by:  doca3N  41247