- Return the threshold of a conflict
  threshold :: Conflict -> Int
  threshold (HorizontalConflict _ t) = t

threshold :: Conflict -> Int
threshold (HorizontalConflict _ t) = t
threshold (HorizontalConflict _ t) = t