Theorem dihglblem5apreN 41279

Description: A conjunction property of isomorphism H. TODO: reduce antecedent size; general review for shorter proof. (Contributed by NM, 21-Mar-2014.) (New usage is discouraged.)

Hypotheses

Ref	Expression
dihglblem5a.b	⊢ 𝐵 = (Base‘𝐾)
dihglblem5a.m	⊢ ∧ = (meet‘𝐾)
dihglblem5a.h	⊢ 𝐻 = (LHyp‘𝐾)
dihglblem5a.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihglblem5a.l	⊢ ≤ = (le‘𝐾)
dihglblem5a.j	⊢ ∨ = (join‘𝐾)
dihglblem5a.a	⊢ 𝐴 = (Atoms‘𝐾)
dihglblem5a.p	⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
dihglblem5a.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
dihglblem5a.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
dihglblem5a.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
dihglblem5a.g	⊢ 𝐺 = (℩ℎ ∈ 𝑇 (ℎ‘𝑃) = 𝑞)
dihglblem5a.o	⊢ 0 = (ℎ ∈ 𝑇 ↦ ( I ↾ 𝐵))

Assertion

Ref	Expression
dihglblem5apreN	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))

Distinct variable groups:   ∧ ,𝑞   ℎ,𝑞, ≤   𝐴,ℎ,𝑞   𝐵,ℎ,𝑞   ℎ,𝐻,𝑞   𝐼,𝑞   ℎ,𝐾,𝑞   𝑃,ℎ   𝑇,ℎ   ℎ,𝑊,𝑞   𝑋,𝑞

Allowed substitution hints:   𝑃(𝑞)   𝑅(ℎ,𝑞)   𝑇(𝑞)   𝐸(ℎ,𝑞)   𝐺(ℎ,𝑞)   𝐼(ℎ)   ∨ (ℎ,𝑞)   ∧ (ℎ)   𝑋(ℎ)   0 (ℎ,𝑞)

Proof of Theorem dihglblem5apreN

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

Step	Hyp	Ref	Expression
1		hllat 39350	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
2	1	ad2antrr 726	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → 𝐾 ∈ Lat)
3		simprl 770	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → 𝑋 ∈ 𝐵)
4		dihglblem5a.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
5		dihglblem5a.h	. . . . . . 7 ⊢ 𝐻 = (LHyp‘𝐾)
6	4, 5	lhpbase 39986	. . . . . 6 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
7	6	ad2antlr 727	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → 𝑊 ∈ 𝐵)
8		dihglblem5a.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
9		dihglblem5a.m	. . . . . 6 ⊢ ∧ = (meet‘𝐾)
10	4, 8, 9	latmle1 18406	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ≤ 𝑋)
11	2, 3, 7, 10	syl3anc 1373	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑋 ∧ 𝑊) ≤ 𝑋)
12		simpl 482	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
13	4, 9	latmcl 18382	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ∈ 𝐵)
14	2, 3, 7, 13	syl3anc 1373	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑋 ∧ 𝑊) ∈ 𝐵)
15		dihglblem5a.i	. . . . . 6 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
16	4, 8, 5, 15	dihord 41252	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∧ 𝑊) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → ((𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑋) ↔ (𝑋 ∧ 𝑊) ≤ 𝑋))
17	12, 14, 3, 16	syl3anc 1373	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑋) ↔ (𝑋 ∧ 𝑊) ≤ 𝑋))
18	11, 17	mpbird 257	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑋))
19	4, 8, 9	latmle2 18407	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ≤ 𝑊)
20	2, 3, 7, 19	syl3anc 1373	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑋 ∧ 𝑊) ≤ 𝑊)
21	4, 8, 5, 15	dihord 41252	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∧ 𝑊) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑊) ↔ (𝑋 ∧ 𝑊) ≤ 𝑊))
22	12, 14, 7, 21	syl3anc 1373	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑊) ↔ (𝑋 ∧ 𝑊) ≤ 𝑊))
23	20, 22	mpbird 257	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑊))
24	18, 23	ssind 4200	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
25	5, 15	dihvalrel 41267	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel (𝐼‘𝑋))
26		relin1 5766	. . . . 5 ⊢ (Rel (𝐼‘𝑋) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
27	25, 26	syl 17	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
28	27	adantr 480	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
29		elin 3927	. . . 4 ⊢ (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑋) ∩ (𝐼‘𝑊)) ↔ (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)))
30		dihglblem5a.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
31		dihglblem5a.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
32	4, 8, 30, 9, 31, 5	lhpmcvr2 40012	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))
33		dihglblem5a.p	. . . . . . . . . . . 12 ⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
34		dihglblem5a.t	. . . . . . . . . . . 12 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
35		dihglblem5a.r	. . . . . . . . . . . 12 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
36		dihglblem5a.e	. . . . . . . . . . . 12 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
37		dihglblem5a.g	. . . . . . . . . . . 12 ⊢ 𝐺 = (℩ℎ ∈ 𝑇 (ℎ‘𝑃) = 𝑞)
38		vex 3448	. . . . . . . . . . . 12 ⊢ 𝑓 ∈ V
39		vex 3448	. . . . . . . . . . . 12 ⊢ 𝑠 ∈ V
40	4, 8, 30, 9, 31, 5, 33, 34, 35, 36, 15, 37, 38, 39	dihopelvalc 41237	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ↔ ((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)))
41		id 22	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
42	6	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑊 ∈ 𝐵)
43	4, 8	latref 18383	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Lat ∧ 𝑊 ∈ 𝐵) → 𝑊 ≤ 𝑊)
44	1, 6, 43	syl2an 596	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑊 ≤ 𝑊)
45		dihglblem5a.o	. . . . . . . . . . . . . 14 ⊢ 0 = (ℎ ∈ 𝑇 ↦ ( I ↾ 𝐵))
46	4, 8, 5, 34, 35, 45, 15	dihopelvalbN 41226	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑊 ∈ 𝐵 ∧ 𝑊 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )))
47	41, 42, 44, 46	syl12anc 836	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )))
48	47	3ad2ant1 1133	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )))
49	40, 48	anbi12d 632	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) ↔ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))))
50		simprll 778	. . . . . . . . . . . . . 14 ⊢ ((((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )) → 𝑓 ∈ 𝑇)
51	50	adantl 481	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑓 ∈ 𝑇)
52		simprrr 781	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑠 = 0 )
53	52	fveq1d 6842	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑠‘𝐺) = ( 0 ‘𝐺))
54		simpl1 1192	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
55	8, 31, 5, 33	lhpocnel2 40007	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
56	54, 55	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
57		simpl3l 1229	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊))
58	8, 31, 5, 34, 37	ltrniotacl 40567	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
59	54, 56, 57, 58	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝐺 ∈ 𝑇)
60	45, 4	tendo02 40775	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐺 ∈ 𝑇 → ( 0 ‘𝐺) = ( I ↾ 𝐵))
61	59, 60	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → ( 0 ‘𝐺) = ( I ↾ 𝐵))
62	53, 61	eqtrd 2764	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑠‘𝐺) = ( I ↾ 𝐵))
63	62	cnveqd 5829	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → ◡(𝑠‘𝐺) = ◡( I ↾ 𝐵))
64		cnvresid 6579	. . . . . . . . . . . . . . . . . . 19 ⊢ ◡( I ↾ 𝐵) = ( I ↾ 𝐵)
65	63, 64	eqtrdi 2780	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → ◡(𝑠‘𝐺) = ( I ↾ 𝐵))
66	65	coeq2d 5816	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ◡(𝑠‘𝐺)) = (𝑓 ∘ ( I ↾ 𝐵)))
67	4, 5, 34	ltrn1o 40112	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → 𝑓:𝐵–1-1-onto→𝐵)
68	54, 51, 67	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑓:𝐵–1-1-onto→𝐵)
69		f1of 6782	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓:𝐵–1-1-onto→𝐵 → 𝑓:𝐵⟶𝐵)
70		fcoi1 6716	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓:𝐵⟶𝐵 → (𝑓 ∘ ( I ↾ 𝐵)) = 𝑓)
71	68, 69, 70	3syl 18	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ( I ↾ 𝐵)) = 𝑓)
72	66, 71	eqtrd 2764	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ◡(𝑠‘𝐺)) = 𝑓)
73	72	fveq2d 6844	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) = (𝑅‘𝑓))
74		simprlr 779	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)
75	73, 74	eqbrtrrd 5126	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ 𝑋)
76	8, 5, 34, 35	trlle 40172	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑅‘𝑓) ≤ 𝑊)
77	54, 51, 76	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ 𝑊)
78		simpl1l 1225	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝐾 ∈ HL)
79	78	hllatd 39351	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝐾 ∈ Lat)
80	4, 5, 34, 35	trlcl 40152	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑅‘𝑓) ∈ 𝐵)
81	54, 51, 80	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ∈ 𝐵)
82		simpl2l 1227	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑋 ∈ 𝐵)
83		simpl1r 1226	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑊 ∈ 𝐻)
84	83, 6	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑊 ∈ 𝐵)
85	4, 8, 9	latlem12 18408	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝑓) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵)) → (((𝑅‘𝑓) ≤ 𝑋 ∧ (𝑅‘𝑓) ≤ 𝑊) ↔ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)))
86	79, 81, 82, 84, 85	syl13anc 1374	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (((𝑅‘𝑓) ≤ 𝑋 ∧ (𝑅‘𝑓) ≤ 𝑊) ↔ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)))
87	75, 77, 86	mpbi2and 712	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊))
88	51, 87	jca 511	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)))
89	79, 82, 84, 13	syl3anc 1373	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑊) ∈ 𝐵)
90	79, 82, 84, 19	syl3anc 1373	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑊) ≤ 𝑊)
91	4, 8, 5, 34, 35, 45, 15	dihopelvalbN 41226	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋 ∧ 𝑊) ∈ 𝐵 ∧ (𝑋 ∧ 𝑊) ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)) ∧ 𝑠 = 0 )))
92	54, 89, 90, 91	syl12anc 836	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)) ∧ 𝑠 = 0 )))
93	88, 52, 92	mpbir2and 713	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)))
94	93	ex 412	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))
95	49, 94	sylbid 240	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))
96	95	3expia 1121	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)))))
97	96	exp4c 432	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑞 ∈ 𝐴 → (¬ 𝑞 ≤ 𝑊 → ((𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋 → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)))))))
98	97	imp4a 422	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑞 ∈ 𝐴 → ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))))
99	98	rexlimdv 3132	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)))))
100	32, 99	mpd 15	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))
101	29, 100	biimtrid 242	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑋) ∩ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))
102	28, 101	relssdv 5742	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((𝐼‘𝑋) ∩ (𝐼‘𝑊)) ⊆ (𝐼‘(𝑋 ∧ 𝑊)))
103	24, 102	eqssd 3961	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  ∃wrex 3053   ∩ cin 3910   ⊆ wss 3911  ⟨cop 4591   class class class wbr 5102   ↦ cmpt 5183   I cid 5525  ^◡ccnv 5630   ↾ cres 5633   ∘ ccom 5635  Rel wrel 5636  ⟶wf 6495  –1-1-onto→wf1o 6498  ‘cfv 6499  ℩crio 7325  (class class class)co 7369  Basecbs 17156  lecple 17204  occoc 17205  joincjn 18253  meetcmee 18254  Latclat 18373  Atomscatm 39250  HLchlt 39337  LHypclh 39972  LTrncltrn 40089  trLctrl 40146  TEndoctendo 40740  DIsoHcdih 41216

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5229  ax-sep 5246  ax-nul 5256  ax-pow 5315  ax-pr 5382  ax-un 7691  ax-cnex 11102  ax-resscn 11103  ax-1cn 11104  ax-icn 11105  ax-addcl 11106  ax-addrcl 11107  ax-mulcl 11108  ax-mulrcl 11109  ax-mulcom 11110  ax-addass 11111  ax-mulass 11112  ax-distr 11113  ax-i2m1 11114  ax-1ne0 11115  ax-1rid 11116  ax-rnegex 11117  ax-rrecex 11118  ax-cnre 11119  ax-pre-lttri 11120  ax-pre-lttrn 11121  ax-pre-ltadd 11122  ax-pre-mulgt0 11123  ax-riotaBAD 38940

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3351  df-reu 3352  df-rab 3403  df-v 3446  df-sbc 3751  df-csb 3860  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-pss 3931  df-nul 4293  df-if 4485  df-pw 4561  df-sn 4586  df-pr 4588  df-tp 4590  df-op 4592  df-uni 4868  df-int 4907  df-iun 4953  df-iin 4954  df-br 5103  df-opab 5165  df-mpt 5184  df-tr 5210  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6262  df-ord 6323  df-on 6324  df-lim 6325  df-suc 6326  df-iota 6452  df-fun 6501  df-fn 6502  df-f 6503  df-f1 6504  df-fo 6505  df-f1o 6506  df-fv 6507  df-riota 7326  df-ov 7372  df-oprab 7373  df-mpo 7374  df-om 7823  df-1st 7947  df-2nd 7948  df-tpos 8182  df-undef 8229  df-frecs 8237  df-wrecs 8268  df-recs 8317  df-rdg 8355  df-1o 8411  df-er 8648  df-map 8778  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-pnf 11188  df-mnf 11189  df-xr 11190  df-ltxr 11191  df-le 11192  df-sub 11385  df-neg 11386  df-nn 12165  df-2 12227  df-3 12228  df-4 12229  df-5 12230  df-6 12231  df-n0 12421  df-z 12508  df-uz 12772  df-fz 13447  df-struct 17094  df-sets 17111  df-slot 17129  df-ndx 17141  df-base 17157  df-ress 17178  df-plusg 17210  df-mulr 17211  df-sca 17213  df-vsca 17214  df-0g 17381  df-proset 18236  df-poset 18255  df-plt 18270  df-lub 18286  df-glb 18287  df-join 18288  df-meet 18289  df-p0 18365  df-p1 18366  df-lat 18374  df-clat 18441  df-mgm 18550  df-sgrp 18629  df-mnd 18645  df-submnd 18694  df-grp 18851  df-minusg 18852  df-sbg 18853  df-subg 19038  df-cntz 19232  df-lsm 19551  df-cmn 19697  df-abl 19698  df-mgp 20062  df-rng 20074  df-ur 20103  df-ring 20156  df-oppr 20258  df-dvdsr 20278  df-unit 20279  df-invr 20309  df-dvr 20322  df-drng 20652  df-lmod 20801  df-lss 20871  df-lsp 20911  df-lvec 21043  df-oposet 39163  df-ol 39165  df-oml 39166  df-covers 39253  df-ats 39254  df-atl 39285  df-cvlat 39309  df-hlat 39338  df-llines 39486  df-lplanes 39487  df-lvols 39488  df-lines 39489  df-psubsp 39491  df-pmap 39492  df-padd 39784  df-lhyp 39976  df-laut 39977  df-ldil 40092  df-ltrn 40093  df-trl 40147  df-tendo 40743  df-edring 40745  df-disoa 41017  df-dvech 41067  df-dib 41127  df-dic 41161  df-dih 41217

This theorem is referenced by:  dihglblem5aN  41280