Proof of Theorem 3dim0
Step | Hyp | Ref
| Expression |
1 | | 3dim0.j |
. . 3
⊢ ∨ =
(join‘𝐾) |
2 | | eqid 2610 |
. . 3
⊢ ( ⋖
‘𝐾) = ( ⋖
‘𝐾) |
3 | | 3dim0.a |
. . 3
⊢ 𝐴 = (Atoms‘𝐾) |
4 | 1, 2, 3 | athgt 33760 |
. 2
⊢ (𝐾 ∈ HL → ∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 (𝑝( ⋖ ‘𝐾)(𝑝 ∨ 𝑞) ∧ ∃𝑟 ∈ 𝐴 ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)))) |
5 | | df-3an 1033 |
. . . . . . . . . 10
⊢ ((𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ ((𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞)) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟))) |
6 | | simpll1 1093 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → 𝐾 ∈ HL) |
7 | | eqid 2610 |
. . . . . . . . . . . . . . 15
⊢
(Base‘𝐾) =
(Base‘𝐾) |
8 | 7, 1, 3 | hlatjcl 33671 |
. . . . . . . . . . . . . 14
⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) → (𝑝 ∨ 𝑞) ∈ (Base‘𝐾)) |
9 | 8 | ad2antrr 758 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → (𝑝 ∨ 𝑞) ∈ (Base‘𝐾)) |
10 | | simplr 788 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → 𝑟 ∈ 𝐴) |
11 | | 3dim0.l |
. . . . . . . . . . . . . 14
⊢ ≤ =
(le‘𝐾) |
12 | 7, 11, 1, 2, 3 | cvr1 33714 |
. . . . . . . . . . . . 13
⊢ ((𝐾 ∈ HL ∧ (𝑝 ∨ 𝑞) ∈ (Base‘𝐾) ∧ 𝑟 ∈ 𝐴) → (¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ↔ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟))) |
13 | 6, 9, 10, 12 | syl3anc 1318 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → (¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ↔ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟))) |
14 | 13 | anbi2d 736 |
. . . . . . . . . . 11
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → ((𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞)) ↔ (𝑝 ≠ 𝑞 ∧ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟)))) |
15 | | hllat 33668 |
. . . . . . . . . . . . . 14
⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat) |
16 | 6, 15 | syl 17 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → 𝐾 ∈ Lat) |
17 | 7, 3 | atbase 33594 |
. . . . . . . . . . . . . 14
⊢ (𝑟 ∈ 𝐴 → 𝑟 ∈ (Base‘𝐾)) |
18 | 17 | ad2antlr 759 |
. . . . . . . . . . . . 13
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → 𝑟 ∈ (Base‘𝐾)) |
19 | 7, 1 | latjcl 16874 |
. . . . . . . . . . . . 13
⊢ ((𝐾 ∈ Lat ∧ (𝑝 ∨ 𝑞) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Base‘𝐾)) → ((𝑝 ∨ 𝑞) ∨ 𝑟) ∈ (Base‘𝐾)) |
20 | 16, 9, 18, 19 | syl3anc 1318 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → ((𝑝 ∨ 𝑞) ∨ 𝑟) ∈ (Base‘𝐾)) |
21 | | simpr 476 |
. . . . . . . . . . . 12
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → 𝑠 ∈ 𝐴) |
22 | 7, 11, 1, 2, 3 | cvr1 33714 |
. . . . . . . . . . . 12
⊢ ((𝐾 ∈ HL ∧ ((𝑝 ∨ 𝑞) ∨ 𝑟) ∈ (Base‘𝐾) ∧ 𝑠 ∈ 𝐴) → (¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟) ↔ ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))) |
23 | 6, 20, 21, 22 | syl3anc 1318 |
. . . . . . . . . . 11
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → (¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟) ↔ ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))) |
24 | 14, 23 | anbi12d 743 |
. . . . . . . . . 10
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → (((𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞)) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ ((𝑝 ≠ 𝑞 ∧ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟)) ∧ ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)))) |
25 | 5, 24 | syl5bb 271 |
. . . . . . . . 9
⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) ∧ 𝑠 ∈ 𝐴) → ((𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ ((𝑝 ≠ 𝑞 ∧ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟)) ∧ ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)))) |
26 | 25 | rexbidva 3031 |
. . . . . . . 8
⊢ (((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (∃𝑠 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ ∃𝑠 ∈ 𝐴 ((𝑝 ≠ 𝑞 ∧ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟)) ∧ ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)))) |
27 | | r19.42v 3073 |
. . . . . . . . 9
⊢
(∃𝑠 ∈
𝐴 ((𝑝 ≠ 𝑞 ∧ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟)) ∧ ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)) ↔ ((𝑝 ≠ 𝑞 ∧ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟)) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))) |
28 | | anass 679 |
. . . . . . . . 9
⊢ (((𝑝 ≠ 𝑞 ∧ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟)) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)) ↔ (𝑝 ≠ 𝑞 ∧ ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)))) |
29 | 27, 28 | bitri 263 |
. . . . . . . 8
⊢
(∃𝑠 ∈
𝐴 ((𝑝 ≠ 𝑞 ∧ (𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟)) ∧ ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)) ↔ (𝑝 ≠ 𝑞 ∧ ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)))) |
30 | 26, 29 | syl6bb 275 |
. . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) ∧ 𝑟 ∈ 𝐴) → (∃𝑠 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ (𝑝 ≠ 𝑞 ∧ ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))))) |
31 | 30 | rexbidva 3031 |
. . . . . 6
⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) → (∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ ∃𝑟 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))))) |
32 | | r19.42v 3073 |
. . . . . 6
⊢
(∃𝑟 ∈
𝐴 (𝑝 ≠ 𝑞 ∧ ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))) ↔ (𝑝 ≠ 𝑞 ∧ ∃𝑟 ∈ 𝐴 ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠)))) |
33 | 31, 32 | syl6bb 275 |
. . . . 5
⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) → (∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ (𝑝 ≠ 𝑞 ∧ ∃𝑟 ∈ 𝐴 ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))))) |
34 | 1, 2, 3 | atcvr1 33721 |
. . . . . 6
⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) → (𝑝 ≠ 𝑞 ↔ 𝑝( ⋖ ‘𝐾)(𝑝 ∨ 𝑞))) |
35 | 34 | anbi1d 737 |
. . . . 5
⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) → ((𝑝 ≠ 𝑞 ∧ ∃𝑟 ∈ 𝐴 ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))) ↔ (𝑝( ⋖ ‘𝐾)(𝑝 ∨ 𝑞) ∧ ∃𝑟 ∈ 𝐴 ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))))) |
36 | 33, 35 | bitrd 267 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴) → (∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ (𝑝( ⋖ ‘𝐾)(𝑝 ∨ 𝑞) ∧ ∃𝑟 ∈ 𝐴 ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))))) |
37 | 36 | 3expb 1258 |
. . 3
⊢ ((𝐾 ∈ HL ∧ (𝑝 ∈ 𝐴 ∧ 𝑞 ∈ 𝐴)) → (∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ (𝑝( ⋖ ‘𝐾)(𝑝 ∨ 𝑞) ∧ ∃𝑟 ∈ 𝐴 ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))))) |
38 | 37 | 2rexbidva 3038 |
. 2
⊢ (𝐾 ∈ HL → (∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟)) ↔ ∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 (𝑝( ⋖ ‘𝐾)(𝑝 ∨ 𝑞) ∧ ∃𝑟 ∈ 𝐴 ((𝑝 ∨ 𝑞)( ⋖ ‘𝐾)((𝑝 ∨ 𝑞) ∨ 𝑟) ∧ ∃𝑠 ∈ 𝐴 ((𝑝 ∨ 𝑞) ∨ 𝑟)( ⋖ ‘𝐾)(((𝑝 ∨ 𝑞) ∨ 𝑟) ∨ 𝑠))))) |
39 | 4, 38 | mpbird 246 |
1
⊢ (𝐾 ∈ HL → ∃𝑝 ∈ 𝐴 ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝 ∨ 𝑞) ∧ ¬ 𝑠 ≤ ((𝑝 ∨ 𝑞) ∨ 𝑟))) |