-- reservationConstraints

reservationConstraints loadPattern = 
                            [ (linCombination( 
                              [ (1.0, "reservation_" ++ k) ]

                              ++[(-1.0, "reserved_" ++ k ++ "_" ++ p) ]
                              ),
                              0.0)  |p <- (Map.keys loadPattern),
                                      k <- reservationTypes ]
reservationConstraints loadPattern = 
                            [ (linCombination( 
                              [ (1.0, "reservation_" ++ k) ]

                              ++[(-1.0, "reserved_" ++ k ++ "_" ++ p) ]
                              ),
                              0.0)  |p <- (Map.keys loadPattern),
                                      k <- reservationTypes ]
reservationConstraints loadPattern = 
                            [ (linCombination( 
                              [ (1.0, "reservation_" ++ k) ]

                              ++[(-1.0, "reserved_" ++ k ++ "_" ++ p) ]
                              ),
                              0.0)  |p <- (Map.keys loadPattern),
                                      k <- reservationTypes ]