Theorem dihglblem3N 41796

Description: Isomorphism H of a lattice glb. (Contributed by NM, 20-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	⊢ 𝑇 = {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)}
dihglblem.i	⊢ 𝐽 = ((DIsoB‘𝐾)‘𝑊)
dihglblem.ih	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)

Assertion

Ref	Expression
dihglblem3N	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐼‘(𝐺‘𝑇)) = ∩ 𝑥 ∈ 𝑇 (𝐼‘𝑥))

Distinct variable groups:   𝑥,𝑢,𝑣, ∧   𝑥, ≤   𝑥,𝐵,𝑢   𝑥,𝐺   𝑥,𝐻   𝑥,𝐾   𝑥,𝑆,𝑢,𝑣   𝑥,𝑇   𝑥,𝑊,𝑢,𝑣   𝑢, ≤ ,𝑣   𝑣,𝐵   𝑢,𝐺,𝑣   𝑢,𝐻,𝑣   𝑢,𝐾,𝑣

Allowed substitution hints:   𝑇(𝑣,𝑢)   𝐼(𝑥,𝑣,𝑢)   𝐽(𝑥,𝑣,𝑢)

Proof of Theorem dihglblem3N

Step	Hyp	Ref	Expression
1		simp1 1142	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		dihglblem.t	. . . . . 6 ⊢ 𝑇 = {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)}
3		simp11l 1291	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝐾 ∈ HL)
4	3	hllatd 39865	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝐾 ∈ Lat)
5		simp12l 1293	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑆 ⊆ 𝐵)
6		simp3 1144	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑣 ∈ 𝑆)
7	5, 6	sseldd 3916	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑣 ∈ 𝐵)
8		simp11r 1292	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑊 ∈ 𝐻)
9		dihglblem.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝐾)
10		dihglblem.h	. . . . . . . . . . . . 13 ⊢ 𝐻 = (LHyp‘𝐾)
11	9, 10	lhpbase 40499	. . . . . . . . . . . 12 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
12	8, 11	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → 𝑊 ∈ 𝐵)
13		dihglblem.l	. . . . . . . . . . . 12 ⊢ ≤ = (le‘𝐾)
14		dihglblem.m	. . . . . . . . . . . 12 ⊢ ∧ = (meet‘𝐾)
15	9, 13, 14	latmle2 18423	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ Lat ∧ 𝑣 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑣 ∧ 𝑊) ≤ 𝑊)
16	4, 7, 12, 15	syl3anc 1379	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝑆) → (𝑣 ∧ 𝑊) ≤ 𝑊)
17	16	3expia 1127	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵) → (𝑣 ∈ 𝑆 → (𝑣 ∧ 𝑊) ≤ 𝑊))
18		breq1 5076	. . . . . . . . . 10 ⊢ (𝑢 = (𝑣 ∧ 𝑊) → (𝑢 ≤ 𝑊 ↔ (𝑣 ∧ 𝑊) ≤ 𝑊))
19	18	biimprcd 251	. . . . . . . . 9 ⊢ ((𝑣 ∧ 𝑊) ≤ 𝑊 → (𝑢 = (𝑣 ∧ 𝑊) → 𝑢 ≤ 𝑊))
20	17, 19	syl6 35	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵) → (𝑣 ∈ 𝑆 → (𝑢 = (𝑣 ∧ 𝑊) → 𝑢 ≤ 𝑊)))
21	20	rexlimdv 3138	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑢 ∈ 𝐵) → (∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊) → 𝑢 ≤ 𝑊))
22	21	ss2rabdv 4007	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣 ∧ 𝑊)} ⊆ {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊})
23	2, 22	eqsstrid 3953	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑇 ⊆ {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊})
24		dihglblem.i	. . . . . . 7 ⊢ 𝐽 = ((DIsoB‘𝐾)‘𝑊)
25	9, 13, 10, 24	dibdmN 41658	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → dom 𝐽 = {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊})
26	25	3ad2ant1 1139	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → dom 𝐽 = {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊})
27	23, 26	sseqtrrd 3952	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑇 ⊆ dom 𝐽)
28		dihglblem.g	. . . . . 6 ⊢ 𝐺 = (glb‘𝐾)
29	9, 13, 14, 28, 10, 2	dihglblem2aN 41794	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → 𝑇 ≠ ∅)
30	29	3adant3 1138	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑇 ≠ ∅)
31	28, 10, 24	dibglbN 41667	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑇 ⊆ dom 𝐽 ∧ 𝑇 ≠ ∅)) → (𝐽‘(𝐺‘𝑇)) = ∩ 𝑥 ∈ 𝑇 (𝐽‘𝑥))
32	1, 27, 30, 31	syl12anc 842	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐽‘(𝐺‘𝑇)) = ∩ 𝑥 ∈ 𝑇 (𝐽‘𝑥))
33	9, 13, 14, 28, 10, 2	dihglblem2N 41795	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) = (𝐺‘𝑇))
34	33	3adant2r 1186	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) = (𝐺‘𝑇))
35	34	fveq2d 6832	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐽‘(𝐺‘𝑆)) = (𝐽‘(𝐺‘𝑇)))
36		simpl1 1198	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
37	23	sselda 3915	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑇) → 𝑥 ∈ {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊})
38		breq1 5076	. . . . . . 7 ⊢ (𝑢 = 𝑥 → (𝑢 ≤ 𝑊 ↔ 𝑥 ≤ 𝑊))
39	38	elrab 3629	. . . . . 6 ⊢ (𝑥 ∈ {𝑢 ∈ 𝐵 ∣ 𝑢 ≤ 𝑊} ↔ (𝑥 ∈ 𝐵 ∧ 𝑥 ≤ 𝑊))
40	37, 39	sylib 219	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑇) → (𝑥 ∈ 𝐵 ∧ 𝑥 ≤ 𝑊))
41		dihglblem.ih	. . . . . 6 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
42	9, 13, 10, 41, 24	dihvalb 41738	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑥 ∈ 𝐵 ∧ 𝑥 ≤ 𝑊)) → (𝐼‘𝑥) = (𝐽‘𝑥))
43	36, 40, 42	syl2anc 590	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) ∧ 𝑥 ∈ 𝑇) → (𝐼‘𝑥) = (𝐽‘𝑥))
44	43	iineq2dv 4948	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → ∩ 𝑥 ∈ 𝑇 (𝐼‘𝑥) = ∩ 𝑥 ∈ 𝑇 (𝐽‘𝑥))
45	32, 35, 44	3eqtr4rd 2785	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → ∩ 𝑥 ∈ 𝑇 (𝐼‘𝑥) = (𝐽‘(𝐺‘𝑆)))
46		simp1l 1204	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝐾 ∈ HL)
47		hlclat 39859	. . . . 5 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
48	46, 47	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝐾 ∈ CLat)
49		simp2l 1206	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → 𝑆 ⊆ 𝐵)
50	9, 28	clatglbcl 18463	. . . 4 ⊢ ((𝐾 ∈ CLat ∧ 𝑆 ⊆ 𝐵) → (𝐺‘𝑆) ∈ 𝐵)
51	48, 49, 50	syl2anc 590	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) ∈ 𝐵)
52		simp3 1144	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐺‘𝑆) ≤ 𝑊)
53	9, 13, 10, 41, 24	dihvalb 41738	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐺‘𝑆) ∈ 𝐵 ∧ (𝐺‘𝑆) ≤ 𝑊)) → (𝐼‘(𝐺‘𝑆)) = (𝐽‘(𝐺‘𝑆)))
54	1, 51, 52, 53	syl12anc 842	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐼‘(𝐺‘𝑆)) = (𝐽‘(𝐺‘𝑆)))
55	34	fveq2d 6832	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐼‘(𝐺‘𝑆)) = (𝐼‘(𝐺‘𝑇)))
56	45, 54, 55	3eqtr2rd 2781	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅) ∧ (𝐺‘𝑆) ≤ 𝑊) → (𝐼‘(𝐺‘𝑇)) = ∩ 𝑥 ∈ 𝑇 (𝐼‘𝑥))

Syntax hints:   → wi 4   ∧ wa 396   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119   ≠ wne 2934  ∃wrex 3063  {crab 3391   ⊆ wss 3883  ∅c0 4262  ∩ ciin 4923   class class class wbr 5073  dom cdm 5619  ‘cfv 6486  (class class class)co 7357  Basecbs 17171  lecple 17219  glbcglb 18268  meetcmee 18270  Latclat 18389  CLatccla 18456  HLchlt 39851  LHypclh 40485  DIsoBcdib 41639  DIsoHcdih 41729

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5200  ax-sep 5219  ax-nul 5229  ax-pow 5295  ax-pr 5363  ax-un 7679

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4263  df-if 4456  df-pw 4532  df-sn 4557  df-pr 4559  df-op 4563  df-uni 4840  df-iun 4924  df-iin 4925  df-br 5074  df-opab 5136  df-mpt 5155  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 7314  df-ov 7360  df-oprab 7361  df-mpo 7362  df-map 8766  df-proset 18252  df-poset 18271  df-plt 18286  df-lub 18302  df-glb 18303  df-join 18304  df-meet 18305  df-p0 18381  df-p1 18382  df-lat 18390  df-clat 18457  df-oposet 39677  df-ol 39679  df-oml 39680  df-covers 39767  df-ats 39768  df-atl 39799  df-cvlat 39823  df-hlat 39852  df-lhyp 40489  df-laut 40490  df-ldil 40605  df-ltrn 40606  df-trl 40660  df-disoa 41530  df-dib 41640  df-dih 41730

This theorem is referenced by:  dihglblem3aN  41797