theorem Th1:
  A=B or B=C or C=A implies A,B,C are_concurrent
proof
A1: ( ex a st a on B & a on C)& ex b st b on C & b on A by INCPROJ:def 9;
  assume A=B or B=C or C=A;
  hence thesis by A1;
end;
