reserve Q,Q1,Q2 for multLoop;
reserve x,y,z,w,u,v for Element of Q;

theorem Th37:
  for H being SubLoop of Q holds
  for x,y st x in the carrier of H & y in the carrier of H holds
    x * y in the carrier of H
proof
  let H be SubLoop of Q;
  let x,y;
  assume
  x in the carrier of H &
   y in the carrier of H;
  then reconsider x1 = x,y1=y  as Element of H;
  x * y = x1 * y1 by Th36;
  hence thesis;
end;
