dihglblem6 - Mathbox for Norm Megill

	Mathbox for Norm Megill		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > dihglblem6		Structured version Visualization version GIF version

Theorem dihglblem6 40297

Description: Isomorphism H of a lattice glb. (Contributed by NM, 9-Apr-2014.)

**Hypotheses**
Ref	Expression
dihglblem6.b	⊢ 𝐵 = (Base‘𝐾)
dihglblem6.l	⊢ ≤ = (le‘𝐾)
dihglblem6.m	⊢ ∧ = (meet‘𝐾)
dihglblem6.a	⊢ 𝐴 = (Atoms‘𝐾)
dihglblem6.g	⊢ 𝐺 = (glb‘𝐾)
dihglblem6.h	⊢ 𝐻 = (LHyp‘𝐾)
dihglblem6.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihglblem6.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihglblem6.s	⊢ 𝑃 = (LSubSp‘𝑈)
dihglblem6.d	⊢ 𝐷 = (LSAtoms‘𝑈)

**Assertion**
Ref	Expression
dihglblem6	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → (𝐼‘(𝐺‘𝑆)) = ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥))

Distinct variable groups: 𝑥, ∧ 𝑥, ≤ 𝑥,𝐵 𝑥,𝐷 𝑥,𝐺 𝑥,𝐻 𝑥,𝐼 𝑥,𝐾 𝑥,𝑃 𝑥,𝑆 𝑥,𝑊 Allowed substitution hints: 𝐴(𝑥) 𝑈(𝑥)

Proof of Theorem dihglblem6 Dummy variables 𝑣 𝑢 𝑝 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dihglblem6.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
2		dihglblem6.l	. . . 4 ⊢ ≤ = (le‘𝐾)
3		eqid 2732	. . . 4 ⊢ (meet‘𝐾) = (meet‘𝐾)
4		dihglblem6.g	. . . 4 ⊢ 𝐺 = (glb‘𝐾)
5		dihglblem6.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
6		eqid 2732	. . . 4 ⊢ {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣(meet‘𝐾)𝑊)} = {𝑢 ∈ 𝐵 ∣ ∃𝑣 ∈ 𝑆 𝑢 = (𝑣(meet‘𝐾)𝑊)}
7		eqid 2732	. . . 4 ⊢ ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
8		dihglblem6.i	. . . 4 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
9	1, 2, 3, 4, 5, 6, 7, 8	dihglblem4 40254	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → (𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥))
10		fal 1555	. . . . 5 ⊢ ¬ ⊥
11		dihglblem6.s	. . . . . . . 8 ⊢ 𝑃 = (LSubSp‘𝑈)
12		dihglblem6.d	. . . . . . . 8 ⊢ 𝐷 = (LSAtoms‘𝑈)
13		dihglblem6.u	. . . . . . . . 9 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
14		simpll 765	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
15	5, 13, 14	dvhlmod 40067	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → 𝑈 ∈ LMod)
16		simplll 773	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → 𝐾 ∈ HL)
17		hlclat 38314	. . . . . . . . . . 11 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
18	16, 17	syl 17	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → 𝐾 ∈ CLat)
19		simplrl 775	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → 𝑆 ⊆ 𝐵)
20	1, 4	clatglbcl 18460	. . . . . . . . . 10 ⊢ ((𝐾 ∈ CLat ∧ 𝑆 ⊆ 𝐵) → (𝐺‘𝑆) ∈ 𝐵)
21	18, 19, 20	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → (𝐺‘𝑆) ∈ 𝐵)
22	1, 5, 8, 13, 11	dihlss 40207	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺‘𝑆) ∈ 𝐵) → (𝐼‘(𝐺‘𝑆)) ∈ 𝑃)
23	14, 21, 22	syl2anc 584	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → (𝐼‘(𝐺‘𝑆)) ∈ 𝑃)
24	1, 4, 5, 13, 8, 11	dihglblem5 40255	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∈ 𝑃)
25	24	adantr 481	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∈ 𝑃)
26		simpr 485	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥))
27	11, 12, 15, 23, 25, 26	lpssat 37969	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥)) → ∃𝑝 ∈ 𝐷 (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆))))
28	27	ex 413	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → ((𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) → ∃𝑝 ∈ 𝐷 (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))))
29		simp1l 1197	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
30	5, 13, 8, 12	dih1dimat 40287	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ 𝐷) → 𝑝 ∈ ran 𝐼)
31	30	adantlr 713	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) → 𝑝 ∈ ran 𝐼)
32	31	3adant3 1132	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → 𝑝 ∈ ran 𝐼)
33	5, 8	dihcnvid2 40230	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑝 ∈ ran 𝐼) → (𝐼‘(^◡𝐼‘𝑝)) = 𝑝)
34	29, 32, 33	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → (𝐼‘(^◡𝐼‘𝑝)) = 𝑝)
35		simp3l 1201	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → 𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥))
36		ssiin 5058	. . . . . . . . . . . . 13 ⊢ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ↔ ∀𝑥 ∈ 𝑆 𝑝 ⊆ (𝐼‘𝑥))
37	35, 36	sylib 217	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → ∀𝑥 ∈ 𝑆 𝑝 ⊆ (𝐼‘𝑥))
38		simplll 773	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) ∧ 𝑥 ∈ 𝑆) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
39		simpll 765	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
40	1, 5, 8, 13, 11	dihf11 40224	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐼:𝐵–1-1→𝑃)
41		f1f1orn 6844	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐼:𝐵–1-1→𝑃 → 𝐼:𝐵–1-1-onto→ran 𝐼)
42	39, 40, 41	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) → 𝐼:𝐵–1-1-onto→ran 𝐼)
43		f1ocnvdm 7285	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼:𝐵–1-1-onto→ran 𝐼 ∧ 𝑝 ∈ ran 𝐼) → (^◡𝐼‘𝑝) ∈ 𝐵)
44	42, 31, 43	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) → (^◡𝐼‘𝑝) ∈ 𝐵)
45	44	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) ∧ 𝑥 ∈ 𝑆) → (^◡𝐼‘𝑝) ∈ 𝐵)
46		simplrl 775	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) → 𝑆 ⊆ 𝐵)
47	46	sselda 3982	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) ∧ 𝑥 ∈ 𝑆) → 𝑥 ∈ 𝐵)
48	1, 2, 5, 8	dihord 40221	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (^◡𝐼‘𝑝) ∈ 𝐵 ∧ 𝑥 ∈ 𝐵) → ((𝐼‘(^◡𝐼‘𝑝)) ⊆ (𝐼‘𝑥) ↔ (^◡𝐼‘𝑝) ≤ 𝑥))
49	38, 45, 47, 48	syl3anc 1371	. . . . . . . . . . . . . . 15 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) ∧ 𝑥 ∈ 𝑆) → ((𝐼‘(^◡𝐼‘𝑝)) ⊆ (𝐼‘𝑥) ↔ (^◡𝐼‘𝑝) ≤ 𝑥))
50	39, 31, 33	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) → (𝐼‘(^◡𝐼‘𝑝)) = 𝑝)
51	50	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) ∧ 𝑥 ∈ 𝑆) → (𝐼‘(^◡𝐼‘𝑝)) = 𝑝)
52	51	sseq1d 4013	. . . . . . . . . . . . . . 15 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) ∧ 𝑥 ∈ 𝑆) → ((𝐼‘(^◡𝐼‘𝑝)) ⊆ (𝐼‘𝑥) ↔ 𝑝 ⊆ (𝐼‘𝑥)))
53	49, 52	bitr3d 280	. . . . . . . . . . . . . 14 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) ∧ 𝑥 ∈ 𝑆) → ((^◡𝐼‘𝑝) ≤ 𝑥 ↔ 𝑝 ⊆ (𝐼‘𝑥)))
54	53	ralbidva 3175	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷) → (∀𝑥 ∈ 𝑆 (^◡𝐼‘𝑝) ≤ 𝑥 ↔ ∀𝑥 ∈ 𝑆 𝑝 ⊆ (𝐼‘𝑥)))
55	54	3adant3 1132	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → (∀𝑥 ∈ 𝑆 (^◡𝐼‘𝑝) ≤ 𝑥 ↔ ∀𝑥 ∈ 𝑆 𝑝 ⊆ (𝐼‘𝑥)))
56	37, 55	mpbird 256	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → ∀𝑥 ∈ 𝑆 (^◡𝐼‘𝑝) ≤ 𝑥)
57		simp1ll 1236	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → 𝐾 ∈ HL)
58	57, 17	syl 17	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → 𝐾 ∈ CLat)
59	44	3adant3 1132	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → (^◡𝐼‘𝑝) ∈ 𝐵)
60		simp1rl 1238	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → 𝑆 ⊆ 𝐵)
61	1, 2, 4	clatleglb 18473	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ CLat ∧ (^◡𝐼‘𝑝) ∈ 𝐵 ∧ 𝑆 ⊆ 𝐵) → ((^◡𝐼‘𝑝) ≤ (𝐺‘𝑆) ↔ ∀𝑥 ∈ 𝑆 (^◡𝐼‘𝑝) ≤ 𝑥))
62	58, 59, 60, 61	syl3anc 1371	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → ((^◡𝐼‘𝑝) ≤ (𝐺‘𝑆) ↔ ∀𝑥 ∈ 𝑆 (^◡𝐼‘𝑝) ≤ 𝑥))
63	56, 62	mpbird 256	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → (^◡𝐼‘𝑝) ≤ (𝐺‘𝑆))
64	58, 60, 20	syl2anc 584	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → (𝐺‘𝑆) ∈ 𝐵)
65	1, 2, 5, 8	dihord 40221	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (^◡𝐼‘𝑝) ∈ 𝐵 ∧ (𝐺‘𝑆) ∈ 𝐵) → ((𝐼‘(^◡𝐼‘𝑝)) ⊆ (𝐼‘(𝐺‘𝑆)) ↔ (^◡𝐼‘𝑝) ≤ (𝐺‘𝑆)))
66	29, 59, 64, 65	syl3anc 1371	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → ((𝐼‘(^◡𝐼‘𝑝)) ⊆ (𝐼‘(𝐺‘𝑆)) ↔ (^◡𝐼‘𝑝) ≤ (𝐺‘𝑆)))
67	63, 66	mpbird 256	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → (𝐼‘(^◡𝐼‘𝑝)) ⊆ (𝐼‘(𝐺‘𝑆)))
68	34, 67	eqsstrrd 4021	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))
69		simp3r 1202	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))
70	68, 69	pm2.21fal 1563	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) ∧ 𝑝 ∈ 𝐷 ∧ (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆)))) → ⊥)
71	70	rexlimdv3a 3159	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → (∃𝑝 ∈ 𝐷 (𝑝 ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ 𝑝 ⊆ (𝐼‘(𝐺‘𝑆))) → ⊥))
72	28, 71	syld 47	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → ((𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) → ⊥))
73	10, 72	mtoi 198	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → ¬ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥))
74		dfpss3 4086	. . . . . 6 ⊢ ((𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ↔ ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆))))
75	74	notbii 319	. . . . 5 ⊢ (¬ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ↔ ¬ ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆))))
76		iman 402	. . . . 5 ⊢ (((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) → ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆))) ↔ ¬ ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ¬ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆))))
77		anclb 546	. . . . 5 ⊢ (((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) → ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆))) ↔ ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) → ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆)))))
78	75, 76, 77	3bitr2i 298	. . . 4 ⊢ (¬ (𝐼‘(𝐺‘𝑆)) ⊊ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ↔ ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) → ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆)))))
79	73, 78	sylib 217	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) → ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆)))))
80	9, 79	mpd 15	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆))))
81		eqss 3997	. 2 ⊢ ((𝐼‘(𝐺‘𝑆)) = ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ↔ ((𝐼‘(𝐺‘𝑆)) ⊆ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ∧ ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥) ⊆ (𝐼‘(𝐺‘𝑆))))
82	80, 81	sylibr 233	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑆 ⊆ 𝐵 ∧ 𝑆 ≠ ∅)) → (𝐼‘(𝐺‘𝑆)) = ∩ 𝑥 ∈ 𝑆 (𝐼‘𝑥))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1087 = wceq 1541 ⊥wfal 1553 ∈ wcel 2106 ≠ wne 2940 ∀wral 3061 ∃wrex 3070 {crab 3432 ⊆ wss 3948 ⊊ wpss 3949 ∅c0 4322 ∩ ciin 4998 class class class wbr 5148 ^◡ccnv 5675 ran crn 5677 –1-1→wf1 6540 –1-1-onto→wf1o 6542 ‘cfv 6543 (class class class)co 7411 Basecbs 17146 lecple 17206 glbcglb 18265 meetcmee 18267 CLatccla 18453 LSubSpclss 20547 LSAtomsclsa 37930 Atomscatm 38219 HLchlt 38306 LHypclh 38941 DVecHcdvh 40035 DIsoBcdib 40095 DIsoHcdih 40185

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7727 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189 ax-riotaBAD 37909

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-pss 3967 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-tp 4633 df-op 4635 df-uni 4909 df-int 4951 df-iun 4999 df-iin 5000 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5574 df-eprel 5580 df-po 5588 df-so 5589 df-fr 5631 df-we 5633 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-pred 6300 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6495 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-riota 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7858 df-1st 7977 df-2nd 7978 df-tpos 8213 df-undef 8260 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-1o 8468 df-er 8705 df-map 8824 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-pnf 11252 df-mnf 11253 df-xr 11254 df-ltxr 11255 df-le 11256 df-sub 11448 df-neg 11449 df-nn 12215 df-2 12277 df-3 12278 df-4 12279 df-5 12280 df-6 12281 df-n0 12475 df-z 12561 df-uz 12825 df-fz 13487 df-struct 17082 df-sets 17099 df-slot 17117 df-ndx 17129 df-base 17147 df-ress 17176 df-plusg 17212 df-mulr 17213 df-sca 17215 df-vsca 17216 df-0g 17389 df-proset 18250 df-poset 18268 df-plt 18285 df-lub 18301 df-glb 18302 df-join 18303 df-meet 18304 df-p0 18380 df-p1 18381 df-lat 18387 df-clat 18454 df-mgm 18563 df-sgrp 18612 df-mnd 18628 df-submnd 18674 df-grp 18824 df-minusg 18825 df-sbg 18826 df-subg 19005 df-cntz 19183 df-lsm 19506 df-cmn 19652 df-abl 19653 df-mgp 19990 df-ur 20007 df-ring 20060 df-oppr 20154 df-dvdsr 20175 df-unit 20176 df-invr 20206 df-dvr 20219 df-drng 20363 df-lmod 20477 df-lss 20548 df-lsp 20588 df-lvec 20719 df-lsatoms 37932 df-oposet 38132 df-ol 38134 df-oml 38135 df-covers 38222 df-ats 38223 df-atl 38254 df-cvlat 38278 df-hlat 38307 df-llines 38455 df-lplanes 38456 df-lvols 38457 df-lines 38458 df-psubsp 38460 df-pmap 38461 df-padd 38753 df-lhyp 38945 df-laut 38946 df-ldil 39061 df-ltrn 39062 df-trl 39116 df-tendo 39712 df-edring 39714 df-disoa 39986 df-dvech 40036 df-dib 40096 df-dic 40130 df-dih 40186

This theorem is referenced by: dihglb 40298

W3C validator