The relation argument is the relation for which an upper bound is to be found.
(defconcept B :is (:and (:all r A) (:exactly 3 r) (:filled-by r Joe Fred))) (defconcept C :is-primitive B :implies (:and (:some s A) (:at-most 2 s)) :defaults (:filled-by s Sue)) (tellm (C Mary)) (get-role-max-cardinality (fc C) (fr r)) ==> 3 (get-role-max-cardinality (fc C) (fr s)) ==> 2 (get-role-max-cardinality (fi Mary) (fr r)) ==> 3 (get-role-max-cardinality (fi Mary) (fr s)) ==> 2