Metamath Proof Explorer


Theorem q1pval

Description: Value of the univariate polynomial quotient function. (Contributed by Stefan O'Rear, 28-Mar-2015)

Ref Expression
Hypotheses q1pval.q Q = quot 1p R
q1pval.p P = Poly 1 R
q1pval.b B = Base P
q1pval.d D = deg 1 R
q1pval.m - ˙ = - P
q1pval.t · ˙ = P
Assertion q1pval F B G B F Q G = ι q B | D F - ˙ q · ˙ G < D G

Proof

Step Hyp Ref Expression
1 q1pval.q Q = quot 1p R
2 q1pval.p P = Poly 1 R
3 q1pval.b B = Base P
4 q1pval.d D = deg 1 R
5 q1pval.m - ˙ = - P
6 q1pval.t · ˙ = P
7 2 3 elbasfv G B R V
8 fveq2 r = R Poly 1 r = Poly 1 R
9 8 2 eqtr4di r = R Poly 1 r = P
10 9 csbeq1d r = R Poly 1 r / p Base p / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g = P / p Base p / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g
11 2 fvexi P V
12 11 a1i r = R P V
13 fveq2 p = P Base p = Base P
14 13 adantl r = R p = P Base p = Base P
15 14 3 eqtr4di r = R p = P Base p = B
16 15 csbeq1d r = R p = P Base p / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g = B / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g
17 3 fvexi B V
18 17 a1i r = R p = P B V
19 simpr r = R p = P b = B b = B
20 fveq2 r = R deg 1 r = deg 1 R
21 20 ad2antrr r = R p = P b = B deg 1 r = deg 1 R
22 21 4 eqtr4di r = R p = P b = B deg 1 r = D
23 fveq2 p = P - p = - P
24 23 ad2antlr r = R p = P b = B - p = - P
25 24 5 eqtr4di r = R p = P b = B - p = - ˙
26 eqidd r = R p = P b = B f = f
27 fveq2 p = P p = P
28 27 ad2antlr r = R p = P b = B p = P
29 28 6 eqtr4di r = R p = P b = B p = · ˙
30 29 oveqd r = R p = P b = B q p g = q · ˙ g
31 25 26 30 oveq123d r = R p = P b = B f - p q p g = f - ˙ q · ˙ g
32 22 31 fveq12d r = R p = P b = B deg 1 r f - p q p g = D f - ˙ q · ˙ g
33 22 fveq1d r = R p = P b = B deg 1 r g = D g
34 32 33 breq12d r = R p = P b = B deg 1 r f - p q p g < deg 1 r g D f - ˙ q · ˙ g < D g
35 19 34 riotaeqbidv r = R p = P b = B ι q b | deg 1 r f - p q p g < deg 1 r g = ι q B | D f - ˙ q · ˙ g < D g
36 19 19 35 mpoeq123dv r = R p = P b = B f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g = f B , g B ι q B | D f - ˙ q · ˙ g < D g
37 18 36 csbied r = R p = P B / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g = f B , g B ι q B | D f - ˙ q · ˙ g < D g
38 16 37 eqtrd r = R p = P Base p / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g = f B , g B ι q B | D f - ˙ q · ˙ g < D g
39 12 38 csbied r = R P / p Base p / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g = f B , g B ι q B | D f - ˙ q · ˙ g < D g
40 10 39 eqtrd r = R Poly 1 r / p Base p / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g = f B , g B ι q B | D f - ˙ q · ˙ g < D g
41 df-q1p quot 1p = r V Poly 1 r / p Base p / b f b , g b ι q b | deg 1 r f - p q p g < deg 1 r g
42 17 17 mpoex f B , g B ι q B | D f - ˙ q · ˙ g < D g V
43 40 41 42 fvmpt R V quot 1p R = f B , g B ι q B | D f - ˙ q · ˙ g < D g
44 1 43 eqtrid R V Q = f B , g B ι q B | D f - ˙ q · ˙ g < D g
45 7 44 syl G B Q = f B , g B ι q B | D f - ˙ q · ˙ g < D g
46 45 adantl F B G B Q = f B , g B ι q B | D f - ˙ q · ˙ g < D g
47 id f = F f = F
48 oveq2 g = G q · ˙ g = q · ˙ G
49 47 48 oveqan12d f = F g = G f - ˙ q · ˙ g = F - ˙ q · ˙ G
50 49 fveq2d f = F g = G D f - ˙ q · ˙ g = D F - ˙ q · ˙ G
51 fveq2 g = G D g = D G
52 51 adantl f = F g = G D g = D G
53 50 52 breq12d f = F g = G D f - ˙ q · ˙ g < D g D F - ˙ q · ˙ G < D G
54 53 riotabidv f = F g = G ι q B | D f - ˙ q · ˙ g < D g = ι q B | D F - ˙ q · ˙ G < D G
55 54 adantl F B G B f = F g = G ι q B | D f - ˙ q · ˙ g < D g = ι q B | D F - ˙ q · ˙ G < D G
56 simpl F B G B F B
57 simpr F B G B G B
58 riotaex ι q B | D F - ˙ q · ˙ G < D G V
59 58 a1i F B G B ι q B | D F - ˙ q · ˙ G < D G V
60 46 55 56 57 59 ovmpod F B G B F Q G = ι q B | D F - ˙ q · ˙ G < D G