| Step | Hyp | Ref
| Expression |
| 1 | | dvhopellsm.h |
. . . . . . 7
⊢ 𝐻 = (LHyp‘𝐾) |
| 2 | | dvhopellsm.u |
. . . . . . 7
⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊) |
| 3 | | id 22 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| 4 | 1, 2, 3 | dvhlmod 41112 |
. . . . . 6
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ LMod) |
| 5 | 4 | 3ad2ant1 1134 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑈 ∈ LMod) |
| 6 | | dvhopellsm.s |
. . . . . 6
⊢ 𝑆 = (LSubSp‘𝑈) |
| 7 | 6 | lsssssubg 20956 |
. . . . 5
⊢ (𝑈 ∈ LMod → 𝑆 ⊆ (SubGrp‘𝑈)) |
| 8 | 5, 7 | syl 17 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑆 ⊆ (SubGrp‘𝑈)) |
| 9 | | simp2 1138 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑋 ∈ 𝑆) |
| 10 | 8, 9 | sseldd 3984 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑋 ∈ (SubGrp‘𝑈)) |
| 11 | | simp3 1139 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑌 ∈ 𝑆) |
| 12 | 8, 11 | sseldd 3984 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑌 ∈ (SubGrp‘𝑈)) |
| 13 | | dvhopellsm.a |
. . . 4
⊢ + =
(+g‘𝑈) |
| 14 | | dvhopellsm.p |
. . . 4
⊢ ⊕ =
(LSSum‘𝑈) |
| 15 | 13, 14 | lsmelval 19667 |
. . 3
⊢ ((𝑋 ∈ (SubGrp‘𝑈) ∧ 𝑌 ∈ (SubGrp‘𝑈)) → (〈𝐹, 𝑇〉 ∈ (𝑋 ⊕ 𝑌) ↔ ∃𝑢 ∈ 𝑋 ∃𝑣 ∈ 𝑌 〈𝐹, 𝑇〉 = (𝑢 + 𝑣))) |
| 16 | 10, 12, 15 | syl2anc 584 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (〈𝐹, 𝑇〉 ∈ (𝑋 ⊕ 𝑌) ↔ ∃𝑢 ∈ 𝑋 ∃𝑣 ∈ 𝑌 〈𝐹, 𝑇〉 = (𝑢 + 𝑣))) |
| 17 | | eqid 2737 |
. . . . . . . 8
⊢
(Base‘𝑈) =
(Base‘𝑈) |
| 18 | 17, 6 | lssss 20934 |
. . . . . . 7
⊢ (𝑌 ∈ 𝑆 → 𝑌 ⊆ (Base‘𝑈)) |
| 19 | 18 | 3ad2ant3 1136 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑌 ⊆ (Base‘𝑈)) |
| 20 | | eqid 2737 |
. . . . . . . 8
⊢
((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊) |
| 21 | | eqid 2737 |
. . . . . . . 8
⊢
((TEndo‘𝐾)‘𝑊) = ((TEndo‘𝐾)‘𝑊) |
| 22 | 1, 20, 21, 2, 17 | dvhvbase 41089 |
. . . . . . 7
⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (Base‘𝑈) = (((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊))) |
| 23 | 22 | 3ad2ant1 1134 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (Base‘𝑈) = (((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊))) |
| 24 | 19, 23 | sseqtrd 4020 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑌 ⊆ (((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊))) |
| 25 | | relxp 5703 |
. . . . 5
⊢ Rel
(((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊)) |
| 26 | | relss 5791 |
. . . . 5
⊢ (𝑌 ⊆ (((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊)) → (Rel (((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊)) → Rel 𝑌)) |
| 27 | 24, 25, 26 | mpisyl 21 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → Rel 𝑌) |
| 28 | | oveq2 7439 |
. . . . . 6
⊢ (𝑣 = 〈𝑧, 𝑤〉 → (𝑢 + 𝑣) = (𝑢 + 〈𝑧, 𝑤〉)) |
| 29 | 28 | eqeq2d 2748 |
. . . . 5
⊢ (𝑣 = 〈𝑧, 𝑤〉 → (〈𝐹, 𝑇〉 = (𝑢 + 𝑣) ↔ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉))) |
| 30 | 29 | exopxfr2 5855 |
. . . 4
⊢ (Rel
𝑌 → (∃𝑣 ∈ 𝑌 〈𝐹, 𝑇〉 = (𝑢 + 𝑣) ↔ ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉)))) |
| 31 | 27, 30 | syl 17 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (∃𝑣 ∈ 𝑌 〈𝐹, 𝑇〉 = (𝑢 + 𝑣) ↔ ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉)))) |
| 32 | 31 | rexbidv 3179 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (∃𝑢 ∈ 𝑋 ∃𝑣 ∈ 𝑌 〈𝐹, 𝑇〉 = (𝑢 + 𝑣) ↔ ∃𝑢 ∈ 𝑋 ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉)))) |
| 33 | 17, 6 | lssss 20934 |
. . . . . . 7
⊢ (𝑋 ∈ 𝑆 → 𝑋 ⊆ (Base‘𝑈)) |
| 34 | 33 | 3ad2ant2 1135 |
. . . . . 6
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑋 ⊆ (Base‘𝑈)) |
| 35 | 34, 23 | sseqtrd 4020 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → 𝑋 ⊆ (((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊))) |
| 36 | | relss 5791 |
. . . . 5
⊢ (𝑋 ⊆ (((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊)) → (Rel (((LTrn‘𝐾)‘𝑊) × ((TEndo‘𝐾)‘𝑊)) → Rel 𝑋)) |
| 37 | 35, 25, 36 | mpisyl 21 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → Rel 𝑋) |
| 38 | | oveq1 7438 |
. . . . . . . 8
⊢ (𝑢 = 〈𝑥, 𝑦〉 → (𝑢 + 〈𝑧, 𝑤〉) = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)) |
| 39 | 38 | eqeq2d 2748 |
. . . . . . 7
⊢ (𝑢 = 〈𝑥, 𝑦〉 → (〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉) ↔ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))) |
| 40 | 39 | anbi2d 630 |
. . . . . 6
⊢ (𝑢 = 〈𝑥, 𝑦〉 → ((〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉)) ↔ (〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 41 | 40 | 2exbidv 1924 |
. . . . 5
⊢ (𝑢 = 〈𝑥, 𝑦〉 → (∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉)) ↔ ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 42 | 41 | exopxfr2 5855 |
. . . 4
⊢ (Rel
𝑋 → (∃𝑢 ∈ 𝑋 ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉)) ↔ ∃𝑥∃𝑦(〈𝑥, 𝑦〉 ∈ 𝑋 ∧ ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))))) |
| 43 | 37, 42 | syl 17 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (∃𝑢 ∈ 𝑋 ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉)) ↔ ∃𝑥∃𝑦(〈𝑥, 𝑦〉 ∈ 𝑋 ∧ ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))))) |
| 44 | | 19.42vv 1957 |
. . . . 5
⊢
(∃𝑧∃𝑤(〈𝑥, 𝑦〉 ∈ 𝑋 ∧ (〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))) ↔ (〈𝑥, 𝑦〉 ∈ 𝑋 ∧ ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 45 | | anass 468 |
. . . . . . . 8
⊢
(((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ 〈𝑧, 𝑤〉 ∈ 𝑌) ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)) ↔ (〈𝑥, 𝑦〉 ∈ 𝑋 ∧ (〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 46 | 45 | 2exbii 1849 |
. . . . . . 7
⊢
(∃𝑧∃𝑤((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ 〈𝑧, 𝑤〉 ∈ 𝑌) ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)) ↔ ∃𝑧∃𝑤(〈𝑥, 𝑦〉 ∈ 𝑋 ∧ (〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 47 | 46 | bicomi 224 |
. . . . . 6
⊢
(∃𝑧∃𝑤(〈𝑥, 𝑦〉 ∈ 𝑋 ∧ (〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))) ↔ ∃𝑧∃𝑤((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ 〈𝑧, 𝑤〉 ∈ 𝑌) ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))) |
| 48 | 47 | a1i 11 |
. . . . 5
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (∃𝑧∃𝑤(〈𝑥, 𝑦〉 ∈ 𝑋 ∧ (〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))) ↔ ∃𝑧∃𝑤((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ 〈𝑧, 𝑤〉 ∈ 𝑌) ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 49 | 44, 48 | bitr3id 285 |
. . . 4
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → ((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))) ↔ ∃𝑧∃𝑤((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ 〈𝑧, 𝑤〉 ∈ 𝑌) ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 50 | 49 | 2exbidv 1924 |
. . 3
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (∃𝑥∃𝑦(〈𝑥, 𝑦〉 ∈ 𝑋 ∧ ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉))) ↔ ∃𝑥∃𝑦∃𝑧∃𝑤((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ 〈𝑧, 𝑤〉 ∈ 𝑌) ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 51 | 43, 50 | bitrd 279 |
. 2
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (∃𝑢 ∈ 𝑋 ∃𝑧∃𝑤(〈𝑧, 𝑤〉 ∈ 𝑌 ∧ 〈𝐹, 𝑇〉 = (𝑢 + 〈𝑧, 𝑤〉)) ↔ ∃𝑥∃𝑦∃𝑧∃𝑤((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ 〈𝑧, 𝑤〉 ∈ 𝑌) ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |
| 52 | 16, 32, 51 | 3bitrd 305 |
1
⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑆 ∧ 𝑌 ∈ 𝑆) → (〈𝐹, 𝑇〉 ∈ (𝑋 ⊕ 𝑌) ↔ ∃𝑥∃𝑦∃𝑧∃𝑤((〈𝑥, 𝑦〉 ∈ 𝑋 ∧ 〈𝑧, 𝑤〉 ∈ 𝑌) ∧ 〈𝐹, 𝑇〉 = (〈𝑥, 𝑦〉 + 〈𝑧, 𝑤〉)))) |