Proof of Theorem pl42lem1N
| Step | Hyp | Ref | Expression | 
|---|
| 1 |  | simp11 1203 | . . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝐾 ∈ HL) | 
| 2 | 1 | hllatd 39366 | . . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝐾 ∈ Lat) | 
| 3 |  | simp12 1204 | . . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝑋 ∈ 𝐵) | 
| 4 |  | simp13 1205 | . . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝑌 ∈ 𝐵) | 
| 5 |  | pl42lem.b | . . . . . . . 8
⊢ 𝐵 = (Base‘𝐾) | 
| 6 |  | pl42lem.j | . . . . . . . 8
⊢  ∨ =
(join‘𝐾) | 
| 7 | 5, 6 | latjcl 18485 | . . . . . . 7
⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∨ 𝑌) ∈ 𝐵) | 
| 8 | 2, 3, 4, 7 | syl3anc 1372 | . . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (𝑋 ∨ 𝑌) ∈ 𝐵) | 
| 9 |  | simp21 1206 | . . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝑍 ∈ 𝐵) | 
| 10 |  | pl42lem.m | . . . . . . 7
⊢  ∧ =
(meet‘𝐾) | 
| 11 | 5, 10 | latmcl 18486 | . . . . . 6
⊢ ((𝐾 ∈ Lat ∧ (𝑋 ∨ 𝑌) ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → ((𝑋 ∨ 𝑌) ∧ 𝑍) ∈ 𝐵) | 
| 12 | 2, 8, 9, 11 | syl3anc 1372 | . . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → ((𝑋 ∨ 𝑌) ∧ 𝑍) ∈ 𝐵) | 
| 13 |  | simp22 1207 | . . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝑊 ∈ 𝐵) | 
| 14 | 5, 6 | latjcl 18485 | . . . . 5
⊢ ((𝐾 ∈ Lat ∧ ((𝑋 ∨ 𝑌) ∧ 𝑍) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊) ∈ 𝐵) | 
| 15 | 2, 12, 13, 14 | syl3anc 1372 | . . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊) ∈ 𝐵) | 
| 16 |  | simp23 1208 | . . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝑉 ∈ 𝐵) | 
| 17 |  | eqid 2736 | . . . . 5
⊢
(Atoms‘𝐾) =
(Atoms‘𝐾) | 
| 18 |  | pl42lem.f | . . . . 5
⊢ 𝐹 = (pmap‘𝐾) | 
| 19 | 5, 10, 17, 18 | pmapmeet 39776 | . . . 4
⊢ ((𝐾 ∈ HL ∧ (((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊) ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) → (𝐹‘((((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊) ∧ 𝑉)) = ((𝐹‘(((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊)) ∩ (𝐹‘𝑉))) | 
| 20 | 1, 15, 16, 19 | syl3anc 1372 | . . 3
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (𝐹‘((((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊) ∧ 𝑉)) = ((𝐹‘(((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊)) ∩ (𝐹‘𝑉))) | 
| 21 |  | pl42lem.l | . . . . . . 7
⊢  ≤ =
(le‘𝐾) | 
| 22 |  | hlop 39364 | . . . . . . . . 9
⊢ (𝐾 ∈ HL → 𝐾 ∈ OP) | 
| 23 | 1, 22 | syl 17 | . . . . . . . 8
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝐾 ∈ OP) | 
| 24 |  | pl42lem.o | . . . . . . . . 9
⊢  ⊥ =
(oc‘𝐾) | 
| 25 | 5, 24 | opoccl 39196 | . . . . . . . 8
⊢ ((𝐾 ∈ OP ∧ 𝑊 ∈ 𝐵) → ( ⊥ ‘𝑊) ∈ 𝐵) | 
| 26 | 23, 13, 25 | syl2anc 584 | . . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → ( ⊥ ‘𝑊) ∈ 𝐵) | 
| 27 | 5, 21, 10 | latmle2 18511 | . . . . . . . 8
⊢ ((𝐾 ∈ Lat ∧ (𝑋 ∨ 𝑌) ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → ((𝑋 ∨ 𝑌) ∧ 𝑍) ≤ 𝑍) | 
| 28 | 2, 8, 9, 27 | syl3anc 1372 | . . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → ((𝑋 ∨ 𝑌) ∧ 𝑍) ≤ 𝑍) | 
| 29 |  | simp3r 1202 | . . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝑍 ≤ ( ⊥ ‘𝑊)) | 
| 30 | 5, 21, 2, 12, 9, 26, 28, 29 | lattrd 18492 | . . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → ((𝑋 ∨ 𝑌) ∧ 𝑍) ≤ ( ⊥ ‘𝑊)) | 
| 31 |  | pl42lem.p | . . . . . . 7
⊢  + =
(+𝑃‘𝐾) | 
| 32 | 5, 21, 6, 18, 24, 31 | pmapojoinN 39971 | . . . . . 6
⊢ (((𝐾 ∈ HL ∧ ((𝑋 ∨ 𝑌) ∧ 𝑍) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) ∧ ((𝑋 ∨ 𝑌) ∧ 𝑍) ≤ ( ⊥ ‘𝑊)) → (𝐹‘(((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊)) = ((𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) + (𝐹‘𝑊))) | 
| 33 | 1, 12, 13, 30, 32 | syl31anc 1374 | . . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (𝐹‘(((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊)) = ((𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) + (𝐹‘𝑊))) | 
| 34 | 5, 10, 17, 18 | pmapmeet 39776 | . . . . . . . 8
⊢ ((𝐾 ∈ HL ∧ (𝑋 ∨ 𝑌) ∈ 𝐵 ∧ 𝑍 ∈ 𝐵) → (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) = ((𝐹‘(𝑋 ∨ 𝑌)) ∩ (𝐹‘𝑍))) | 
| 35 | 1, 8, 9, 34 | syl3anc 1372 | . . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) = ((𝐹‘(𝑋 ∨ 𝑌)) ∩ (𝐹‘𝑍))) | 
| 36 |  | simp3l 1201 | . . . . . . . . 9
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → 𝑋 ≤ ( ⊥ ‘𝑌)) | 
| 37 | 5, 21, 6, 18, 24, 31 | pmapojoinN 39971 | . . . . . . . . 9
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ 𝑋 ≤ ( ⊥ ‘𝑌)) → (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌))) | 
| 38 | 1, 3, 4, 36, 37 | syl31anc 1374 | . . . . . . . 8
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (𝐹‘(𝑋 ∨ 𝑌)) = ((𝐹‘𝑋) + (𝐹‘𝑌))) | 
| 39 | 38 | ineq1d 4218 | . . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → ((𝐹‘(𝑋 ∨ 𝑌)) ∩ (𝐹‘𝑍)) = (((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍))) | 
| 40 | 35, 39 | eqtrd 2776 | . . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) = (((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍))) | 
| 41 | 40 | oveq1d 7447 | . . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → ((𝐹‘((𝑋 ∨ 𝑌) ∧ 𝑍)) + (𝐹‘𝑊)) = ((((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍)) + (𝐹‘𝑊))) | 
| 42 | 33, 41 | eqtrd 2776 | . . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (𝐹‘(((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊)) = ((((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍)) + (𝐹‘𝑊))) | 
| 43 | 42 | ineq1d 4218 | . . 3
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → ((𝐹‘(((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊)) ∩ (𝐹‘𝑉)) = (((((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍)) + (𝐹‘𝑊)) ∩ (𝐹‘𝑉))) | 
| 44 | 20, 43 | eqtrd 2776 | . 2
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵) ∧ (𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊))) → (𝐹‘((((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊) ∧ 𝑉)) = (((((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍)) + (𝐹‘𝑊)) ∩ (𝐹‘𝑉))) | 
| 45 | 44 | 3expia 1121 | 1
⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) ∧ (𝑍 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵 ∧ 𝑉 ∈ 𝐵)) → ((𝑋 ≤ ( ⊥ ‘𝑌) ∧ 𝑍 ≤ ( ⊥ ‘𝑊)) → (𝐹‘((((𝑋 ∨ 𝑌) ∧ 𝑍) ∨ 𝑊) ∧ 𝑉)) = (((((𝐹‘𝑋) + (𝐹‘𝑌)) ∩ (𝐹‘𝑍)) + (𝐹‘𝑊)) ∩ (𝐹‘𝑉)))) |