theorem Th8:
  for a being Element of N_Real holds a*a = ||.a.||^2
  proof
    let a be Element of N_Real;
    reconsider x = a as Element of REAL;
    thus a*a = x^2
    .= ||.a.||^2 by COMPLEX1:75;
  end;
