theorem Th27:
  len p = len q iff dom p = dom q
proof
  dom p = Seg(len p) by FINSEQ_1:def 3;
  hence thesis by FINSEQ_1:def 3;
end;
