reserve R for non empty RelStr,
  N for net of R,
  i for Element of N;

theorem Th29:
  for S being non empty reflexive RelStr, e being Element of S
  holds Net-Str e in NetUniv S
proof
  let S be non empty reflexive RelStr, e be Element of S;
  set N = Net-Str e, UN = the_universe_of the carrier of S;
A1: the carrier of N = {e} by Def11;
  reconsider UN as universal set;
  the_transitive-closure_of the carrier of S in UN by CLASSES1:2;
  then the carrier of S in UN by CLASSES1:3,52;
  then the carrier of N in the_universe_of the carrier of S by A1,
CLASSES1:def 1;
  hence thesis by YELLOW_6:def 11;
end;
