let voisins (_,trans_l) st = List.fold_left (fun vl tr -> if tr.start.nums=st.nums then (tr.stop,1)::vl else vl) [] trans_l