let add_isect (graph : graph)
(source : nodeid)
(target : nodeid) : unit =
let source_node = find_node graph source in
let target_node = find_node graph target in
add source_node.outb (OutIsect target);
add target_node.inb (InIsect source)