-- (error "Not used"))

-- | Require any mentsu with a property.
anyKoutsu, anyKantsu, anyShuntsu, anyJantou, anyMentsu, anyKoutsuKantsu, anyMentsuJantou :: MentsuProp -> YakuCheck ()
anyMentsu        tkind = liftF $ YakuMentsu (propNot MentsuJantou &. tkind) ()
anyKoutsu, anyKantsu, anyShuntsu, anyJantou, anyMentsu, anyKoutsuKantsu, anyMentsuJantou :: MentsuProp -> YakuCheck ()
anyMentsu        tkind = liftF $ YakuMentsu (propNot MentsuJantou &. tkind) ()
anyMentsu        tkind = liftF $ YakuMentsu (propNot MentsuJantou &. tkind) ()