reserve FS for non empty doubleLoopStr;
reserve F for Field;

theorem
  F is domRing
proof
  for x,y being Scalar of F holds x*y = 0.F implies x = 0.F or y = 0.F by
VECTSP_1:12;
  hence thesis by Def1;
end;
