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