theorem Th25:
  Degree(v, X) <> 0 implies Edges_At(v, X) is non empty
proof
  assume
A1: Degree(v, X) <> 0;
  assume
A2: not thesis;
  then Edges_In(v, X) = {};
  hence contradiction by A1,A2;
end;
