theorem Th29:
  a in A implies a in gr A
proof
  assume
A1: a in A;
  A c= the carrier of gr A by Def4;
  hence thesis by A1,STRUCT_0:def 5;
end;
