
theorem Th10:
  for L being non empty 1-sorted, N being net of L, p being
  Function of N,N st N in NetUniv L holds N * p in NetUniv L
proof
  let L be non empty 1-sorted, N be net of L, p be Function of N,N;
  assume N in NetUniv L;
  then
A1: ex N1 being strict net of L st N1 = N & the carrier of N1 in
  the_universe_of the carrier of L by YELLOW_6:def 11;
  the carrier of N * p = the carrier of N by Th6;
  hence thesis by A1,YELLOW_6:def 11;
end;
