| Step | Hyp | Ref
| Expression |
| 1 | | erngset.d-r |
. . 3
⊢ 𝐷 =
((EDRingR‘𝐾)‘𝑊) |
| 2 | | erngset.h-r |
. . . . 5
⊢ 𝐻 = (LHyp‘𝐾) |
| 3 | 2 | erngfset-rN 40743 |
. . . 4
⊢ (𝐾 ∈ 𝑉 → (EDRingR‘𝐾) = (𝑤 ∈ 𝐻 ↦ {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉})) |
| 4 | 3 | fveq1d 6887 |
. . 3
⊢ (𝐾 ∈ 𝑉 → ((EDRingR‘𝐾)‘𝑊) = ((𝑤 ∈ 𝐻 ↦ {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉})‘𝑊)) |
| 5 | 1, 4 | eqtrid 2781 |
. 2
⊢ (𝐾 ∈ 𝑉 → 𝐷 = ((𝑤 ∈ 𝐻 ↦ {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉})‘𝑊)) |
| 6 | | fveq2 6885 |
. . . . . 6
⊢ (𝑤 = 𝑊 → ((TEndo‘𝐾)‘𝑤) = ((TEndo‘𝐾)‘𝑊)) |
| 7 | 6 | opeq2d 4860 |
. . . . 5
⊢ (𝑤 = 𝑊 → 〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉 = 〈(Base‘ndx),
((TEndo‘𝐾)‘𝑊)〉) |
| 8 | | tpeq1 4722 |
. . . . . 6
⊢
(〈(Base‘ndx), ((TEndo‘𝐾)‘𝑤)〉 = 〈(Base‘ndx),
((TEndo‘𝐾)‘𝑊)〉 → {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} = {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑊)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉}) |
| 9 | | erngset.e-r |
. . . . . . . 8
⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊) |
| 10 | 9 | opeq2i 4857 |
. . . . . . 7
⊢
〈(Base‘ndx), 𝐸〉 = 〈(Base‘ndx),
((TEndo‘𝐾)‘𝑊)〉 |
| 11 | | tpeq1 4722 |
. . . . . . 7
⊢
(〈(Base‘ndx), 𝐸〉 = 〈(Base‘ndx),
((TEndo‘𝐾)‘𝑊)〉 → {〈(Base‘ndx),
𝐸〉,
〈(+g‘ndx), (𝑠 ∈ ((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} = {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑊)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉}) |
| 12 | 10, 11 | ax-mp 5 |
. . . . . 6
⊢
{〈(Base‘ndx), 𝐸〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} = {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑊)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} |
| 13 | 8, 12 | eqtr4di 2787 |
. . . . 5
⊢
(〈(Base‘ndx), ((TEndo‘𝐾)‘𝑤)〉 = 〈(Base‘ndx),
((TEndo‘𝐾)‘𝑊)〉 → {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} = {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ ((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉}) |
| 14 | 7, 13 | syl 17 |
. . . 4
⊢ (𝑤 = 𝑊 → {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} = {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ ((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉}) |
| 15 | 6, 9 | eqtr4di 2787 |
. . . . . . 7
⊢ (𝑤 = 𝑊 → ((TEndo‘𝐾)‘𝑤) = 𝐸) |
| 16 | | fveq2 6885 |
. . . . . . . . 9
⊢ (𝑤 = 𝑊 → ((LTrn‘𝐾)‘𝑤) = ((LTrn‘𝐾)‘𝑊)) |
| 17 | | erngset.t-r |
. . . . . . . . 9
⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊) |
| 18 | 16, 17 | eqtr4di 2787 |
. . . . . . . 8
⊢ (𝑤 = 𝑊 → ((LTrn‘𝐾)‘𝑤) = 𝑇) |
| 19 | | eqidd 2735 |
. . . . . . . 8
⊢ (𝑤 = 𝑊 → ((𝑠‘𝑓) ∘ (𝑡‘𝑓)) = ((𝑠‘𝑓) ∘ (𝑡‘𝑓))) |
| 20 | 18, 19 | mpteq12dv 5213 |
. . . . . . 7
⊢ (𝑤 = 𝑊 → (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))) = (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓)))) |
| 21 | 15, 15, 20 | mpoeq123dv 7489 |
. . . . . 6
⊢ (𝑤 = 𝑊 → (𝑠 ∈ ((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓)))) = (𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))) |
| 22 | 21 | opeq2d 4860 |
. . . . 5
⊢ (𝑤 = 𝑊 → 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉 = 〈(+g‘ndx),
(𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉) |
| 23 | 22 | tpeq2d 4726 |
. . . 4
⊢ (𝑤 = 𝑊 → {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ ((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} = {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉}) |
| 24 | | eqidd 2735 |
. . . . . . 7
⊢ (𝑤 = 𝑊 → (𝑡 ∘ 𝑠) = (𝑡 ∘ 𝑠)) |
| 25 | 15, 15, 24 | mpoeq123dv 7489 |
. . . . . 6
⊢ (𝑤 = 𝑊 → (𝑠 ∈ ((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠)) = (𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑡 ∘ 𝑠))) |
| 26 | 25 | opeq2d 4860 |
. . . . 5
⊢ (𝑤 = 𝑊 → 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉 = 〈(.r‘ndx),
(𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑡 ∘ 𝑠))〉) |
| 27 | 26 | tpeq3d 4727 |
. . . 4
⊢ (𝑤 = 𝑊 → {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} = {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑡 ∘ 𝑠))〉}) |
| 28 | 14, 23, 27 | 3eqtrd 2773 |
. . 3
⊢ (𝑤 = 𝑊 → {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉} = {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑡 ∘ 𝑠))〉}) |
| 29 | | eqid 2734 |
. . 3
⊢ (𝑤 ∈ 𝐻 ↦ {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉}) = (𝑤 ∈ 𝐻 ↦ {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉}) |
| 30 | | tpex 7747 |
. . 3
⊢
{〈(Base‘ndx), 𝐸〉, 〈(+g‘ndx),
(𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑡 ∘ 𝑠))〉} ∈ V |
| 31 | 28, 29, 30 | fvmpt 6995 |
. 2
⊢ (𝑊 ∈ 𝐻 → ((𝑤 ∈ 𝐻 ↦ {〈(Base‘ndx),
((TEndo‘𝐾)‘𝑤)〉, 〈(+g‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑓 ∈ ((LTrn‘𝐾)‘𝑤) ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈
((TEndo‘𝐾)‘𝑤), 𝑡 ∈ ((TEndo‘𝐾)‘𝑤) ↦ (𝑡 ∘ 𝑠))〉})‘𝑊) = {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑡 ∘ 𝑠))〉}) |
| 32 | 5, 31 | sylan9eq 2789 |
1
⊢ ((𝐾 ∈ 𝑉 ∧ 𝑊 ∈ 𝐻) → 𝐷 = {〈(Base‘ndx), 𝐸〉,
〈(+g‘ndx), (𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑓 ∈ 𝑇 ↦ ((𝑠‘𝑓) ∘ (𝑡‘𝑓))))〉, 〈(.r‘ndx),
(𝑠 ∈ 𝐸, 𝑡 ∈ 𝐸 ↦ (𝑡 ∘ 𝑠))〉}) |