reserve FS for non empty doubleLoopStr;
reserve F for Field;
reserve R for Abelian add-associative right_zeroed right_complementable non
  empty addLoopStr,
  x, y, z for Scalar of R;
reserve SF for Skew-Field,
  x, y, z for Scalar of SF;

theorem
  y<>0.SF & z<>0.SF implies x/(y/z)=(x*z)/y
proof
  assume
A1: y<>0.SF;
  assume
A2: z<>0.SF;
  then z"<>0.SF by Th13;
  hence x/(y/z)=x*(z""*y") by A1,Th11
    .=x*(z*y") by A2,Th14
    .=(x*z)/y by GROUP_1:def 3;
end;
