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 40041
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 2761 . . 3 (Base‘𝐾) = (Base‘𝐾)
2 eqid 2761 . . 3 (lt‘𝐾) = (lt‘𝐾)
3 eqid 2761 . . 3 (0.‘𝐾) = (0.‘𝐾)
4 eqid 2761 . . 3 (1.‘𝐾) = (1.‘𝐾)
51, 2, 3, 4hlhgt4 39973 . 2 (𝐾 ∈ HL → ∃𝑥 ∈ (Base‘𝐾)∃𝑦 ∈ (Base‘𝐾)∃𝑧 ∈ (Base‘𝐾)(((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))))
6 simpl1 1204 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → 𝐾 ∈ HL)
7 hlop 39947 . . . . . . . . . 10 (𝐾 ∈ HL → 𝐾 ∈ OP)
81, 3op0cl 39769 . . . . . . . . . 10 (𝐾 ∈ OP → (0.‘𝐾) ∈ (Base‘𝐾))
96, 7, 83syl 18 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (0.‘𝐾) ∈ (Base‘𝐾))
10 simpl2l 1239 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → 𝑥 ∈ (Base‘𝐾))
11 simprll 788 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (0.‘𝐾)(lt‘𝐾)𝑥)
12 eqid 2761 . . . . . . . . . 10 (le‘𝐾) = (le‘𝐾)
13 athgt.j . . . . . . . . . 10 = (join‘𝐾)
14 athgt.c . . . . . . . . . 10 𝐶 = ( ⋖ ‘𝐾)
15 athgt.a . . . . . . . . . 10 𝐴 = (Atoms‘𝐾)
161, 12, 2, 13, 14, 15hlrelat3 39997 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (0.‘𝐾) ∈ (Base‘𝐾) ∧ 𝑥 ∈ (Base‘𝐾)) ∧ (0.‘𝐾)(lt‘𝐾)𝑥) → ∃𝑝𝐴 ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥))
176, 9, 10, 11, 16syl31anc 1391 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → ∃𝑝𝐴 ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥))
18 simp11 1216 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝐾 ∈ HL)
19 simp3 1150 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝑝𝐴)
203, 14, 15atcvr0 39873 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ 𝑝𝐴) → (0.‘𝐾)𝐶𝑝)
2118, 19, 20syl2anc 593 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (0.‘𝐾)𝐶𝑝)
22 hlol 39946 . . . . . . . . . . . . . . 15 (𝐾 ∈ HL → 𝐾 ∈ OL)
2318, 22syl 17 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝐾 ∈ OL)
241, 15atbase 39874 . . . . . . . . . . . . . . 15 (𝑝𝐴𝑝 ∈ (Base‘𝐾))
25243ad2ant3 1147 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → 𝑝 ∈ (Base‘𝐾))
261, 13, 3olj02 39811 . . . . . . . . . . . . . 14 ((𝐾 ∈ OL ∧ 𝑝 ∈ (Base‘𝐾)) → ((0.‘𝐾) 𝑝) = 𝑝)
2723, 25, 26syl2anc 593 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → ((0.‘𝐾) 𝑝) = 𝑝)
2821, 27breqtrrd 5125 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (0.‘𝐾)𝐶((0.‘𝐾) 𝑝))
2928biantrurd 540 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (((0.‘𝐾) 𝑝)(le‘𝐾)𝑥 ↔ ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥)))
3027breq1d 5107 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (((0.‘𝐾) 𝑝)(le‘𝐾)𝑥𝑝(le‘𝐾)𝑥))
3129, 30bitr3d 283 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥) ↔ 𝑝(le‘𝐾)𝑥))
32313expa 1130 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) ∧ 𝑝𝐴) → (((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥) ↔ 𝑝(le‘𝐾)𝑥))
3332rexbidva 3183 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (∃𝑝𝐴 ((0.‘𝐾)𝐶((0.‘𝐾) 𝑝) ∧ ((0.‘𝐾) 𝑝)(le‘𝐾)𝑥) ↔ ∃𝑝𝐴 𝑝(le‘𝐾)𝑥))
3417, 33mpbid 234 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → ∃𝑝𝐴 𝑝(le‘𝐾)𝑥)
35 simp11 1216 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝐾 ∈ HL)
36253adant3r 1194 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝 ∈ (Base‘𝐾))
37 simp12r 1300 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑦 ∈ (Base‘𝐾))
38 simp3r 1215 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝(le‘𝐾)𝑥)
39 simp2lr 1254 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑥(lt‘𝐾)𝑦)
40 hlpos 39951 . . . . . . . . . . . . . . 15 (𝐾 ∈ HL → 𝐾 ∈ Poset)
4135, 40syl 17 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝐾 ∈ Poset)
42 simp12l 1299 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑥 ∈ (Base‘𝐾))
431, 12, 2plelttr 18365 . . . . . . . . . . . . . 14 ((𝐾 ∈ Poset ∧ (𝑝 ∈ (Base‘𝐾) ∧ 𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → ((𝑝(le‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) → 𝑝(lt‘𝐾)𝑦))
4441, 36, 42, 37, 43syl13anc 1390 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → ((𝑝(le‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) → 𝑝(lt‘𝐾)𝑦))
4538, 39, 44mp2and 709 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → 𝑝(lt‘𝐾)𝑦)
461, 12, 2, 13, 14, 15hlrelat3 39997 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑝 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑝(lt‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦))
4735, 36, 37, 45, 46syl31anc 1391 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ (𝑝𝐴𝑝(le‘𝐾)𝑥)) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦))
48 simp11 1216 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ HL)
4948hllatd 39949 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ Lat)
50 simp3ll 1257 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑝𝐴)
5150, 24syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑝 ∈ (Base‘𝐾))
52 simp3lr 1258 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑞𝐴)
531, 15atbase 39874 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑞𝐴𝑞 ∈ (Base‘𝐾))
5452, 53syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑞 ∈ (Base‘𝐾))
551, 13latjcl 18462 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐾 ∈ Lat ∧ 𝑝 ∈ (Base‘𝐾) ∧ 𝑞 ∈ (Base‘𝐾)) → (𝑝 𝑞) ∈ (Base‘𝐾))
5649, 51, 54, 55syl3anc 1389 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞) ∈ (Base‘𝐾))
57 simp13 1218 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑧 ∈ (Base‘𝐾))
58 simp3r 1215 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞)(le‘𝐾)𝑦)
59 simp2l 1212 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑦(lt‘𝐾)𝑧)
6048, 40syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝐾 ∈ Poset)
61 simp12 1217 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → 𝑦 ∈ (Base‘𝐾))
621, 12, 2plelttr 18365 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐾 ∈ Poset ∧ ((𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾))) → (((𝑝 𝑞)(le‘𝐾)𝑦𝑦(lt‘𝐾)𝑧) → (𝑝 𝑞)(lt‘𝐾)𝑧))
6360, 56, 61, 57, 62syl13anc 1390 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (((𝑝 𝑞)(le‘𝐾)𝑦𝑦(lt‘𝐾)𝑧) → (𝑝 𝑞)(lt‘𝐾)𝑧))
6458, 59, 63mp2and 709 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑝 𝑞)(lt‘𝐾)𝑧)
651, 12, 2, 13, 14, 15hlrelat3 39997 . . . . . . . . . . . . . . . . . . . . . 22 (((𝐾 ∈ HL ∧ (𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑝 𝑞)(lt‘𝐾)𝑧) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧))
6648, 56, 57, 64, 65syl31anc 1391 . . . . . . . . . . . . . . . . . . . . 21 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧))
67 simp1ll 1249 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ HL)
6867hllatd 39949 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ Lat)
69 simp2ll 1253 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑝𝐴)
7069, 24syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑝 ∈ (Base‘𝐾))
71 simp2lr 1254 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑞𝐴)
7271, 53syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑞 ∈ (Base‘𝐾))
7368, 70, 72, 55syl3anc 1389 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → (𝑝 𝑞) ∈ (Base‘𝐾))
74 simp3l 1214 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑟𝐴)
751, 15atbase 39874 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑟𝐴𝑟 ∈ (Base‘𝐾))
7674, 75syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑟 ∈ (Base‘𝐾))
771, 13latjcl 18462 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝐾 ∈ Lat ∧ (𝑝 𝑞) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Base‘𝐾)) → ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾))
7868, 73, 76, 77syl3anc 1389 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾))
791, 4op1cl 39770 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝐾 ∈ OP → (1.‘𝐾) ∈ (Base‘𝐾))
8067, 7, 793syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → (1.‘𝐾) ∈ (Base‘𝐾))
81 simp3r 1215 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)
82 simp1r 1211 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑧(lt‘𝐾)(1.‘𝐾))
8367, 40syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝐾 ∈ Poset)
84 simp1lr 1250 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → 𝑧 ∈ (Base‘𝐾))
851, 12, 2plelttr 18365 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝐾 ∈ Poset ∧ (((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾))) → ((((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)))
8683, 78, 84, 80, 85syl13anc 1390 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)))
8781, 82, 86mp2and 709 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾))
881, 12, 2, 13, 14, 15hlrelat3 39997 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝐾 ∈ HL ∧ ((𝑝 𝑞) 𝑟) ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾)) ∧ ((𝑝 𝑞) 𝑟)(lt‘𝐾)(1.‘𝐾)) → ∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)))
8967, 78, 80, 87, 88syl31anc 1391 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)))
90 simpl 486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)) → ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
9190reximi 3099 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (∃𝑠𝐴 (((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠) ∧ (((𝑝 𝑞) 𝑟) 𝑠)(le‘𝐾)(1.‘𝐾)) → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
9289, 91syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) ∧ (𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧)) → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))
93923exp 1131 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ((𝑟𝐴 ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧) → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
9493exp4a 435 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾)) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
9594ex 416 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝐾 ∈ HL ∧ 𝑧 ∈ (Base‘𝐾)) → (𝑧(lt‘𝐾)(1.‘𝐾) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
96953adant2 1143 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → (𝑧(lt‘𝐾)(1.‘𝐾) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
97963imp 1122 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ 𝑧(lt‘𝐾)(1.‘𝐾) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
98973adant2l 1191 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (𝑟𝐴 → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
9998imp 410 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) ∧ 𝑟𝐴) → (((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧 → ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))
10099anim2d 621 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) ∧ 𝑟𝐴) → (((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧) → ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
101100reximdva 3174 . . . . . . . . . . . . . . . . . . . . 21 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → (∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ((𝑝 𝑞) 𝑟)(le‘𝐾)𝑧) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
10266, 101mpd 15 . . . . . . . . . . . . . . . . . . . 20 (((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ ((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦)) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))
1031023exp 1131 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → (((𝑝𝐴𝑞𝐴) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
104103exp4a 435 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → ((𝑝𝐴𝑞𝐴) → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
105104exp4a 435 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ 𝑦 ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → (𝑝𝐴 → (𝑞𝐴 → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))))
1061053adant2l 1191 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) → (𝑝𝐴 → (𝑞𝐴 → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))))
1071063imp1 1360 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) ∧ 𝑞𝐴) → ((𝑝 𝑞)(le‘𝐾)𝑦 → ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))
108107anim2d 621 . . . . . . . . . . . . . 14 ((((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) ∧ 𝑞𝐴) → ((𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
109108reximdva 3174 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)) ∧ 𝑝𝐴) → (∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
1101093adant2l 1191 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) ∧ 𝑝𝐴) → (∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ (𝑝 𝑞)(le‘𝐾)𝑦) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
1111103adant3r 1194 . . . . . . . . . . 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 1133 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → ((𝑝𝐴𝑝(le‘𝐾)𝑥) → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
114113expd 419 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ∧ 𝑧 ∈ (Base‘𝐾)) ∧ (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾)))) → (𝑝𝐴 → (𝑝(le‘𝐾)𝑥 → ∃𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
115114reximdvai 3172 . . . . . . 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 1365 . . . . 5 (𝐾 ∈ HL → ((𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑧 ∈ (Base‘𝐾) → ((((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))))
118117imp 410 . . . 4 ((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → (𝑧 ∈ (Base‘𝐾) → ((((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠))))))
119118rexlimdv 3160 . . 3 ((𝐾 ∈ HL ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → (∃𝑧 ∈ (Base‘𝐾)(((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧𝑧(lt‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 (𝑝𝐶(𝑝 𝑞) ∧ ∃𝑟𝐴 ((𝑝 𝑞)𝐶((𝑝 𝑞) 𝑟) ∧ ∃𝑠𝐴 ((𝑝 𝑞) 𝑟)𝐶(((𝑝 𝑞) 𝑟) 𝑠)))))
120119rexlimdvva 3218 . 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 208  wa 399  w3a 1097   = wceq 1559  wcel 2141  wrex 3085   class class class wbr 5097  cfv 6516  (class class class)co 7391  Basecbs 17236  lecple 17284  Posetcpo 18330  ltcplt 18331  joincjn 18334  0.cp0 18444  1.cp1 18445  Latclat 18454  OPcops 39757  OLcol 39759  ccvr 39847  Atomscatm 39848  HLchlt 39935
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7713
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-id 5538  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-riota 7348  df-ov 7394  df-oprab 7395  df-proset 18317  df-poset 18336  df-plt 18351  df-lub 18367  df-glb 18368  df-join 18369  df-meet 18370  df-p0 18446  df-p1 18447  df-lat 18455  df-clat 18522  df-oposet 39761  df-ol 39763  df-oml 39764  df-covers 39851  df-ats 39852  df-atl 39883  df-cvlat 39907  df-hlat 39936
This theorem is referenced by:  3dim0  40042
  Copyright terms: Public domain W3C validator