reserve r,t for Real;
reserve i for Integer;
reserve k,n for Nat;
reserve p for Polynomial of F_Real;
reserve e for Element of F_Real;
reserve L for non empty ZeroStr;
reserve z,z0,z1,z2 for Element of L;

theorem Th1:
  for a,b,c,d being Complex st b <> 0 & a/b = c/d holds a = b*c/d
  proof
    let a,b,c,d be Complex;
    assume that
A1: b <> 0 and
A2: a/b = c/d;
    thus a = b*(a/b) by A1,XCMPLX_1:87
    .= b*c/d by A2,XCMPLX_1:74;
  end;
