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