-- | Match a property on a TileGroup. GroupLeftOver's always result False.
matchProp :: MentsuProp -> TileGroup -> Bool
matchProp _  GroupLeftover{} = False
matchProp :: MentsuProp -> TileGroup -> Bool
matchProp _  GroupLeftover{} = False
matchProp _  GroupLeftover{} = False