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

Theorem lhp2lt 37752
Description: The join of two atoms under a co-atom is strictly less than it. (Contributed by NM, 8-Jul-2013.)
Hypotheses
Ref Expression
lhp2lt.l = (le‘𝐾)
lhp2lt.s < = (lt‘𝐾)
lhp2lt.j = (join‘𝐾)
lhp2lt.a 𝐴 = (Atoms‘𝐾)
lhp2lt.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
lhp2lt (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) < 𝑊)

Proof of Theorem lhp2lt
Dummy variables 𝑠 𝑟 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simp2r 1202 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑃 𝑊)
2 simp3r 1204 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑄 𝑊)
3 simp1l 1199 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝐾 ∈ HL)
43hllatd 37115 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝐾 ∈ Lat)
5 simp2l 1201 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑃𝐴)
6 eqid 2737 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
7 lhp2lt.a . . . . . 6 𝐴 = (Atoms‘𝐾)
86, 7atbase 37040 . . . . 5 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
95, 8syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑃 ∈ (Base‘𝐾))
10 simp3l 1203 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑄𝐴)
116, 7atbase 37040 . . . . 5 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
1210, 11syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑄 ∈ (Base‘𝐾))
13 simp1r 1200 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑊𝐻)
14 lhp2lt.h . . . . . 6 𝐻 = (LHyp‘𝐾)
156, 14lhpbase 37749 . . . . 5 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
1613, 15syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑊 ∈ (Base‘𝐾))
17 lhp2lt.l . . . . 5 = (le‘𝐾)
18 lhp2lt.j . . . . 5 = (join‘𝐾)
196, 17, 18latjle12 17956 . . . 4 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑃 𝑊𝑄 𝑊) ↔ (𝑃 𝑄) 𝑊))
204, 9, 12, 16, 19syl13anc 1374 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ((𝑃 𝑊𝑄 𝑊) ↔ (𝑃 𝑄) 𝑊))
211, 2, 20mpbi2and 712 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) 𝑊)
2218, 17, 73dim2 37219 . . . 4 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → ∃𝑟𝐴𝑠𝐴𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)))
233, 5, 10, 22syl3anc 1373 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ∃𝑟𝐴𝑠𝐴𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)))
24 simp11l 1286 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝐾 ∈ HL)
25 hlop 37113 . . . . . . . 8 (𝐾 ∈ HL → 𝐾 ∈ OP)
2624, 25syl 17 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝐾 ∈ OP)
2724hllatd 37115 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝐾 ∈ Lat)
28 simp12l 1288 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑃𝐴)
29 simp13l 1290 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑄𝐴)
306, 18, 7hlatjcl 37118 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
3124, 28, 29, 30syl3anc 1373 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → (𝑃 𝑄) ∈ (Base‘𝐾))
32 simp2l 1201 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑟𝐴)
336, 7atbase 37040 . . . . . . . . . 10 (𝑟𝐴𝑟 ∈ (Base‘𝐾))
3432, 33syl 17 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑟 ∈ (Base‘𝐾))
356, 18latjcl 17945 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Base‘𝐾)) → ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾))
3627, 31, 34, 35syl3anc 1373 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾))
37 simp2r 1202 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑠𝐴)
386, 7atbase 37040 . . . . . . . . 9 (𝑠𝐴𝑠 ∈ (Base‘𝐾))
3937, 38syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑠 ∈ (Base‘𝐾))
406, 18latjcl 17945 . . . . . . . 8 ((𝐾 ∈ Lat ∧ ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾) ∧ 𝑠 ∈ (Base‘𝐾)) → (((𝑃 𝑄) 𝑟) 𝑠) ∈ (Base‘𝐾))
4127, 36, 39, 40syl3anc 1373 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → (((𝑃 𝑄) 𝑟) 𝑠) ∈ (Base‘𝐾))
42 eqid 2737 . . . . . . . 8 (1.‘𝐾) = (1.‘𝐾)
43 eqid 2737 . . . . . . . 8 ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
446, 42, 43ncvr1 37023 . . . . . . 7 ((𝐾 ∈ OP ∧ (((𝑃 𝑄) 𝑟) 𝑠) ∈ (Base‘𝐾)) → ¬ (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠))
4526, 41, 44syl2anc 587 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → ¬ (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠))
46 eqid 2737 . . . . . . . . . . . 12 (lub‘𝐾) = (lub‘𝐾)
47 simpl1l 1226 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝐾 ∈ HL)
4847hllatd 37115 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝐾 ∈ Lat)
49 simpl2l 1228 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑃𝐴)
50 simpl3l 1230 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑄𝐴)
5147, 49, 50, 30syl3anc 1373 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (𝑃 𝑄) ∈ (Base‘𝐾))
52 simpr1l 1232 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑟𝐴)
5352, 33syl 17 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑟 ∈ (Base‘𝐾))
5448, 51, 53, 35syl3anc 1373 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾))
5547, 25syl 17 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝐾 ∈ OP)
56 eqid 2737 . . . . . . . . . . . . . . 15 (glb‘𝐾) = (glb‘𝐾)
576, 46, 56op01dm 36934 . . . . . . . . . . . . . 14 (𝐾 ∈ OP → ((Base‘𝐾) ∈ dom (lub‘𝐾) ∧ (Base‘𝐾) ∈ dom (glb‘𝐾)))
5857simpld 498 . . . . . . . . . . . . 13 (𝐾 ∈ OP → (Base‘𝐾) ∈ dom (lub‘𝐾))
5955, 58syl 17 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (Base‘𝐾) ∈ dom (lub‘𝐾))
606, 46, 17, 42, 47, 54, 59ple1 17936 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ((𝑃 𝑄) 𝑟) (1.‘𝐾))
61 hlpos 37117 . . . . . . . . . . . . 13 (𝐾 ∈ HL → 𝐾 ∈ Poset)
6247, 61syl 17 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝐾 ∈ Poset)
636, 42op1cl 36936 . . . . . . . . . . . . 13 (𝐾 ∈ OP → (1.‘𝐾) ∈ (Base‘𝐾))
6455, 63syl 17 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (1.‘𝐾) ∈ (Base‘𝐾))
65 simpr2l 1234 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ¬ 𝑟 (𝑃 𝑄))
666, 17, 18, 43, 7cvr1 37161 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑟𝐴) → (¬ 𝑟 (𝑃 𝑄) ↔ (𝑃 𝑄)( ⋖ ‘𝐾)((𝑃 𝑄) 𝑟)))
6747, 51, 52, 66syl3anc 1373 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (¬ 𝑟 (𝑃 𝑄) ↔ (𝑃 𝑄)( ⋖ ‘𝐾)((𝑃 𝑄) 𝑟)))
6865, 67mpbid 235 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (𝑃 𝑄)( ⋖ ‘𝐾)((𝑃 𝑄) 𝑟))
69 simpr3 1198 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (𝑃 𝑄) = 𝑊)
70 simpl1r 1227 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑊𝐻)
7142, 43, 14lhp1cvr 37750 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑊( ⋖ ‘𝐾)(1.‘𝐾))
7247, 70, 71syl2anc 587 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑊( ⋖ ‘𝐾)(1.‘𝐾))
7369, 72eqbrtrd 5075 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (𝑃 𝑄)( ⋖ ‘𝐾)(1.‘𝐾))
746, 17, 43cvrcmp 37034 . . . . . . . . . . . 12 ((𝐾 ∈ Poset ∧ (((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾) ∧ (𝑃 𝑄) ∈ (Base‘𝐾)) ∧ ((𝑃 𝑄)( ⋖ ‘𝐾)((𝑃 𝑄) 𝑟) ∧ (𝑃 𝑄)( ⋖ ‘𝐾)(1.‘𝐾))) → (((𝑃 𝑄) 𝑟) (1.‘𝐾) ↔ ((𝑃 𝑄) 𝑟) = (1.‘𝐾)))
7562, 54, 64, 51, 68, 73, 74syl132anc 1390 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (((𝑃 𝑄) 𝑟) (1.‘𝐾) ↔ ((𝑃 𝑄) 𝑟) = (1.‘𝐾)))
7660, 75mpbid 235 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ((𝑃 𝑄) 𝑟) = (1.‘𝐾))
77 simpr2r 1235 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ¬ 𝑠 ((𝑃 𝑄) 𝑟))
78 simpr1r 1233 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑠𝐴)
796, 17, 18, 43, 7cvr1 37161 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾) ∧ 𝑠𝐴) → (¬ 𝑠 ((𝑃 𝑄) 𝑟) ↔ ((𝑃 𝑄) 𝑟)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠)))
8047, 54, 78, 79syl3anc 1373 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (¬ 𝑠 ((𝑃 𝑄) 𝑟) ↔ ((𝑃 𝑄) 𝑟)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠)))
8177, 80mpbid 235 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ((𝑃 𝑄) 𝑟)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠))
8276, 81eqbrtrrd 5077 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠))
83823exp2 1356 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ((𝑟𝐴𝑠𝐴) → ((¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) → ((𝑃 𝑄) = 𝑊 → (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠)))))
84833imp 1113 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → ((𝑃 𝑄) = 𝑊 → (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠)))
8584necon3bd 2954 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → (¬ (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠) → (𝑃 𝑄) ≠ 𝑊))
8645, 85mpd 15 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → (𝑃 𝑄) ≠ 𝑊)
87863exp 1121 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ((𝑟𝐴𝑠𝐴) → ((¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) → (𝑃 𝑄) ≠ 𝑊)))
8887rexlimdvv 3212 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (∃𝑟𝐴𝑠𝐴𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) → (𝑃 𝑄) ≠ 𝑊))
8923, 88mpd 15 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) ≠ 𝑊)
903, 5, 10, 30syl3anc 1373 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) ∈ (Base‘𝐾))
91 lhp2lt.s . . . 4 < = (lt‘𝐾)
9217, 91pltval 17838 . . 3 ((𝐾 ∈ HL ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊𝐻) → ((𝑃 𝑄) < 𝑊 ↔ ((𝑃 𝑄) 𝑊 ∧ (𝑃 𝑄) ≠ 𝑊)))
933, 90, 13, 92syl3anc 1373 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ((𝑃 𝑄) < 𝑊 ↔ ((𝑃 𝑄) 𝑊 ∧ (𝑃 𝑄) ≠ 𝑊)))
9421, 89, 93mpbir2and 713 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) < 𝑊)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  w3a 1089   = wceq 1543  wcel 2110  wne 2940  wrex 3062   class class class wbr 5053  dom cdm 5551  cfv 6380  (class class class)co 7213  Basecbs 16760  lecple 16809  Posetcpo 17814  ltcplt 17815  lubclub 17816  glbcglb 17817  joincjn 17818  1.cp1 17930  Latclat 17937  OPcops 36923  ccvr 37013  Atomscatm 37014  HLchlt 37101  LHypclh 37735
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-ral 3066  df-rex 3067  df-reu 3068  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-op 4548  df-uni 4820  df-iun 4906  df-br 5054  df-opab 5116  df-mpt 5136  df-id 5455  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-riota 7170  df-ov 7216  df-oprab 7217  df-proset 17802  df-poset 17820  df-plt 17836  df-lub 17852  df-glb 17853  df-join 17854  df-meet 17855  df-p0 17931  df-p1 17932  df-lat 17938  df-clat 18005  df-oposet 36927  df-ol 36929  df-oml 36930  df-covers 37017  df-ats 37018  df-atl 37049  df-cvlat 37073  df-hlat 37102  df-lhyp 37739
This theorem is referenced by:  lhpexle3lem  37762
  Copyright terms: Public domain W3C validator