reserve k,j,n for Nat,
  r for Real;
reserve x,x1,x2,y for Element of REAL n;
reserve f for real-valued FinSequence;
reserve p,p1,p2,p3 for Point of TOP-REAL n,
  x,x1,x2,y,y1,y2 for Real;
reserve p,p1,p2 for Point of TOP-REAL 2;

theorem Th29:
  x*p = |[ x*p`1 ,x*p`2 ]|
proof
  (x*p)`1 = x*(p`1) & (x*p)`2 = x*(p`2) by RVSUM_1:44;
  hence thesis by Th25;
end;
