reserve a,b for Complex;

theorem Th1:
  a*a = a|^2
proof
  thus a*a = a|^1*a
    .= a|^(1+1) by NEWTON:6
    .= a|^2;
end;
