theorem Th46:
  Segm(A,Seg len A,Seg width A) = A
proof
A1: Sgm Seg width A=idseq width A by FINSEQ_3:48;
  Sgm Seg len A=idseq len A by FINSEQ_3:48;
  hence thesis by A1,Th42;
end;
