Step | Hyp | Ref
| Expression |
1 | | idlsrgmulr.2 |
. . . . 5
β’ π΅ = (LIdealβπ
) |
2 | 1 | fvexi 6860 |
. . . 4
β’ π΅ β V |
3 | 2, 2 | mpoex 8016 |
. . 3
β’ (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π))) β V |
4 | | eqid 2733 |
. . . . 5
β’
({β¨(Baseβndx), π΅β©, β¨(+gβndx),
(LSSumβπ
)β©,
β¨(.rβndx), (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©}) = ({β¨(Baseβndx), π΅β©,
β¨(+gβndx), (LSSumβπ
)β©, β¨(.rβndx),
(π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©}) |
5 | 4 | idlsrgstr 32299 |
. . . 4
β’
({β¨(Baseβndx), π΅β©, β¨(+gβndx),
(LSSumβπ
)β©,
β¨(.rβndx), (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©}) Struct β¨1, ;10β© |
6 | | mulrid 17183 |
. . . 4
β’
.r = Slot (.rβndx) |
7 | | snsstp3 4782 |
. . . . 5
β’
{β¨(.rβndx), (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} β {β¨(Baseβndx),
π΅β©,
β¨(+gβndx), (LSSumβπ
)β©, β¨(.rβndx),
(π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} |
8 | | ssun1 4136 |
. . . . 5
β’
{β¨(Baseβndx), π΅β©, β¨(+gβndx),
(LSSumβπ
)β©,
β¨(.rβndx), (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} β ({β¨(Baseβndx),
π΅β©,
β¨(+gβndx), (LSSumβπ
)β©, β¨(.rβndx),
(π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©}) |
9 | 7, 8 | sstri 3957 |
. . . 4
β’
{β¨(.rβndx), (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} β ({β¨(Baseβndx),
π΅β©,
β¨(+gβndx), (LSSumβπ
)β©, β¨(.rβndx),
(π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©}) |
10 | 5, 6, 9 | strfv 17084 |
. . 3
β’ ((π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π))) β V β (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π))) =
(.rβ({β¨(Baseβndx), π΅β©, β¨(+gβndx),
(LSSumβπ
)β©,
β¨(.rβndx), (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©}))) |
11 | 3, 10 | ax-mp 5 |
. 2
β’ (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π))) =
(.rβ({β¨(Baseβndx), π΅β©, β¨(+gβndx),
(LSSumβπ
)β©,
β¨(.rβndx), (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©})) |
12 | | idlsrgmulr.1 |
. . . 4
β’ π = (IDLsrgβπ
) |
13 | | eqid 2733 |
. . . . 5
β’
(LSSumβπ
) =
(LSSumβπ
) |
14 | | idlsrgmulr.3 |
. . . . 5
β’ πΊ = (mulGrpβπ
) |
15 | | idlsrgmulr.4 |
. . . . 5
β’ β =
(LSSumβπΊ) |
16 | 1, 13, 14, 15 | idlsrgval 32300 |
. . . 4
β’ (π
β π β (IDLsrgβπ
) = ({β¨(Baseβndx), π΅β©,
β¨(+gβndx), (LSSumβπ
)β©, β¨(.rβndx),
(π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©})) |
17 | 12, 16 | eqtrid 2785 |
. . 3
β’ (π
β π β π = ({β¨(Baseβndx), π΅β©,
β¨(+gβndx), (LSSumβπ
)β©, β¨(.rβndx),
(π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©})) |
18 | 17 | fveq2d 6850 |
. 2
β’ (π
β π β (.rβπ) =
(.rβ({β¨(Baseβndx), π΅β©, β¨(+gβndx),
(LSSumβπ
)β©,
β¨(.rβndx), (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π)))β©} βͺ {β¨(TopSetβndx),
ran (π β π΅ β¦ {π β π΅ β£ Β¬ π β π})β©, β¨(leβndx), {β¨π, πβ© β£ ({π, π} β π΅ β§ π β π)}β©}))) |
19 | 11, 18 | eqtr4id 2792 |
1
β’ (π
β π β (π β π΅, π β π΅ β¦ ((RSpanβπ
)β(π β π))) = (.rβπ)) |