theorem
  q c= r implies p^q c= p^r
proof
  assume q c= r;
  then consider s such that
A1: q^s = r by Th78;
  p^q c= p^q^s by AFINSQ_1:74;
  hence thesis by A1,AFINSQ_1:27;
end;
