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

Theorem athgt 39829
Description: A Hilbert lattice, whose height is at least 4, has a chain of 4 successively covering atom joins. (Contributed by NM, 3-May-2012.)
Hypotheses
Ref Expression
athgt.j = (join‘𝐾)
athgt.c 𝐶 = ( ⋖ ‘𝐾)
athgt.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
athgt (𝐾 ∈ HL → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
Distinct variable groups:   𝑞,𝑝,𝑟,𝑠,𝐴   ,𝑟,𝑠   𝐾,𝑝,𝑞,𝑟,𝑠
Allowed substitution hints:   𝐶(𝑠,𝑟,𝑞,𝑝)   (𝑞,𝑝)

Proof of Theorem athgt
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2737 . . 3 (Base‘𝐾) = (Base‘𝐾)
2 eqid 2737 . . 3 (lt‘𝐾) = (lt‘𝐾)
3 eqid 2737 . . 3 (0.‘𝐾) = (0.‘𝐾)
4 eqid 2737 . . 3 (1.‘𝐾) = (1.‘𝐾)
51, 2, 3, 4hlhgt4 39761 . 2 (𝐾 ∈ HL → ∃𝑥 ∈ (Base‘𝐾)∃𝑦 ∈ (Base‘𝐾)∃𝑧 ∈ (Base‘𝐾)(((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))))
6 simpl1 1193 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → 𝐾 ∈ HL)
7 hlop 39735 . . . . . . . . . 10 (𝐾 ∈ HL → 𝐾 ∈ OP)
81, 3op0cl 39557 . . . . . . . . . 10 (𝐾 ∈ OP → (0.‘𝐾) ∈ (Base‘𝐾))
96, 7, 83syl 18 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (0.‘𝐾) ∈ (Base‘𝐾))
10 simpl2l 1228 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → 𝑥 ∈ (Base‘𝐾))
11 simprll 779 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (0.‘𝐾)(lt‘𝐾)𝑥)
12 eqid 2737 . . . . . . . . . 10 (le‘𝐾) = (le‘𝐾)
13 athgt.j . . . . . . . . . 10 = (join‘𝐾)
14 athgt.c . . . . . . . . . 10 𝐶 = ( ⋖ ‘𝐾)
15 athgt.a . . . . . . . . . 10 𝐴 = (Atoms‘𝐾)
161, 12, 2, 13, 14, 15hlrelat3 39785 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (0.‘𝐾) ∈ (Base‘𝐾) ∧ 𝑥 ∈ (Base‘𝐾)) ∧ (0.‘𝐾)(lt‘𝐾)𝑥) → ∃𝑝𝐴 ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥))
176, 9, 10, 11, 16syl31anc 1376 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → ∃𝑝𝐴 ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥))
18 simp11 1205 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝐾 ∈ HL)
19 simp3 1139 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝑝𝐴)
203, 14, 15atcvr0 39661 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ 𝑝𝐴) → (0.‘𝐾)𝐶𝑝)
2118, 19, 20syl2anc 585 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (0.‘𝐾)𝐶𝑝)
22 hlol 39734 . . . . . . . . . . . . . . 15 (𝐾 ∈ HL → 𝐾 ∈ OL)
2318, 22syl 17 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝐾 ∈ OL)
241, 15atbase 39662 . . . . . . . . . . . . . . 15 (𝑝𝐴𝑝 ∈ (Base‘𝐾))
25243ad2ant3 1136 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝑝 ∈ (Base‘𝐾))
261, 13, 3olj02 39599 . . . . . . . . . . . . . 14 ((𝐾 ∈ OL ∧ 𝑝 ∈ (Base‘𝐾)) → ((0.‘𝐾) 𝑝) = 𝑝)
2723, 25, 26syl2anc 585 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → ((0.‘𝐾) 𝑝) = 𝑝)
2821, 27breqtrrd 5128 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (0.‘𝐾)𝐶((0.‘𝐾) 𝑝))
2928biantrurd 532 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (((0.‘𝐾) 𝑝)(le‘𝐾)𝑥 ↔ ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥)))
3027breq1d 5110 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (((0.‘𝐾) 𝑝)(le‘𝐾)𝑥𝑝(le‘𝐾)𝑥))
3129, 30bitr3d 281 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥) ↔ 𝑝(le‘𝐾)𝑥))
32313expa 1119 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) ∧ 𝑝𝐴) → (((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥) ↔ 𝑝(le‘𝐾)𝑥))
3332rexbidva 3160 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (∃𝑝𝐴 ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥) ↔ ∃𝑝𝐴 𝑝(le‘𝐾)𝑥))
3417, 33mpbid 232 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → ∃𝑝𝐴 𝑝(le‘𝐾)𝑥)
35 simp11 1205 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝐾 ∈ HL)
36253adant3r 1183 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝 ∈ (Base‘𝐾))
37 simp12r 1289 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑦 ∈ (Base‘𝐾))
38 simp3r 1204 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝(le‘𝐾)𝑥)
39 simp2lr 1243 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑥(lt‘𝐾)𝑦)
40 hlpos 39739 . . . . . . . . . . . . . . 15 (𝐾 ∈ HL → 𝐾 ∈ Poset)
4135, 40syl 17 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝐾 ∈ Poset)
42 simp12l 1288 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑥 ∈ (Base‘𝐾))
431, 12, 2plelttr 18277 . . . . . . . . . . . . . 14 ((𝐾 ∈ Poset ∧ (𝑝 ∈ (Base‘𝐾) ∧ 𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → ((𝑝(le‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) → 𝑝(lt‘𝐾)𝑦))
4441, 36, 42, 37, 43syl13anc 1375 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → ((𝑝(le‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) → 𝑝(lt‘𝐾)𝑦))
4538, 39, 44mp2and 700 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝(lt‘𝐾)𝑦)
461, 12, 2, 13, 14, 15hlrelat3 39785 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑝 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑝(lt‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦))
4735, 36, 37, 45, 46syl31anc 1376 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦))
48 simp11 1205 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ HL)
4948hllatd 39737 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ Lat)
50 simp3ll 1246 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑝𝐴)
5150, 24syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑝 ∈ (Base‘𝐾))
52 simp3lr 1247 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑞𝐴)
531, 15atbase 39662 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑞𝐴𝑞 ∈ (Base‘𝐾))
5452, 53syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑞 ∈ (Base‘𝐾))
551, 13latjcl 18374 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐾 ∈ Lat ∧ 𝑝 ∈ (Base‘𝐾) ∧ 𝑞 ∈ (Base‘𝐾)) → (𝑝 𝑞) ∈ (Base‘𝐾))
5649, 51, 54, 55syl3anc 1374 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞) ∈ (Base‘𝐾))
57 simp13 1207 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑧 ∈ (Base‘𝐾))
58 simp3r 1204 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞)(le‘𝐾)𝑦)
59 simp2l 1201 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑦(lt‘𝐾)𝑧)
6048, 40syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ Poset)
61 simp12 1206 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑦 ∈ (Base‘𝐾))
621, 12, 2plelttr 18277 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐾 ∈ Poset ∧ ((𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾))) → (((𝑝 𝑞)(le‘𝐾)𝑦𝑦(lt‘𝐾)𝑧) → (𝑝 𝑞)(lt‘𝐾)𝑧))
6360, 56, 61, 57, 62syl13anc 1375 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (((𝑝 𝑞)(le‘𝐾)𝑦𝑦(lt‘𝐾)𝑧) → (𝑝 𝑞)(lt‘𝐾)𝑧))
6458, 59, 63mp2and 700 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞)(lt‘𝐾)𝑧)
651, 12, 2, 13, 14, 15hlrelat3 39785 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ (𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑝 𝑞)(lt‘𝐾)𝑧) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧))
6648, 56, 57, 64, 65syl31anc 1376 . . . . . . . . . . . . . . . . . . . . 21 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧))
67 simp1ll 1238 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ HL)
6867hllatd 39737 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ Lat)
69 simp2ll 1242 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑝𝐴)
7069, 24syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑝 ∈ (Base‘𝐾))
71 simp2lr 1243 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑞𝐴)
7271, 53syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑞 ∈ (Base‘𝐾))
7368, 70, 72, 55syl3anc 1374 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → (𝑝 𝑞) ∈ (Base‘𝐾))
74 simp3l 1203 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑟𝐴)
751, 15atbase 39662 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑟𝐴𝑟 ∈ (Base‘𝐾))
7674, 75syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑟 ∈ (Base‘𝐾))
771, 13latjcl 18374 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝐾 ∈ Lat ∧ (𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Base‘𝐾)) → ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾))
7868, 73, 76, 77syl3anc 1374 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾))
791, 4op1cl 39558 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝐾 ∈ OP → (1.‘𝐾) ∈ (Base‘𝐾))
8067, 7, 793syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → (1.‘𝐾) ∈ (Base‘𝐾))
81 simp3r 1204 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)
82 simp1r 1200 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑧(lt‘𝐾)(1.‘𝐾))
8367, 40syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ Poset)
84 simp1lr 1239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑧 ∈ (Base‘𝐾))
851, 12, 2plelttr 18277 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝐾 ∈ Poset ∧ (((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾))) → ((((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)))
8683, 78, 84, 80, 85syl13anc 1375 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)))
8781, 82, 86mp2and 700 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾))
881, 12, 2, 13, 14, 15hlrelat3 39785 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝐾 ∈ HL ∧ ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾)) ∧ ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)) → ∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)))
8967, 78, 80, 87, 88syl31anc 1376 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)))
90 simpl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
9190reximi 3076 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)) → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
9289, 91syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
93923exp 1120 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ((𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧) → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
9493exp4a 431 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
9594ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) → (𝑧(lt‘𝐾)(1.‘𝐾) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
96953adant2 1132 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → (𝑧(lt‘𝐾)(1.‘𝐾) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
97963imp 1111 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
98973adant2l 1180 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
9998imp 406 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) ∧ 𝑟𝐴) → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))
10099anim2d 613 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) ∧ 𝑟𝐴) → (((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧) → ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
101100reximdva 3151 . . . . . . . . . . . . . . . . . . . . 21 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
10266, 101mpd 15 . . . . . . . . . . . . . . . . . . . 20 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))
1031023exp 1120 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
104103exp4a 431 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → ((𝑝𝐴𝑞𝐴) → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
105104exp4a 431 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → (𝑝𝐴 → (𝑞𝐴 → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))))
1061053adant2l 1180 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → (𝑝𝐴 → (𝑞𝐴 → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))))
1071063imp1 1349 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) ∧ 𝑞𝐴) → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
108107anim2d 613 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) ∧ 𝑞𝐴) → ((𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
109108reximdva 3151 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) → (∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
1101093adant2l 1180 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
1111103adant3r 1183 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → (∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
11247, 111mpd 15 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
1131123expia 1122 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → ((𝑝𝐴𝑝(le‘𝐾)𝑥) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
114113expd 415 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (𝑝𝐴 → (𝑝(le‘𝐾)𝑥 → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
115114reximdvai 3149 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (∃𝑝𝐴 𝑝(le‘𝐾)𝑥 → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
11634, 115mpd 15 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
1171163exp1 1354 . . . . 5 (𝐾 ∈ HL → ((𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑧 ∈ (Base‘𝐾) → ((((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))))
118117imp 406 . . . 4 ((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → (𝑧 ∈ (Base‘𝐾) → ((((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
119118rexlimdv 3137 . . 3 ((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → (∃𝑧 ∈ (Base‘𝐾)(((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
120119rexlimdvva 3195 . 2 (𝐾 ∈ HL → (∃𝑥 ∈ (Base‘𝐾)∃𝑦 ∈ (Base‘𝐾)∃𝑧 ∈ (Base‘𝐾)(((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
1215, 120mpd 15 1 (𝐾 ∈ HL → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1087   = wceq 1542  wcel 2114  wrex 3062   class class class wbr 5100  cfv 6500  (class class class)co 7368  Basecbs 17148  lecple 17196  Posetcpo 18242  ltcplt 18243  joincjn 18246  0.cp0 18356  1.cp1 18357  Latclat 18366  OPcops 39545  OLcol 39547  ccvr 39635  Atomscatm 39636  HLchlt 39723
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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-proset 18229  df-poset 18248  df-plt 18263  df-lub 18279  df-glb 18280  df-join 18281  df-meet 18282  df-p0 18358  df-p1 18359  df-lat 18367  df-clat 18434  df-oposet 39549  df-ol 39551  df-oml 39552  df-covers 39639  df-ats 39640  df-atl 39671  df-cvlat 39695  df-hlat 39724
This theorem is referenced by:  3dim0  39830
  Copyright terms: Public domain W3C validator