| Step | Hyp | Ref
| Expression |
| 1 | | dvh4dimat.k |
. . . . 5
⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| 2 | 1 | simpld 494 |
. . . 4
⊢ (𝜑 → 𝐾 ∈ HL) |
| 3 | | dvh4dimat.p |
. . . . 5
⊢ (𝜑 → 𝑃 ∈ 𝐴) |
| 4 | | eqid 2737 |
. . . . . 6
⊢
(Atoms‘𝐾) =
(Atoms‘𝐾) |
| 5 | | dvh4dimat.h |
. . . . . 6
⊢ 𝐻 = (LHyp‘𝐾) |
| 6 | | dvh4dimat.u |
. . . . . 6
⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊) |
| 7 | | eqid 2737 |
. . . . . 6
⊢
((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊) |
| 8 | | dvh4dimat.a |
. . . . . 6
⊢ 𝐴 = (LSAtoms‘𝑈) |
| 9 | 4, 5, 6, 7, 8 | dihlatat 41339 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑃 ∈ 𝐴) → (◡((DIsoH‘𝐾)‘𝑊)‘𝑃) ∈ (Atoms‘𝐾)) |
| 10 | 1, 3, 9 | syl2anc 584 |
. . . 4
⊢ (𝜑 → (◡((DIsoH‘𝐾)‘𝑊)‘𝑃) ∈ (Atoms‘𝐾)) |
| 11 | | dvh4dimat.q |
. . . . 5
⊢ (𝜑 → 𝑄 ∈ 𝐴) |
| 12 | 4, 5, 6, 7, 8 | dihlatat 41339 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ 𝐴) → (◡((DIsoH‘𝐾)‘𝑊)‘𝑄) ∈ (Atoms‘𝐾)) |
| 13 | 1, 11, 12 | syl2anc 584 |
. . . 4
⊢ (𝜑 → (◡((DIsoH‘𝐾)‘𝑊)‘𝑄) ∈ (Atoms‘𝐾)) |
| 14 | | dvh4dimat.r |
. . . . 5
⊢ (𝜑 → 𝑅 ∈ 𝐴) |
| 15 | 4, 5, 6, 7, 8 | dihlatat 41339 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑅 ∈ 𝐴) → (◡((DIsoH‘𝐾)‘𝑊)‘𝑅) ∈ (Atoms‘𝐾)) |
| 16 | 1, 14, 15 | syl2anc 584 |
. . . 4
⊢ (𝜑 → (◡((DIsoH‘𝐾)‘𝑊)‘𝑅) ∈ (Atoms‘𝐾)) |
| 17 | | eqid 2737 |
. . . . 5
⊢
(join‘𝐾) =
(join‘𝐾) |
| 18 | | eqid 2737 |
. . . . 5
⊢
(le‘𝐾) =
(le‘𝐾) |
| 19 | 17, 18, 4 | 3dim3 39471 |
. . . 4
⊢ ((𝐾 ∈ HL ∧ ((◡((DIsoH‘𝐾)‘𝑊)‘𝑃) ∈ (Atoms‘𝐾) ∧ (◡((DIsoH‘𝐾)‘𝑊)‘𝑄) ∈ (Atoms‘𝐾) ∧ (◡((DIsoH‘𝐾)‘𝑊)‘𝑅) ∈ (Atoms‘𝐾))) → ∃𝑟 ∈ (Atoms‘𝐾) ¬ 𝑟(le‘𝐾)(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅))) |
| 20 | 2, 10, 13, 16, 19 | syl13anc 1374 |
. . 3
⊢ (𝜑 → ∃𝑟 ∈ (Atoms‘𝐾) ¬ 𝑟(le‘𝐾)(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅))) |
| 21 | | dvh4dimat.s |
. . . . . . . . 9
⊢ ⊕ =
(LSSum‘𝑈) |
| 22 | 1 | adantr 480 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| 23 | 5, 6, 7, 8 | dih1dimat 41332 |
. . . . . . . . . . . 12
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑃 ∈ 𝐴) → 𝑃 ∈ ran ((DIsoH‘𝐾)‘𝑊)) |
| 24 | 1, 3, 23 | syl2anc 584 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑃 ∈ ran ((DIsoH‘𝐾)‘𝑊)) |
| 25 | 5, 7, 6, 21, 8, 1,
24, 11 | dihsmatrn 41438 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑃 ⊕ 𝑄) ∈ ran ((DIsoH‘𝐾)‘𝑊)) |
| 26 | 25 | adantr 480 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑃 ⊕ 𝑄) ∈ ran ((DIsoH‘𝐾)‘𝑊)) |
| 27 | 14 | adantr 480 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → 𝑅 ∈ 𝐴) |
| 28 | 17, 5, 7, 6, 21, 8,
22, 26, 27 | dihjat4 41435 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → ((𝑃 ⊕ 𝑄) ⊕ 𝑅) = (((DIsoH‘𝐾)‘𝑊)‘((◡((DIsoH‘𝐾)‘𝑊)‘(𝑃 ⊕ 𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)))) |
| 29 | 24 | adantr 480 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → 𝑃 ∈ ran ((DIsoH‘𝐾)‘𝑊)) |
| 30 | 11 | adantr 480 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → 𝑄 ∈ 𝐴) |
| 31 | 17, 5, 7, 6, 21, 8,
22, 29, 30 | dihjat6 41436 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → (◡((DIsoH‘𝐾)‘𝑊)‘(𝑃 ⊕ 𝑄)) = ((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))) |
| 32 | 31 | fvoveq1d 7453 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → (((DIsoH‘𝐾)‘𝑊)‘((◡((DIsoH‘𝐾)‘𝑊)‘(𝑃 ⊕ 𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅))) = (((DIsoH‘𝐾)‘𝑊)‘(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)))) |
| 33 | 28, 32 | eqtrd 2777 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → ((𝑃 ⊕ 𝑄) ⊕ 𝑅) = (((DIsoH‘𝐾)‘𝑊)‘(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)))) |
| 34 | 33 | sseq2d 4016 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → ((((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅) ↔ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ (((DIsoH‘𝐾)‘𝑊)‘(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅))))) |
| 35 | | eqid 2737 |
. . . . . . . . 9
⊢
(Base‘𝐾) =
(Base‘𝐾) |
| 36 | 35, 4 | atbase 39290 |
. . . . . . . 8
⊢ (𝑟 ∈ (Atoms‘𝐾) → 𝑟 ∈ (Base‘𝐾)) |
| 37 | 36 | adantl 481 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → 𝑟 ∈ (Base‘𝐾)) |
| 38 | 2 | hllatd 39365 |
. . . . . . . . 9
⊢ (𝜑 → 𝐾 ∈ Lat) |
| 39 | 35, 17, 4 | hlatjcl 39368 |
. . . . . . . . . 10
⊢ ((𝐾 ∈ HL ∧ (◡((DIsoH‘𝐾)‘𝑊)‘𝑃) ∈ (Atoms‘𝐾) ∧ (◡((DIsoH‘𝐾)‘𝑊)‘𝑄) ∈ (Atoms‘𝐾)) → ((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄)) ∈ (Base‘𝐾)) |
| 40 | 2, 10, 13, 39 | syl3anc 1373 |
. . . . . . . . 9
⊢ (𝜑 → ((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄)) ∈ (Base‘𝐾)) |
| 41 | 35, 4 | atbase 39290 |
. . . . . . . . . 10
⊢ ((◡((DIsoH‘𝐾)‘𝑊)‘𝑅) ∈ (Atoms‘𝐾) → (◡((DIsoH‘𝐾)‘𝑊)‘𝑅) ∈ (Base‘𝐾)) |
| 42 | 16, 41 | syl 17 |
. . . . . . . . 9
⊢ (𝜑 → (◡((DIsoH‘𝐾)‘𝑊)‘𝑅) ∈ (Base‘𝐾)) |
| 43 | 35, 17 | latjcl 18484 |
. . . . . . . . 9
⊢ ((𝐾 ∈ Lat ∧ ((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄)) ∈ (Base‘𝐾) ∧ (◡((DIsoH‘𝐾)‘𝑊)‘𝑅) ∈ (Base‘𝐾)) → (((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)) ∈ (Base‘𝐾)) |
| 44 | 38, 40, 42, 43 | syl3anc 1373 |
. . . . . . . 8
⊢ (𝜑 → (((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)) ∈ (Base‘𝐾)) |
| 45 | 44 | adantr 480 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → (((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)) ∈ (Base‘𝐾)) |
| 46 | 35, 18, 5, 7 | dihord 41266 |
. . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑟 ∈ (Base‘𝐾) ∧ (((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)) ∈ (Base‘𝐾)) → ((((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ (((DIsoH‘𝐾)‘𝑊)‘(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅))) ↔ 𝑟(le‘𝐾)(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)))) |
| 47 | 22, 37, 45, 46 | syl3anc 1373 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → ((((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ (((DIsoH‘𝐾)‘𝑊)‘(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅))) ↔ 𝑟(le‘𝐾)(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)))) |
| 48 | 34, 47 | bitr2d 280 |
. . . . 5
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → (𝑟(le‘𝐾)(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)) ↔ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅))) |
| 49 | 48 | notbid 318 |
. . . 4
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → (¬ 𝑟(le‘𝐾)(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)) ↔ ¬ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅))) |
| 50 | 49 | rexbidva 3177 |
. . 3
⊢ (𝜑 → (∃𝑟 ∈ (Atoms‘𝐾) ¬ 𝑟(le‘𝐾)(((◡((DIsoH‘𝐾)‘𝑊)‘𝑃)(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑄))(join‘𝐾)(◡((DIsoH‘𝐾)‘𝑊)‘𝑅)) ↔ ∃𝑟 ∈ (Atoms‘𝐾) ¬ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅))) |
| 51 | 20, 50 | mpbid 232 |
. 2
⊢ (𝜑 → ∃𝑟 ∈ (Atoms‘𝐾) ¬ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅)) |
| 52 | 4, 5, 6, 7, 8 | dihatlat 41336 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑟 ∈ (Atoms‘𝐾)) → (((DIsoH‘𝐾)‘𝑊)‘𝑟) ∈ 𝐴) |
| 53 | 1, 52 | sylan 580 |
. . 3
⊢ ((𝜑 ∧ 𝑟 ∈ (Atoms‘𝐾)) → (((DIsoH‘𝐾)‘𝑊)‘𝑟) ∈ 𝐴) |
| 54 | 4, 5, 6, 7, 8 | dihlatat 41339 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐴) → (◡((DIsoH‘𝐾)‘𝑊)‘𝑠) ∈ (Atoms‘𝐾)) |
| 55 | 1, 54 | sylan 580 |
. . . 4
⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → (◡((DIsoH‘𝐾)‘𝑊)‘𝑠) ∈ (Atoms‘𝐾)) |
| 56 | 1 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| 57 | 5, 6, 7, 8 | dih1dimat 41332 |
. . . . . . 7
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐴) → 𝑠 ∈ ran ((DIsoH‘𝐾)‘𝑊)) |
| 58 | 1, 57 | sylan 580 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → 𝑠 ∈ ran ((DIsoH‘𝐾)‘𝑊)) |
| 59 | 5, 7 | dihcnvid2 41275 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ ran ((DIsoH‘𝐾)‘𝑊)) → (((DIsoH‘𝐾)‘𝑊)‘(◡((DIsoH‘𝐾)‘𝑊)‘𝑠)) = 𝑠) |
| 60 | 56, 58, 59 | syl2anc 584 |
. . . . 5
⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → (((DIsoH‘𝐾)‘𝑊)‘(◡((DIsoH‘𝐾)‘𝑊)‘𝑠)) = 𝑠) |
| 61 | 60 | eqcomd 2743 |
. . . 4
⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → 𝑠 = (((DIsoH‘𝐾)‘𝑊)‘(◡((DIsoH‘𝐾)‘𝑊)‘𝑠))) |
| 62 | | fveq2 6906 |
. . . . 5
⊢ (𝑟 = (◡((DIsoH‘𝐾)‘𝑊)‘𝑠) → (((DIsoH‘𝐾)‘𝑊)‘𝑟) = (((DIsoH‘𝐾)‘𝑊)‘(◡((DIsoH‘𝐾)‘𝑊)‘𝑠))) |
| 63 | 62 | rspceeqv 3645 |
. . . 4
⊢ (((◡((DIsoH‘𝐾)‘𝑊)‘𝑠) ∈ (Atoms‘𝐾) ∧ 𝑠 = (((DIsoH‘𝐾)‘𝑊)‘(◡((DIsoH‘𝐾)‘𝑊)‘𝑠))) → ∃𝑟 ∈ (Atoms‘𝐾)𝑠 = (((DIsoH‘𝐾)‘𝑊)‘𝑟)) |
| 64 | 55, 61, 63 | syl2anc 584 |
. . 3
⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → ∃𝑟 ∈ (Atoms‘𝐾)𝑠 = (((DIsoH‘𝐾)‘𝑊)‘𝑟)) |
| 65 | | sseq1 4009 |
. . . . 5
⊢ (𝑠 = (((DIsoH‘𝐾)‘𝑊)‘𝑟) → (𝑠 ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅) ↔ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅))) |
| 66 | 65 | notbid 318 |
. . . 4
⊢ (𝑠 = (((DIsoH‘𝐾)‘𝑊)‘𝑟) → (¬ 𝑠 ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅) ↔ ¬ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅))) |
| 67 | 66 | adantl 481 |
. . 3
⊢ ((𝜑 ∧ 𝑠 = (((DIsoH‘𝐾)‘𝑊)‘𝑟)) → (¬ 𝑠 ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅) ↔ ¬ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅))) |
| 68 | 53, 64, 67 | rexxfrd 5409 |
. 2
⊢ (𝜑 → (∃𝑠 ∈ 𝐴 ¬ 𝑠 ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅) ↔ ∃𝑟 ∈ (Atoms‘𝐾) ¬ (((DIsoH‘𝐾)‘𝑊)‘𝑟) ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅))) |
| 69 | 51, 68 | mpbird 257 |
1
⊢ (𝜑 → ∃𝑠 ∈ 𝐴 ¬ 𝑠 ⊆ ((𝑃 ⊕ 𝑄) ⊕ 𝑅)) |