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

theorem :: REAL_2'55_2
  c <> 0 implies a / b = a / (b * c) * c
proof
  assume
A1: c<>0;
  c*(a/(b*c))=c*((a*1)/(b*c)) .=c*(1/c*(a/b)) by Lm6
    .=1/c*c*(a/b)
    .=1*(a/b) by A1,Lm3
    .=a/b;
  hence thesis;
end;
