-- | Require any mentsu with a property. Rest of the definition may depend
-- on the matched tile.
anyShuntsu', anyKoutsuKantsu', anyMentsu', anyMentsuJantou' :: MentsuProp -> YakuCheck TileGroup
anyMentsu'       tkind = liftF $ YakuMentsu' tkind id
anyShuntsu', anyKoutsuKantsu', anyMentsu', anyMentsuJantou' :: MentsuProp -> YakuCheck TileGroup
anyMentsu'       tkind = liftF $ YakuMentsu' tkind id
anyMentsu'       tkind = liftF $ YakuMentsu' tkind id