
theorem
for L being Field
for p,q being rational_function of L
for x being Element of L st eval(p`2,x) <> 0.L & eval(q`2,x) <> 0.L
holds eval(p*'q,x) = eval(p,x) * eval(q,x)
proof
let L be Field; let p,q be rational_function of L; let x be Element of L;
assume A1: eval(p`2,x) <> 0.L & eval(q`2,x) <> 0.L;
thus eval(p*'q,x)
   = eval(p`1 *' q`1,x) * eval((p*'q)`2,x)"
  .= eval(p`1 *' q`1,x) * eval(p`2 *' q`2,x)"
  .= eval(p`1 *' q`1,x) * (eval(p`2,x) * eval(q`2,x))"
     by POLYNOM4:24
  .= eval(p`1 *' q`1,x) * (eval(q`2,x)" * eval(p`2,x)")
     by A1,VECTSP_2:11
  .= (eval(p`1,x) * eval(q`1,x)) * (eval(q`2,x)" * eval(p`2,x)")
     by POLYNOM4:24
  .= eval(p`1,x) * (eval(q`1,x) * (eval(q`2,x)" * eval(p`2,x)"))
     by GROUP_1:def 3
  .= eval(p`1,x) * (eval(p`2,x)" * (eval(q`2,x)" * eval(q`1,x)))
     by GROUP_1:def 3
  .= eval(p,x) * eval(q,x) by GROUP_1:def 3;
end;
