Theorem dihglblem2N 38432

Description: The GLB of a set of lattice elements 𝑆 is the same as that of the set 𝑇 with elements of 𝑆 cut down to be under 𝑊. (Contributed by NM, 19-Mar-2014.) (New usage is discouraged.)

Hypotheses

Ref	Expression
dihglblem.b	⊢ 𝐵 = (Base‘𝐾)
dihglblem.l	⊢ ≤ = (le‘𝐾)
dihglblem.m	⊢ ∧ = (meet‘𝐾)
dihglblem.g	⊢ 𝐺 = (glb‘𝐾)
dihglblem.h	⊢ 𝐻 = (LHyp‘𝐾)
dihglblem.t	⊢ 𝑇 = {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)}

Assertion

Ref	Expression
dihglblem2N	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) = (𝐺‘𝑇))

Distinct variable groups:   𝑣,𝑢, ∧   𝑢,𝐵   𝑢,𝑆,𝑣   𝑢,𝑊,𝑣

Allowed substitution hints:   𝐵(𝑣)   𝑇(𝑣,𝑢)   𝐺(𝑣,𝑢)   𝐻(𝑣,𝑢)   𝐾(𝑣,𝑢)   ≤ (𝑣,𝑢)

Proof of Theorem dihglblem2N

Dummy variables 𝑥 𝑦 𝑤 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dihglblem.b	. 2 ⊢ 𝐵 = (Base‘𝐾)
2		dihglblem.l	. 2 ⊢ ≤ = (le‘𝐾)
3		dihglblem.g	. 2 ⊢ 𝐺 = (glb‘𝐾)
4		simpl1l 1220	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → 𝐾 ∈ HL)
5	4	hllatd 36502	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → 𝐾 ∈ Lat)
6		simp1l 1193	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝐾 ∈ HL)
7		hlclat 36496	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
8	6, 7	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝐾 ∈ CLat)
9		dihglblem.t	. . . . . 6 ⊢ 𝑇 = {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)}
10		ssrab2 4058	. . . . . 6 ⊢ {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)} ⊆ 𝐵
11	9, 10	eqsstri 4003	. . . . 5 ⊢ 𝑇 ⊆ 𝐵
12	1, 3	clatglbcl 17726	. . . . 5 ⊢ ((𝐾 ∈ CLat ∧ 𝑇 ⊆ 𝐵) → (𝐺‘𝑇) ∈ 𝐵)
13	8, 11, 12	sylancl 588	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑇) ∈ 𝐵)
14	13	adantr 483	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → (𝐺‘𝑇) ∈ 𝐵)
15		simpl2 1188	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → 𝑆 ⊆ 𝐵)
16		simpr 487	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ 𝑆)
17	15, 16	sseldd 3970	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ 𝐵)
18		simpl1r 1221	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → 𝑊 ∈ 𝐻)
19		dihglblem.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
20	1, 19	lhpbase 37136	. . . . 5 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
21	18, 20	syl 17	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → 𝑊 ∈ 𝐵)
22		dihglblem.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
23	1, 22	latmcl 17664	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ 𝑥 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑥 ∧ 𝑊) ∈ 𝐵)
24	5, 17, 21, 23	syl3anc 1367	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → (𝑥 ∧ 𝑊) ∈ 𝐵)
25	4, 7	syl 17	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → 𝐾 ∈ CLat)
26		eqidd 2824	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → (𝑥 ∧ 𝑊) = (𝑥 ∧ 𝑊))
27		oveq1 7165	. . . . . . . 8 ⊢ (𝑣 = 𝑥 → (𝑣 ∧ 𝑊) = (𝑥 ∧ 𝑊))
28	27	rspceeqv 3640	. . . . . . 7 ⊢ ((𝑥 ∈ 𝑆 ∧ (𝑥 ∧ 𝑊) = (𝑥 ∧ 𝑊)) → ∃𝑣 ∈ 𝑆 (𝑥 ∧ 𝑊) = (𝑣 ∧ 𝑊))
29	16, 26, 28	syl2anc 586	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → ∃𝑣 ∈ 𝑆 (𝑥 ∧ 𝑊) = (𝑣 ∧ 𝑊))
30		eqeq1 2827	. . . . . . . 8 ⊢ (𝑢 = (𝑥 ∧ 𝑊) → (𝑢 = (𝑣 ∧ 𝑊) ↔ (𝑥 ∧ 𝑊) = (𝑣 ∧ 𝑊)))
31	30	rexbidv 3299	. . . . . . 7 ⊢ (𝑢 = (𝑥 ∧ 𝑊) → (∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊) ↔ ∃𝑣 ∈ 𝑆 (𝑥 ∧ 𝑊) = (𝑣 ∧ 𝑊)))
32	31	elrab 3682	. . . . . 6 ⊢ ((𝑥 ∧ 𝑊) ∈ {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)} ↔ ((𝑥 ∧ 𝑊) ∈ 𝐵 ∧ ∃𝑣 ∈ 𝑆 (𝑥 ∧ 𝑊) = (𝑣 ∧ 𝑊)))
33	24, 29, 32	sylanbrc 585	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → (𝑥 ∧ 𝑊) ∈ {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)})
34	33, 9	eleqtrrdi 2926	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → (𝑥 ∧ 𝑊) ∈ 𝑇)
35	1, 2, 3	clatglble 17737	. . . . 5 ⊢ ((𝐾 ∈ CLat ∧ 𝑇 ⊆ 𝐵 ∧ (𝑥 ∧ 𝑊) ∈ 𝑇) → (𝐺‘𝑇) ≤ (𝑥 ∧ 𝑊))
36	11, 35	mp3an2 1445	. . . 4 ⊢ ((𝐾 ∈ CLat ∧ (𝑥 ∧ 𝑊) ∈ 𝑇) → (𝐺‘𝑇) ≤ (𝑥 ∧ 𝑊))
37	25, 34, 36	syl2anc 586	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → (𝐺‘𝑇) ≤ (𝑥 ∧ 𝑊))
38	1, 2, 22	latmle1 17688	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ 𝑥 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑥 ∧ 𝑊) ≤ 𝑥)
39	5, 17, 21, 38	syl3anc 1367	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → (𝑥 ∧ 𝑊) ≤ 𝑥)
40	1, 2, 5, 14, 24, 17, 37, 39	lattrd 17670	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑆) → (𝐺‘𝑇) ≤ 𝑥)
41		eqeq1 2827	. . . . . . . 8 ⊢ (𝑢 = 𝑤 → (𝑢 = (𝑣 ∧ 𝑊) ↔ 𝑤 = (𝑣 ∧ 𝑊)))
42	41	rexbidv 3299	. . . . . . 7 ⊢ (𝑢 = 𝑤 → (∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊) ↔ ∃𝑣 ∈ 𝑆 𝑤 = (𝑣 ∧ 𝑊)))
43		oveq1 7165	. . . . . . . . 9 ⊢ (𝑣 = 𝑦 → (𝑣 ∧ 𝑊) = (𝑦 ∧ 𝑊))
44	43	eqeq2d 2834	. . . . . . . 8 ⊢ (𝑣 = 𝑦 → (𝑤 = (𝑣 ∧ 𝑊) ↔ 𝑤 = (𝑦 ∧ 𝑊)))
45	44	cbvrexvw 3452	. . . . . . 7 ⊢ (∃𝑣 ∈ 𝑆 𝑤 = (𝑣 ∧ 𝑊) ↔ ∃𝑦 ∈ 𝑆 𝑤 = (𝑦 ∧ 𝑊))
46	42, 45	syl6bb 289	. . . . . 6 ⊢ (𝑢 = 𝑤 → (∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊) ↔ ∃𝑦 ∈ 𝑆 𝑤 = (𝑦 ∧ 𝑊)))
47	46, 9	elrab2 3685	. . . . 5 ⊢ (𝑤 ∈ 𝑇 ↔ (𝑤 ∈ 𝐵 ∧ ∃𝑦 ∈ 𝑆 𝑤 = (𝑦 ∧ 𝑊)))
48		simp3 1134	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑦 ∈ 𝑆)
49		simp13 1201	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥)
50		breq2 5072	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → (𝑧 ≤ 𝑥 ↔ 𝑧 ≤ 𝑦))
51	50	rspcva 3623	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → 𝑧 ≤ 𝑦)
52	48, 49, 51	syl2anc 586	. . . . . . . . . 10 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑧 ≤ 𝑦)
53		simp11l 1280	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → 𝐾 ∈ HL)
54	53	3ad2ant1 1129	. . . . . . . . . . . 12 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝐾 ∈ HL)
55	54	hllatd 36502	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝐾 ∈ Lat)
56		simp12 1200	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑧 ∈ 𝐵)
57	54, 7	syl 17	. . . . . . . . . . . 12 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝐾 ∈ CLat)
58		simp112 1299	. . . . . . . . . . . 12 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑆 ⊆ 𝐵)
59	1, 3	clatglbcl 17726	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ CLat ∧ 𝑆 ⊆ 𝐵) → (𝐺‘𝑆) ∈ 𝐵)
60	57, 58, 59	syl2anc 586	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → (𝐺‘𝑆) ∈ 𝐵)
61		simp11r 1281	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → 𝑊 ∈ 𝐻)
62	61	3ad2ant1 1129	. . . . . . . . . . . 12 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑊 ∈ 𝐻)
63	62, 20	syl 17	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑊 ∈ 𝐵)
64	1, 2, 3	clatleglb 17738	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ CLat ∧ 𝑧 ∈ 𝐵 ∧ 𝑆 ⊆ 𝐵) → (𝑧 ≤ (𝐺‘𝑆) ↔ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥))
65	57, 56, 58, 64	syl3anc 1367	. . . . . . . . . . . 12 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → (𝑧 ≤ (𝐺‘𝑆) ↔ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥))
66	49, 65	mpbird 259	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑧 ≤ (𝐺‘𝑆))
67		simp113 1300	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → (𝐺‘𝑆) ≤ 𝑊)
68	1, 2, 55, 56, 60, 63, 66, 67	lattrd 17670	. . . . . . . . . 10 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑧 ≤ 𝑊)
69	58, 48	sseldd 3970	. . . . . . . . . . 11 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑦 ∈ 𝐵)
70	1, 2, 22	latlem12 17690	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ Lat ∧ (𝑧 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵)) → ((𝑧 ≤ 𝑦 ∧ 𝑧 ≤ 𝑊) ↔ 𝑧 ≤ (𝑦 ∧ 𝑊)))
71	55, 56, 69, 63, 70	syl13anc 1368	. . . . . . . . . 10 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → ((𝑧 ≤ 𝑦 ∧ 𝑧 ≤ 𝑊) ↔ 𝑧 ≤ (𝑦 ∧ 𝑊)))
72	52, 68, 71	mpbi2and 710	. . . . . . . . 9 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵 ∧ 𝑦 ∈ 𝑆) → 𝑧 ≤ (𝑦 ∧ 𝑊))
73	72	3expia 1117	. . . . . . . 8 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵) → (𝑦 ∈ 𝑆 → 𝑧 ≤ (𝑦 ∧ 𝑊)))
74		breq2 5072	. . . . . . . . 9 ⊢ (𝑤 = (𝑦 ∧ 𝑊) → (𝑧 ≤ 𝑤 ↔ 𝑧 ≤ (𝑦 ∧ 𝑊)))
75	74	biimprcd 252	. . . . . . . 8 ⊢ (𝑧 ≤ (𝑦 ∧ 𝑊) → (𝑤 = (𝑦 ∧ 𝑊) → 𝑧 ≤ 𝑤))
76	73, 75	syl6 35	. . . . . . 7 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵) → (𝑦 ∈ 𝑆 → (𝑤 = (𝑦 ∧ 𝑊) → 𝑧 ≤ 𝑤)))
77	76	rexlimdv 3285	. . . . . 6 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) ∧ 𝑤 ∈ 𝐵) → (∃𝑦 ∈ 𝑆 𝑤 = (𝑦 ∧ 𝑊) → 𝑧 ≤ 𝑤))
78	77	expimpd 456	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → ((𝑤 ∈ 𝐵 ∧ ∃𝑦 ∈ 𝑆 𝑤 = (𝑦 ∧ 𝑊)) → 𝑧 ≤ 𝑤))
79	47, 78	syl5bi 244	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → (𝑤 ∈ 𝑇 → 𝑧 ≤ 𝑤))
80	79	ralrimiv 3183	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → ∀𝑤 ∈ 𝑇 𝑧 ≤ 𝑤)
81	53, 7	syl 17	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → 𝐾 ∈ CLat)
82		simp2 1133	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → 𝑧 ∈ 𝐵)
83	1, 2, 3	clatleglb 17738	. . . . 5 ⊢ ((𝐾 ∈ CLat ∧ 𝑧 ∈ 𝐵 ∧ 𝑇 ⊆ 𝐵) → (𝑧 ≤ (𝐺‘𝑇) ↔ ∀𝑤 ∈ 𝑇 𝑧 ≤ 𝑤))
84	11, 83	mp3an3 1446	. . . 4 ⊢ ((𝐾 ∈ CLat ∧ 𝑧 ∈ 𝐵) → (𝑧 ≤ (𝐺‘𝑇) ↔ ∀𝑤 ∈ 𝑇 𝑧 ≤ 𝑤))
85	81, 82, 84	syl2anc 586	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → (𝑧 ≤ (𝐺‘𝑇) ↔ ∀𝑤 ∈ 𝑇 𝑧 ≤ 𝑤))
86	80, 85	mpbird 259	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑧 ∈ 𝐵 ∧ ∀𝑥 ∈ 𝑆 𝑧 ≤ 𝑥) → 𝑧 ≤ (𝐺‘𝑇))
87		simp2 1133	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑆 ⊆ 𝐵)
88	1, 2, 3, 40, 86, 8, 87, 13	isglbd 17729	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) = (𝐺‘𝑇))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114  ∀wral 3140  ∃wrex 3141  {crab 3144   ⊆ wss 3938   class class class wbr 5068  ‘cfv 6357  (class class class)co 7158  Basecbs 16485  lecple 16574  glbcglb 17555  meetcmee 17557  Latclat 17657  CLatccla 17719  HLchlt 36488  LHypclh 37122

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 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-ral 3145  df-rex 3146  df-reu 3147  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-id 5462  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-poset 17558  df-lub 17586  df-glb 17587  df-join 17588  df-meet 17589  df-lat 17658  df-clat 17720  df-atl 36436  df-cvlat 36460  df-hlat 36489  df-lhyp 37126

This theorem is referenced by:  dihglblem3N  38433  dihglblem3aN  38434