Step | Hyp | Ref
| Expression |
1 | | id 22 |
. . . . . 6
β’ (π β π) |
2 | | evls1addd.m |
. . . . . 6
β’ (π β π β π΅) |
3 | | evls1addd.n |
. . . . . 6
β’ (π β π β π΅) |
4 | | eqid 2733 |
. . . . . . 7
β’
(Poly1βπ) = (Poly1βπ) |
5 | | ressply1evl.u |
. . . . . . 7
β’ π = (π βΎs π
) |
6 | | ressply1evl.w |
. . . . . . 7
β’ π = (Poly1βπ) |
7 | | ressply1evl.b |
. . . . . . 7
β’ π΅ = (Baseβπ) |
8 | | evls1addd.r |
. . . . . . 7
β’ (π β π
β (SubRingβπ)) |
9 | | eqid 2733 |
. . . . . . 7
β’
((Poly1βπ) βΎs π΅) = ((Poly1βπ) βΎs π΅) |
10 | 4, 5, 6, 7, 8, 9 | ressply1add 21744 |
. . . . . 6
β’ ((π β§ (π β π΅ β§ π β π΅)) β (π(+gβπ)π) = (π(+gβ((Poly1βπ) βΎs π΅))π)) |
11 | 1, 2, 3, 10 | syl12anc 836 |
. . . . 5
β’ (π β (π(+gβπ)π) = (π(+gβ((Poly1βπ) βΎs π΅))π)) |
12 | | evls1addd.1 |
. . . . . 6
⒠⨣ =
(+gβπ) |
13 | 12 | oveqi 7419 |
. . . . 5
β’ (π ⨣ π) = (π(+gβπ)π) |
14 | 7 | fvexi 6903 |
. . . . . . 7
β’ π΅ β V |
15 | | eqid 2733 |
. . . . . . . 8
β’
(+gβ(Poly1βπ)) =
(+gβ(Poly1βπ)) |
16 | 9, 15 | ressplusg 17232 |
. . . . . . 7
β’ (π΅ β V β
(+gβ(Poly1βπ)) =
(+gβ((Poly1βπ) βΎs π΅))) |
17 | 14, 16 | ax-mp 5 |
. . . . . 6
β’
(+gβ(Poly1βπ)) =
(+gβ((Poly1βπ) βΎs π΅)) |
18 | 17 | oveqi 7419 |
. . . . 5
β’ (π(+gβ(Poly1βπ))π) = (π(+gβ((Poly1βπ) βΎs π΅))π) |
19 | 11, 13, 18 | 3eqtr4g 2798 |
. . . 4
β’ (π β (π ⨣ π) = (π(+gβ(Poly1βπ))π)) |
20 | 19 | fveq2d 6893 |
. . 3
β’ (π β
((eval1βπ)β(π ⨣ π)) = ((eval1βπ)β(π(+gβ(Poly1βπ))π))) |
21 | 20 | fveq1d 6891 |
. 2
β’ (π β
(((eval1βπ)β(π ⨣ π))βπΆ) = (((eval1βπ)β(π(+gβ(Poly1βπ))π))βπΆ)) |
22 | | ressply1evl.q |
. . . . . 6
β’ π = (π evalSub1 π
) |
23 | | ressply1evl.k |
. . . . . 6
β’ πΎ = (Baseβπ) |
24 | | eqid 2733 |
. . . . . 6
β’
(eval1βπ) = (eval1βπ) |
25 | | evls1addd.s |
. . . . . 6
β’ (π β π β CRing) |
26 | 22, 23, 6, 5, 7, 24,
25, 8 | ressply1evl 32636 |
. . . . 5
β’ (π β π = ((eval1βπ) βΎ π΅)) |
27 | 26 | fveq1d 6891 |
. . . 4
β’ (π β (πβ(π ⨣ π)) = (((eval1βπ) βΎ π΅)β(π ⨣ π))) |
28 | 5 | subrgring 20359 |
. . . . . . . 8
β’ (π
β (SubRingβπ) β π β Ring) |
29 | 6 | ply1ring 21762 |
. . . . . . . 8
β’ (π β Ring β π β Ring) |
30 | 8, 28, 29 | 3syl 18 |
. . . . . . 7
β’ (π β π β Ring) |
31 | 30 | ringgrpd 20059 |
. . . . . 6
β’ (π β π β Grp) |
32 | 7, 12, 31, 2, 3 | grpcld 18830 |
. . . . 5
β’ (π β (π ⨣ π) β π΅) |
33 | 32 | fvresd 6909 |
. . . 4
β’ (π β
(((eval1βπ) βΎ π΅)β(π ⨣ π)) = ((eval1βπ)β(π ⨣ π))) |
34 | 27, 33 | eqtr2d 2774 |
. . 3
β’ (π β
((eval1βπ)β(π ⨣ π)) = (πβ(π ⨣ π))) |
35 | 34 | fveq1d 6891 |
. 2
β’ (π β
(((eval1βπ)β(π ⨣ π))βπΆ) = ((πβ(π ⨣ π))βπΆ)) |
36 | | eqid 2733 |
. . . 4
β’
(Baseβ(Poly1βπ)) =
(Baseβ(Poly1βπ)) |
37 | | evls1addd.y |
. . . 4
β’ (π β πΆ β πΎ) |
38 | | eqid 2733 |
. . . . . . . 8
β’
(PwSer1βπ) = (PwSer1βπ) |
39 | | eqid 2733 |
. . . . . . . 8
β’
(Baseβ(PwSer1βπ)) =
(Baseβ(PwSer1βπ)) |
40 | 4, 5, 6, 7, 8, 38,
39, 36 | ressply1bas2 21742 |
. . . . . . 7
β’ (π β π΅ =
((Baseβ(PwSer1βπ)) β©
(Baseβ(Poly1βπ)))) |
41 | | inss2 4229 |
. . . . . . 7
β’
((Baseβ(PwSer1βπ)) β©
(Baseβ(Poly1βπ))) β
(Baseβ(Poly1βπ)) |
42 | 40, 41 | eqsstrdi 4036 |
. . . . . 6
β’ (π β π΅ β
(Baseβ(Poly1βπ))) |
43 | 42, 2 | sseldd 3983 |
. . . . 5
β’ (π β π β
(Baseβ(Poly1βπ))) |
44 | 26 | fveq1d 6891 |
. . . . . . 7
β’ (π β (πβπ) = (((eval1βπ) βΎ π΅)βπ)) |
45 | 2 | fvresd 6909 |
. . . . . . 7
β’ (π β
(((eval1βπ) βΎ π΅)βπ) = ((eval1βπ)βπ)) |
46 | 44, 45 | eqtr2d 2774 |
. . . . . 6
β’ (π β
((eval1βπ)βπ) = (πβπ)) |
47 | 46 | fveq1d 6891 |
. . . . 5
β’ (π β
(((eval1βπ)βπ)βπΆ) = ((πβπ)βπΆ)) |
48 | 43, 47 | jca 513 |
. . . 4
β’ (π β (π β
(Baseβ(Poly1βπ)) β§ (((eval1βπ)βπ)βπΆ) = ((πβπ)βπΆ))) |
49 | 42, 3 | sseldd 3983 |
. . . . 5
β’ (π β π β
(Baseβ(Poly1βπ))) |
50 | 26 | fveq1d 6891 |
. . . . . . 7
β’ (π β (πβπ) = (((eval1βπ) βΎ π΅)βπ)) |
51 | 3 | fvresd 6909 |
. . . . . . 7
β’ (π β
(((eval1βπ) βΎ π΅)βπ) = ((eval1βπ)βπ)) |
52 | 50, 51 | eqtr2d 2774 |
. . . . . 6
β’ (π β
((eval1βπ)βπ) = (πβπ)) |
53 | 52 | fveq1d 6891 |
. . . . 5
β’ (π β
(((eval1βπ)βπ)βπΆ) = ((πβπ)βπΆ)) |
54 | 49, 53 | jca 513 |
. . . 4
β’ (π β (π β
(Baseβ(Poly1βπ)) β§ (((eval1βπ)βπ)βπΆ) = ((πβπ)βπΆ))) |
55 | | evls1addd.2 |
. . . 4
β’ + =
(+gβπ) |
56 | 24, 4, 23, 36, 25, 37, 48, 54, 15, 55 | evl1addd 21852 |
. . 3
β’ (π β ((π(+gβ(Poly1βπ))π) β (Baseβ(Poly1βπ)) β§
(((eval1βπ)β(π(+gβ(Poly1βπ))π))βπΆ) = (((πβπ)βπΆ) + ((πβπ)βπΆ)))) |
57 | 56 | simprd 497 |
. 2
β’ (π β
(((eval1βπ)β(π(+gβ(Poly1βπ))π))βπΆ) = (((πβπ)βπΆ) + ((πβπ)βπΆ))) |
58 | 21, 35, 57 | 3eqtr3d 2781 |
1
β’ (π β ((πβ(π ⨣ π))βπΆ) = (((πβπ)βπΆ) + ((πβπ)βπΆ))) |