
theorem DIR:
  for a be Complex holds director (-a) = -director a
  proof
    let a be Complex;
    director (-a) = (-a)/|.a.| by COMPLEX1:52;
    hence thesis;
  end;
