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 40675
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 1208 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 lhpex1.l . . . . 5 = (le‘𝐾)
3 lhpex1.a . . . . 5 𝐴 = (Atoms‘𝐾)
4 lhpex1.h . . . . 5 𝐻 = (LHyp‘𝐾)
52, 3, 4lhpexle2 40674 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ∃𝑝𝐴 (𝑝 𝑊𝑝𝑋𝑝𝑍))
61, 5syl 18 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → ∃𝑝𝐴 (𝑝 𝑊𝑝𝑋𝑝𝑍))
7 simp31 1226 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑝 𝑊)
8 simp32 1227 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑝𝑋)
9 simp1r 1215 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑋 = 𝑌)
108, 9neeqtrd 3033 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑝𝑌)
11 simp33 1228 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → 𝑝𝑍)
128, 10, 113jca 1144 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → (𝑝𝑋𝑝𝑌𝑝𝑍))
137, 12jca 520 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) ∧ 𝑝𝐴 ∧ (𝑝 𝑊𝑝𝑋𝑝𝑍)) → (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
14133exp 1135 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → (𝑝𝐴 → ((𝑝 𝑊𝑝𝑋𝑝𝑍) → (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))))
1514reximdvai 3182 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → (∃𝑝𝐴 (𝑝 𝑊𝑝𝑋𝑝𝑍) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍))))
166, 15mpd 16 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋 = 𝑌) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
17 simprrr 793 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝 𝑊)
18 simp11l 1301 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝐾 ∈ HL)
1918adantr 485 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝐾 ∈ HL)
2019hllatd 40028 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝐾 ∈ Lat)
21 eqid 2769 . . . . . . . . . 10 (Base‘𝐾) = (Base‘𝐾)
2221, 3atbase 39953 . . . . . . . . 9 (𝑝𝐴𝑝 ∈ (Base‘𝐾))
2322ad2antrl 740 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝 ∈ (Base‘𝐾))
24 simp121 1322 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋𝐴)
2524adantr 485 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑋𝐴)
2621, 3atbase 39953 . . . . . . . . 9 (𝑋𝐴𝑋 ∈ (Base‘𝐾))
2725, 26syl 18 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑋 ∈ (Base‘𝐾))
28 simp122 1323 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑌𝐴)
2928adantr 485 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑌𝐴)
3021, 3atbase 39953 . . . . . . . . 9 (𝑌𝐴𝑌 ∈ (Base‘𝐾))
3129, 30syl 18 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑌 ∈ (Base‘𝐾))
32 simprrl 792 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → ¬ 𝑝 (𝑋(join‘𝐾)𝑌))
33 eqid 2769 . . . . . . . . 9 (join‘𝐾) = (join‘𝐾)
3421, 2, 33latnlej1l 18513 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑝 ∈ (Base‘𝐾) ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) ∧ ¬ 𝑝 (𝑋(join‘𝐾)𝑌)) → 𝑝𝑋)
3520, 23, 27, 31, 32, 34syl131anc 1408 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝𝑋)
3621, 2, 33latnlej1r 18514 . . . . . . . 8 ((𝐾 ∈ Lat ∧ (𝑝 ∈ (Base‘𝐾) ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) ∧ ¬ 𝑝 (𝑋(join‘𝐾)𝑌)) → 𝑝𝑌)
3720, 23, 27, 31, 32, 36syl131anc 1408 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝𝑌)
38 simpl3 1210 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑍 (𝑋(join‘𝐾)𝑌))
39 nbrne2 5135 . . . . . . . . 9 ((𝑍 (𝑋(join‘𝐾)𝑌) ∧ ¬ 𝑝 (𝑋(join‘𝐾)𝑌)) → 𝑍𝑝)
4039necomd 3019 . . . . . . . 8 ((𝑍 (𝑋(join‘𝐾)𝑌) ∧ ¬ 𝑝 (𝑋(join‘𝐾)𝑌)) → 𝑝𝑍)
4138, 32, 40syl2anc 595 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → 𝑝𝑍)
4235, 37, 413jca 1144 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → (𝑝𝑋𝑝𝑌𝑝𝑍))
4317, 42jca 520 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (¬ 𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))) → (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
44 simp11 1220 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
45 simp131 1325 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋 𝑊)
46 simp132 1326 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑌 𝑊)
47 eqid 2769 . . . . . . . 8 (lt‘𝐾) = (lt‘𝐾)
482, 47, 33, 3, 4lhp2lt 40665 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑋 𝑊) ∧ (𝑌𝐴𝑌 𝑊)) → (𝑋(join‘𝐾)𝑌)(lt‘𝐾)𝑊)
4944, 24, 45, 28, 46, 48syl122anc 1404 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → (𝑋(join‘𝐾)𝑌)(lt‘𝐾)𝑊)
5021, 33, 3hlatjcl 40031 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋𝐴𝑌𝐴) → (𝑋(join‘𝐾)𝑌) ∈ (Base‘𝐾))
5118, 24, 28, 50syl3anc 1396 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → (𝑋(join‘𝐾)𝑌) ∈ (Base‘𝐾))
52 simp11r 1302 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑊𝐻)
5321, 4lhpbase 40662 . . . . . . . 8 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
5452, 53syl 18 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑊 ∈ (Base‘𝐾))
5521, 2, 47, 3hlrelat1 40064 . . . . . . 7 ((𝐾 ∈ HL ∧ (𝑋(join‘𝐾)𝑌) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑋(join‘𝐾)𝑌)(lt‘𝐾)𝑊 → ∃𝑝𝐴𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊)))
5618, 51, 54, 55syl3anc 1396 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → ((𝑋(join‘𝐾)𝑌)(lt‘𝐾)𝑊 → ∃𝑝𝐴𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊)))
5749, 56mpd 16 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴𝑝 (𝑋(join‘𝐾)𝑌) ∧ 𝑝 𝑊))
5843, 57reximddv 3187 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
59583expa 1134 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌) ∧ 𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
60 simp11l 1301 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝐾 ∈ HL)
6160adantr 485 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝐾 ∈ HL)
6261hllatd 40028 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝐾 ∈ Lat)
6322ad2antrl 740 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝 ∈ (Base‘𝐾))
64 simp121 1322 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋𝐴)
6564adantr 485 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑋𝐴)
66 simp122 1323 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑌𝐴)
6766adantr 485 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑌𝐴)
6861, 65, 67, 50syl3anc 1396 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → (𝑋(join‘𝐾)𝑌) ∈ (Base‘𝐾))
69 simp11r 1302 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑊𝐻)
7069adantr 485 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑊𝐻)
7170, 53syl 18 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑊 ∈ (Base‘𝐾))
72 simprr3 1240 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝 (𝑋(join‘𝐾)𝑌))
73 simp131 1325 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋 𝑊)
7473adantr 485 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑋 𝑊)
75 simp132 1326 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑌 𝑊)
7675adantr 485 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑌 𝑊)
7765, 26syl 18 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑋 ∈ (Base‘𝐾))
7867, 30syl 18 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑌 ∈ (Base‘𝐾))
7921, 2, 33latjle12 18506 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ (𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑋 𝑊𝑌 𝑊) ↔ (𝑋(join‘𝐾)𝑌) 𝑊))
8062, 77, 78, 71, 79syl13anc 1397 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → ((𝑋 𝑊𝑌 𝑊) ↔ (𝑋(join‘𝐾)𝑌) 𝑊))
8174, 76, 80mpbi2and 724 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → (𝑋(join‘𝐾)𝑌) 𝑊)
8221, 2, 62, 63, 68, 71, 72, 81lattrd 18502 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝 𝑊)
83 simprr1 1238 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝𝑋)
84 simprr2 1239 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝𝑌)
85 simpl3 1210 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → ¬ 𝑍 (𝑋(join‘𝐾)𝑌))
86 nbrne2 5135 . . . . . . . 8 ((𝑝 (𝑋(join‘𝐾)𝑌) ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑝𝑍)
8772, 85, 86syl2anc 595 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → 𝑝𝑍)
8883, 84, 873jca 1144 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → (𝑝𝑋𝑝𝑌𝑝𝑍))
8982, 88jca 520 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) ∧ (𝑝𝐴 ∧ (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))) → (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
90 simp2 1153 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → 𝑋𝑌)
912, 33, 3hlsupr 40050 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐴𝑌𝐴) ∧ 𝑋𝑌) → ∃𝑝𝐴 (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))
9260, 64, 66, 90, 91syl31anc 1398 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝𝑋𝑝𝑌𝑝 (𝑋(join‘𝐾)𝑌)))
9389, 92reximddv 3187 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌 ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
94933expa 1134 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌) ∧ ¬ 𝑍 (𝑋(join‘𝐾)𝑌)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
9559, 94pm2.61dan 824 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) ∧ 𝑋𝑌) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
9616, 95pm2.61dane 3051 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐴𝑌𝐴𝑍𝐴) ∧ (𝑋 𝑊𝑌 𝑊𝑍 𝑊)) → ∃𝑝𝐴 (𝑝 𝑊 ∧ (𝑝𝑋𝑝𝑌𝑝𝑍)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1101   = wceq 1567  wcel 2149  wne 2964  wrex 3095   class class class wbr 5113  cfv 6537  (class class class)co 7411  Basecbs 17269  lecple 17317  ltcplt 18364  joincjn 18367  Latclat 18487  Atomscatm 39927  HLchlt 40014  LHypclh 40648
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-proset 18350  df-poset 18369  df-plt 18384  df-lub 18400  df-glb 18401  df-join 18402  df-meet 18403  df-p0 18479  df-p1 18480  df-lat 18488  df-clat 18555  df-oposet 39840  df-ol 39842  df-oml 39843  df-covers 39930  df-ats 39931  df-atl 39962  df-cvlat 39986  df-hlat 40015  df-lhyp 40652
This theorem is referenced by:  lhpexle3  40676
  Copyright terms: Public domain W3C validator