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 41742
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 7357 . . . . 5 (𝑓𝑇 (𝑓𝑃) = 𝑞) ∈ V
2 cdlemm10.g . . . . 5 𝐺 = (𝑞𝐶 ↦ (𝑓𝑇 (𝑓𝑃) = 𝑞))
31, 2fnmpti 6664 . . . 4 𝐺 Fn 𝐶
4 fvelrnb 6927 . . . 4 (𝐺 Fn 𝐶 → (𝑔 ∈ ran 𝐺 ↔ ∃𝑠𝐶 (𝐺𝑠) = 𝑔))
53, 4ax-mp 5 . . 3 (𝑔 ∈ ran 𝐺 ↔ ∃𝑠𝐶 (𝐺𝑠) = 𝑔)
6 eqeq2 2774 . . . . . . . . . . . 12 (𝑞 = 𝑠 → ((𝑓𝑃) = 𝑞 ↔ (𝑓𝑃) = 𝑠))
76riotabidv 7355 . . . . . . . . . . 11 (𝑞 = 𝑠 → (𝑓𝑇 (𝑓𝑃) = 𝑞) = (𝑓𝑇 (𝑓𝑃) = 𝑠))
8 riotaex 7357 . . . . . . . . . . 11 (𝑓𝑇 (𝑓𝑃) = 𝑠) ∈ V
97, 2, 8fvmpt 6975 . . . . . . . . . 10 (𝑠𝐶 → (𝐺𝑠) = (𝑓𝑇 (𝑓𝑃) = 𝑠))
10 cdlemm10.f . . . . . . . . . 10 𝐹 = (𝑓𝑇 (𝑓𝑃) = 𝑠)
119, 10eqtr4di 2815 . . . . . . . . 9 (𝑠𝐶 → (𝐺𝑠) = 𝐹)
1211adantl 485 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑠𝐶) → (𝐺𝑠) = 𝐹)
1312eqeq1d 2764 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑠𝐶) → ((𝐺𝑠) = 𝑔𝐹 = 𝑔))
1413rexbidva 3184 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (∃𝑠𝐶 (𝐺𝑠) = 𝑔 ↔ ∃𝑠𝐶 𝐹 = 𝑔))
15 simpl1 1205 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
16 simprl 780 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → 𝑔𝑇)
17 simpl2l 1240 . . . . . . . . . . 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 40764 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑔𝑇𝑃𝐴) → (𝑔𝑃) ∈ 𝐴)
2315, 16, 17, 22syl3anc 1390 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑔𝑃) ∈ 𝐴)
24 eqid 2762 . . . . . . . . . . . 12 (Base‘𝐾) = (Base‘𝐾)
25 simpl1l 1238 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → 𝐾 ∈ HL)
2625hllatd 39988 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → 𝐾 ∈ Lat)
2724, 19atbase 39913 . . . . . . . . . . . . . 14 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
2817, 27syl 17 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → 𝑃 ∈ (Base‘𝐾))
2924, 20, 21ltrncl 40749 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑔𝑇𝑃 ∈ (Base‘𝐾)) → (𝑔𝑃) ∈ (Base‘𝐾))
3015, 16, 28, 29syl3anc 1390 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑔𝑃) ∈ (Base‘𝐾))
31 cdlemm10.j . . . . . . . . . . . . . 14 = (join‘𝐾)
3224, 31latjcl 18471 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝑔𝑃) ∈ (Base‘𝐾)) → (𝑃 (𝑔𝑃)) ∈ (Base‘𝐾))
3326, 28, 30, 32syl3anc 1390 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑃 (𝑔𝑃)) ∈ (Base‘𝐾))
34 simpl3l 1242 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → 𝑉𝐴)
3524, 31, 19hlatjcl 39991 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑉𝐴) → (𝑃 𝑉) ∈ (Base‘𝐾))
3625, 17, 34, 35syl3anc 1390 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑃 𝑉) ∈ (Base‘𝐾))
3724, 18, 31latlej2 18481 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝑔𝑃) ∈ (Base‘𝐾)) → (𝑔𝑃) (𝑃 (𝑔𝑃)))
3826, 28, 30, 37syl3anc 1390 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑔𝑃) (𝑃 (𝑔𝑃)))
39 simpl2 1206 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
40 cdlemm10.r . . . . . . . . . . . . . . 15 𝑅 = ((trL‘𝐾)‘𝑊)
4118, 31, 19, 20, 21, 40trljat1 40790 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑔𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 (𝑅𝑔)) = (𝑃 (𝑔𝑃)))
4215, 16, 39, 41syl3anc 1390 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑃 (𝑅𝑔)) = (𝑃 (𝑔𝑃)))
43 simprr 782 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑅𝑔) 𝑉)
4424, 20, 21, 40trlcl 40788 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑔𝑇) → (𝑅𝑔) ∈ (Base‘𝐾))
4515, 16, 44syl2anc 593 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑅𝑔) ∈ (Base‘𝐾))
4624, 19atbase 39913 . . . . . . . . . . . . . . . 16 (𝑉𝐴𝑉 ∈ (Base‘𝐾))
4734, 46syl 17 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → 𝑉 ∈ (Base‘𝐾))
4824, 18, 31latjlej2 18486 . . . . . . . . . . . . . . 15 ((𝐾 ∈ Lat ∧ ((𝑅𝑔) ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾))) → ((𝑅𝑔) 𝑉 → (𝑃 (𝑅𝑔)) (𝑃 𝑉)))
4926, 45, 47, 28, 48syl13anc 1391 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → ((𝑅𝑔) 𝑉 → (𝑃 (𝑅𝑔)) (𝑃 𝑉)))
5043, 49mpd 15 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑃 (𝑅𝑔)) (𝑃 𝑉))
5142, 50eqbrtrrd 5124 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑃 (𝑔𝑃)) (𝑃 𝑉))
5224, 18, 26, 30, 33, 36, 38, 51lattrd 18478 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑔𝑃) (𝑃 𝑉))
5318, 19, 20, 21ltrnel 40763 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑔𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑔𝑃) ∈ 𝐴 ∧ ¬ (𝑔𝑃) 𝑊))
5453simprd 499 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑔𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ¬ (𝑔𝑃) 𝑊)
5515, 16, 39, 54syl3anc 1390 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → ¬ (𝑔𝑃) 𝑊)
5652, 55jca 519 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → ((𝑔𝑃) (𝑃 𝑉) ∧ ¬ (𝑔𝑃) 𝑊))
57 breq1 5103 . . . . . . . . . . . 12 (𝑟 = (𝑔𝑃) → (𝑟 (𝑃 𝑉) ↔ (𝑔𝑃) (𝑃 𝑉)))
58 breq1 5103 . . . . . . . . . . . . 13 (𝑟 = (𝑔𝑃) → (𝑟 𝑊 ↔ (𝑔𝑃) 𝑊))
5958notbid 320 . . . . . . . . . . . 12 (𝑟 = (𝑔𝑃) → (¬ 𝑟 𝑊 ↔ ¬ (𝑔𝑃) 𝑊))
6057, 59anbi12d 641 . . . . . . . . . . 11 (𝑟 = (𝑔𝑃) → ((𝑟 (𝑃 𝑉) ∧ ¬ 𝑟 𝑊) ↔ ((𝑔𝑃) (𝑃 𝑉) ∧ ¬ (𝑔𝑃) 𝑊)))
61 cdlemm10.c . . . . . . . . . . 11 𝐶 = {𝑟𝐴 ∣ (𝑟 (𝑃 𝑉) ∧ ¬ 𝑟 𝑊)}
6260, 61elrab2 3654 . . . . . . . . . 10 ((𝑔𝑃) ∈ 𝐶 ↔ ((𝑔𝑃) ∈ 𝐴 ∧ ((𝑔𝑃) (𝑃 𝑉) ∧ ¬ (𝑔𝑃) 𝑊)))
6323, 56, 62sylanbrc 592 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑔𝑃) ∈ 𝐶)
6418, 19, 20, 21cdlemeiota 41209 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑔𝑇) → 𝑔 = (𝑓𝑇 (𝑓𝑃) = (𝑔𝑃)))
6515, 39, 16, 64syl3anc 1390 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → 𝑔 = (𝑓𝑇 (𝑓𝑃) = (𝑔𝑃)))
6665eqcomd 2768 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → (𝑓𝑇 (𝑓𝑃) = (𝑔𝑃)) = 𝑔)
67 eqeq2 2774 . . . . . . . . . . . . 13 (𝑠 = (𝑔𝑃) → ((𝑓𝑃) = 𝑠 ↔ (𝑓𝑃) = (𝑔𝑃)))
6867riotabidv 7355 . . . . . . . . . . . 12 (𝑠 = (𝑔𝑃) → (𝑓𝑇 (𝑓𝑃) = 𝑠) = (𝑓𝑇 (𝑓𝑃) = (𝑔𝑃)))
6910, 68eqtrid 2809 . . . . . . . . . . 11 (𝑠 = (𝑔𝑃) → 𝐹 = (𝑓𝑇 (𝑓𝑃) = (𝑔𝑃)))
7069eqeq1d 2764 . . . . . . . . . 10 (𝑠 = (𝑔𝑃) → (𝐹 = 𝑔 ↔ (𝑓𝑇 (𝑓𝑃) = (𝑔𝑃)) = 𝑔))
7170rspcev 3581 . . . . . . . . 9 (((𝑔𝑃) ∈ 𝐶 ∧ (𝑓𝑇 (𝑓𝑃) = (𝑔𝑃)) = 𝑔) → ∃𝑠𝐶 𝐹 = 𝑔)
7263, 66, 71syl2anc 593 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)) → ∃𝑠𝐶 𝐹 = 𝑔)
7372ex 416 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ((𝑔𝑇 ∧ (𝑅𝑔) 𝑉) → ∃𝑠𝐶 𝐹 = 𝑔))
74 breq1 5103 . . . . . . . . . . . . 13 (𝑟 = 𝑠 → (𝑟 (𝑃 𝑉) ↔ 𝑠 (𝑃 𝑉)))
75 breq1 5103 . . . . . . . . . . . . . 14 (𝑟 = 𝑠 → (𝑟 𝑊𝑠 𝑊))
7675notbid 320 . . . . . . . . . . . . 13 (𝑟 = 𝑠 → (¬ 𝑟 𝑊 ↔ ¬ 𝑠 𝑊))
7774, 76anbi12d 641 . . . . . . . . . . . 12 (𝑟 = 𝑠 → ((𝑟 (𝑃 𝑉) ∧ ¬ 𝑟 𝑊) ↔ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)))
7877, 61elrab2 3654 . . . . . . . . . . 11 (𝑠𝐶 ↔ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)))
79 simpl1 1205 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
80 simpl2l 1240 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑃𝐴)
81 simpl2r 1241 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → ¬ 𝑃 𝑊)
82 simprl 780 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑠𝐴)
83 simprrr 791 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → ¬ 𝑠 𝑊)
8418, 19, 20, 21, 10ltrniotacl 41203 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝐹𝑇)
8518, 19, 20, 21, 10ltrniotaval 41205 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝐹𝑃) = 𝑠)
8684, 85jca 519 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠))
8779, 80, 81, 82, 83, 86syl122anc 1398 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠))
88 simp3l 1215 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → 𝐹𝑇)
89 simp11 1217 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
90 simp12 1218 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
91 eqid 2762 . . . . . . . . . . . . . . . . 17 (meet‘𝐾) = (meet‘𝐾)
9218, 31, 91, 19, 20, 21, 40trlval2 40787 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑅𝐹) = ((𝑃 (𝐹𝑃))(meet‘𝐾)𝑊))
9389, 88, 90, 92syl3anc 1390 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → (𝑅𝐹) = ((𝑃 (𝐹𝑃))(meet‘𝐾)𝑊))
94 simp3r 1216 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → (𝐹𝑃) = 𝑠)
9594oveq2d 7412 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → (𝑃 (𝐹𝑃)) = (𝑃 𝑠))
9695oveq1d 7411 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → ((𝑃 (𝐹𝑃))(meet‘𝐾)𝑊) = ((𝑃 𝑠)(meet‘𝐾)𝑊))
9793, 96eqtrd 2797 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → (𝑅𝐹) = ((𝑃 𝑠)(meet‘𝐾)𝑊))
98 simpl1l 1238 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝐾 ∈ HL)
99 simpl3l 1242 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑉𝐴)
10018, 31, 19hlatlej1 39999 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑉𝐴) → 𝑃 (𝑃 𝑉))
10198, 80, 99, 100syl3anc 1390 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑃 (𝑃 𝑉))
102 simprrl 790 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑠 (𝑃 𝑉))
10398hllatd 39988 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝐾 ∈ Lat)
10480, 27syl 17 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑃 ∈ (Base‘𝐾))
10524, 19atbase 39913 . . . . . . . . . . . . . . . . . . . 20 (𝑠𝐴𝑠 ∈ (Base‘𝐾))
106105ad2antrl 738 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑠 ∈ (Base‘𝐾))
10798, 80, 99, 35syl3anc 1390 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → (𝑃 𝑉) ∈ (Base‘𝐾))
10824, 18, 31latjle12 18482 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑠 ∈ (Base‘𝐾) ∧ (𝑃 𝑉) ∈ (Base‘𝐾))) → ((𝑃 (𝑃 𝑉) ∧ 𝑠 (𝑃 𝑉)) ↔ (𝑃 𝑠) (𝑃 𝑉)))
109103, 104, 106, 107, 108syl13anc 1391 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → ((𝑃 (𝑃 𝑉) ∧ 𝑠 (𝑃 𝑉)) ↔ (𝑃 𝑠) (𝑃 𝑉)))
110101, 102, 109mpbi2and 722 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → (𝑃 𝑠) (𝑃 𝑉))
11124, 31, 19hlatjcl 39991 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑠𝐴) → (𝑃 𝑠) ∈ (Base‘𝐾))
11298, 80, 82, 111syl3anc 1390 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → (𝑃 𝑠) ∈ (Base‘𝐾))
113 simpl1r 1239 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑊𝐻)
11424, 20lhpbase 40622 . . . . . . . . . . . . . . . . . . 19 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
115113, 114syl 17 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → 𝑊 ∈ (Base‘𝐾))
11624, 18, 91latmlem1 18501 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ Lat ∧ ((𝑃 𝑠) ∈ (Base‘𝐾) ∧ (𝑃 𝑉) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑃 𝑠) (𝑃 𝑉) → ((𝑃 𝑠)(meet‘𝐾)𝑊) ((𝑃 𝑉)(meet‘𝐾)𝑊)))
117103, 112, 107, 115, 116syl13anc 1391 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → ((𝑃 𝑠) (𝑃 𝑉) → ((𝑃 𝑠)(meet‘𝐾)𝑊) ((𝑃 𝑉)(meet‘𝐾)𝑊)))
118110, 117mpd 15 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → ((𝑃 𝑠)(meet‘𝐾)𝑊) ((𝑃 𝑉)(meet‘𝐾)𝑊))
11918, 31, 91, 19, 20lhpat4N 40668 . . . . . . . . . . . . . . . . 17 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ((𝑃 𝑉)(meet‘𝐾)𝑊) = 𝑉)
120119adantr 484 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → ((𝑃 𝑉)(meet‘𝐾)𝑊) = 𝑉)
121118, 120breqtrd 5126 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → ((𝑃 𝑠)(meet‘𝐾)𝑊) 𝑉)
1221213adant3 1145 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → ((𝑃 𝑠)(meet‘𝐾)𝑊) 𝑉)
12397, 122eqbrtrd 5122 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → (𝑅𝐹) 𝑉)
12488, 123jca 519 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊)) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑠)) → (𝐹𝑇 ∧ (𝑅𝐹) 𝑉))
12587, 124mpd3an3 1483 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ (𝑠𝐴 ∧ (𝑠 (𝑃 𝑉) ∧ ¬ 𝑠 𝑊))) → (𝐹𝑇 ∧ (𝑅𝐹) 𝑉))
12678, 125sylan2b 603 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑠𝐶) → (𝐹𝑇 ∧ (𝑅𝐹) 𝑉))
127126ex 416 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (𝑠𝐶 → (𝐹𝑇 ∧ (𝑅𝐹) 𝑉)))
128 eleq1 2850 . . . . . . . . . . 11 (𝐹 = 𝑔 → (𝐹𝑇𝑔𝑇))
129 fveq2 6867 . . . . . . . . . . . 12 (𝐹 = 𝑔 → (𝑅𝐹) = (𝑅𝑔))
130129breq1d 5110 . . . . . . . . . . 11 (𝐹 = 𝑔 → ((𝑅𝐹) 𝑉 ↔ (𝑅𝑔) 𝑉))
131128, 130anbi12d 641 . . . . . . . . . 10 (𝐹 = 𝑔 → ((𝐹𝑇 ∧ (𝑅𝐹) 𝑉) ↔ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)))
132131biimpcd 251 . . . . . . . . 9 ((𝐹𝑇 ∧ (𝑅𝐹) 𝑉) → (𝐹 = 𝑔 → (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)))
133127, 132syl6 35 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (𝑠𝐶 → (𝐹 = 𝑔 → (𝑔𝑇 ∧ (𝑅𝑔) 𝑉))))
134133rexlimdv 3161 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (∃𝑠𝐶 𝐹 = 𝑔 → (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)))
13573, 134impbid 214 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ((𝑔𝑇 ∧ (𝑅𝑔) 𝑉) ↔ ∃𝑠𝐶 𝐹 = 𝑔))
13614, 135bitr4d 284 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (∃𝑠𝐶 (𝐺𝑠) = 𝑔 ↔ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉)))
137 fveq2 6867 . . . . . . 7 (𝑓 = 𝑔 → (𝑅𝑓) = (𝑅𝑔))
138137breq1d 5110 . . . . . 6 (𝑓 = 𝑔 → ((𝑅𝑓) 𝑉 ↔ (𝑅𝑔) 𝑉))
139138elrab 3650 . . . . 5 (𝑔 ∈ {𝑓𝑇 ∣ (𝑅𝑓) 𝑉} ↔ (𝑔𝑇 ∧ (𝑅𝑔) 𝑉))
140136, 139bitr4di 291 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (∃𝑠𝐶 (𝐺𝑠) = 𝑔𝑔 ∈ {𝑓𝑇 ∣ (𝑅𝑓) 𝑉}))
141 simp1l 1211 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝐾 ∈ HL)
142 simp1r 1212 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑊𝐻)
143 simp3l 1215 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑉𝐴)
144143, 46syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑉 ∈ (Base‘𝐾))
145 simp3r 1216 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑉 𝑊)
146 cdlemm10.i . . . . . . 7 𝐼 = ((DIsoA‘𝐾)‘𝑊)
14724, 18, 20, 21, 40, 146diaval 41656 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑉 ∈ (Base‘𝐾) ∧ 𝑉 𝑊)) → (𝐼𝑉) = {𝑓𝑇 ∣ (𝑅𝑓) 𝑉})
148141, 142, 144, 145, 147syl22anc 849 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (𝐼𝑉) = {𝑓𝑇 ∣ (𝑅𝑓) 𝑉})
149148eleq2d 2848 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (𝑔 ∈ (𝐼𝑉) ↔ 𝑔 ∈ {𝑓𝑇 ∣ (𝑅𝑓) 𝑉}))
150140, 149bitr4d 284 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (∃𝑠𝐶 (𝐺𝑠) = 𝑔𝑔 ∈ (𝐼𝑉)))
1515, 150bitrid 285 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (𝑔 ∈ ran 𝐺𝑔 ∈ (𝐼𝑉)))
152151eqrdv 2760 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ran 𝐺 = (𝐼𝑉))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 399  w3a 1098   = wceq 1560  wcel 2142  wrex 3086  {crab 3414   class class class wbr 5100  cmpt 5181  ran crn 5648   Fn wfn 6516  cfv 6521  crio 7352  (class class class)co 7396  Basecbs 17245  lecple 17293  joincjn 18343  meetcmee 18344  Latclat 18463  Atomscatm 39887  HLchlt 39974  LHypclh 40608  LTrncltrn 40725  trLctrl 40782  DIsoAcdia 41652
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-riotaBAD 39577
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4951  df-iin 4952  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5542  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-1st 7970  df-2nd 7971  df-undef 8253  df-map 8810  df-proset 18326  df-poset 18345  df-plt 18360  df-lub 18376  df-glb 18377  df-join 18378  df-meet 18379  df-p0 18455  df-p1 18456  df-lat 18464  df-clat 18531  df-oposet 39800  df-ol 39802  df-oml 39803  df-covers 39890  df-ats 39891  df-atl 39922  df-cvlat 39946  df-hlat 39975  df-llines 40122  df-lplanes 40123  df-lvols 40124  df-lines 40125  df-psubsp 40127  df-pmap 40128  df-padd 40420  df-lhyp 40612  df-laut 40613  df-ldil 40728  df-ltrn 40729  df-trl 40783  df-disoa 41653
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator