Theorem glbconN 35540

Description: De Morgan's law for GLB and LUB. This holds in any complete ortholattice, although we assume HL for convenience. (Contributed by NM, 17-Jan-2012.) (New usage is discouraged.)

Hypotheses

Ref	Expression
glbcon.b	⊢ 𝐵 = (Base‘𝐾)
glbcon.u	⊢ 𝑈 = (lub‘𝐾)
glbcon.g	⊢ 𝐺 = (glb‘𝐾)
glbcon.o	⊢ ⊥ = (oc‘𝐾)

Assertion

Ref	Expression
glbconN	⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐵) → (𝐺‘𝑆) = ( ⊥ ‘(𝑈‘{𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆})))

Distinct variable groups:   𝑥,𝐵   𝑥, ⊥   𝑥,𝑆

Allowed substitution hints:   𝑈(𝑥)   𝐺(𝑥)   𝐾(𝑥)

Proof of Theorem glbconN

Dummy variables 𝑢 𝑡 𝑣 𝑤 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dfin5 3800	. . . 4 ⊢ (𝐵 ∩ 𝑆) = {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}
2		sseqin2 4040	. . . . 5 ⊢ (𝑆 ⊆ 𝐵 ↔ (𝐵 ∩ 𝑆) = 𝑆)
3	2	biimpi 208	. . . 4 ⊢ (𝑆 ⊆ 𝐵 → (𝐵 ∩ 𝑆) = 𝑆)
4	1, 3	syl5reqr 2829	. . 3 ⊢ (𝑆 ⊆ 𝐵 → 𝑆 = {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆})
5	4	fveq2d 6452	. 2 ⊢ (𝑆 ⊆ 𝐵 → (𝐺‘𝑆) = (𝐺‘{𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}))
6		glbcon.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
7		eqid 2778	. . . 4 ⊢ (le‘𝐾) = (le‘𝐾)
8		glbcon.g	. . . 4 ⊢ 𝐺 = (glb‘𝐾)
9		biid 253	. . . 4 ⊢ ((∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦)) ↔ (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦)))
10		id 22	. . . 4 ⊢ (𝐾 ∈ HL → 𝐾 ∈ HL)
11		ssrab2 3908	. . . . 5 ⊢ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ⊆ 𝐵
12	11	a1i 11	. . . 4 ⊢ (𝐾 ∈ HL → {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ⊆ 𝐵)
13	6, 7, 8, 9, 10, 12	glbval 17394	. . 3 ⊢ (𝐾 ∈ HL → (𝐺‘{𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}) = (℩𝑦 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦))))
14		hlop 35525	. . . 4 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
15		hlclat 35521	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
16	6, 8	clatglbcl 17511	. . . . . . 7 ⊢ ((𝐾 ∈ CLat ∧ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ⊆ 𝐵) → (𝐺‘{𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}) ∈ 𝐵)
17	15, 11, 16	sylancl 580	. . . . . 6 ⊢ (𝐾 ∈ HL → (𝐺‘{𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}) ∈ 𝐵)
18	13, 17	eqeltrrd 2860	. . . . 5 ⊢ (𝐾 ∈ HL → (℩𝑦 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦))) ∈ 𝐵)
19	6	fvexi 6462	. . . . . 6 ⊢ 𝐵 ∈ V
20	19	riotaclbBAD 35118	. . . . 5 ⊢ (∃!𝑦 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦)) ↔ (℩𝑦 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦))) ∈ 𝐵)
21	18, 20	sylibr 226	. . . 4 ⊢ (𝐾 ∈ HL → ∃!𝑦 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦)))
22		glbcon.o	. . . . 5 ⊢ ⊥ = (oc‘𝐾)
23		breq1 4891	. . . . . . 7 ⊢ (𝑦 = ( ⊥ ‘𝑣) → (𝑦(le‘𝐾)𝑧 ↔ ( ⊥ ‘𝑣)(le‘𝐾)𝑧))
24	23	ralbidv 3168	. . . . . 6 ⊢ (𝑦 = ( ⊥ ‘𝑣) → (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ↔ ∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧))
25		breq2 4892	. . . . . . . 8 ⊢ (𝑦 = ( ⊥ ‘𝑣) → (𝑤(le‘𝐾)𝑦 ↔ 𝑤(le‘𝐾)( ⊥ ‘𝑣)))
26	25	imbi2d 332	. . . . . . 7 ⊢ (𝑦 = ( ⊥ ‘𝑣) → ((∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦) ↔ (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣))))
27	26	ralbidv 3168	. . . . . 6 ⊢ (𝑦 = ( ⊥ ‘𝑣) → (∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦) ↔ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣))))
28	24, 27	anbi12d 624	. . . . 5 ⊢ (𝑦 = ( ⊥ ‘𝑣) → ((∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦)) ↔ (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣)))))
29	6, 22, 28	riotaocN 35372	. . . 4 ⊢ ((𝐾 ∈ OP ∧ ∃!𝑦 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦))) → (℩𝑦 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦))) = ( ⊥ ‘(℩𝑣 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣))))))
30	14, 21, 29	syl2anc 579	. . 3 ⊢ (𝐾 ∈ HL → (℩𝑦 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑦(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)𝑦))) = ( ⊥ ‘(℩𝑣 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣))))))
31	14	ad2antrr 716	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝐾 ∈ OP)
32	6, 22	opoccl 35357	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ OP ∧ 𝑢 ∈ 𝐵) → ( ⊥ ‘𝑢) ∈ 𝐵)
33	31, 32	sylancom 582	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → ( ⊥ ‘𝑢) ∈ 𝐵)
34	14	ad2antrr 716	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝐾 ∈ OP)
35	6, 22	opoccl 35357	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ OP ∧ 𝑧 ∈ 𝐵) → ( ⊥ ‘𝑧) ∈ 𝐵)
36	34, 35	sylancom 582	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → ( ⊥ ‘𝑧) ∈ 𝐵)
37	6, 22	opococ 35358	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ OP ∧ 𝑧 ∈ 𝐵) → ( ⊥ ‘( ⊥ ‘𝑧)) = 𝑧)
38	34, 37	sylancom 582	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → ( ⊥ ‘( ⊥ ‘𝑧)) = 𝑧)
39	38	eqcomd 2784	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝑧 = ( ⊥ ‘( ⊥ ‘𝑧)))
40		fveq2 6448	. . . . . . . . . . . 12 ⊢ (𝑢 = ( ⊥ ‘𝑧) → ( ⊥ ‘𝑢) = ( ⊥ ‘( ⊥ ‘𝑧)))
41	40	rspceeqv 3529	. . . . . . . . . . 11 ⊢ ((( ⊥ ‘𝑧) ∈ 𝐵 ∧ 𝑧 = ( ⊥ ‘( ⊥ ‘𝑧))) → ∃𝑢 ∈ 𝐵 𝑧 = ( ⊥ ‘𝑢))
42	36, 39, 41	syl2anc 579	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → ∃𝑢 ∈ 𝐵 𝑧 = ( ⊥ ‘𝑢))
43		eleq1 2847	. . . . . . . . . . . 12 ⊢ (𝑧 = ( ⊥ ‘𝑢) → (𝑧 ∈ 𝑆 ↔ ( ⊥ ‘𝑢) ∈ 𝑆))
44		breq2 4892	. . . . . . . . . . . 12 ⊢ (𝑧 = ( ⊥ ‘𝑢) → (( ⊥ ‘𝑣)(le‘𝐾)𝑧 ↔ ( ⊥ ‘𝑣)(le‘𝐾)( ⊥ ‘𝑢)))
45	43, 44	imbi12d 336	. . . . . . . . . . 11 ⊢ (𝑧 = ( ⊥ ‘𝑢) → ((𝑧 ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)𝑧) ↔ (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)( ⊥ ‘𝑢))))
46	45	adantl 475	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑧 = ( ⊥ ‘𝑢)) → ((𝑧 ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)𝑧) ↔ (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)( ⊥ ‘𝑢))))
47	33, 42, 46	ralxfrd 5122	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) → (∀𝑧 ∈ 𝐵 (𝑧 ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)𝑧) ↔ ∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)( ⊥ ‘𝑢))))
48		simpr 479	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
49		simplr 759	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝑣 ∈ 𝐵)
50	6, 7, 22	oplecon3b 35363	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ OP ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) → (𝑢(le‘𝐾)𝑣 ↔ ( ⊥ ‘𝑣)(le‘𝐾)( ⊥ ‘𝑢)))
51	31, 48, 49, 50	syl3anc 1439	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → (𝑢(le‘𝐾)𝑣 ↔ ( ⊥ ‘𝑣)(le‘𝐾)( ⊥ ‘𝑢)))
52	51	imbi2d 332	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → ((( ⊥ ‘𝑢) ∈ 𝑆 → 𝑢(le‘𝐾)𝑣) ↔ (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)( ⊥ ‘𝑢))))
53	52	ralbidva 3167	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) → (∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → 𝑢(le‘𝐾)𝑣) ↔ ∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)( ⊥ ‘𝑢))))
54	47, 53	bitr4d 274	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) → (∀𝑧 ∈ 𝐵 (𝑧 ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)𝑧) ↔ ∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → 𝑢(le‘𝐾)𝑣)))
55		eleq1 2847	. . . . . . . . 9 ⊢ (𝑥 = 𝑧 → (𝑥 ∈ 𝑆 ↔ 𝑧 ∈ 𝑆))
56	55	ralrab 3578	. . . . . . . 8 ⊢ (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ↔ ∀𝑧 ∈ 𝐵 (𝑧 ∈ 𝑆 → ( ⊥ ‘𝑣)(le‘𝐾)𝑧))
57		fveq2 6448	. . . . . . . . . 10 ⊢ (𝑥 = 𝑢 → ( ⊥ ‘𝑥) = ( ⊥ ‘𝑢))
58	57	eleq1d 2844	. . . . . . . . 9 ⊢ (𝑥 = 𝑢 → (( ⊥ ‘𝑥) ∈ 𝑆 ↔ ( ⊥ ‘𝑢) ∈ 𝑆))
59	58	ralrab 3578	. . . . . . . 8 ⊢ (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑣 ↔ ∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → 𝑢(le‘𝐾)𝑣))
60	54, 56, 59	3bitr4g 306	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) → (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ↔ ∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑣))
61	14	ad2antrr 716	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → 𝐾 ∈ OP)
62	6, 22	opoccl 35357	. . . . . . . . . 10 ⊢ ((𝐾 ∈ OP ∧ 𝑡 ∈ 𝐵) → ( ⊥ ‘𝑡) ∈ 𝐵)
63	61, 62	sylancom 582	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → ( ⊥ ‘𝑡) ∈ 𝐵)
64	14	ad2antrr 716	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵) → 𝐾 ∈ OP)
65	6, 22	opoccl 35357	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ OP ∧ 𝑤 ∈ 𝐵) → ( ⊥ ‘𝑤) ∈ 𝐵)
66	64, 65	sylancom 582	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵) → ( ⊥ ‘𝑤) ∈ 𝐵)
67	6, 22	opococ 35358	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ OP ∧ 𝑤 ∈ 𝐵) → ( ⊥ ‘( ⊥ ‘𝑤)) = 𝑤)
68	64, 67	sylancom 582	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵) → ( ⊥ ‘( ⊥ ‘𝑤)) = 𝑤)
69	68	eqcomd 2784	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵) → 𝑤 = ( ⊥ ‘( ⊥ ‘𝑤)))
70		fveq2 6448	. . . . . . . . . . 11 ⊢ (𝑡 = ( ⊥ ‘𝑤) → ( ⊥ ‘𝑡) = ( ⊥ ‘( ⊥ ‘𝑤)))
71	70	rspceeqv 3529	. . . . . . . . . 10 ⊢ ((( ⊥ ‘𝑤) ∈ 𝐵 ∧ 𝑤 = ( ⊥ ‘( ⊥ ‘𝑤))) → ∃𝑡 ∈ 𝐵 𝑤 = ( ⊥ ‘𝑡))
72	66, 69, 71	syl2anc 579	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵) → ∃𝑡 ∈ 𝐵 𝑤 = ( ⊥ ‘𝑡))
73		breq1 4891	. . . . . . . . . . . 12 ⊢ (𝑤 = ( ⊥ ‘𝑡) → (𝑤(le‘𝐾)𝑧 ↔ ( ⊥ ‘𝑡)(le‘𝐾)𝑧))
74	73	ralbidv 3168	. . . . . . . . . . 11 ⊢ (𝑤 = ( ⊥ ‘𝑡) → (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 ↔ ∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑡)(le‘𝐾)𝑧))
75		breq1 4891	. . . . . . . . . . 11 ⊢ (𝑤 = ( ⊥ ‘𝑡) → (𝑤(le‘𝐾)( ⊥ ‘𝑣) ↔ ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑣)))
76	74, 75	imbi12d 336	. . . . . . . . . 10 ⊢ (𝑤 = ( ⊥ ‘𝑡) → ((∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣)) ↔ (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑡)(le‘𝐾)𝑧 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑣))))
77	76	adantl 475	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 = ( ⊥ ‘𝑡)) → ((∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣)) ↔ (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑡)(le‘𝐾)𝑧 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑣))))
78	63, 72, 77	ralxfrd 5122	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) → (∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣)) ↔ ∀𝑡 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑡)(le‘𝐾)𝑧 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑣))))
79	14	ad3antrrr 720	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝐾 ∈ OP)
80		simpr 479	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
81		simplr 759	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝑡 ∈ 𝐵)
82	6, 7, 22	oplecon3b 35363	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ OP ∧ 𝑢 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) → (𝑢(le‘𝐾)𝑡 ↔ ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑢)))
83	79, 80, 81, 82	syl3anc 1439	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → (𝑢(le‘𝐾)𝑡 ↔ ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑢)))
84	83	imbi2d 332	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → ((( ⊥ ‘𝑢) ∈ 𝑆 → 𝑢(le‘𝐾)𝑡) ↔ (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑢))))
85	84	ralbidva 3167	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → (∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → 𝑢(le‘𝐾)𝑡) ↔ ∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑢))))
86	79, 32	sylancom 582	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → ( ⊥ ‘𝑢) ∈ 𝐵)
87	14	ad3antrrr 720	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝐾 ∈ OP)
88	87, 35	sylancom 582	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → ( ⊥ ‘𝑧) ∈ 𝐵)
89	87, 37	sylancom 582	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → ( ⊥ ‘( ⊥ ‘𝑧)) = 𝑧)
90	89	eqcomd 2784	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝑧 = ( ⊥ ‘( ⊥ ‘𝑧)))
91	88, 90, 41	syl2anc 579	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑧 ∈ 𝐵) → ∃𝑢 ∈ 𝐵 𝑧 = ( ⊥ ‘𝑢))
92		breq2 4892	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = ( ⊥ ‘𝑢) → (( ⊥ ‘𝑡)(le‘𝐾)𝑧 ↔ ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑢)))
93	43, 92	imbi12d 336	. . . . . . . . . . . . . 14 ⊢ (𝑧 = ( ⊥ ‘𝑢) → ((𝑧 ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)𝑧) ↔ (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑢))))
94	93	adantl 475	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) ∧ 𝑧 = ( ⊥ ‘𝑢)) → ((𝑧 ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)𝑧) ↔ (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑢))))
95	86, 91, 94	ralxfrd 5122	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → (∀𝑧 ∈ 𝐵 (𝑧 ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)𝑧) ↔ ∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑢))))
96	85, 95	bitr4d 274	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → (∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → 𝑢(le‘𝐾)𝑡) ↔ ∀𝑧 ∈ 𝐵 (𝑧 ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)𝑧)))
97	58	ralrab 3578	. . . . . . . . . . 11 ⊢ (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 ↔ ∀𝑢 ∈ 𝐵 (( ⊥ ‘𝑢) ∈ 𝑆 → 𝑢(le‘𝐾)𝑡))
98	55	ralrab 3578	. . . . . . . . . . 11 ⊢ (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑡)(le‘𝐾)𝑧 ↔ ∀𝑧 ∈ 𝐵 (𝑧 ∈ 𝑆 → ( ⊥ ‘𝑡)(le‘𝐾)𝑧))
99	96, 97, 98	3bitr4g 306	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 ↔ ∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑡)(le‘𝐾)𝑧))
100		simplr 759	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → 𝑣 ∈ 𝐵)
101		simpr 479	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → 𝑡 ∈ 𝐵)
102	6, 7, 22	oplecon3b 35363	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ OP ∧ 𝑣 ∈ 𝐵 ∧ 𝑡 ∈ 𝐵) → (𝑣(le‘𝐾)𝑡 ↔ ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑣)))
103	61, 100, 101, 102	syl3anc 1439	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → (𝑣(le‘𝐾)𝑡 ↔ ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑣)))
104	99, 103	imbi12d 336	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) ∧ 𝑡 ∈ 𝐵) → ((∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡) ↔ (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑡)(le‘𝐾)𝑧 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑣))))
105	104	ralbidva 3167	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) → (∀𝑡 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡) ↔ ∀𝑡 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑡)(le‘𝐾)𝑧 → ( ⊥ ‘𝑡)(le‘𝐾)( ⊥ ‘𝑣))))
106	78, 105	bitr4d 274	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) → (∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣)) ↔ ∀𝑡 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡)))
107	60, 106	anbi12d 624	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑣 ∈ 𝐵) → ((∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣))) ↔ (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑣 ∧ ∀𝑡 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡))))
108	107	riotabidva 6901	. . . . 5 ⊢ (𝐾 ∈ HL → (℩𝑣 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣)))) = (℩𝑣 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑣 ∧ ∀𝑡 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡))))
109		ssrab2 3908	. . . . . 6 ⊢ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆} ⊆ 𝐵
110		glbcon.u	. . . . . . 7 ⊢ 𝑈 = (lub‘𝐾)
111		biid 253	. . . . . . 7 ⊢ ((∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑣 ∧ ∀𝑡 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡)) ↔ (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑣 ∧ ∀𝑡 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡)))
112		simpl 476	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆} ⊆ 𝐵) → 𝐾 ∈ HL)
113		simpr 479	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆} ⊆ 𝐵) → {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆} ⊆ 𝐵)
114	6, 7, 110, 111, 112, 113	lubval 17381	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆} ⊆ 𝐵) → (𝑈‘{𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}) = (℩𝑣 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑣 ∧ ∀𝑡 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡))))
115	109, 114	mpan2 681	. . . . 5 ⊢ (𝐾 ∈ HL → (𝑈‘{𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}) = (℩𝑣 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑣 ∧ ∀𝑡 ∈ 𝐵 (∀𝑢 ∈ {𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}𝑢(le‘𝐾)𝑡 → 𝑣(le‘𝐾)𝑡))))
116	108, 115	eqtr4d 2817	. . . 4 ⊢ (𝐾 ∈ HL → (℩𝑣 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣)))) = (𝑈‘{𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆}))
117	116	fveq2d 6452	. . 3 ⊢ (𝐾 ∈ HL → ( ⊥ ‘(℩𝑣 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆} ( ⊥ ‘𝑣)(le‘𝐾)𝑧 ∧ ∀𝑤 ∈ 𝐵 (∀𝑧 ∈ {𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}𝑤(le‘𝐾)𝑧 → 𝑤(le‘𝐾)( ⊥ ‘𝑣))))) = ( ⊥ ‘(𝑈‘{𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆})))
118	13, 30, 117	3eqtrd 2818	. 2 ⊢ (𝐾 ∈ HL → (𝐺‘{𝑥 ∈ 𝐵 ∣ 𝑥 ∈ 𝑆}) = ( ⊥ ‘(𝑈‘{𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆})))
119	5, 118	sylan9eqr 2836	1 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐵) → (𝐺‘𝑆) = ( ⊥ ‘(𝑈‘{𝑥 ∈ 𝐵 ∣ ( ⊥ ‘𝑥) ∈ 𝑆})))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 386   = wceq 1601   ∈ wcel 2107  ∀wral 3090  ∃wrex 3091  ∃!wreu 3092  {crab 3094   ∩ cin 3791   ⊆ wss 3792   class class class wbr 4888  ‘cfv 6137  ℩crio 6884  Basecbs 16266  lecple 16356  occoc 16357  lubclub 17339  glbcglb 17340  CLatccla 17504  OPcops 35335  HLchlt 35513

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2055  ax-8 2109  ax-9 2116  ax-10 2135  ax-11 2150  ax-12 2163  ax-13 2334  ax-ext 2754  ax-rep 5008  ax-sep 5019  ax-nul 5027  ax-pow 5079  ax-pr 5140  ax-un 7228  ax-riotaBAD 35116

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2551  df-eu 2587  df-clab 2764  df-cleq 2770  df-clel 2774  df-nfc 2921  df-ne 2970  df-nel 3076  df-ral 3095  df-rex 3096  df-reu 3097  df-rmo 3098  df-rab 3099  df-v 3400  df-sbc 3653  df-csb 3752  df-dif 3795  df-un 3797  df-in 3799  df-ss 3806  df-nul 4142  df-if 4308  df-pw 4381  df-sn 4399  df-pr 4401  df-op 4405  df-uni 4674  df-iun 4757  df-br 4889  df-opab 4951  df-mpt 4968  df-id 5263  df-xp 5363  df-rel 5364  df-cnv 5365  df-co 5366  df-dm 5367  df-rn 5368  df-res 5369  df-ima 5370  df-iota 6101  df-fun 6139  df-fn 6140  df-f 6141  df-f1 6142  df-fo 6143  df-f1o 6144  df-fv 6145  df-riota 6885  df-ov 6927  df-undef 7683  df-lub 17371  df-glb 17372  df-clat 17505  df-oposet 35339  df-ol 35341  df-oml 35342  df-hlat 35514

This theorem is referenced by:  glbconxN  35541