reserve k,n for Nat,
  x,y,z,y1,y2 for object,X,Y for set,
  f,g for Function;
reserve p,q,r,s,t for XFinSequence;
reserve D for set;
reserve i for Nat;
reserve m for Nat,
        D for non empty set;
reserve l for Nat;

theorem Th71:
  p c= p^q
proof
A1: dom p c= dom(p^q) by Th19;
  for x being object st x in dom p holds (p^q).x = p.x by Def3;
 hence thesis by A1,GRFUNC_1:2;
end;
