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 Th14:
  for x holds x in Dir_of_Lines(AS) iff ex X st x=LDir(X) & X is being_line
proof
  let x;
A1: now
    assume
A2: x in Dir_of_Lines(AS);
    then reconsider x99=x as Subset of AfLines(AS);
    consider x9 being object such that
A3: x9 in AfLines(AS) and
A4: x99=Class(LinesParallelity(AS),x9) by A2,EQREL_1:def 3;
    consider X such that
A5: x9=X and
A6: X is being_line by A3;
    take X;
    thus x=LDir(X) by A4,A5;
    thus X is being_line by A6;
  end;
  now
    given X such that
A7: x=LDir(X) and
A8: X is being_line;
    X in AfLines(AS) by A8;
    hence x in Dir_of_Lines(AS) by A7,EQREL_1:def 3;
  end;
  hence thesis by A1;
end;
