Proof of Theorem hlrelat5N
Step | Hyp | Ref
| Expression |
1 | | hlrelat5.b |
. . . 4
⊢ 𝐵 = (Base‘𝐾) |
2 | | hlrelat5.l |
. . . 4
⊢ ≤ =
(le‘𝐾) |
3 | | hlrelat5.s |
. . . 4
⊢ < =
(lt‘𝐾) |
4 | | hlrelat5.a |
. . . 4
⊢ 𝐴 = (Atoms‘𝐾) |
5 | 1, 2, 3, 4 | hlrelat1 36530 |
. . 3
⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 < 𝑌 → ∃𝑝 ∈ 𝐴 (¬ 𝑝 ≤ 𝑋 ∧ 𝑝 ≤ 𝑌))) |
6 | 5 | imp 409 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) → ∃𝑝 ∈ 𝐴 (¬ 𝑝 ≤ 𝑋 ∧ 𝑝 ≤ 𝑌)) |
7 | | hllat 36493 |
. . . . . . . 8
⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat) |
8 | | id 22 |
. . . . . . . 8
⊢ (𝑋 ∈ 𝐵 → 𝑋 ∈ 𝐵) |
9 | 1, 4 | atbase 36419 |
. . . . . . . 8
⊢ (𝑝 ∈ 𝐴 → 𝑝 ∈ 𝐵) |
10 | | ovexd 7185 |
. . . . . . . . . . 11
⊢ (𝑝 ∈ 𝐵 → (𝑋 ∨ 𝑝) ∈ V) |
11 | 2, 3 | pltval 17564 |
. . . . . . . . . . 11
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑋 ∨ 𝑝) ∈ V) → (𝑋 < (𝑋 ∨ 𝑝) ↔ (𝑋 ≤ (𝑋 ∨ 𝑝) ∧ 𝑋 ≠ (𝑋 ∨ 𝑝)))) |
12 | 10, 11 | syl3an3 1161 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (𝑋 < (𝑋 ∨ 𝑝) ↔ (𝑋 ≤ (𝑋 ∨ 𝑝) ∧ 𝑋 ≠ (𝑋 ∨ 𝑝)))) |
13 | | hlrelat5.j |
. . . . . . . . . . . 12
⊢ ∨ =
(join‘𝐾) |
14 | 1, 2, 13 | latlej1 17664 |
. . . . . . . . . . 11
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → 𝑋 ≤ (𝑋 ∨ 𝑝)) |
15 | 14 | biantrurd 535 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (𝑋 ≠ (𝑋 ∨ 𝑝) ↔ (𝑋 ≤ (𝑋 ∨ 𝑝) ∧ 𝑋 ≠ (𝑋 ∨ 𝑝)))) |
16 | 12, 15 | bitr4d 284 |
. . . . . . . . 9
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (𝑋 < (𝑋 ∨ 𝑝) ↔ 𝑋 ≠ (𝑋 ∨ 𝑝))) |
17 | 1, 2, 13 | latleeqj1 17667 |
. . . . . . . . . . . . 13
⊢ ((𝐾 ∈ Lat ∧ 𝑝 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝑝 ≤ 𝑋 ↔ (𝑝 ∨ 𝑋) = 𝑋)) |
18 | 17 | 3com23 1122 |
. . . . . . . . . . . 12
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (𝑝 ≤ 𝑋 ↔ (𝑝 ∨ 𝑋) = 𝑋)) |
19 | 1, 13 | latjcom 17663 |
. . . . . . . . . . . . 13
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (𝑋 ∨ 𝑝) = (𝑝 ∨ 𝑋)) |
20 | 19 | eqeq1d 2823 |
. . . . . . . . . . . 12
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → ((𝑋 ∨ 𝑝) = 𝑋 ↔ (𝑝 ∨ 𝑋) = 𝑋)) |
21 | 18, 20 | bitr4d 284 |
. . . . . . . . . . 11
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (𝑝 ≤ 𝑋 ↔ (𝑋 ∨ 𝑝) = 𝑋)) |
22 | 21 | notbid 320 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (¬ 𝑝 ≤ 𝑋 ↔ ¬ (𝑋 ∨ 𝑝) = 𝑋)) |
23 | | nesym 3072 |
. . . . . . . . . 10
⊢ (𝑋 ≠ (𝑋 ∨ 𝑝) ↔ ¬ (𝑋 ∨ 𝑝) = 𝑋) |
24 | 22, 23 | syl6bbr 291 |
. . . . . . . . 9
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (¬ 𝑝 ≤ 𝑋 ↔ 𝑋 ≠ (𝑋 ∨ 𝑝))) |
25 | 16, 24 | bitr4d 284 |
. . . . . . . 8
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐵) → (𝑋 < (𝑋 ∨ 𝑝) ↔ ¬ 𝑝 ≤ 𝑋)) |
26 | 7, 8, 9, 25 | syl3an 1156 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑝 ∈ 𝐴) → (𝑋 < (𝑋 ∨ 𝑝) ↔ ¬ 𝑝 ≤ 𝑋)) |
27 | 26 | 3expa 1114 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵) ∧ 𝑝 ∈ 𝐴) → (𝑋 < (𝑋 ∨ 𝑝) ↔ ¬ 𝑝 ≤ 𝑋)) |
28 | 27 | anbi1d 631 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵) ∧ 𝑝 ∈ 𝐴) → ((𝑋 < (𝑋 ∨ 𝑝) ∧ 𝑝 ≤ 𝑌) ↔ (¬ 𝑝 ≤ 𝑋 ∧ 𝑝 ≤ 𝑌))) |
29 | 28 | rexbidva 3296 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵) → (∃𝑝 ∈ 𝐴 (𝑋 < (𝑋 ∨ 𝑝) ∧ 𝑝 ≤ 𝑌) ↔ ∃𝑝 ∈ 𝐴 (¬ 𝑝 ≤ 𝑋 ∧ 𝑝 ≤ 𝑌))) |
30 | 29 | 3adant3 1128 |
. . 3
⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (∃𝑝 ∈ 𝐴 (𝑋 < (𝑋 ∨ 𝑝) ∧ 𝑝 ≤ 𝑌) ↔ ∃𝑝 ∈ 𝐴 (¬ 𝑝 ≤ 𝑋 ∧ 𝑝 ≤ 𝑌))) |
31 | 30 | adantr 483 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) → (∃𝑝 ∈ 𝐴 (𝑋 < (𝑋 ∨ 𝑝) ∧ 𝑝 ≤ 𝑌) ↔ ∃𝑝 ∈ 𝐴 (¬ 𝑝 ≤ 𝑋 ∧ 𝑝 ≤ 𝑌))) |
32 | 6, 31 | mpbird 259 |
1
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 < 𝑌) → ∃𝑝 ∈ 𝐴 (𝑋 < (𝑋 ∨ 𝑝) ∧ 𝑝 ≤ 𝑌)) |