
theorem Th8:
  for L being non empty 1-sorted, N being transitive directed non
  empty RelStr, f being Function of the carrier of N,the carrier of L holds
  NetStr (#the carrier of N,the InternalRel of N,f#) is net of L
proof
  let L be non empty 1-sorted, N be transitive directed non empty RelStr, f be
  Function of the carrier of N,the carrier of L;
  set N2 = NetStr(#the carrier of N,the InternalRel of N,f#);
A1: the RelStr of N = the RelStr of N2;
  [#]N is directed by WAYBEL_0:def 6;
  then [#]N2 is directed by A1,WAYBEL_0:3;
  hence thesis by A1,WAYBEL_0:def 6,WAYBEL_8:13;
end;
