reserve a, b, c, d, e for Complex;

theorem :: REAL_2'53
  (a / c) * (b / d) = (a / d) * (b / c)
proof
  thus a/c*(b/d)=a*b/(d*c) by Lm6
    .=a/d*(b/c) by Lm6;
end;
