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

Theorem cdlemm10N 42312
Description: The image of the map 𝐺 is the entire one-dimensional subspace (𝐼‘𝑉). Remark after Lemma M of [Crawley] p. 121 line 23. (Contributed by NM, 24-Nov-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
cdlemm10.l ≤ = (le‘𝐾)
cdlemm10.j ∨ = (join‘𝐾)
cdlemm10.a 𝐴 = (Atoms‘𝐾)
cdlemm10.h 𝐻 = (LHyp‘𝐾)
cdlemm10.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemm10.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemm10.i 𝐼 = ((DIsoA‘𝐾)‘𝑊)
cdlemm10.c 𝐶 = {𝑟 ∈ 𝐴 ∣ (𝑟 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑟 ≤ 𝑊)}
cdlemm10.f 𝐹 = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑠)
cdlemm10.g 𝐺 = (𝑞 ∈ 𝐶 ↦ (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑞))
Assertion
Ref Expression
cdlemm10N (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → ran 𝐺 = (𝐼‘𝑉))
Distinct variable groups:   𝑓,𝑟,𝑠, ≤   ∨ ,𝑟   𝐴,𝑓,𝑟,𝑠   𝑠,𝑞,𝐶   𝐺,𝑠   𝑓,𝐻,𝑠   𝑓,𝐾,𝑠   𝑓,𝑞,𝑃,𝑟,𝑠   𝑅,𝑓,𝑠   𝑇,𝑓,𝑞,𝑠   𝑓,𝑉,𝑟,𝑠   𝑓,𝑊,𝑟,𝑠
Allowed substitution hints:   𝐴(𝑞)   𝐶(𝑓, 𝑟)   𝑅(𝑟, 𝑞)   𝑇(𝑟)   𝐹(𝑓, 𝑠, 𝑟, 𝑞)   𝐺(𝑓, 𝑟, 𝑞)   𝐻(𝑟, 𝑞)   𝐼(𝑓, 𝑠, 𝑟, 𝑞)   ∨ (𝑓, 𝑠, 𝑞)   𝐾(𝑟, 𝑞)   ≤ (𝑞)   𝑉(𝑞)   𝑊(𝑞)

Proof of Theorem cdlemm10N
Dummy variable 𝑔 is distinct from all other variables.
StepHypRef Expression
1 riotaex 7385 . . . . 5 (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑞) ∈ V
2 cdlemm10.g . . . . 5 𝐺 = (𝑞 ∈ 𝐶 ↦ (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑞))
31, 2fnmpti 6687 . . . 4 𝐺 Fn 𝐶
4 fvelrnb 6950 . . . 4 (𝐺 Fn 𝐶 → (𝑔 ∈ ran 𝐺 ↔ ∃𝑠 ∈ 𝐶 (𝐺‘𝑠) = 𝑔))
53, 4ax-mp 5 . . 3 (𝑔 ∈ ran 𝐺 ↔ ∃𝑠 ∈ 𝐶 (𝐺‘𝑠) = 𝑔)
6 eqeq2 2772 . . . . . . . . . . . 12 (𝑞 = 𝑠 → ((𝑓‘𝑃) = 𝑞 ↔ (𝑓‘𝑃) = 𝑠))
76riotabidv 7383 . . . . . . . . . . 11 (𝑞 = 𝑠 → (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑞) = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑠))
8 riotaex 7385 . . . . . . . . . . 11 (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑠) ∈ V
97, 2, 8fvmpt 6998 . . . . . . . . . 10 (𝑠 ∈ 𝐶 → (𝐺‘𝑠) = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑠))
10 cdlemm10.f . . . . . . . . . 10 𝐹 = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑠)
119, 10eqtr4di 2813 . . . . . . . . 9 (𝑠 ∈ 𝐶 → (𝐺‘𝑠) = 𝐹)
1211adantl 487 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ 𝑠 ∈ 𝐶) → (𝐺‘𝑠) = 𝐹)
1312eqeq1d 2762 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ 𝑠 ∈ 𝐶) → ((𝐺‘𝑠) = 𝑔 ↔ 𝐹 = 𝑔))
1413rexbidva 3184 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (∃𝑠 ∈ 𝐶 (𝐺‘𝑠) = 𝑔 ↔ ∃𝑠 ∈ 𝐶 𝐹 = 𝑔))
15 simpl1 1210 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
16 simprl 783 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → 𝑔 ∈ 𝑇)
17 simpl2l 1245 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → 𝑃 ∈ 𝐴)
18 cdlemm10.l . . . . . . . . . . . 12 ≤ = (le‘𝐾)
19 cdlemm10.a . . . . . . . . . . . 12 𝐴 = (Atoms‘𝐾)
20 cdlemm10.h . . . . . . . . . . . 12 𝐻 = (LHyp‘𝐾)
21 cdlemm10.t . . . . . . . . . . . 12 𝑇 = ((LTrn‘𝐾)‘𝑊)
2218, 19, 20, 21ltrnat 41334 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑔 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝑔‘𝑃) ∈ 𝐴)
2315, 16, 17, 22syl3anc 1398 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑔‘𝑃) ∈ 𝐴)
24 eqid 2760 . . . . . . . . . . . 12 (Base‘𝐾) = (Base‘𝐾)
25 simpl1l 1243 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → 𝐾 ∈ HL)
2625hllatd 40558 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → 𝐾 ∈ Lat)
2724, 19atbase 40483 . . . . . . . . . . . . . 14 (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
2817, 27syl 18 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → 𝑃 ∈ (Base‘𝐾))
2924, 20, 21ltrncl 41319 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑔 ∈ 𝑇 ∧ 𝑃 ∈ (Base‘𝐾)) → (𝑔‘𝑃) ∈ (Base‘𝐾))
3015, 16, 28, 29syl3anc 1398 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑔‘𝑃) ∈ (Base‘𝐾))
31 cdlemm10.j . . . . . . . . . . . . . 14 ∨ = (join‘𝐾)
3224, 31latjcl 18622 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝑔‘𝑃) ∈ (Base‘𝐾)) → (𝑃 ∨ (𝑔‘𝑃)) ∈ (Base‘𝐾))
3326, 28, 30, 32syl3anc 1398 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑃 ∨ (𝑔‘𝑃)) ∈ (Base‘𝐾))
34 simpl3l 1247 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → 𝑉 ∈ 𝐴)
3524, 31, 19hlatjcl 40561 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → (𝑃 ∨ 𝑉) ∈ (Base‘𝐾))
3625, 17, 34, 35syl3anc 1398 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑃 ∨ 𝑉) ∈ (Base‘𝐾))
3724, 18, 31latlej2 18632 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝑔‘𝑃) ∈ (Base‘𝐾)) → (𝑔‘𝑃) ≤ (𝑃 ∨ (𝑔‘𝑃)))
3826, 28, 30, 37syl3anc 1398 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑔‘𝑃) ≤ (𝑃 ∨ (𝑔‘𝑃)))
39 simpl2 1211 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
40 cdlemm10.r . . . . . . . . . . . . . . 15 𝑅 = ((trL‘𝐾)‘𝑊)
4118, 31, 19, 20, 21, 40trljat1 41360 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑔 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ (𝑅‘𝑔)) = (𝑃 ∨ (𝑔‘𝑃)))
4215, 16, 39, 41syl3anc 1398 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑃 ∨ (𝑅‘𝑔)) = (𝑃 ∨ (𝑔‘𝑃)))
43 simprr 785 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑅‘𝑔) ≤ 𝑉)
4424, 20, 21, 40trlcl 41358 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑔 ∈ 𝑇) → (𝑅‘𝑔) ∈ (Base‘𝐾))
4515, 16, 44syl2anc 596 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑅‘𝑔) ∈ (Base‘𝐾))
4624, 19atbase 40483 . . . . . . . . . . . . . . . 16 (𝑉 ∈ 𝐴 → 𝑉 ∈ (Base‘𝐾))
4734, 46syl 18 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → 𝑉 ∈ (Base‘𝐾))
4824, 18, 31latjlej2 18637 . . . . . . . . . . . . . . 15 ((𝐾 ∈ Lat ∧ ((𝑅‘𝑔) ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾))) → ((𝑅‘𝑔) ≤ 𝑉 → (𝑃 ∨ (𝑅‘𝑔)) ≤ (𝑃 ∨ 𝑉)))
4926, 45, 47, 28, 48syl13anc 1399 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → ((𝑅‘𝑔) ≤ 𝑉 → (𝑃 ∨ (𝑅‘𝑔)) ≤ (𝑃 ∨ 𝑉)))
5043, 49mpd 16 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑃 ∨ (𝑅‘𝑔)) ≤ (𝑃 ∨ 𝑉))
5142, 50eqbrtrrd 5128 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑃 ∨ (𝑔‘𝑃)) ≤ (𝑃 ∨ 𝑉))
5224, 18, 26, 30, 33, 36, 38, 51lattrd 18629 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑔‘𝑃) ≤ (𝑃 ∨ 𝑉))
5318, 19, 20, 21ltrnel 41333 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑔 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑔‘𝑃) ∈ 𝐴 ∧ ¬ (𝑔‘𝑃) ≤ 𝑊))
5453simprd 501 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑔 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ¬ (𝑔‘𝑃) ≤ 𝑊)
5515, 16, 39, 54syl3anc 1398 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → ¬ (𝑔‘𝑃) ≤ 𝑊)
5652, 55jca 521 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → ((𝑔‘𝑃) ≤ (𝑃 ∨ 𝑉) ∧ ¬ (𝑔‘𝑃) ≤ 𝑊))
57 breq1 5105 . . . . . . . . . . . 12 (𝑟 = (𝑔‘𝑃) → (𝑟 ≤ (𝑃 ∨ 𝑉) ↔ (𝑔‘𝑃) ≤ (𝑃 ∨ 𝑉)))
58 breq1 5105 . . . . . . . . . . . . 13 (𝑟 = (𝑔‘𝑃) → (𝑟 ≤ 𝑊 ↔ (𝑔‘𝑃) ≤ 𝑊))
5958notbid 321 . . . . . . . . . . . 12 (𝑟 = (𝑔‘𝑃) → (¬ 𝑟 ≤ 𝑊 ↔ ¬ (𝑔‘𝑃) ≤ 𝑊))
6057, 59anbi12d 644 . . . . . . . . . . 11 (𝑟 = (𝑔‘𝑃) → ((𝑟 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑟 ≤ 𝑊) ↔ ((𝑔‘𝑃) ≤ (𝑃 ∨ 𝑉) ∧ ¬ (𝑔‘𝑃) ≤ 𝑊)))
61 cdlemm10.c . . . . . . . . . . 11 𝐶 = {𝑟 ∈ 𝐴 ∣ (𝑟 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑟 ≤ 𝑊)}
6260, 61elrab2 3648 . . . . . . . . . 10 ((𝑔‘𝑃) ∈ 𝐶 ↔ ((𝑔‘𝑃) ∈ 𝐴 ∧ ((𝑔‘𝑃) ≤ (𝑃 ∨ 𝑉) ∧ ¬ (𝑔‘𝑃) ≤ 𝑊)))
6323, 56, 62sylanbrc 595 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (𝑔‘𝑃) ∈ 𝐶)
6418, 19, 20, 21cdlemeiota 41779 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑔 ∈ 𝑇) → 𝑔 = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = (𝑔‘𝑃)))
6515, 39, 16, 64syl3anc 1398 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → 𝑔 = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = (𝑔‘𝑃)))
6665eqcomd 2766 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = (𝑔‘𝑃)) = 𝑔)
67 eqeq2 2772 . . . . . . . . . . . . 13 (𝑠 = (𝑔‘𝑃) → ((𝑓‘𝑃) = 𝑠 ↔ (𝑓‘𝑃) = (𝑔‘𝑃)))
6867riotabidv 7383 . . . . . . . . . . . 12 (𝑠 = (𝑔‘𝑃) → (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑠) = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = (𝑔‘𝑃)))
6910, 68eqtrid 2807 . . . . . . . . . . 11 (𝑠 = (𝑔‘𝑃) → 𝐹 = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = (𝑔‘𝑃)))
7069eqeq1d 2762 . . . . . . . . . 10 (𝑠 = (𝑔‘𝑃) → (𝐹 = 𝑔 ↔ (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = (𝑔‘𝑃)) = 𝑔))
7170rspcev 3576 . . . . . . . . 9 (((𝑔‘𝑃) ∈ 𝐶 ∧ (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = (𝑔‘𝑃)) = 𝑔) → ∃𝑠 ∈ 𝐶 𝐹 = 𝑔)
7263, 66, 71syl2anc 596 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)) → ∃𝑠 ∈ 𝐶 𝐹 = 𝑔)
7372ex 418 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → ((𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉) → ∃𝑠 ∈ 𝐶 𝐹 = 𝑔))
74 breq1 5105 . . . . . . . . . . . . 13 (𝑟 = 𝑠 → (𝑟 ≤ (𝑃 ∨ 𝑉) ↔ 𝑠 ≤ (𝑃 ∨ 𝑉)))
75 breq1 5105 . . . . . . . . . . . . . 14 (𝑟 = 𝑠 → (𝑟 ≤ 𝑊 ↔ 𝑠 ≤ 𝑊))
7675notbid 321 . . . . . . . . . . . . 13 (𝑟 = 𝑠 → (¬ 𝑟 ≤ 𝑊 ↔ ¬ 𝑠 ≤ 𝑊))
7774, 76anbi12d 644 . . . . . . . . . . . 12 (𝑟 = 𝑠 → ((𝑟 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑟 ≤ 𝑊) ↔ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)))
7877, 61elrab2 3648 . . . . . . . . . . 11 (𝑠 ∈ 𝐶 ↔ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)))
79 simpl1 1210 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
80 simpl2l 1245 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑃 ∈ 𝐴)
81 simpl2r 1246 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → ¬ 𝑃 ≤ 𝑊)
82 simprl 783 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑠 ∈ 𝐴)
83 simprrr 794 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → ¬ 𝑠 ≤ 𝑊)
8418, 19, 20, 21, 10ltrniotacl 41773 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑠 ∈ 𝐴 ∧ ¬ 𝑠 ≤ 𝑊)) → 𝐹 ∈ 𝑇)
8518, 19, 20, 21, 10ltrniotaval 41775 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑠 ∈ 𝐴 ∧ ¬ 𝑠 ≤ 𝑊)) → (𝐹‘𝑃) = 𝑠)
8684, 85jca 521 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑠 ∈ 𝐴 ∧ ¬ 𝑠 ≤ 𝑊)) → (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠))
8779, 80, 81, 82, 83, 86syl122anc 1406 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠))
88 simp3l 1220 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → 𝐹 ∈ 𝑇)
89 simp11 1222 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
90 simp12 1223 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
91 eqid 2760 . . . . . . . . . . . . . . . . 17 (meet‘𝐾) = (meet‘𝐾)
9218, 31, 91, 19, 20, 21, 40trlval2 41357 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐹) = ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)𝑊))
9389, 88, 90, 92syl3anc 1398 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → (𝑅‘𝐹) = ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)𝑊))
94 simp3r 1221 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → (𝐹‘𝑃) = 𝑠)
9594oveq2d 7440 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → (𝑃 ∨ (𝐹‘𝑃)) = (𝑃 ∨ 𝑠))
9695oveq1d 7439 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → ((𝑃 ∨ (𝐹‘𝑃))(meet‘𝐾)𝑊) = ((𝑃 ∨ 𝑠)(meet‘𝐾)𝑊))
9793, 96eqtrd 2795 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → (𝑅‘𝐹) = ((𝑃 ∨ 𝑠)(meet‘𝐾)𝑊))
98 simpl1l 1243 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝐾 ∈ HL)
99 simpl3l 1247 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑉 ∈ 𝐴)
10018, 31, 19hlatlej1 40569 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → 𝑃 ≤ (𝑃 ∨ 𝑉))
10198, 80, 99, 100syl3anc 1398 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑃 ≤ (𝑃 ∨ 𝑉))
102 simprrl 793 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑠 ≤ (𝑃 ∨ 𝑉))
10398hllatd 40558 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝐾 ∈ Lat)
10480, 27syl 18 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑃 ∈ (Base‘𝐾))
10524, 19atbase 40483 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ 𝐴 → 𝑠 ∈ (Base‘𝐾))
106105ad2antrl 741 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑠 ∈ (Base‘𝐾))
10798, 80, 99, 35syl3anc 1398 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → (𝑃 ∨ 𝑉) ∈ (Base‘𝐾))
10824, 18, 31latjle12 18633 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑠 ∈ (Base‘𝐾) ∧ (𝑃 ∨ 𝑉) ∈ (Base‘𝐾))) → ((𝑃 ≤ (𝑃 ∨ 𝑉) ∧ 𝑠 ≤ (𝑃 ∨ 𝑉)) ↔ (𝑃 ∨ 𝑠) ≤ (𝑃 ∨ 𝑉)))
109103, 104, 106, 107, 108syl13anc 1399 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → ((𝑃 ≤ (𝑃 ∨ 𝑉) ∧ 𝑠 ≤ (𝑃 ∨ 𝑉)) ↔ (𝑃 ∨ 𝑠) ≤ (𝑃 ∨ 𝑉)))
110101, 102, 109mpbi2and 725 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → (𝑃 ∨ 𝑠) ≤ (𝑃 ∨ 𝑉))
11124, 31, 19hlatjcl 40561 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑠 ∈ 𝐴) → (𝑃 ∨ 𝑠) ∈ (Base‘𝐾))
11298, 80, 82, 111syl3anc 1398 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → (𝑃 ∨ 𝑠) ∈ (Base‘𝐾))
113 simpl1r 1244 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑊 ∈ 𝐻)
11424, 20lhpbase 41192 . . . . . . . . . . . . . . . . . . 19 (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
115113, 114syl 18 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → 𝑊 ∈ (Base‘𝐾))
11624, 18, 91latmlem1 18652 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ Lat ∧ ((𝑃 ∨ 𝑠) ∈ (Base‘𝐾) ∧ (𝑃 ∨ 𝑉) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑃 ∨ 𝑠) ≤ (𝑃 ∨ 𝑉) → ((𝑃 ∨ 𝑠)(meet‘𝐾)𝑊) ≤ ((𝑃 ∨ 𝑉)(meet‘𝐾)𝑊)))
117103, 112, 107, 115, 116syl13anc 1399 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → ((𝑃 ∨ 𝑠) ≤ (𝑃 ∨ 𝑉) → ((𝑃 ∨ 𝑠)(meet‘𝐾)𝑊) ≤ ((𝑃 ∨ 𝑉)(meet‘𝐾)𝑊)))
118110, 117mpd 16 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → ((𝑃 ∨ 𝑠)(meet‘𝐾)𝑊) ≤ ((𝑃 ∨ 𝑉)(meet‘𝐾)𝑊))
11918, 31, 91, 19, 20lhpat4N 41238 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → ((𝑃 ∨ 𝑉)(meet‘𝐾)𝑊) = 𝑉)
120119adantr 486 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → ((𝑃 ∨ 𝑉)(meet‘𝐾)𝑊) = 𝑉)
121118, 120breqtrd 5130 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → ((𝑃 ∨ 𝑠)(meet‘𝐾)𝑊) ≤ 𝑉)
1221213adant3 1150 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → ((𝑃 ∨ 𝑠)(meet‘𝐾)𝑊) ≤ 𝑉)
12397, 122eqbrtrd 5126 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → (𝑅‘𝐹) ≤ 𝑉)
12488, 123jca 521 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) = 𝑠)) → (𝐹 ∈ 𝑇 ∧ (𝑅‘𝐹) ≤ 𝑉))
12587, 124mpd3an3 1491 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ (𝑠 ∈ 𝐴 ∧ (𝑠 ≤ (𝑃 ∨ 𝑉) ∧ ¬ 𝑠 ≤ 𝑊))) → (𝐹 ∈ 𝑇 ∧ (𝑅‘𝐹) ≤ 𝑉))
12678, 125sylan2b 606 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) ∧ 𝑠 ∈ 𝐶) → (𝐹 ∈ 𝑇 ∧ (𝑅‘𝐹) ≤ 𝑉))
127126ex 418 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (𝑠 ∈ 𝐶 → (𝐹 ∈ 𝑇 ∧ (𝑅‘𝐹) ≤ 𝑉)))
128 eleq1 2848 . . . . . . . . . . 11 (𝐹 = 𝑔 → (𝐹 ∈ 𝑇 ↔ 𝑔 ∈ 𝑇))
129 fveq2 6890 . . . . . . . . . . . 12 (𝐹 = 𝑔 → (𝑅‘𝐹) = (𝑅‘𝑔))
130129breq1d 5112 . . . . . . . . . . 11 (𝐹 = 𝑔 → ((𝑅‘𝐹) ≤ 𝑉 ↔ (𝑅‘𝑔) ≤ 𝑉))
131128, 130anbi12d 644 . . . . . . . . . 10 (𝐹 = 𝑔 → ((𝐹 ∈ 𝑇 ∧ (𝑅‘𝐹) ≤ 𝑉) ↔ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)))
132131biimpcd 252 . . . . . . . . 9 ((𝐹 ∈ 𝑇 ∧ (𝑅‘𝐹) ≤ 𝑉) → (𝐹 = 𝑔 → (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)))
133127, 132syl6 36 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (𝑠 ∈ 𝐶 → (𝐹 = 𝑔 → (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉))))
134133rexlimdv 3161 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (∃𝑠 ∈ 𝐶 𝐹 = 𝑔 → (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)))
13573, 134impbid 215 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → ((𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉) ↔ ∃𝑠 ∈ 𝐶 𝐹 = 𝑔))
13614, 135bitr4d 285 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (∃𝑠 ∈ 𝐶 (𝐺‘𝑠) = 𝑔 ↔ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉)))
137 fveq2 6890 . . . . . . 7 (𝑓 = 𝑔 → (𝑅‘𝑓) = (𝑅‘𝑔))
138137breq1d 5112 . . . . . 6 (𝑓 = 𝑔 → ((𝑅‘𝑓) ≤ 𝑉 ↔ (𝑅‘𝑔) ≤ 𝑉))
139138elrab 3644 . . . . 5 (𝑔 ∈ {𝑓 ∈ 𝑇 ∣ (𝑅‘𝑓) ≤ 𝑉} ↔ (𝑔 ∈ 𝑇 ∧ (𝑅‘𝑔) ≤ 𝑉))
140136, 139bitr4di 292 . . . 4 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (∃𝑠 ∈ 𝐶 (𝐺‘𝑠) = 𝑔 ↔ 𝑔 ∈ {𝑓 ∈ 𝑇 ∣ (𝑅‘𝑓) ≤ 𝑉}))
141 simp1l 1216 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → 𝐾 ∈ HL)
142 simp1r 1217 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → 𝑊 ∈ 𝐻)
143 simp3l 1220 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → 𝑉 ∈ 𝐴)
144143, 46syl 18 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → 𝑉 ∈ (Base‘𝐾))
145 simp3r 1221 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → 𝑉 ≤ 𝑊)
146 cdlemm10.i . . . . . . 7 𝐼 = ((DIsoA‘𝐾)‘𝑊)
14724, 18, 20, 21, 40, 146diaval 42226 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑉 ∈ (Base‘𝐾) ∧ 𝑉 ≤ 𝑊)) → (𝐼‘𝑉) = {𝑓 ∈ 𝑇 ∣ (𝑅‘𝑓) ≤ 𝑉})
148141, 142, 144, 145, 147syl22anc 852 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (𝐼‘𝑉) = {𝑓 ∈ 𝑇 ∣ (𝑅‘𝑓) ≤ 𝑉})
149148eleq2d 2846 . . . 4 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (𝑔 ∈ (𝐼‘𝑉) ↔ 𝑔 ∈ {𝑓 ∈ 𝑇 ∣ (𝑅‘𝑓) ≤ 𝑉}))
150140, 149bitr4d 285 . . 3 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (∃𝑠 ∈ 𝐶 (𝐺‘𝑠) = 𝑔 ↔ 𝑔 ∈ (𝐼‘𝑉)))
1515, 150bitrid 286 . 2 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → (𝑔 ∈ ran 𝐺 ↔ 𝑔 ∈ (𝐼‘𝑉)))
152151eqrdv 2758 1 (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊)) → ran 𝐺 = (𝐼‘𝑉))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2144  ∃wrex 3086  {crab 3412   class class class wbr 5102   ↦ cmpt 5185  ran crn 5652   Fn wfn 6538  ‘cfv 6543  ℩crio 7380  (class class class)co 7424  Basecbs 17396  lecple 17444  joincjn 18494  meetcmee 18495  Latclat 18614  Atomscatm 40457  HLchlt 40544  LHypclh 41178  LTrncltrn 41295  trLctrl 41352  DIsoAcdia 42222
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5327  ax-pr 5391  ax-un 7755  ax-riotaBAD 40147
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3848  df-ss 3897  df-dif 4046  df-in 4090  df-un 4150  df-nul 4278  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-iun 4952  df-iin 4953  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-iota 6497  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7381  df-ov 7427  df-oprab 7428  df-mpo 7429  df-1st 8005  df-2nd 8006  df-undef 8298  df-map 8857  df-proset 18477  df-poset 18496  df-plt 18511  df-lub 18527  df-glb 18528  df-join 18529  df-meet 18530  df-p0 18606  df-p1 18607  df-lat 18615  df-clat 18682  df-oposet 40370  df-ol 40372  df-oml 40373  df-covers 40460  df-ats 40461  df-atl 40492  df-cvlat 40516  df-hlat 40545  df-llines 40692  df-lplanes 40693  df-lvols 40694  df-lines 40695  df-psubsp 40697  df-pmap 40698  df-padd 40990  df-lhyp 41182  df-laut 41183  df-ldil 41298  df-ltrn 41299  df-trl 41353  df-disoa 42223
This theorem is used by: (None)
  Copyright terms: Public domain W3C validator