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 38262
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 1199 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑃 𝑊)
2 simp3r 1201 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑄 𝑊)
3 simp1l 1196 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝐾 ∈ HL)
43hllatd 37624 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝐾 ∈ Lat)
5 simp2l 1198 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑃𝐴)
6 eqid 2736 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
7 lhp2lt.a . . . . . 6 𝐴 = (Atoms‘𝐾)
86, 7atbase 37549 . . . . 5 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
95, 8syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑃 ∈ (Base‘𝐾))
10 simp3l 1200 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑄𝐴)
116, 7atbase 37549 . . . . 5 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
1210, 11syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑄 ∈ (Base‘𝐾))
13 simp1r 1197 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑊𝐻)
14 lhp2lt.h . . . . . 6 𝐻 = (LHyp‘𝐾)
156, 14lhpbase 38259 . . . . 5 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
1613, 15syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → 𝑊 ∈ (Base‘𝐾))
17 lhp2lt.l . . . . 5 = (le‘𝐾)
18 lhp2lt.j . . . . 5 = (join‘𝐾)
196, 17, 18latjle12 18257 . . . 4 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑃 𝑊𝑄 𝑊) ↔ (𝑃 𝑄) 𝑊))
204, 9, 12, 16, 19syl13anc 1371 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ((𝑃 𝑊𝑄 𝑊) ↔ (𝑃 𝑄) 𝑊))
211, 2, 20mpbi2and 709 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) 𝑊)
2218, 17, 73dim2 37729 . . . 4 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → ∃𝑟𝐴𝑠𝐴𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)))
233, 5, 10, 22syl3anc 1370 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ∃𝑟𝐴𝑠𝐴𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)))
24 simp11l 1283 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝐾 ∈ HL)
25 hlop 37622 . . . . . . . 8 (𝐾 ∈ HL → 𝐾 ∈ OP)
2624, 25syl 17 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝐾 ∈ OP)
2724hllatd 37624 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝐾 ∈ Lat)
28 simp12l 1285 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑃𝐴)
29 simp13l 1287 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑄𝐴)
306, 18, 7hlatjcl 37627 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
3124, 28, 29, 30syl3anc 1370 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → (𝑃 𝑄) ∈ (Base‘𝐾))
32 simp2l 1198 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑟𝐴)
336, 7atbase 37549 . . . . . . . . . 10 (𝑟𝐴𝑟 ∈ (Base‘𝐾))
3432, 33syl 17 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑟 ∈ (Base‘𝐾))
356, 18latjcl 18246 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Base‘𝐾)) → ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾))
3627, 31, 34, 35syl3anc 1370 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾))
37 simp2r 1199 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑠𝐴)
386, 7atbase 37549 . . . . . . . . 9 (𝑠𝐴𝑠 ∈ (Base‘𝐾))
3937, 38syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → 𝑠 ∈ (Base‘𝐾))
406, 18latjcl 18246 . . . . . . . 8 ((𝐾 ∈ Lat ∧ ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾) ∧ 𝑠 ∈ (Base‘𝐾)) → (((𝑃 𝑄) 𝑟) 𝑠) ∈ (Base‘𝐾))
4127, 36, 39, 40syl3anc 1370 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → (((𝑃 𝑄) 𝑟) 𝑠) ∈ (Base‘𝐾))
42 eqid 2736 . . . . . . . 8 (1.‘𝐾) = (1.‘𝐾)
43 eqid 2736 . . . . . . . 8 ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
446, 42, 43ncvr1 37532 . . . . . . 7 ((𝐾 ∈ OP ∧ (((𝑃 𝑄) 𝑟) 𝑠) ∈ (Base‘𝐾)) → ¬ (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠))
4526, 41, 44syl2anc 584 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → ¬ (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠))
46 eqid 2736 . . . . . . . . . . . 12 (lub‘𝐾) = (lub‘𝐾)
47 simpl1l 1223 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝐾 ∈ HL)
4847hllatd 37624 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝐾 ∈ Lat)
49 simpl2l 1225 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑃𝐴)
50 simpl3l 1227 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑄𝐴)
5147, 49, 50, 30syl3anc 1370 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (𝑃 𝑄) ∈ (Base‘𝐾))
52 simpr1l 1229 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑟𝐴)
5352, 33syl 17 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑟 ∈ (Base‘𝐾))
5448, 51, 53, 35syl3anc 1370 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾))
5547, 25syl 17 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝐾 ∈ OP)
56 eqid 2736 . . . . . . . . . . . . . . 15 (glb‘𝐾) = (glb‘𝐾)
576, 46, 56op01dm 37443 . . . . . . . . . . . . . 14 (𝐾 ∈ OP → ((Base‘𝐾) ∈ dom (lub‘𝐾) ∧ (Base‘𝐾) ∈ dom (glb‘𝐾)))
5857simpld 495 . . . . . . . . . . . . 13 (𝐾 ∈ OP → (Base‘𝐾) ∈ dom (lub‘𝐾))
5955, 58syl 17 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (Base‘𝐾) ∈ dom (lub‘𝐾))
606, 46, 17, 42, 47, 54, 59ple1 18237 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ((𝑃 𝑄) 𝑟) (1.‘𝐾))
61 hlpos 37626 . . . . . . . . . . . . 13 (𝐾 ∈ HL → 𝐾 ∈ Poset)
6247, 61syl 17 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝐾 ∈ Poset)
636, 42op1cl 37445 . . . . . . . . . . . . 13 (𝐾 ∈ OP → (1.‘𝐾) ∈ (Base‘𝐾))
6455, 63syl 17 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (1.‘𝐾) ∈ (Base‘𝐾))
65 simpr2l 1231 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ¬ 𝑟 (𝑃 𝑄))
666, 17, 18, 43, 7cvr1 37671 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑟𝐴) → (¬ 𝑟 (𝑃 𝑄) ↔ (𝑃 𝑄)( ⋖ ‘𝐾)((𝑃 𝑄) 𝑟)))
6747, 51, 52, 66syl3anc 1370 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (¬ 𝑟 (𝑃 𝑄) ↔ (𝑃 𝑄)( ⋖ ‘𝐾)((𝑃 𝑄) 𝑟)))
6865, 67mpbid 231 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (𝑃 𝑄)( ⋖ ‘𝐾)((𝑃 𝑄) 𝑟))
69 simpr3 1195 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (𝑃 𝑄) = 𝑊)
70 simpl1r 1224 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑊𝐻)
7142, 43, 14lhp1cvr 38260 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑊( ⋖ ‘𝐾)(1.‘𝐾))
7247, 70, 71syl2anc 584 . . . . . . . . . . . . 13 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑊( ⋖ ‘𝐾)(1.‘𝐾))
7369, 72eqbrtrd 5111 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (𝑃 𝑄)( ⋖ ‘𝐾)(1.‘𝐾))
746, 17, 43cvrcmp 37543 . . . . . . . . . . . 12 ((𝐾 ∈ Poset ∧ (((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾) ∧ (𝑃 𝑄) ∈ (Base‘𝐾)) ∧ ((𝑃 𝑄)( ⋖ ‘𝐾)((𝑃 𝑄) 𝑟) ∧ (𝑃 𝑄)( ⋖ ‘𝐾)(1.‘𝐾))) → (((𝑃 𝑄) 𝑟) (1.‘𝐾) ↔ ((𝑃 𝑄) 𝑟) = (1.‘𝐾)))
7562, 54, 64, 51, 68, 73, 74syl132anc 1387 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (((𝑃 𝑄) 𝑟) (1.‘𝐾) ↔ ((𝑃 𝑄) 𝑟) = (1.‘𝐾)))
7660, 75mpbid 231 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ((𝑃 𝑄) 𝑟) = (1.‘𝐾))
77 simpr2r 1232 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ¬ 𝑠 ((𝑃 𝑄) 𝑟))
78 simpr1r 1230 . . . . . . . . . . . 12 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → 𝑠𝐴)
796, 17, 18, 43, 7cvr1 37671 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ ((𝑃 𝑄) 𝑟) ∈ (Base‘𝐾) ∧ 𝑠𝐴) → (¬ 𝑠 ((𝑃 𝑄) 𝑟) ↔ ((𝑃 𝑄) 𝑟)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠)))
8047, 54, 78, 79syl3anc 1370 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (¬ 𝑠 ((𝑃 𝑄) 𝑟) ↔ ((𝑃 𝑄) 𝑟)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠)))
8177, 80mpbid 231 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → ((𝑃 𝑄) 𝑟)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠))
8276, 81eqbrtrrd 5113 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ ((𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) ∧ (𝑃 𝑄) = 𝑊)) → (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠))
83823exp2 1353 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ((𝑟𝐴𝑠𝐴) → ((¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) → ((𝑃 𝑄) = 𝑊 → (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠)))))
84833imp 1110 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → ((𝑃 𝑄) = 𝑊 → (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠)))
8584necon3bd 2954 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → (¬ (1.‘𝐾)( ⋖ ‘𝐾)(((𝑃 𝑄) 𝑟) 𝑠) → (𝑃 𝑄) ≠ 𝑊))
8645, 85mpd 15 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) ∧ (𝑟𝐴𝑠𝐴) ∧ (¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟))) → (𝑃 𝑄) ≠ 𝑊)
87863exp 1118 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ((𝑟𝐴𝑠𝐴) → ((¬ 𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) → (𝑃 𝑄) ≠ 𝑊)))
8887rexlimdvv 3200 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (∃𝑟𝐴𝑠𝐴𝑟 (𝑃 𝑄) ∧ ¬ 𝑠 ((𝑃 𝑄) 𝑟)) → (𝑃 𝑄) ≠ 𝑊))
8923, 88mpd 15 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) ≠ 𝑊)
903, 5, 10, 30syl3anc 1370 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) ∈ (Base‘𝐾))
91 lhp2lt.s . . . 4 < = (lt‘𝐾)
9217, 91pltval 18139 . . 3 ((𝐾 ∈ HL ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊𝐻) → ((𝑃 𝑄) < 𝑊 ↔ ((𝑃 𝑄) 𝑊 ∧ (𝑃 𝑄) ≠ 𝑊)))
933, 90, 13, 92syl3anc 1370 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → ((𝑃 𝑄) < 𝑊 ↔ ((𝑃 𝑄) 𝑊 ∧ (𝑃 𝑄) ≠ 𝑊)))
9421, 89, 93mpbir2and 710 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴𝑃 𝑊) ∧ (𝑄𝐴𝑄 𝑊)) → (𝑃 𝑄) < 𝑊)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1086   = wceq 1540  wcel 2105  wne 2940  wrex 3070   class class class wbr 5089  dom cdm 5614  cfv 6473  (class class class)co 7329  Basecbs 17001  lecple 17058  Posetcpo 18114  ltcplt 18115  lubclub 18116  glbcglb 18117  joincjn 18118  1.cp1 18231  Latclat 18238  OPcops 37432  ccvr 37522  Atomscatm 37523  HLchlt 37610  LHypclh 38245
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5226  ax-sep 5240  ax-nul 5247  ax-pow 5305  ax-pr 5369  ax-un 7642
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3727  df-csb 3843  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4269  df-if 4473  df-pw 4548  df-sn 4573  df-pr 4575  df-op 4579  df-uni 4852  df-iun 4940  df-br 5090  df-opab 5152  df-mpt 5173  df-id 5512  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-iota 6425  df-fun 6475  df-fn 6476  df-f 6477  df-f1 6478  df-fo 6479  df-f1o 6480  df-fv 6481  df-riota 7286  df-ov 7332  df-oprab 7333  df-proset 18102  df-poset 18120  df-plt 18137  df-lub 18153  df-glb 18154  df-join 18155  df-meet 18156  df-p0 18232  df-p1 18233  df-lat 18239  df-clat 18306  df-oposet 37436  df-ol 37438  df-oml 37439  df-covers 37526  df-ats 37527  df-atl 37558  df-cvlat 37582  df-hlat 37611  df-lhyp 38249
This theorem is referenced by:  lhpexle3lem  38272
  Copyright terms: Public domain W3C validator