reserve z,z1,z2,z3,z4 for Element of F_Complex;

theorem
  z2 <> 0.F_Complex & (z1 * z2 = z3 or z2 * z1 = z3) implies z1 = z3 / z2
proof
  reconsider z39=z3,z29=z2 as Element of COMPLEX by Def1;
  assume
A1: z2 <> 0.F_Complex;
  assume
A2: z1 * z2 = z3 or z2 * z1 = z3;
  per cases by A2;
  suppose
    z1 * z2 = z3;
    hence z1 = z39 / z29 by A1,Th7,XCMPLX_1:89
      .= z3 / z2 by A1,Th6;
  end;
  suppose
    z2 * z1 = z3;
    hence z1 = z39 / z29 by A1,Th7,XCMPLX_1:89
      .= z3 / z2 by A1,Th6;
  end;
end;
