
theorem
  for a be Complex holds a = |.a.|*director a
  proof
    let a be Complex;
    per cases;
    suppose a is zero;
      hence thesis;
    end;
    suppose not a is zero;
      hence thesis by XCMPLX_1:87;
    end;
  end;
