Step | Hyp | Ref
| Expression |
1 | | evlsval.q |
. . . 4
evalSub |
2 | | elex 3212 |
. . . . 5
|
3 | | fveq2 6191 |
. . . . . . . . . 10
|
4 | 3 | adantl 482 |
. . . . . . . . 9
|
5 | 4 | csbeq1d 3540 |
. . . . . . . 8
SubRing mPoly ↾s RingHom s
algSc mVar ↾s SubRing mPoly ↾s RingHom s algSc mVar ↾s |
6 | | fvex 6201 |
. . . . . . . . . 10
|
7 | 6 | a1i 11 |
. . . . . . . . 9
|
8 | | simplr 792 |
. . . . . . . . . . 11
|
9 | 8 | fveq2d 6195 |
. . . . . . . . . 10
SubRing SubRing |
10 | | simpll 790 |
. . . . . . . . . . . . 13
|
11 | | oveq1 6657 |
. . . . . . . . . . . . . 14
↾s ↾s |
12 | 11 | ad2antlr 763 |
. . . . . . . . . . . . 13
↾s ↾s |
13 | 10, 12 | oveq12d 6668 |
. . . . . . . . . . . 12
mPoly ↾s mPoly
↾s |
14 | 13 | csbeq1d 3540 |
. . . . . . . . . . 11
mPoly ↾s RingHom s
algSc mVar ↾s mPoly ↾s RingHom s
algSc mVar ↾s |
15 | | ovexd 6680 |
. . . . . . . . . . . 12
mPoly ↾s |
16 | | simprr 796 |
. . . . . . . . . . . . . . 15
mPoly ↾s mPoly ↾s |
17 | | simplr 792 |
. . . . . . . . . . . . . . . 16
mPoly ↾s |
18 | | simprl 794 |
. . . . . . . . . . . . . . . . 17
mPoly ↾s |
19 | | simpll 790 |
. . . . . . . . . . . . . . . . 17
mPoly ↾s |
20 | 18, 19 | oveq12d 6668 |
. . . . . . . . . . . . . . . 16
mPoly ↾s
|
21 | 17, 20 | oveq12d 6668 |
. . . . . . . . . . . . . . 15
mPoly ↾s s
s
|
22 | 16, 21 | oveq12d 6668 |
. . . . . . . . . . . . . 14
mPoly ↾s RingHom s mPoly ↾s RingHom s
|
23 | 16 | fveq2d 6195 |
. . . . . . . . . . . . . . . . 17
mPoly ↾s algSc algSc
mPoly ↾s |
24 | 23 | coeq2d 5284 |
. . . . . . . . . . . . . . . 16
mPoly ↾s algSc algSc mPoly ↾s |
25 | 20 | xpeq1d 5138 |
. . . . . . . . . . . . . . . . 17
mPoly ↾s |
26 | 25 | mpteq2dv 4745 |
. . . . . . . . . . . . . . . 16
mPoly ↾s
|
27 | 24, 26 | eqeq12d 2637 |
. . . . . . . . . . . . . . 15
mPoly ↾s algSc
algSc mPoly
↾s
|
28 | 17 | oveq1d 6665 |
. . . . . . . . . . . . . . . . . 18
mPoly ↾s ↾s ↾s |
29 | 19, 28 | oveq12d 6668 |
. . . . . . . . . . . . . . . . 17
mPoly ↾s mVar ↾s mVar ↾s |
30 | 29 | coeq2d 5284 |
. . . . . . . . . . . . . . . 16
mPoly ↾s mVar ↾s mVar ↾s |
31 | 20 | mpteq1d 4738 |
. . . . . . . . . . . . . . . . 17
mPoly ↾s
|
32 | 19, 31 | mpteq12dv 4733 |
. . . . . . . . . . . . . . . 16
mPoly ↾s
|
33 | 30, 32 | eqeq12d 2637 |
. . . . . . . . . . . . . . 15
mPoly ↾s mVar ↾s mVar ↾s |
34 | 27, 33 | anbi12d 747 |
. . . . . . . . . . . . . 14
mPoly ↾s algSc mVar ↾s algSc mPoly
↾s
mVar ↾s
|
35 | 22, 34 | riotaeqbidv 6614 |
. . . . . . . . . . . . 13
mPoly ↾s RingHom s algSc mVar ↾s mPoly
↾s RingHom s algSc mPoly
↾s
mVar ↾s
|
36 | 35 | anassrs 680 |
. . . . . . . . . . . 12
mPoly ↾s RingHom s algSc mVar ↾s mPoly
↾s RingHom s algSc mPoly
↾s
mVar ↾s
|
37 | 15, 36 | csbied 3560 |
. . . . . . . . . . 11
mPoly ↾s RingHom s
algSc mVar ↾s mPoly
↾s RingHom s algSc mPoly
↾s
mVar ↾s
|
38 | 14, 37 | eqtrd 2656 |
. . . . . . . . . 10
mPoly ↾s RingHom s
algSc mVar ↾s mPoly
↾s RingHom s algSc mPoly
↾s
mVar ↾s
|
39 | 9, 38 | mpteq12dv 4733 |
. . . . . . . . 9
SubRing mPoly ↾s RingHom s algSc mVar ↾s SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
40 | 7, 39 | csbied 3560 |
. . . . . . . 8
SubRing mPoly ↾s RingHom s
algSc mVar ↾s SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
41 | 5, 40 | eqtrd 2656 |
. . . . . . 7
SubRing mPoly ↾s RingHom s
algSc mVar ↾s SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
42 | | df-evls 19506 |
. . . . . . 7
evalSub SubRing mPoly ↾s RingHom s algSc mVar ↾s |
43 | | fvex 6201 |
. . . . . . . 8
SubRing |
44 | 43 | mptex 6486 |
. . . . . . 7
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
45 | 41, 42, 44 | ovmpt2a 6791 |
. . . . . 6
evalSub
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
46 | 45 | fveq1d 6193 |
. . . . 5
evalSub SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
47 | 2, 46 | sylan 488 |
. . . 4
evalSub SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
48 | 1, 47 | syl5eq 2668 |
. . 3
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
49 | 48 | 3adant3 1081 |
. 2
SubRing
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
50 | | oveq2 6658 |
. . . . . . . 8
↾s ↾s |
51 | 50 | oveq2d 6666 |
. . . . . . 7
mPoly ↾s mPoly
↾s |
52 | 51 | oveq1d 6665 |
. . . . . 6
mPoly
↾s RingHom
s
mPoly ↾s RingHom s
|
53 | 51 | fveq2d 6195 |
. . . . . . . . 9
algSc mPoly ↾s algSc mPoly
↾s |
54 | 53 | coeq2d 5284 |
. . . . . . . 8
algSc
mPoly ↾s algSc mPoly
↾s |
55 | | mpteq1 4737 |
. . . . . . . 8
|
56 | 54, 55 | eqeq12d 2637 |
. . . . . . 7
algSc mPoly ↾s algSc mPoly ↾s |
57 | 50 | oveq2d 6666 |
. . . . . . . . 9
mVar ↾s mVar
↾s |
58 | 57 | coeq2d 5284 |
. . . . . . . 8
mVar
↾s mVar ↾s |
59 | 58 | eqeq1d 2624 |
. . . . . . 7
mVar ↾s mVar ↾s
|
60 | 56, 59 | anbi12d 747 |
. . . . . 6
algSc mPoly
↾s
mVar ↾s
algSc mPoly
↾s
mVar ↾s
|
61 | 52, 60 | riotaeqbidv 6614 |
. . . . 5
mPoly ↾s RingHom s algSc mPoly
↾s
mVar ↾s
mPoly
↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
62 | | eqid 2622 |
. . . . 5
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
63 | | riotaex 6615 |
. . . . 5
mPoly
↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
64 | 61, 62, 63 | fvmpt 6282 |
. . . 4
SubRing
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
mPoly
↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
65 | | evlsval.w |
. . . . . . . . 9
mPoly |
66 | | evlsval.u |
. . . . . . . . . 10
↾s |
67 | 66 | oveq2i 6661 |
. . . . . . . . 9
mPoly mPoly ↾s |
68 | 65, 67 | eqtri 2644 |
. . . . . . . 8
mPoly ↾s |
69 | | evlsval.t |
. . . . . . . . 9
s |
70 | | evlsval.b |
. . . . . . . . . . 11
|
71 | 70 | oveq1i 6660 |
. . . . . . . . . 10
|
72 | 71 | oveq2i 6661 |
. . . . . . . . 9
s s
|
73 | 69, 72 | eqtri 2644 |
. . . . . . . 8
s |
74 | 68, 73 | oveq12i 6662 |
. . . . . . 7
RingHom mPoly ↾s RingHom s
|
75 | 74 | a1i 11 |
. . . . . 6
RingHom
mPoly
↾s RingHom s
|
76 | | evlsval.a |
. . . . . . . . . . 11
algSc |
77 | 68 | fveq2i 6194 |
. . . . . . . . . . 11
algSc algSc mPoly ↾s |
78 | 76, 77 | eqtri 2644 |
. . . . . . . . . 10
algSc mPoly
↾s |
79 | 78 | coeq2i 5282 |
. . . . . . . . 9
algSc mPoly ↾s |
80 | | evlsval.x |
. . . . . . . . . 10
|
81 | 71 | xpeq1i 5135 |
. . . . . . . . . . 11
|
82 | 81 | mpteq2i 4741 |
. . . . . . . . . 10
|
83 | 80, 82 | eqtri 2644 |
. . . . . . . . 9
|
84 | 79, 83 | eqeq12i 2636 |
. . . . . . . 8
algSc mPoly
↾s
|
85 | | evlsval.v |
. . . . . . . . . . 11
mVar |
86 | 66 | oveq2i 6661 |
. . . . . . . . . . 11
mVar mVar ↾s |
87 | 85, 86 | eqtri 2644 |
. . . . . . . . . 10
mVar ↾s |
88 | 87 | coeq2i 5282 |
. . . . . . . . 9
mVar ↾s |
89 | | evlsval.y |
. . . . . . . . . 10
|
90 | | eqid 2622 |
. . . . . . . . . . . 12
|
91 | 71, 90 | mpteq12i 4742 |
. . . . . . . . . . 11
|
92 | 91 | mpteq2i 4741 |
. . . . . . . . . 10
|
93 | 89, 92 | eqtri 2644 |
. . . . . . . . 9
|
94 | 88, 93 | eqeq12i 2636 |
. . . . . . . 8
mVar ↾s
|
95 | 84, 94 | anbi12i 733 |
. . . . . . 7
algSc mPoly
↾s
mVar ↾s
|
96 | 95 | a1i 11 |
. . . . . 6
algSc
mPoly ↾s mVar ↾s
|
97 | 75, 96 | riotaeqbidv 6614 |
. . . . 5
RingHom mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
98 | 97 | trud 1493 |
. . . 4
RingHom mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
|
99 | 64, 98 | syl6eqr 2674 |
. . 3
SubRing
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
RingHom |
100 | 99 | 3ad2ant3 1084 |
. 2
SubRing
SubRing mPoly ↾s RingHom s
algSc
mPoly ↾s mVar ↾s
RingHom |
101 | 49, 100 | eqtrd 2656 |
1
SubRing
RingHom |