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

theorem :: REAL_2'55_3
  c <> 0 implies a / b = c * (a / c / b)
proof
  assume
A1: c<>0;
  thus a/b=a*b" by XCMPLX_0:def 9
    .=c*(a/c)*b" by A1,Lm3
    .=c*(a/c*b")
    .=c*(a/c/b) by XCMPLX_0:def 9;
end;
