theorem Th2:
  (f1^f2)|(len f1 + i) = f1^(f2|i)
proof
  (f1^f2)|(len f1 + i) = (f1^f2)|Seg(len f1 + i) & f2|i = f2|Seg i by
FINSEQ_1:def 16;
  hence thesis by FINSEQ_6:14;
end;
