theorem Th47:
  i in Seg card P & Q c= Seg width A implies Line(Segm(A,P,Q),i) =
  Line(A,Sgm P.i) * Sgm Q
proof
  rng (Sgm Q)=Q by FINSEQ_1:def 14;
  hence thesis by Th24;
end;
