Theorem dihmeetlem1N 37904

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 1178	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → 𝐾 ∈ HL)
2	1	hllatd 35978	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → 𝐾 ∈ Lat)
3		simp2l 1180	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → 𝑋 ∈ 𝐵)
4		simp3l 1182	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → 𝑌 ∈ 𝐵)
5		dihglblem5a.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
6		dihglblem5a.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
7		dihglblem5a.m	. . . . . 6 ⊢ ∧ = (meet‘𝐾)
8	5, 6, 7	latmle1 17557	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∧ 𝑌) ≤ 𝑋)
9	2, 3, 4, 8	syl3anc 1352	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝑋 ∧ 𝑌) ≤ 𝑋)
10		simp1 1117	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
11	5, 7	latmcl 17533	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∧ 𝑌) ∈ 𝐵)
12	2, 3, 4, 11	syl3anc 1352	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝑋 ∧ 𝑌) ∈ 𝐵)
13		dihglblem5a.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
14		dihglblem5a.i	. . . . . 6 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
15	5, 6, 13, 14	dihord 37878	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∧ 𝑌) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → ((𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑋) ↔ (𝑋 ∧ 𝑌) ≤ 𝑋))
16	10, 12, 3, 15	syl3anc 1352	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ((𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑋) ↔ (𝑋 ∧ 𝑌) ≤ 𝑋))
17	9, 16	mpbird 249	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑋))
18	5, 6, 7	latmle2 17558	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∧ 𝑌) ≤ 𝑌)
19	2, 3, 4, 18	syl3anc 1352	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝑋 ∧ 𝑌) ≤ 𝑌)
20	5, 6, 13, 14	dihord 37878	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∧ 𝑌) ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑌) ↔ (𝑋 ∧ 𝑌) ≤ 𝑌))
21	10, 12, 4, 20	syl3anc 1352	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ((𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑌) ↔ (𝑋 ∧ 𝑌) ≤ 𝑌))
22	19, 21	mpbird 249	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) ⊆ (𝐼‘𝑌))
23	17, 22	ssind 4091	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) ⊆ ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))
24	13, 14	dihvalrel 37893	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel (𝐼‘𝑋))
25		relin1 5532	. . . . 5 ⊢ (Rel (𝐼‘𝑋) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))
26	24, 25	syl 17	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))
27	26	3ad2ant1 1114	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → Rel ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))
28		elin 4052	. . . 4 ⊢ (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑋) ∩ (𝐼‘𝑌)) ↔ (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌)))
29		dihglblem5a.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
30		dihglblem5a.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
31	5, 6, 29, 7, 30, 13	lhpmcvr2 36638	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))
32	31	3adant3 1113	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ∃𝑞 ∈ 𝐴 (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))
33		simpl1 1172	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
34		simpl2 1173	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊))
35		simprl 759	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → 𝑞 ∈ 𝐴)
36		simprrl 769	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → ¬ 𝑞 ≤ 𝑊)
37	35, 36	jca 504	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊))
38		simprrr 770	. . . . . . . 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 3413	. . . . . . . . 9 ⊢ 𝑓 ∈ V
45		vex 3413	. . . . . . . . 9 ⊢ 𝑠 ∈ V
46	5, 6, 29, 7, 30, 13, 39, 40, 41, 42, 14, 43, 44, 45	dihopelvalc 37863	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ ((𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊) ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ↔ ((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)))
47	33, 34, 37, 38, 46	syl112anc 1355	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ↔ ((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)))
48		simpr 477	. . . . . . 7 ⊢ (((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)
49	47, 48	syl6bi 245	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋))
50		simpl3 1174	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊))
51		dihglblem5a.o	. . . . . . . . 9 ⊢ 0 = (ℎ ∈ 𝑇 ↦ ( I ↾ 𝐵))
52	5, 6, 13, 40, 41, 51, 14	dihopelvalbN 37852	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )))
53	33, 50, 52	syl2anc 576	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )))
54	53	biimpd 221	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌) → ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )))
55		simprll 767	. . . . . . . . . 10 ⊢ (((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )) → 𝑓 ∈ 𝑇)
56	55	3ad2ant3 1116	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑓 ∈ 𝑇)
57		simp3rr 1228	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑠 = 0 )
58	57	fveq1d 6499	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑠‘𝐺) = ( 0 ‘𝐺))
59		simp11 1184	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
60	6, 30, 13, 39	lhpocnel2 36633	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
61	59, 60	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
62		simp2l 1180	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑞 ∈ 𝐴)
63		simp2rl 1223	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ¬ 𝑞 ≤ 𝑊)
64	6, 30, 13, 40, 43	ltrniotacl 37193	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑞 ∈ 𝐴 ∧ ¬ 𝑞 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
65	59, 61, 62, 63, 64	syl112anc 1355	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝐺 ∈ 𝑇)
66	51, 5	tendo02 37401	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ 𝑇 → ( 0 ‘𝐺) = ( I ↾ 𝐵))
67	65, 66	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ( 0 ‘𝐺) = ( I ↾ 𝐵))
68	58, 67	eqtrd 2809	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑠‘𝐺) = ( I ↾ 𝐵))
69	68	cnveqd 5593	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ◡(𝑠‘𝐺) = ◡( I ↾ 𝐵))
70		cnvresid 6264	. . . . . . . . . . . . . . 15 ⊢ ◡( I ↾ 𝐵) = ( I ↾ 𝐵)
71	69, 70	syl6eq 2825	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ◡(𝑠‘𝐺) = ( I ↾ 𝐵))
72	71	coeq2d 5580	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ◡(𝑠‘𝐺)) = (𝑓 ∘ ( I ↾ 𝐵)))
73	5, 13, 40	ltrn1o 36738	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → 𝑓:𝐵–1-1-onto→𝐵)
74	59, 56, 73	syl2anc 576	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑓:𝐵–1-1-onto→𝐵)
75		f1of 6442	. . . . . . . . . . . . . 14 ⊢ (𝑓:𝐵–1-1-onto→𝐵 → 𝑓:𝐵⟶𝐵)
76		fcoi1 6379	. . . . . . . . . . . . . 14 ⊢ (𝑓:𝐵⟶𝐵 → (𝑓 ∘ ( I ↾ 𝐵)) = 𝑓)
77	74, 75, 76	3syl 18	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ( I ↾ 𝐵)) = 𝑓)
78	72, 77	eqtrd 2809	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑓 ∘ ◡(𝑠‘𝐺)) = 𝑓)
79	78	fveq2d 6501	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) = (𝑅‘𝑓))
80		simp3l 1182	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋)
81	79, 80	eqbrtrrd 4950	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ 𝑋)
82		simprlr 768	. . . . . . . . . . 11 ⊢ (((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )) → (𝑅‘𝑓) ≤ 𝑌)
83	82	3ad2ant3 1116	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ 𝑌)
84		simp11l 1265	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝐾 ∈ HL)
85	84	hllatd 35978	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝐾 ∈ Lat)
86	5, 13, 40, 41	trlcl 36778	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑅‘𝑓) ∈ 𝐵)
87	59, 56, 86	syl2anc 576	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ∈ 𝐵)
88		simp12l 1267	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑋 ∈ 𝐵)
89		simp13l 1269	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑌 ∈ 𝐵)
90	5, 6, 7	latlem12 17559	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝑓) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵)) → (((𝑅‘𝑓) ≤ 𝑋 ∧ (𝑅‘𝑓) ≤ 𝑌) ↔ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)))
91	85, 87, 88, 89, 90	syl13anc 1353	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (((𝑅‘𝑓) ≤ 𝑋 ∧ (𝑅‘𝑓) ≤ 𝑌) ↔ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)))
92	81, 83, 91	mpbi2and 700	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌))
93	56, 92	jca 504	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)))
94	85, 88, 89, 11	syl3anc 1352	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑌) ∈ 𝐵)
95		simp11r 1266	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑊 ∈ 𝐻)
96	5, 13	lhpbase 36612	. . . . . . . . . . 11 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
97	95, 96	syl 17	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑊 ∈ 𝐵)
98	85, 88, 89, 18	syl3anc 1352	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑌) ≤ 𝑌)
99		simp13r 1270	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → 𝑌 ≤ 𝑊)
100	5, 6, 85, 94, 89, 97, 98, 99	lattrd 17539	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (𝑋 ∧ 𝑌) ≤ 𝑊)
101	5, 6, 13, 40, 41, 51, 14	dihopelvalbN 37852	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋 ∧ 𝑌) ∈ 𝐵 ∧ (𝑋 ∧ 𝑌) ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌)) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)) ∧ 𝑠 = 0 )))
102	59, 94, 100, 101	syl12anc 825	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌)) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ (𝑋 ∧ 𝑌)) ∧ 𝑠 = 0 )))
103	93, 57, 102	mpbir2and 701	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋)) ∧ ((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 ))) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌)))
104	103	3expia 1102	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → (((𝑅‘(𝑓 ∘ ◡(𝑠‘𝐺))) ≤ 𝑋 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑌) ∧ 𝑠 = 0 )) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌))))
105	49, 54, 104	syl2and 599	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) ∧ (𝑞 ∈ 𝐴 ∧ (¬ 𝑞 ≤ 𝑊 ∧ (𝑞 ∨ (𝑋 ∧ 𝑊)) = 𝑋))) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌))))
106	32, 105	rexlimddv 3231	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ((⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑋) ∧ ⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑌)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌))))
107	28, 106	syl5bi 234	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑋) ∩ (𝐼‘𝑌)) → ⟨𝑓, 𝑠⟩ ∈ (𝐼‘(𝑋 ∧ 𝑌))))
108	27, 107	relssdv 5508	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → ((𝐼‘𝑋) ∩ (𝐼‘𝑌)) ⊆ (𝐼‘(𝑋 ∧ 𝑌)))
109	23, 108	eqssd 3870	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ (𝑌 ∈ 𝐵 ∧ 𝑌 ≤ 𝑊)) → (𝐼‘(𝑋 ∧ 𝑌)) = ((𝐼‘𝑋) ∩ (𝐼‘𝑌)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 198   ∧ wa 387   ∧ w3a 1069   = wceq 1508   ∈ wcel 2051  ∃wrex 3084   ∩ cin 3823   ⊆ wss 3824  ⟨cop 4442   class class class wbr 4926   ↦ cmpt 5005   I cid 5308  ^◡ccnv 5403   ↾ cres 5406   ∘ ccom 5408  Rel wrel 5409  ⟶wf 6182  –1-1-onto→wf1o 6185  ‘cfv 6186  ℩crio 6935  (class class class)co 6975  Basecbs 16338  lecple 16427  occoc 16428  joincjn 17425  meetcmee 17426  Latclat 17526  Atomscatm 35877  HLchlt 35964  LHypclh 36598  LTrncltrn 36715  trLctrl 36772  TEndoctendo 37366  DIsoHcdih 37842

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1759  ax-4 1773  ax-5 1870  ax-6 1929  ax-7 1966  ax-8 2053  ax-9 2060  ax-10 2080  ax-11 2094  ax-12 2107  ax-13 2302  ax-ext 2745  ax-rep 5046  ax-sep 5057  ax-nul 5064  ax-pow 5116  ax-pr 5183  ax-un 7278  ax-cnex 10390  ax-resscn 10391  ax-1cn 10392  ax-icn 10393  ax-addcl 10394  ax-addrcl 10395  ax-mulcl 10396  ax-mulrcl 10397  ax-mulcom 10398  ax-addass 10399  ax-mulass 10400  ax-distr 10401  ax-i2m1 10402  ax-1ne0 10403  ax-1rid 10404  ax-rnegex 10405  ax-rrecex 10406  ax-cnre 10407  ax-pre-lttri 10408  ax-pre-lttrn 10409  ax-pre-ltadd 10410  ax-pre-mulgt0 10411  ax-riotaBAD 35567

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 835  df-3or 1070  df-3an 1071  df-tru 1511  df-fal 1521  df-ex 1744  df-nf 1748  df-sb 2017  df-mo 2548  df-eu 2585  df-clab 2754  df-cleq 2766  df-clel 2841  df-nfc 2913  df-ne 2963  df-nel 3069  df-ral 3088  df-rex 3089  df-reu 3090  df-rmo 3091  df-rab 3092  df-v 3412  df-sbc 3677  df-csb 3782  df-dif 3827  df-un 3829  df-in 3831  df-ss 3838  df-pss 3840  df-nul 4174  df-if 4346  df-pw 4419  df-sn 4437  df-pr 4439  df-tp 4441  df-op 4443  df-uni 4710  df-int 4747  df-iun 4791  df-iin 4792  df-br 4927  df-opab 4989  df-mpt 5006  df-tr 5028  df-id 5309  df-eprel 5314  df-po 5323  df-so 5324  df-fr 5363  df-we 5365  df-xp 5410  df-rel 5411  df-cnv 5412  df-co 5413  df-dm 5414  df-rn 5415  df-res 5416  df-ima 5417  df-pred 5984  df-ord 6030  df-on 6031  df-lim 6032  df-suc 6033  df-iota 6150  df-fun 6188  df-fn 6189  df-f 6190  df-f1 6191  df-fo 6192  df-f1o 6193  df-fv 6194  df-riota 6936  df-ov 6978  df-oprab 6979  df-mpo 6980  df-om 7396  df-1st 7500  df-2nd 7501  df-tpos 7694  df-undef 7741  df-wrecs 7749  df-recs 7811  df-rdg 7849  df-1o 7904  df-oadd 7908  df-er 8088  df-map 8207  df-en 8306  df-dom 8307  df-sdom 8308  df-fin 8309  df-pnf 10475  df-mnf 10476  df-xr 10477  df-ltxr 10478  df-le 10479  df-sub 10671  df-neg 10672  df-nn 11439  df-2 11502  df-3 11503  df-4 11504  df-5 11505  df-6 11506  df-n0 11707  df-z 11793  df-uz 12058  df-fz 12708  df-struct 16340  df-ndx 16341  df-slot 16342  df-base 16344  df-sets 16345  df-ress 16346  df-plusg 16433  df-mulr 16434  df-sca 16436  df-vsca 16437  df-0g 16570  df-proset 17409  df-poset 17427  df-plt 17439  df-lub 17455  df-glb 17456  df-join 17457  df-meet 17458  df-p0 17520  df-p1 17521  df-lat 17527  df-clat 17589  df-mgm 17723  df-sgrp 17765  df-mnd 17776  df-submnd 17817  df-grp 17907  df-minusg 17908  df-sbg 17909  df-subg 18073  df-cntz 18231  df-lsm 18535  df-cmn 18681  df-abl 18682  df-mgp 18976  df-ur 18988  df-ring 19035  df-oppr 19109  df-dvdsr 19127  df-unit 19128  df-invr 19158  df-dvr 19169  df-drng 19240  df-lmod 19371  df-lss 19439  df-lsp 19479  df-lvec 19610  df-oposet 35790  df-ol 35792  df-oml 35793  df-covers 35880  df-ats 35881  df-atl 35912  df-cvlat 35936  df-hlat 35965  df-llines 36112  df-lplanes 36113  df-lvols 36114  df-lines 36115  df-psubsp 36117  df-pmap 36118  df-padd 36410  df-lhyp 36602  df-laut 36603  df-ldil 36718  df-ltrn 36719  df-trl 36773  df-tendo 37369  df-edring 37371  df-disoa 37643  df-dvech 37693  df-dib 37753  df-dic 37787  df-dih 37843

This theorem is referenced by:  dihmeetbN  37917