theorem
  for G being strict non empty SubStr of <REAL,+> holds G = INT.Group
  iff the carrier of G = INT by Th26,GR_CY_1:def 3;
