jess - 2 つのルールを 1 つに結合する方法

Question

たとえば、次のように、2 つのルールを組み合わせる方法を知りたいと思いました。

(defrule Rules::pants
  (declare (auto-focus TRUE))
(answer (ident color) (text red))
  (answer (ident pants) (text yes))
  =>
(printout t "you are wearing red pants"))

(defrule Rules::shirt
  (declare (auto-focus TRUE))
(answer (ident shirt) (text blue))
  (answer (ident red) (text yes))
  =>
(printout t "you are wearing blue shirt"))

この 2 つのルールを次のように記述するとします。

(defrule Rules::pants
  (declare (auto-focus TRUE))
(answer (ident red) (text yes))
  (answer (ident pants) (text yes))
(answer (ident shirt) (text yes))
  (answer (ident blue) (text yes))
  =>
(printout t "you are wearing blue shirt and red pants"))

ORいずれかの条件が満たされた場合にトリガーされるように、ステートメントのように機能させたいと考えています。