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