theorem Th13:
  i in dom p implies i in dom(p^q)
proof
A1: dom p c= dom(p^q) by FINSEQ_1:26;
  assume i in dom p;
  hence thesis by A1;
end;
