wenn G = (GL, GR) mit g1, g2∈GL mit g1≥g2,
(die Option g1 dominiert die Option g2),
dann G G' = (GL {g2}, GR) (g2 weg, g1 bleibt)
game
)
data Game = Game (S.Set Game) (S.Set Game) game :: [Game] -> [Game] -> Game game xs ys = Game (maxima xs) (minima ys) minima = negate . maxima . map negate