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 39417
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 2734 . . 3 (Base‘𝐾) = (Base‘𝐾)
2 eqid 2734 . . 3 (lt‘𝐾) = (lt‘𝐾)
3 eqid 2734 . . 3 (0.‘𝐾) = (0.‘𝐾)
4 eqid 2734 . . 3 (1.‘𝐾) = (1.‘𝐾)
51, 2, 3, 4hlhgt4 39349 . 2 (𝐾 ∈ HL → ∃𝑥 ∈ (Base‘𝐾)∃𝑦 ∈ (Base‘𝐾)∃𝑧 ∈ (Base‘𝐾)(((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))))
6 simpl1 1191 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → 𝐾 ∈ HL)
7 hlop 39322 . . . . . . . . . 10 (𝐾 ∈ HL → 𝐾 ∈ OP)
81, 3op0cl 39144 . . . . . . . . . 10 (𝐾 ∈ OP → (0.‘𝐾) ∈ (Base‘𝐾))
96, 7, 83syl 18 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (0.‘𝐾) ∈ (Base‘𝐾))
10 simpl2l 1226 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → 𝑥 ∈ (Base‘𝐾))
11 simprll 778 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (0.‘𝐾)(lt‘𝐾)𝑥)
12 eqid 2734 . . . . . . . . . 10 (le‘𝐾) = (le‘𝐾)
13 athgt.j . . . . . . . . . 10 = (join‘𝐾)
14 athgt.c . . . . . . . . . 10 𝐶 = ( ⋖ ‘𝐾)
15 athgt.a . . . . . . . . . 10 𝐴 = (Atoms‘𝐾)
161, 12, 2, 13, 14, 15hlrelat3 39373 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (0.‘𝐾) ∈ (Base‘𝐾) ∧ 𝑥 ∈ (Base‘𝐾)) ∧ (0.‘𝐾)(lt‘𝐾)𝑥) → ∃𝑝𝐴 ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥))
176, 9, 10, 11, 16syl31anc 1374 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → ∃𝑝𝐴 ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥))
18 simp11 1203 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝐾 ∈ HL)
19 simp3 1138 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝑝𝐴)
203, 14, 15atcvr0 39248 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ 𝑝𝐴) → (0.‘𝐾)𝐶𝑝)
2118, 19, 20syl2anc 584 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (0.‘𝐾)𝐶𝑝)
22 hlol 39321 . . . . . . . . . . . . . . 15 (𝐾 ∈ HL → 𝐾 ∈ OL)
2318, 22syl 17 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝐾 ∈ OL)
241, 15atbase 39249 . . . . . . . . . . . . . . 15 (𝑝𝐴𝑝 ∈ (Base‘𝐾))
25243ad2ant3 1135 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝑝 ∈ (Base‘𝐾))
261, 13, 3olj02 39186 . . . . . . . . . . . . . 14 ((𝐾 ∈ OL ∧ 𝑝 ∈ (Base‘𝐾)) → ((0.‘𝐾) 𝑝) = 𝑝)
2723, 25, 26syl2anc 584 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → ((0.‘𝐾) 𝑝) = 𝑝)
2821, 27breqtrrd 5151 . . . . . . . . . . . 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 5133 . . . . . . . . . . 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 1118 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) ∧ 𝑝𝐴) → (((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥) ↔ 𝑝(le‘𝐾)𝑥))
3332rexbidva 3164 . . . . . . . 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 1203 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝐾 ∈ HL)
36253adant3r 1181 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝 ∈ (Base‘𝐾))
37 simp12r 1287 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑦 ∈ (Base‘𝐾))
38 simp3r 1202 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝(le‘𝐾)𝑥)
39 simp2lr 1241 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑥(lt‘𝐾)𝑦)
40 hlpos 39326 . . . . . . . . . . . . . . 15 (𝐾 ∈ HL → 𝐾 ∈ Poset)
4135, 40syl 17 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝐾 ∈ Poset)
42 simp12l 1286 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑥 ∈ (Base‘𝐾))
431, 12, 2plelttr 18358 . . . . . . . . . . . . . 14 ((𝐾 ∈ Poset ∧ (𝑝 ∈ (Base‘𝐾) ∧ 𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → ((𝑝(le‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) → 𝑝(lt‘𝐾)𝑦))
4441, 36, 42, 37, 43syl13anc 1373 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → ((𝑝(le‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) → 𝑝(lt‘𝐾)𝑦))
4538, 39, 44mp2and 699 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝(lt‘𝐾)𝑦)
461, 12, 2, 13, 14, 15hlrelat3 39373 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑝 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑝(lt‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦))
4735, 36, 37, 45, 46syl31anc 1374 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦))
48 simp11 1203 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ HL)
4948hllatd 39324 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ Lat)
50 simp3ll 1244 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑝𝐴)
5150, 24syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑝 ∈ (Base‘𝐾))
52 simp3lr 1245 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑞𝐴)
531, 15atbase 39249 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑞𝐴𝑞 ∈ (Base‘𝐾))
5452, 53syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑞 ∈ (Base‘𝐾))
551, 13latjcl 18453 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐾 ∈ Lat ∧ 𝑝 ∈ (Base‘𝐾) ∧ 𝑞 ∈ (Base‘𝐾)) → (𝑝 𝑞) ∈ (Base‘𝐾))
5649, 51, 54, 55syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞) ∈ (Base‘𝐾))
57 simp13 1205 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑧 ∈ (Base‘𝐾))
58 simp3r 1202 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞)(le‘𝐾)𝑦)
59 simp2l 1199 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑦(lt‘𝐾)𝑧)
6048, 40syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ Poset)
61 simp12 1204 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑦 ∈ (Base‘𝐾))
621, 12, 2plelttr 18358 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐾 ∈ Poset ∧ ((𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾))) → (((𝑝 𝑞)(le‘𝐾)𝑦𝑦(lt‘𝐾)𝑧) → (𝑝 𝑞)(lt‘𝐾)𝑧))
6360, 56, 61, 57, 62syl13anc 1373 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (((𝑝 𝑞)(le‘𝐾)𝑦𝑦(lt‘𝐾)𝑧) → (𝑝 𝑞)(lt‘𝐾)𝑧))
6458, 59, 63mp2and 699 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞)(lt‘𝐾)𝑧)
651, 12, 2, 13, 14, 15hlrelat3 39373 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ (𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑝 𝑞)(lt‘𝐾)𝑧) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧))
6648, 56, 57, 64, 65syl31anc 1374 . . . . . . . . . . . . . . . . . . . . 21 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧))
67 simp1ll 1236 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ HL)
6867hllatd 39324 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ Lat)
69 simp2ll 1240 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑝𝐴)
7069, 24syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑝 ∈ (Base‘𝐾))
71 simp2lr 1241 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑞𝐴)
7271, 53syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑞 ∈ (Base‘𝐾))
7368, 70, 72, 55syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → (𝑝 𝑞) ∈ (Base‘𝐾))
74 simp3l 1201 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑟𝐴)
751, 15atbase 39249 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑟𝐴𝑟 ∈ (Base‘𝐾))
7674, 75syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑟 ∈ (Base‘𝐾))
771, 13latjcl 18453 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝐾 ∈ Lat ∧ (𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Base‘𝐾)) → ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾))
7868, 73, 76, 77syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾))
791, 4op1cl 39145 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝐾 ∈ OP → (1.‘𝐾) ∈ (Base‘𝐾))
8067, 7, 793syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → (1.‘𝐾) ∈ (Base‘𝐾))
81 simp3r 1202 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)
82 simp1r 1198 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑧(lt‘𝐾)(1.‘𝐾))
8367, 40syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ Poset)
84 simp1lr 1237 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑧 ∈ (Base‘𝐾))
851, 12, 2plelttr 18358 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝐾 ∈ Poset ∧ (((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾))) → ((((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)))
8683, 78, 84, 80, 85syl13anc 1373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)))
8781, 82, 86mp2and 699 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾))
881, 12, 2, 13, 14, 15hlrelat3 39373 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝐾 ∈ HL ∧ ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾)) ∧ ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)) → ∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)))
8967, 78, 80, 87, 88syl31anc 1374 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)))
90 simpl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
9190reximi 3073 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)) → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
9289, 91syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
93923exp 1119 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 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 1131 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → (𝑧(lt‘𝐾)(1.‘𝐾) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
97963imp 1110 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
98973adant2l 1178 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
9998imp 406 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) ∧ 𝑟𝐴) → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))
10099anim2d 612 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) ∧ 𝑟𝐴) → (((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧) → ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
101100reximdva 3155 . . . . . . . . . . . . . . . . . . . . 21 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
10266, 101mpd 15 . . . . . . . . . . . . . . . . . . . 20 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))
1031023exp 1119 . . . . . . . . . . . . . . . . . . 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 1178 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → (𝑝𝐴 → (𝑞𝐴 → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))))
1071063imp1 1347 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) ∧ 𝑞𝐴) → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
108107anim2d 612 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) ∧ 𝑞𝐴) → ((𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
109108reximdva 3155 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) → (∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
1101093adant2l 1178 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
1111103adant3r 1181 . . . . . . . . . . 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 1121 . . . . . . . . 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 3152 . . . . . . 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 1352 . . . . 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 3140 . . 3 ((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → (∃𝑧 ∈ (Base‘𝐾)(((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
120119rexlimdvva 3200 . 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 1086   = wceq 1539  wcel 2107  wrex 3059   class class class wbr 5123  cfv 6541  (class class class)co 7413  Basecbs 17229  lecple 17280  Posetcpo 18323  ltcplt 18324  joincjn 18327  0.cp0 18437  1.cp1 18438  Latclat 18445  OPcops 39132  OLcol 39134  ccvr 39222  Atomscatm 39223  HLchlt 39310
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2706  ax-rep 5259  ax-sep 5276  ax-nul 5286  ax-pow 5345  ax-pr 5412  ax-un 7737
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2808  df-nfc 2884  df-ne 2932  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-op 4613  df-uni 4888  df-iun 4973  df-br 5124  df-opab 5186  df-mpt 5206  df-id 5558  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-iota 6494  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-riota 7370  df-ov 7416  df-oprab 7417  df-proset 18310  df-poset 18329  df-plt 18344  df-lub 18360  df-glb 18361  df-join 18362  df-meet 18363  df-p0 18439  df-p1 18440  df-lat 18446  df-clat 18513  df-oposet 39136  df-ol 39138  df-oml 39139  df-covers 39226  df-ats 39227  df-atl 39258  df-cvlat 39282  df-hlat 39311
This theorem is referenced by:  3dim0  39418
  Copyright terms: Public domain W3C validator