| fs = mkfs(class, ty, fieldvar1), okfieldinits(class, fis0), mkfs(class, abstract_type, fieldvar) ' ∈ (fs ' × initial_value(ty)) ' + fis0, ∀ class0, fieldvar0. ¬ okfieldinits(class0, fis0) ∨ ¬ mkfs(class0, abstract_type, fieldvar0) ' ∈ fis0 ⊦ ty = abstract_type |
okfieldinits(class, fis0), mkfs(class, abstract_type, fieldvar) ' ∈ fis0, ∀ class0, fieldvar0. ¬ okfieldinits(class0, fis0) ∨ ¬ mkfs(class0, abstract_type, fieldvar0) ' ∈ fis0 ⊦ ty = abstract_type
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : sk ≠ sk0 ⊦ sk ∈ (sk0 × val) ' + fis ↔ sk ∈ fis], [CSIMPSEQ : ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPSEQ : ⊦ mkfs(class1, ty, fieldvar) = mkfs(class2, ty0, fieldvar0) ↔ ¬ ¬ ( class1 = class2 ∧ ty = ty0 ∧ fieldvar = fieldvar0)])]]