reserve a,b for Complex;
reserve V,X,Y for ComplexLinearSpace;
reserve u,u1,u2,v,v1,v2 for VECTOR of V;
reserve z,z1,z2 for Complex;

theorem Th17:
  Sum<* v,v *> = (1r+1r) * v
proof
  thus Sum<* v,v *> = v + v by RLVECT_1:45
    .= 1r * v + v by Def5
    .= 1r * v + 1r * v by Def5
    .= (1r+1r) * v by Def3;
end;
