let conc net1 net2 =
   conc_in_place (copy net1) (copy net2)