| ty0 = mkclasstype(class1), tys1 + ty ' = ty2 ' + tys, mkfs(class, ty3, fieldvar) ' ∈ instfields(class0), ty2 ≤ ty3, contains(str, ty ' + tys0), contains(str, ty2 ' + tys), type∃(str, ty0), contains(str, tys1 + ty ' + tys0), 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 |
tys1 + ty ' = ty2 ' + tys, contains(str, tys1 + ty ' + tys0), tdname+∃(str, class0), class0 ≤ class1, mkfs(class, ty3, fieldvar) ' ∈ instfields(class0), ty2 ≤ ty3, contains(str, ty ' + tys0), contains(str, ty2 ' + tys), tdname+∃(str, class1) ⊦ interface∃(str, class0), ty ≠ ty2 ∧ ¬ ty ∈ tys, ¬ ty2 ∈ tys1 ∧ ty2 ≠ ty, ∃ fs. fs ' ∈ instfields(class0) ∧ ty2 ≤ fs .type
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_classtype(mkclasstype(class))], [CSIMPSEQ : ⊦ type∃(str, mkclasstype(class)) ↔ tdname+∃(str, class)])]]