theorem Th78:
  p c= q implies ex r st p^r = q
proof
 assume
A1: p c= q;
 take r = q /^ len p;
 thus p^r = q by A1,Th77;
end;
