recurs method subtyp todo doe scalabl problem collect subtyp model extent model element collect subtyp hash set generaliz element generaliz element ge generaliz element collect model element subtyp extent gener subtyp ge model element st subtyp subtyp add st subtyp add subtyp extent st subtyp 