(* Yes, we have to repeat open Graph. *) open Graph (* assert false is of type ∀α.α, so the type-checker is happy. *) let clone_nodes gr = assert false let gmap gr f = assert false let add_arc gr f = assert false