Как можно определить, является ли некоторый класс потомком данного, не перебирая при этом всех потомков данного класса?

Этот вот код решает задачу перебором всех потомков, коих может быть очень и очень много (как, например, у %Library.RegisteredObject). Есть ли варианты сделать это быстрее?ClassMethod IsSubClassOf(SuperClassName As %String, SubClassName As %String) As %Boolean
{
    set rs=##class(%ResultSet).%New("%Dictionary.ClassDefinition:SubclassOf")
    do rs.Execute(SuperClassName)
    while (rs.Next()) {
        if ($isobject(##class(%Dictionary.CompiledClass).%OpenId(rs.Get("Name")))) {
            if (rs.Get("Name") = SubClassName) return $$$TRUE
        }
    }
    return $$$FALSE
}

DAiMorДаже классы которые явно от него не наследуются (даже вообще без супер класса), все равно наследуются, так что, все классы имеют эти методы
Действительно так. Магия какая-то.... Объясните, как это работает?

P.S. Метод %IsA решил задачу

DAiMor, по умолчанию? это где-то настраивается? и почему тогда в классах без предков ни в документации, ни в студии не отображаются методы базового суперкласса? хотя эти методы действительно работают?