| tys1 + ty ' = ty2 ' + tys, contains(str, tys1 + ty ' + tys0), mkfs(class, ty3, fieldvar) ' ∈ instfields(class0), ty2 ≤ ty3, type∃(str, ty0), contains(str, ty ' + tys0), contains(str, ty2 ' + tys), tdname+∃(str, class0), is_classtype(ty0), class0 ≤ ty0 .class ⊦ interface∃(str, class0), ty ≠ ty2 ∧ ¬ ty ∈ tys, ¬ ty2 ∈ tys1 ∧ ty2 ≠ ty, ∃ fs. fs ' ∈ instfields(class0) ∧ ty2 ≤ fs .type |
ty0 = mkclasstype(class1), tys1 + ty ' = ty2 ' + tys, contains(str, tys1 + ty ' + tys0), mkfs(class, ty3, fieldvar) ' ∈ instfields(class0), ty2 ≤ ty3, type∃(str, ty0), contains(str, ty ' + tys0), contains(str, ty2 ' + tys), tdname+∃(str, class0), is_classtype(ty0), class0 ≤ class1 ⊦ interface∃(str, class0), ty ≠ ty2 ∧ ¬ ty ∈ tys, ¬ ty2 ∈ tys1 ∧ ty2 ≠ ty, ∃ fs. fs ' ∈ instfields(class0) ∧ ty2 ≤ fs .type
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_classtype(ty) → ( class = ty .class ↔ ty = mkclasstype(class))])], [EXTRATERMS : (ty0, class1)]]