reserve x,y,z for set;
reserve f,f1,f2,f3 for FinSequence,
  p,p1,p2,p3 for set,
  i,k for Nat;

theorem Th10:
  f1 c= f1^f2
proof
A1: for x be object st x in dom f1 holds f1.x = (f1^f2).x by FINSEQ_1:def 7;
  dom f1 c= dom(f1^f2) by FINSEQ_1:26;
  hence thesis by A1,GRFUNC_1:2;
end;
