theorem Th5:
  len (s ^+ p) = len p & len(p +^ s) = len p
proof
  dom (s ^+ p) = dom p & dom (p +^ s) = dom p by Def2,Def3;
  hence thesis by FINSEQ_3:29;
end;
