reserve a,b,c,d for Real;
reserve z,z1,z2 for Complex;

theorem Th48:
  |.1r.| = 1 by Th6;
