reserve AS for AffinSpace;
reserve A,K,M,X,Y,Z,X9,Y9 for Subset of AS;
reserve zz for Element of AS;
reserve x,y for set;

theorem Th25:
  x is Element of the Lines of ProjHorizon(AS) implies [x,2] is
  LINE of IncProjSp_of(AS)
proof
  assume x is Element of the Lines of ProjHorizon(AS);
  then ex X st x=PDir(X) & X is being_plane by Th15;
  hence thesis by Th23;
end;
