Violation.PathArg
module Node : MyARG.Node
module Edge = MyARG.InlineEdge
val main_entry : Node.t
val next : Node.t -> (Edge.t * Node.t) list