theorem Th19:
  M c= exp(M,a)
proof
  1 in a by Lm1,Th15;
  then M = 0 & {} c= exp(M,a) or exp(M,1) c= exp(M,a) & exp(M,1) = M by
CARD_2:27,93;
  hence thesis;
end;
