Theorem dihmeetlem1N 41758

Description: Isomorphism H of a conjunction. (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
dihmeetlem1N	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))

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

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

Proof of Theorem dihmeetlem1N

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

Step	Hyp	Ref	Expression
1		simp1l 1199	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → 𝐾 ∈ HL)
2	1	hllatd 39832	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → 𝐾 ∈ Lat)
3		simp2l 1201	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → 𝑋 ∈ 𝐵)
4		simp3l 1203	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → 𝑌 ∈ 𝐵)
5		dihglblem5a.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
6		dihglblem5a.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
7		dihglblem5a.m	. . . . . 6 ⊢ ∧ = (meet‘𝐾)
8	5, 6, 7	latmle1 18427	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∧ 𝑌) ≤ 𝑋)
9	2, 3, 4, 8	syl3anc 1374	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝑋 ∧ 𝑌) ≤ 𝑋)
10		simp1 1137	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
11	5, 7	latmcl 18403	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∧ 𝑌) ∈ 𝐵)
12	2, 3, 4, 11	syl3anc 1374	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝑋 ∧ 𝑌) ∈ 𝐵)
13		dihglblem5a.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
14		dihglblem5a.i	. . . . . 6 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
15	5, 6, 13, 14	dihord 41732	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∧ 𝑌) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → ((𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑋) ↔ (𝑋 ∧ 𝑌) ≤ 𝑋))
16	10, 12, 3, 15	syl3anc 1374	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ((𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑋) ↔ (𝑋 ∧ 𝑌) ≤ 𝑋))
17	9, 16	mpbird 257	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑋))
18	5, 6, 7	latmle2 18428	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∧ 𝑌) ≤ 𝑌)
19	2, 3, 4, 18	syl3anc 1374	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝑋 ∧ 𝑌) ≤ 𝑌)
20	5, 6, 13, 14	dihord 41732	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∧ 𝑌) ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑌) ↔ (𝑋 ∧ 𝑌) ≤ 𝑌))
21	10, 12, 4, 20	syl3anc 1374	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ((𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑌) ↔ (𝑋 ∧ 𝑌) ≤ 𝑌))
22	19, 21	mpbird 257	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑌))
23	17, 22	ssind 4182	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) ⊆ ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))
24	13, 14	dihvalrel 41747	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel (𝐼‘𝑋))
25		relin1 5765	. . . . 5 ⊢ (Rel (𝐼‘𝑋) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))
26	24, 25	syl 17	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))
27	26	3ad2ant1 1134	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))
28		elin 3906	. . . 4 ⊢ (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑋) ∩ (𝐼‘𝑌)) ↔ (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌)))
29		dihglblem5a.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
30		dihglblem5a.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
31	5, 6, 29, 7, 30, 13	lhpmcvr2 40492	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))
32	31	3adant3 1133	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))
33		simpl1 1193	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
34		simpl2 1194	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊))
35		simprl 771	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → 𝑞 ∈ 𝐴)
36		simprrl 781	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → ¬ 𝑞 ≤ 𝑊)
37	35, 36	jca 511	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊))
38		simprrr 782	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)
39		dihglblem5a.p	. . . . . . . . 9 ⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
40		dihglblem5a.t	. . . . . . . . 9 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
41		dihglblem5a.r	. . . . . . . . 9 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
42		dihglblem5a.e	. . . . . . . . 9 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
43		dihglblem5a.g	. . . . . . . . 9 ⊢ 𝐺 = (℩ℎ ∈ 𝑇 (ℎ‘𝑃) = 𝑞)
44		vex 3434	. . . . . . . . 9 ⊢ 𝑓 ∈ V
45		vex 3434	. . . . . . . . 9 ⊢ 𝑠 ∈ V
46	5, 6, 29, 7, 30, 13, 39, 40, 41, 42, 14, 43, 44, 45	dihopelvalc 41717	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ↔ ((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)))
47	33, 34, 37, 38, 46	syl112anc 1377	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ↔ ((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)))
48		simpr 484	. . . . . . 7 ⊢ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)
49	47, 48	biimtrdi 253	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋))
50		simpl3 1195	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊))
51		dihglblem5a.o	. . . . . . . . 9 ⊢ 0 = (ℎ ∈ 𝑇 ↦ ( I ↾ 𝐵))
52	5, 6, 13, 40, 41, 51, 14	dihopelvalbN 41706	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )))
53	33, 50, 52	syl2anc 585	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )))
54	53	biimpd 229	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌) → ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )))
55		simprll 779	. . . . . . . . . 10 ⊢ (((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )) → 𝑓 ∈ 𝑇)
56	55	3ad2ant3 1136	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑓 ∈ 𝑇)
57		simp3rr 1249	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑠 = 0 )
58	57	fveq1d 6840	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑠‘𝐺) = ( 0 ‘𝐺))
59		simp11 1205	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
60	6, 30, 13, 39	lhpocnel2 40487	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
61	59, 60	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
62		simp2l 1201	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑞 ∈ 𝐴)
63		simp2rl 1244	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ¬ 𝑞 ≤ 𝑊)
64	6, 30, 13, 40, 43	ltrniotacl 41047	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
65	59, 61, 62, 63, 64	syl112anc 1377	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝐺 ∈ 𝑇)
66	51, 5	tendo02 41255	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ 𝑇 → ( 0 ‘𝐺) = ( I ↾ 𝐵))
67	65, 66	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ( 0 ‘𝐺) = ( I ↾ 𝐵))
68	58, 67	eqtrd 2772	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑠‘𝐺) = ( I ↾ 𝐵))
69	68	cnveqd 5828	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ◡(𝑠‘𝐺) = ◡( I ↾ 𝐵))
70		cnvresid 6575	. . . . . . . . . . . . . . 15 ⊢ ◡( I ↾ 𝐵) = ( I ↾ 𝐵)
71	69, 70	eqtrdi 2788	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ◡(𝑠‘𝐺) = ( I ↾ 𝐵))
72	71	coeq2d 5815	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ◡(𝑠‘𝐺)) = (𝑓 ∘ ( I ↾ 𝐵)))
73	5, 13, 40	ltrn1o 40592	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → 𝑓:𝐵–1-1-onto→𝐵)
74	59, 56, 73	syl2anc 585	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑓:𝐵–1-1-onto→𝐵)
75		f1of 6778	. . . . . . . . . . . . . 14 ⊢ (𝑓:𝐵–1-1-onto→𝐵 → 𝑓:𝐵⟶𝐵)
76		fcoi1 6712	. . . . . . . . . . . . . 14 ⊢ (𝑓:𝐵⟶𝐵 → (𝑓 ∘ ( I ↾ 𝐵)) = 𝑓)
77	74, 75, 76	3syl 18	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ( I ↾ 𝐵)) = 𝑓)
78	72, 77	eqtrd 2772	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ◡(𝑠‘𝐺)) = 𝑓)
79	78	fveq2d 6842	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) = (𝑅‘𝑓))
80		simp3l 1203	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)
81	79, 80	eqbrtrrd 5110	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ 𝑋)
82		simprlr 780	. . . . . . . . . . 11 ⊢ (((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )) → (𝑅‘𝑓) ≤ 𝑌)
83	82	3ad2ant3 1136	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ 𝑌)
84		simp11l 1286	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝐾 ∈ HL)
85	84	hllatd 39832	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝐾 ∈ Lat)
86	5, 13, 40, 41	trlcl 40632	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑅‘𝑓) ∈ 𝐵)
87	59, 56, 86	syl2anc 585	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ∈ 𝐵)
88		simp12l 1288	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑋 ∈ 𝐵)
89		simp13l 1290	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑌 ∈ 𝐵)
90	5, 6, 7	latlem12 18429	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝑓) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵)) → (((𝑅‘𝑓) ≤ 𝑋 ∧ (𝑅‘𝑓) ≤ 𝑌) ↔ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)))
91	85, 87, 88, 89, 90	syl13anc 1375	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (((𝑅‘𝑓) ≤ 𝑋 ∧ (𝑅‘𝑓) ≤ 𝑌) ↔ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)))
92	81, 83, 91	mpbi2and 713	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌))
93	56, 92	jca 511	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)))
94	85, 88, 89, 11	syl3anc 1374	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑌) ∈ 𝐵)
95		simp11r 1287	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑊 ∈ 𝐻)
96	5, 13	lhpbase 40466	. . . . . . . . . . 11 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
97	95, 96	syl 17	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑊 ∈ 𝐵)
98	85, 88, 89, 18	syl3anc 1374	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑌) ≤ 𝑌)
99		simp13r 1291	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑌 ≤ 𝑊)
100	5, 6, 85, 94, 89, 97, 98, 99	lattrd 18409	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑌) ≤ 𝑊)
101	5, 6, 13, 40, 41, 51, 14	dihopelvalbN 41706	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋 ∧ 𝑌) ∈ 𝐵 ∧ (𝑋 ∧ 𝑌) ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌)) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)) ∧ 𝑠 = 0 )))
102	59, 94, 100, 101	syl12anc 837	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌)) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)) ∧ 𝑠 = 0 )))
103	93, 57, 102	mpbir2and 714	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌)))
104	103	3expia 1122	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌))))
105	49, 54, 104	syl2and 609	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌))))
106	32, 105	rexlimddv 3145	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌))))
107	28, 106	biimtrid 242	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑋) ∩ (𝐼‘𝑌)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌))))
108	27, 107	relssdv 5741	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ((𝐼‘𝑋) ∩ (𝐼‘𝑌)) ⊆ (𝐼‘(𝑋 ∧ 𝑌)))
109	23, 108	eqssd 3940	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ∃wrex 3062   ∩ cin 3889   ⊆ wss 3890  ⟨cop 4574   class class class wbr 5086   ↦ cmpt 5167   I cid 5522  ^◡ccnv 5627   ↾ cres 5630   ∘ ccom 5632  Rel wrel 5633  ⟶wf 6492  –1-1-onto→wf1o 6495  ‘cfv 6496  ℩crio 7320  (class class class)co 7364  Basecbs 17176  lecple 17224  occoc 17225  joincjn 18274  meetcmee 18275  Latclat 18394  Atomscatm 39731  HLchlt 39818  LHypclh 40452  LTrncltrn 40569  trLctrl 40626  TEndoctendo 41220  DIsoHcdih 41696

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5306  ax-pr 5374  ax-un 7686  ax-cnex 11091  ax-resscn 11092  ax-1cn 11093  ax-icn 11094  ax-addcl 11095  ax-addrcl 11096  ax-mulcl 11097  ax-mulrcl 11098  ax-mulcom 11099  ax-addass 11100  ax-mulass 11101  ax-distr 11102  ax-i2m1 11103  ax-1ne0 11104  ax-1rid 11105  ax-rnegex 11106  ax-rrecex 11107  ax-cnre 11108  ax-pre-lttri 11109  ax-pre-lttrn 11110  ax-pre-ltadd 11111  ax-pre-mulgt0 11112  ax-riotaBAD 39421

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5523  df-eprel 5528  df-po 5536  df-so 5537  df-fr 5581  df-we 5583  df-xp 5634  df-rel 5635  df-cnv 5636  df-co 5637  df-dm 5638  df-rn 5639  df-res 5640  df-ima 5641  df-pred 6263  df-ord 6324  df-on 6325  df-lim 6326  df-suc 6327  df-iota 6452  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7321  df-ov 7367  df-oprab 7368  df-mpo 7369  df-om 7815  df-1st 7939  df-2nd 7940  df-tpos 8173  df-undef 8220  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-er 8640  df-map 8772  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-pnf 11178  df-mnf 11179  df-xr 11180  df-ltxr 11181  df-le 11182  df-sub 11376  df-neg 11377  df-nn 12172  df-2 12241  df-3 12242  df-4 12243  df-5 12244  df-6 12245  df-n0 12435  df-z 12522  df-uz 12786  df-fz 13459  df-struct 17114  df-sets 17131  df-slot 17149  df-ndx 17161  df-base 17177  df-ress 17198  df-plusg 17230  df-mulr 17231  df-sca 17233  df-vsca 17234  df-0g 17401  df-proset 18257  df-poset 18276  df-plt 18291  df-lub 18307  df-glb 18308  df-join 18309  df-meet 18310  df-p0 18386  df-p1 18387  df-lat 18395  df-clat 18462  df-mgm 18605  df-sgrp 18684  df-mnd 18700  df-submnd 18749  df-grp 18909  df-minusg 18910  df-sbg 18911  df-subg 19096  df-cntz 19289  df-lsm 19608  df-cmn 19754  df-abl 19755  df-mgp 20119  df-rng 20131  df-ur 20160  df-ring 20213  df-oppr 20314  df-dvdsr 20334  df-unit 20335  df-invr 20365  df-dvr 20378  df-drng 20705  df-lmod 20854  df-lss 20924  df-lsp 20964  df-lvec 21096  df-oposet 39644  df-ol 39646  df-oml 39647  df-covers 39734  df-ats 39735  df-atl 39766  df-cvlat 39790  df-hlat 39819  df-llines 39966  df-lplanes 39967  df-lvols 39968  df-lines 39969  df-psubsp 39971  df-pmap 39972  df-padd 40264  df-lhyp 40456  df-laut 40457  df-ldil 40572  df-ltrn 40573  df-trl 40627  df-tendo 41223  df-edring 41225  df-disoa 41497  df-dvech 41547  df-dib 41607  df-dic 41641  df-dih 41697

This theorem is referenced by:  dihmeetbN  41771