Theorem dihglblem5apreN 42539

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 40611	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
2	1	ad2antrr 739	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → 𝐾 ∈ Lat)
3		simprl 783	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → 𝑋 ∈ 𝐵)
4		dihglblem5a.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
5		dihglblem5a.h	. . . . . . 7 ⊢ 𝐻 = (LHyp‘𝐾)
6	4, 5	lhpbase 41246	. . . . . 6 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
7	6	ad2antlr 740	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → 𝑊 ∈ 𝐵)
8		dihglblem5a.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
9		dihglblem5a.m	. . . . . 6 ⊢ ∧ = (meet‘𝐾)
10	4, 8, 9	latmle1 18664	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ≤ 𝑋)
11	2, 3, 7, 10	syl3anc 1399	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑋 ∧ 𝑊) ≤ 𝑋)
12		simpl 488	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
13	4, 9	latmcl 18640	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ∈ 𝐵)
14	2, 3, 7, 13	syl3anc 1399	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑋 ∧ 𝑊) ∈ 𝐵)
15		dihglblem5a.i	. . . . . 6 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
16	4, 8, 5, 15	dihord 42512	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∧ 𝑊) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → ((𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑋) ↔ (𝑋 ∧ 𝑊) ≤ 𝑋))
17	12, 14, 3, 16	syl3anc 1399	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑋) ↔ (𝑋 ∧ 𝑊) ≤ 𝑋))
18	11, 17	mpbird 260	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑋))
19	4, 8, 9	latmle2 18665	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ≤ 𝑊)
20	2, 3, 7, 19	syl3anc 1399	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑋 ∧ 𝑊) ≤ 𝑊)
21	4, 8, 5, 15	dihord 42512	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∧ 𝑊) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑊) ↔ (𝑋 ∧ 𝑊) ≤ 𝑊))
22	12, 14, 7, 21	syl3anc 1399	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑊) ↔ (𝑋 ∧ 𝑊) ≤ 𝑊))
23	20, 22	mpbird 260	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ (𝐼‘𝑊))
24	18, 23	ssind 4140	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) ⊆ ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
25	5, 15	dihvalrel 42527	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel (𝐼‘𝑋))
26		relin1 5795	. . . . 5 ⊢ (Rel (𝐼‘𝑋) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
27	25, 26	syl 18	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
28	27	adantr 486	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))
29		elin 4096	. . . 4 ⊢ (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑋) ∩ (𝐼‘𝑊)) ↔ (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)))
30		dihglblem5a.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
31		dihglblem5a.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
32	4, 8, 30, 9, 31, 5	lhpmcvr2 41272	. . . . 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 3458	. . . . . . . . . . . 12 ⊢ 𝑓 ∈ V
39		vex 3458	. . . . . . . . . . . 12 ⊢ 𝑠 ∈ V
40	4, 8, 30, 9, 31, 5, 33, 34, 35, 36, 15, 37, 38, 39	dihopelvalc 42497	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ↔ ((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)))
41		id 23	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
42	6	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑊 ∈ 𝐵)
43	4, 8	latref 18641	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ Lat ∧ 𝑊 ∈ 𝐵) → 𝑊 ≤ 𝑊)
44	1, 6, 43	syl2an 608	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑊 ≤ 𝑊)
45		dihglblem5a.o	. . . . . . . . . . . . . 14 ⊢ 0 = (ℎ ∈ 𝑇 ↦ ( I ↾ 𝐵))
46	4, 8, 5, 34, 35, 45, 15	dihopelvalbN 42486	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑊 ∈ 𝐵 ∧ 𝑊 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )))
47	41, 42, 44, 46	syl12anc 850	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )))
48	47	3ad2ant1 1151	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )))
49	40, 48	anbi12d 644	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) ↔ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))))
50		simprll 791	. . . . . . . . . . . . . 14 ⊢ ((((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )) → 𝑓 ∈ 𝑇)
51	50	adantl 487	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑓 ∈ 𝑇)
52		simprrr 794	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑠 = 0 )
53	52	fveq1d 6907	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑠‘𝐺) = ( 0 ‘𝐺))
54		simpl1 1210	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
55	8, 31, 5, 33	lhpocnel2 41267	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
56	54, 55	syl 18	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
57		simpl3l 1247	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊))
58	8, 31, 5, 34, 37	ltrniotacl 41827	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
59	54, 56, 57, 58	syl3anc 1399	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝐺 ∈ 𝑇)
60	45, 4	tendo02 42035	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐺 ∈ 𝑇 → ( 0 ‘𝐺) = ( I ↾ 𝐵))
61	59, 60	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → ( 0 ‘𝐺) = ( I ↾ 𝐵))
62	53, 61	eqtrd 2798	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑠‘𝐺) = ( I ↾ 𝐵))
63	62	cnveqd 5859	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → ◡(𝑠‘𝐺) = ◡( I ↾ 𝐵))
64		cnvresid 6638	. . . . . . . . . . . . . . . . . . 19 ⊢ ◡( I ↾ 𝐵) = ( I ↾ 𝐵)
65	63, 64	eqtrdi 2814	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → ◡(𝑠‘𝐺) = ( I ↾ 𝐵))
66	65	coeq2d 5845	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ◡(𝑠‘𝐺)) = (𝑓 ∘ ( I ↾ 𝐵)))
67	4, 5, 34	ltrn1o 41372	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → 𝑓:𝐵⟶1-1onto𝐵)
68	54, 51, 67	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑓:𝐵⟶1-1onto𝐵)
69		f1of 6843	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓:𝐵⟶1-1onto𝐵 → 𝑓:𝐵⟶𝐵)
70		fcoi1 6775	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓:𝐵⟶𝐵 → (𝑓 ∘ ( I ↾ 𝐵)) = 𝑓)
71	68, 69, 70	3syl 19	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ( I ↾ 𝐵)) = 𝑓)
72	66, 71	eqtrd 2798	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ◡(𝑠‘𝐺)) = 𝑓)
73	72	fveq2d 6909	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) = (𝑅‘𝑓))
74		simprlr 792	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)
75	73, 74	eqbrtrrd 5132	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ 𝑋)
76	8, 5, 34, 35	trlle 41432	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑅‘𝑓) ≤ 𝑊)
77	54, 51, 76	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ 𝑊)
78		simpl1l 1243	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝐾 ∈ HL)
79	78	hllatd 40612	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝐾 ∈ Lat)
80	4, 5, 34, 35	trlcl 41412	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑅‘𝑓) ∈ 𝐵)
81	54, 51, 80	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ∈ 𝐵)
82		simpl2l 1245	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑋 ∈ 𝐵)
83		simpl1r 1244	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑊 ∈ 𝐻)
84	83, 6	syl 18	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → 𝑊 ∈ 𝐵)
85	4, 8, 9	latlem12 18666	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝑓) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵)) → (((𝑅‘𝑓) ≤ 𝑋 ∧ (𝑅‘𝑓) ≤ 𝑊) ↔ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)))
86	79, 81, 82, 84, 85	syl13anc 1400	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (((𝑅‘𝑓) ≤ 𝑋 ∧ (𝑅‘𝑓) ≤ 𝑊) ↔ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)))
87	75, 77, 86	mpbi2and 725	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊))
88	51, 87	jca 521	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)))
89	79, 82, 84, 13	syl3anc 1399	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑊) ∈ 𝐵)
90	79, 82, 84, 19	syl3anc 1399	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑊) ≤ 𝑊)
91	4, 8, 5, 34, 35, 45, 15	dihopelvalbN 42486	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋 ∧ 𝑊) ∈ 𝐵 ∧ (𝑋 ∧ 𝑊) ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)) ∧ 𝑠 = 0 )))
92	54, 89, 90, 91	syl12anc 850	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑊)) ∧ 𝑠 = 0 )))
93	88, 52, 92	mpbir2and 726	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 ))) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)))
94	93	ex 418	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑊) ∧ 𝑠 = 0 )) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))
95	49, 94	sylbid 243	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))
96	95	3expia 1139	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)))))
97	96	exp4c 438	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑞 ∈ 𝐴 → (¬ 𝑞 ≤ 𝑊 → ((𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋 → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)))))))
98	97	imp4a 428	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑞 ∈ 𝐴 → ((¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))))
99	98	rexlimdv 3165	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊)))))
100	32, 99	mpd 16	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))
101	29, 100	biimtrid 245	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑋) ∩ (𝐼‘𝑊)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑊))))
102	28, 101	relssdv 5769	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ((𝐼‘𝑋) ∩ (𝐼‘𝑊)) ⊆ (𝐼‘(𝑋 ∧ 𝑊)))
103	24, 102	eqssd 3930	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑊)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑊)))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147  ∃wrex 3090   ⊆ wss 3900   ∩ cin 4092  ⟨cop 4838   class class class wbr 5106   ↦ cmpt 5189   I cid 5549  ^◡ccnv 5654   ↾ cres 5657   ∘ ccom 5659  Rel wrel 5660  ⟶wf 6551  ⟶1-1ontowf1o 6554  ‘cfv 6555  ℩crio 7396  (class class class)co 7440  Basecbs 17413  lecple 17461  occoc 17462  joincjn 18511  meetcmee 18512  Latclat 18631  Atomscatm 40511  HLchlt 40598  LHypclh 41232  LTrncltrn 41349  trLctrl 41406  TEndoctendo 42000  DIsoHcdih 42476

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7772  ax-cnex 11280  ax-resscn 11281  ax-1cn 11282  ax-icn 11283  ax-addcl 11284  ax-addrcl 11285  ax-mulcl 11286  ax-mulrcl 11287  ax-mulcom 11288  ax-addass 11289  ax-mulass 11290  ax-distr 11291  ax-i2m1 11292  ax-1ne0 11293  ax-1rid 11294  ax-rnegex 11295  ax-rrecex 11296  ax-cnre 11297  ax-pre-lttri 11298  ax-pre-lttrn 11299  ax-pre-ltadd 11300  ax-pre-mulgt0 11301  ax-riotaBAD 40201

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-uni 4871  df-int 4911  df-iun 4956  df-iin 4957  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6319  df-ord 6380  df-on 6381  df-lim 6382  df-suc 6383  df-iota 6509  df-fun 6557  df-fn 6558  df-f 6559  df-f1 6560  df-fo 6561  df-f1o 6562  df-fv 6563  df-riota 7397  df-ov 7443  df-oprab 7444  df-mpo 7445  df-om 7899  df-1st 8022  df-2nd 8023  df-tpos 8268  df-undef 8315  df-frecs 8324  df-wrecs 8355  df-recs 8404  df-rdg 8443  df-1o 8501  df-er 8742  df-map 8874  df-en 8999  df-dom 9000  df-sdom 9001  df-fin 9002  df-pnf 11369  df-mnf 11370  df-xr 11371  df-ltxr 11372  df-le 11373  df-sub 11567  df-neg 11568  df-nn 12360  df-2 12429  df-3 12430  df-4 12431  df-5 12432  df-6 12433  df-n0 12631  df-z 12718  df-uz 12990  df-fz 13664  df-struct 17351  df-sets 17368  df-slot 17386  df-ndx 17398  df-base 17414  df-ress 17435  df-plusg 17467  df-mulr 17468  df-sca 17470  df-vsca 17471  df-0g 17638  df-proset 18494  df-poset 18513  df-plt 18528  df-lub 18544  df-glb 18545  df-join 18546  df-meet 18547  df-p0 18623  df-p1 18624  df-lat 18632  df-clat 18699  df-mgm 18842  df-sgrp 18934  df-mnd 18950  df-submnd 19005  df-grp 19173  df-minusg 19174  df-sbg 19175  df-subg 19359  df-cntz 19558  df-lsm 19877  df-cmn 20023  df-abl 20024  df-mgp 20388  df-rng 20402  df-ur 20435  df-ring 20488  df-oppr 20594  df-dvdsr 20614  df-unit 20615  df-invr 20645  df-dvr 20658  df-drng 21009  df-lmod 21164  df-lss 21234  df-lsp 21274  df-lvec 21405  df-oposet 40424  df-ol 40426  df-oml 40427  df-covers 40514  df-ats 40515  df-atl 40546  df-cvlat 40570  df-hlat 40599  df-llines 40746  df-lplanes 40747  df-lvols 40748  df-lines 40749  df-psubsp 40751  df-pmap 40752  df-padd 41044  df-lhyp 41236  df-laut 41237  df-ldil 41352  df-ltrn 41353  df-trl 41407  df-tendo 42003  df-edring 42005  df-disoa 42277  df-dvech 42327  df-dib 42387  df-dic 42421  df-dih 42477

This theorem is used by:  dihglblem5aN  42540