reserve x,y,z,X for set,
  T for Universe;

theorem Th26:
  for T being non empty 1-sorted, N being net of T for J being
net_set of the carrier of N, T holds the carrier of Iterated J = [:the carrier
  of N, product Carrier J:]
proof
  let T be non empty 1-sorted, N be net of T;
  let J be net_set of the carrier of N, T;
  the RelStr of Iterated J = [:N, product J:] by Def13;
  hence the carrier of Iterated J = [:the carrier of N, the carrier of product
  J:] by YELLOW_3:def 2
    .= [:the carrier of N, product Carrier J:] by YELLOW_1:def 4;
end;
