hasEdgeLabelIndex :: LabelIndex -> Id -> GS Bool
hasEdgeLabelIndex li i = getEdgeByIdUnsafe i >>= hasEdgeLabelIndexE li
hasEdgeLabelIndex :: LabelIndex -> Id -> GS Bool
hasEdgeLabelIndex li i = getEdgeByIdUnsafe i >>= hasEdgeLabelIndexE li
hasEdgeLabelIndex li i = getEdgeByIdUnsafe i >>= hasEdgeLabelIndexE li