Theorem diaglbN 41861

Description: Partial isomorphism A of a lattice glb. (Contributed by NM, 3-Dec-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
diaglb.g	⊢ 𝐺 = (glb‘𝐾)
diaglb.h	⊢ 𝐻 = (LHyp‘𝐾)
diaglb.i	⊢ 𝐼 = ((DIsoA‘𝐾)‘𝑊)

Assertion

Ref	Expression
diaglbN	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐼‘(𝐺‘𝑆)) = ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥))

Distinct variable groups:   𝑥,𝐺   𝑥,𝐻   𝑥,𝐼   𝑥,𝐾   𝑥,𝑆   𝑥,𝑊

Proof of Theorem diaglbN

Dummy variables 𝑓 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 488	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		hlclat 40164	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
3	2	ad2antrr 739	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → 𝐾 ∈ CLat)
4		eqid 2766	. . . . . . . . . 10 ⊢ (Base‘𝐾) = (Base‘𝐾)
5		eqid 2766	. . . . . . . . . 10 ⊢ (le‘𝐾) = (le‘𝐾)
6		diaglb.h	. . . . . . . . . 10 ⊢ 𝐻 = (LHyp‘𝐾)
7		diaglb.i	. . . . . . . . . 10 ⊢ 𝐼 = ((DIsoA‘𝐾)‘𝑊)
8	4, 5, 6, 7	diadm 41841	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → dom 𝐼 = {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
9	8	sseq2d 3972	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑆 ⊆ dom 𝐼 ↔ 𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊}))
10	9	biimpa 482	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ dom 𝐼) → 𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
11	10	adantrr 730	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → 𝑆 ⊆ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊})
12		ssrab2 4037	. . . . . 6 ⊢ {𝑦 ∈ (Base‘𝐾) ∣ 𝑦(le‘𝐾)𝑊} ⊆ (Base‘𝐾)
13	11, 12	sstrdi 3952	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → 𝑆 ⊆ (Base‘𝐾))
14		diaglb.g	. . . . . 6 ⊢ 𝐺 = (glb‘𝐾)
15	4, 14	clatglbcl 18571	. . . . 5 ⊢ ((𝐾 ∈ CLat ∧ 𝑆 ⊆ (Base‘𝐾)) → (𝐺‘𝑆) ∈ (Base‘𝐾))
16	3, 13, 15	syl2anc 596	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐺‘𝑆) ∈ (Base‘𝐾))
17		simprr 785	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → 𝑆 ≠ ∅)
18		n0 4310	. . . . . 6 ⊢ (𝑆 ≠ ∅ ↔ ∃𝑥 𝑥 ∈ 𝑆)
19	17, 18	sylib 221	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → ∃𝑥 𝑥 ∈ 𝑆)
20		hllat 40169	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
21	20	ad3antrrr 743	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → 𝐾 ∈ Lat)
22	16	adantr 486	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → (𝐺‘𝑆) ∈ (Base‘𝐾))
23		ssel2 3935	. . . . . . . . . 10 ⊢ ((𝑆 ⊆ dom 𝐼 ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ dom 𝐼)
24	23	adantlr 728	. . . . . . . . 9 ⊢ (((𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅) ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ dom 𝐼)
25	24	adantll 727	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ dom 𝐼)
26	4, 5, 6, 7	diaeldm 41842	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑥 ∈ dom 𝐼 ↔ (𝑥 ∈ (Base‘𝐾) ∧ 𝑥(le‘𝐾)𝑊)))
27	26	ad2antrr 739	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → (𝑥 ∈ dom 𝐼 ↔ (𝑥 ∈ (Base‘𝐾) ∧ 𝑥(le‘𝐾)𝑊)))
28	25, 27	mpbid 235	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → (𝑥 ∈ (Base‘𝐾) ∧ 𝑥(le‘𝐾)𝑊))
29	28	simpld 500	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ (Base‘𝐾))
30	4, 6	lhpbase 40804	. . . . . . 7 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
31	30	ad3antlr 744	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → 𝑊 ∈ (Base‘𝐾))
32	2	ad3antrrr 743	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → 𝐾 ∈ CLat)
33	13	adantr 486	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → 𝑆 ⊆ (Base‘𝐾))
34		simpr 490	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ 𝑆)
35	4, 5, 14	clatglble 18583	. . . . . . 7 ⊢ ((𝐾 ∈ CLat ∧ 𝑆 ⊆ (Base‘𝐾) ∧ 𝑥 ∈ 𝑆) → (𝐺‘𝑆)(le‘𝐾)𝑥)
36	32, 33, 34, 35	syl3anc 1398	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → (𝐺‘𝑆)(le‘𝐾)𝑥)
37	28	simprd 501	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → 𝑥(le‘𝐾)𝑊)
38	4, 5, 21, 22, 29, 31, 36, 37	lattrd 18512	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → (𝐺‘𝑆)(le‘𝐾)𝑊)
39	19, 38	exlimddv 1968	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐺‘𝑆)(le‘𝐾)𝑊)
40		eqid 2766	. . . . 5 ⊢ ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
41		eqid 2766	. . . . 5 ⊢ ((trL‘𝐾)‘𝑊) = ((trL‘𝐾)‘𝑊)
42	4, 5, 6, 40, 41, 7	diaelval 41839	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐺‘𝑆) ∈ (Base‘𝐾) ∧ (𝐺‘𝑆)(le‘𝐾)𝑊)) → (𝑓 ∈ (𝐼‘(𝐺‘𝑆)) ↔ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)(𝐺‘𝑆))))
43	1, 16, 39, 42	syl12anc 850	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (𝑓 ∈ (𝐼‘(𝐺‘𝑆)) ↔ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)(𝐺‘𝑆))))
44		r19.28zv 4470	. . . . . 6 ⊢ (𝑆 ≠ ∅ → (∀𝑥 ∈ 𝑆 (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥) ↔ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ ∀𝑥 ∈ 𝑆 (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥)))
45	44	ad2antll 742	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (∀𝑥 ∈ 𝑆 (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥) ↔ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ ∀𝑥 ∈ 𝑆 (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥)))
46		simpll 779	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
47	4, 5, 6, 40, 41, 7	diaelval 41839	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑥(le‘𝐾)𝑊)) → (𝑓 ∈ (𝐼‘𝑥) ↔ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥)))
48	46, 28, 47	syl2anc 596	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑥 ∈ 𝑆) → (𝑓 ∈ (𝐼‘𝑥) ↔ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥)))
49	48	ralbidva 3189	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (∀𝑥 ∈ 𝑆 𝑓 ∈ (𝐼‘𝑥) ↔ ∀𝑥 ∈ 𝑆 (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥)))
50	2	ad3antrrr 743	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑓 ∈ ((LTrn‘𝐾)‘𝑊)) → 𝐾 ∈ CLat)
51	4, 6, 40, 41	trlcl 40970	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ ((LTrn‘𝐾)‘𝑊)) → (((trL‘𝐾)‘𝑊)‘𝑓) ∈ (Base‘𝐾))
52	51	adantlr 728	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑓 ∈ ((LTrn‘𝐾)‘𝑊)) → (((trL‘𝐾)‘𝑊)‘𝑓) ∈ (Base‘𝐾))
53	13	adantr 486	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑓 ∈ ((LTrn‘𝐾)‘𝑊)) → 𝑆 ⊆ (Base‘𝐾))
54	4, 5, 14	clatleglb 18584	. . . . . . 7 ⊢ ((𝐾 ∈ CLat ∧ (((trL‘𝐾)‘𝑊)‘𝑓) ∈ (Base‘𝐾) ∧ 𝑆 ⊆ (Base‘𝐾)) → ((((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)(𝐺‘𝑆) ↔ ∀𝑥 ∈ 𝑆 (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥))
55	50, 52, 53, 54	syl3anc 1398	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) ∧ 𝑓 ∈ ((LTrn‘𝐾)‘𝑊)) → ((((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)(𝐺‘𝑆) ↔ ∀𝑥 ∈ 𝑆 (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥))
56	55	pm5.32da 590	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → ((𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)(𝐺‘𝑆)) ↔ (𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ ∀𝑥 ∈ 𝑆 (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)𝑥)))
57	45, 49, 56	3bitr4rd 315	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → ((𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)(𝐺‘𝑆)) ↔ ∀𝑥 ∈ 𝑆 𝑓 ∈ (𝐼‘𝑥)))
58		vex 3462	. . . . 5 ⊢ 𝑓 ∈ V
59		eliin 4964	. . . . 5 ⊢ (𝑓 ∈ V → (𝑓 ∈ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ↔ ∀𝑥 ∈ 𝑆 𝑓 ∈ (𝐼‘𝑥)))
60	58, 59	ax-mp 5	. . . 4 ⊢ (𝑓 ∈ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ↔ ∀𝑥 ∈ 𝑆 𝑓 ∈ (𝐼‘𝑥))
61	57, 60	bitr4di 292	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → ((𝑓 ∈ ((LTrn‘𝐾)‘𝑊) ∧ (((trL‘𝐾)‘𝑊)‘𝑓)(le‘𝐾)(𝐺‘𝑆)) ↔ 𝑓 ∈ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)))
62	43, 61	bitrd 282	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (𝑓 ∈ (𝐼‘(𝐺‘𝑆)) ↔ 𝑓 ∈ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)))
63	62	eqrdv 2764	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ dom 𝐼 ∧ 𝑆 ≠ ∅)) → (𝐼‘(𝐺‘𝑆)) = ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570  ∃wex 1812   ∈ wcel 2146   ≠ wne 2961  ∀wral 3082  {crab 3419  Vcvv 3458   ⊆ wss 3908  ∅c0 4289  ∩ ciin 4960   class class class wbr 5112  dom cdm 5664  ‘cfv 6540  Basecbs 17279  lecple 17327  glbcglb 18376  Latclat 18497  CLatccla 18564  HLchlt 40156  LHypclh 40790  LTrncltrn 40907  trLctrl 40964  DIsoAcdia 41834

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5241  ax-sep 5260  ax-nul 5272  ax-pow 5339  ax-pr 5407  ax-un 7738

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4491  df-pw 4567  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4876  df-iun 4961  df-iin 4962  df-br 5113  df-opab 5177  df-mpt 5196  df-id 5559  df-xp 5670  df-rel 5671  df-cnv 5672  df-co 5673  df-dm 5674  df-rn 5675  df-res 5676  df-ima 5677  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7373  df-ov 7419  df-oprab 7420  df-mpo 7421  df-map 8828  df-proset 18360  df-poset 18379  df-plt 18394  df-lub 18410  df-glb 18411  df-join 18412  df-meet 18413  df-p0 18489  df-p1 18490  df-lat 18498  df-clat 18565  df-oposet 39982  df-ol 39984  df-oml 39985  df-covers 40072  df-ats 40073  df-atl 40104  df-cvlat 40128  df-hlat 40157  df-lhyp 40794  df-laut 40795  df-ldil 40910  df-ltrn 40911  df-trl 40965  df-disoa 41835

This theorem is used by:  diameetN  41862  diaintclN  41864  dibglbN  41972