| same-subclasses-contains(class, str, str0), tdname+∃(str0, class), is_classtype(ty), ty .class ≤ class, type∃(str0, ty), contains(str0, (ty0 ' + tys1) + mkclasstype(class0) '), mkfs(class1, ty1, fieldvar) ' ∈ instfields(ty .class), ty0 ≤ ty1, ∀ class0, str0, str, class, tys0. # tys0 < # (ty0 + tys1) → (same-subclasses-contains(class, str, str0) ∧ contains(str0, mkclasstype(class) ' + tys0 + mkclasstype(class0) ') → tdname+∃(str, class0)) ⊦ class = `java.lang.Object' .class, tdname+∃(str, class0), interface∃(str0, ty .class) |
ty = mkclasstype(class2), same-subclasses-contains(class, str, str0), tdname+∃(str0, class), is_classtype(ty), class2 ≤ class, type∃(str0, ty), contains(str0, (ty0 ' + tys1) + mkclasstype(class0) '), mkfs(class1, ty1, fieldvar) ' ∈ instfields(class2), ty0 ≤ ty1, ∀ class0, str0, str, class, tys0. # tys0 < # (ty0 + tys1) → (same-subclasses-contains(class, str, str0) ∧ contains(str0, mkclasstype(class) ' + tys0 + mkclasstype(class0) ') → tdname+∃(str, class0)) ⊦ class = `java.lang.Object' .class, tdname+∃(str, class0), interface∃(str0, class2)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_classtype(ty) → ( class = ty .class ↔ ty = mkclasstype(class))])], [EXTRATERMS : (ty, class2)]]