invalid :: [(Man, Job)] -> Set (Man, Job) -> Bool
invalid ps s = not $ any ((flip Set.member) s) ps
invalid :: [(Man, Job)] -> Set (Man, Job) -> Bool
invalid ps s = not $ any ((flip Set.member) s) ps
invalid ps s = not $ any ((flip Set.member) s) ps