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

Theorem lhpexle3lem 37307
Description: There exists atom under a co-atom different from any three other atoms. TODO: study if adant*, simp* usage can be improved. (Contributed by NM, 9-Jul-2013.)
Hypotheses
Ref Expression
lhpex1.l = (le‘𝐾)
lhpex1.a 𝐴 = (Atoms‘𝐾)
lhpex1.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
lhpexle3lem (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
Distinct variable groups:   ,𝑝   𝐴,𝑝   𝐻,𝑝   𝐾,𝑝   𝑊,𝑝   𝑋,𝑝   𝑌,𝑝   𝑍,𝑝

Proof of Theorem lhpexle3lem
StepHypRef Expression
1 simpl1 1188 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 lhpex1.l . . . . 5 = (le‘𝐾)
3 lhpex1.a . . . . 5 𝐴 = (Atoms‘𝐾)
4 lhpex1.h . . . . 5 𝐻 = (LHyp‘𝐾)
52, 3, 4lhpexle2 37306 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ∃𝑝𝐴 (𝑝 𝑊𝑝𝑋𝑝𝑍))
61, 5syl 17 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → ∃𝑝𝐴 (𝑝 𝑊𝑝𝑋𝑝𝑍))
7 simp31 1206 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑝 𝑊)
8 simp32 1207 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑝𝑋)
9 simp1r 1195 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑋 = 𝑌)
108, 9neeqtrd 3056 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑝𝑌)
11 simp33 1208 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑝𝑍)
128, 10, 113jca 1125 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → (𝑝𝑋𝑝𝑌𝑝𝑍))
137, 12jca 515 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
14133exp 1116 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → (𝑝𝐴 → ((𝑝 𝑊𝑝𝑋𝑝𝑍) → (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))))
1514reximdvai 3231 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → (∃𝑝𝐴 (𝑝 𝑊𝑝𝑋𝑝𝑍) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍))))
166, 15mpd 15 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
17 simprrr 781 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝 𝑊)
18 simp11l 1281 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝐾 ∈ HL)
1918adantr 484 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝐾 ∈ HL)
2019hllatd 36660 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝐾 ∈ Lat)
21 eqid 2798 . . . . . . . . . 10 (Base‘𝐾) = (Base‘𝐾)
2221, 3atbase 36585 . . . . . . . . 9 (𝑝𝐴𝑝 ∈ (Base‘𝐾))
2322ad2antrl 727 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝 ∈ (Base‘𝐾))
24 simp121 1302 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋𝐴)
2524adantr 484 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑋𝐴)
2621, 3atbase 36585 . . . . . . . . 9 (𝑋𝐴𝑋 ∈ (Base‘𝐾))
2725, 26syl 17 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑋 ∈ (Base‘𝐾))
28 simp122 1303 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑌𝐴)
2928adantr 484 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑌𝐴)
3021, 3atbase 36585 . . . . . . . . 9 (𝑌𝐴𝑌 ∈ (Base‘𝐾))
3129, 30syl 17 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑌 ∈ (Base‘𝐾))
32 simprrl 780 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → ¬ 𝑝 (𝑋(join‘𝐾)𝑌))
33 eqid 2798 . . . . . . . . 9 (join‘𝐾) = (join‘𝐾)
3421, 2, 33latnlej1l 17671 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑝 ∈ (Base‘𝐾) ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) ∧ ¬ 𝑝 (𝑋(join‘𝐾)𝑌)) → 𝑝𝑋)
3520, 23, 27, 31, 32, 34syl131anc 1380 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝𝑋)
3621, 2, 33latnlej1r 17672 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑝 ∈ (Base‘𝐾) ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) ∧ ¬ 𝑝 (𝑋(join‘𝐾)𝑌)) → 𝑝𝑌)
3720, 23, 27, 31, 32, 36syl131anc 1380 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝𝑌)
38 simpl3 1190 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑍 (𝑋(join‘𝐾)𝑌))
39 nbrne2 5050 . . . . . . . . 9 ((𝑍 (𝑋(join‘𝐾)𝑌) ∧ ¬ 𝑝 (𝑋(join‘𝐾)𝑌)) → 𝑍𝑝)
4039necomd 3042 . . . . . . . 8 ((𝑍 (𝑋(join‘𝐾)𝑌) ∧ ¬ 𝑝 (𝑋(join‘𝐾)𝑌)) → 𝑝𝑍)
4138, 32, 40syl2anc 587 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝𝑍)
4235, 37, 413jca 1125 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → (𝑝𝑋𝑝𝑌𝑝𝑍))
4317, 42jca 515 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
44 simp11 1200 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
45 simp131 1305 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋 𝑊)
46 simp132 1306 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑌 𝑊)
47 eqid 2798 . . . . . . . 8 (lt‘𝐾) = (lt‘𝐾)
482, 47, 33, 3, 4lhp2lt 37297 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑋 𝑊) ∧ (𝑌𝐴𝑌 𝑊)) → (𝑋(join‘𝐾)𝑌)(lt‘𝐾)𝑊)
4944, 24, 45, 28, 46, 48syl122anc 1376 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → (𝑋(join‘𝐾)𝑌)(lt‘𝐾)𝑊)
5021, 33, 3hlatjcl 36663 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋𝐴𝑌𝐴) → (𝑋(join‘𝐾)𝑌) ∈ (Base‘𝐾))
5118, 24, 28, 50syl3anc 1368 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → (𝑋(join‘𝐾)𝑌) ∈ (Base‘𝐾))
52 simp11r 1282 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑊𝐻)
5321, 4lhpbase 37294 . . . . . . . 8 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
5452, 53syl 17 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑊 ∈ (Base‘𝐾))
5521, 2, 47, 3hlrelat1 36696 . . . . . . 7 ((𝐾 ∈ HL ∧ (𝑋(join‘𝐾)𝑌) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑋(join‘𝐾)𝑌)(lt‘𝐾)𝑊 → ∃𝑝𝐴𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊)))
5618, 51, 54, 55syl3anc 1368 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → ((𝑋(join‘𝐾)𝑌)(lt‘𝐾)𝑊 → ∃𝑝𝐴𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊)))
5749, 56mpd 15 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))
5843, 57reximddv 3234 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
59583expa 1115 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌) ∧ 𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
60 simp11l 1281 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝐾 ∈ HL)
6160adantr 484 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝐾 ∈ HL)
6261hllatd 36660 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝐾 ∈ Lat)
6322ad2antrl 727 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝 ∈ (Base‘𝐾))
64 simp121 1302 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋𝐴)
6564adantr 484 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑋𝐴)
66 simp122 1303 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑌𝐴)
6766adantr 484 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑌𝐴)
6861, 65, 67, 50syl3anc 1368 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → (𝑋(join‘𝐾)𝑌) ∈ (Base‘𝐾))
69 simp11r 1282 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑊𝐻)
7069adantr 484 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑊𝐻)
7170, 53syl 17 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑊 ∈ (Base‘𝐾))
72 simprr3 1220 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝 (𝑋(join‘𝐾)𝑌))
73 simp131 1305 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋 𝑊)
7473adantr 484 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑋 𝑊)
75 simp132 1306 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑌 𝑊)
7675adantr 484 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑌 𝑊)
7765, 26syl 17 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑋 ∈ (Base‘𝐾))
7867, 30syl 17 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑌 ∈ (Base‘𝐾))
7921, 2, 33latjle12 17664 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ (𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑋 𝑊𝑌 𝑊) ↔ (𝑋(join‘𝐾)𝑌) 𝑊))
8062, 77, 78, 71, 79syl13anc 1369 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → ((𝑋 𝑊𝑌 𝑊) ↔ (𝑋(join‘𝐾)𝑌) 𝑊))
8174, 76, 80mpbi2and 711 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → (𝑋(join‘𝐾)𝑌) 𝑊)
8221, 2, 62, 63, 68, 71, 72, 81lattrd 17660 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝 𝑊)
83 simprr1 1218 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝𝑋)
84 simprr2 1219 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝𝑌)
85 simpl3 1190 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → ¬ 𝑍 (𝑋(join‘𝐾)𝑌))
86 nbrne2 5050 . . . . . . . 8 ((𝑝 (𝑋(join‘𝐾)𝑌) ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑝𝑍)
8772, 85, 86syl2anc 587 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝𝑍)
8883, 84, 873jca 1125 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → (𝑝𝑋𝑝𝑌𝑝𝑍))
8982, 88jca 515 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
90 simp2 1134 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋𝑌)
912, 33, 3hlsupr 36682 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑌𝐴) ∧ 𝑋𝑌) → ∃𝑝𝐴 (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))
9260, 64, 66, 90, 91syl31anc 1370 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))
9389, 92reximddv 3234 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
94933expa 1115 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌) ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
9559, 94pm2.61dan 812 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
9616, 95pm2.61dane 3074 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  w3a 1084   = wceq 1538  wcel 2111  wne 2987  wrex 3107   class class class wbr 5030  cfv 6324  (class class class)co 7135  Basecbs 16475  lecple 16564  ltcplt 17543  joincjn 17546  Latclat 17647  Atomscatm 36559  HLchlt 36646  LHypclh 37280
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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-reu 3113  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5425  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-riota 7093  df-ov 7138  df-oprab 7139  df-proset 17530  df-poset 17548  df-plt 17560  df-lub 17576  df-glb 17577  df-join 17578  df-meet 17579  df-p0 17641  df-p1 17642  df-lat 17648  df-clat 17710  df-oposet 36472  df-ol 36474  df-oml 36475  df-covers 36562  df-ats 36563  df-atl 36594  df-cvlat 36618  df-hlat 36647  df-lhyp 37284
This theorem is referenced by:  lhpexle3  37308
  Copyright terms: Public domain W3C validator