| r -- mkfs(class, ty, fieldvar) ' ≠ jvmref -- mkfs(class0, void_type, `initstate' .field) ' ∧ r -- mkfs(class, ty, fieldvar) ' ≠ _uninit, compatmode(str, st), compatstatic(str, st), compatrefs(str, st), compat(str, val, ty, st), initdone(class0, st), tdname∃(str, class0) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, compatfields(str, jvmref, statfields(class0), st[r -- mkfs(class, ty, fieldvar) ', val]) |
compatmode(str, st), compatstatic(str, st), compatrefs(str, st), compat(str, val, ty, st), initdone(class0, st), tdname∃(str, class0) ⊦ mkfs(class, ty, fieldvar) ' = _length, ty = void_type, r -- mkfs(class, ty, fieldvar) ' = _uninit, compatfields(str, jvmref, statfields(class0), st[r -- mkfs(class, ty, fieldvar) ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class1, ty, fieldvar) = mkfs(class2, ty0, fieldvar0) ↔ ¬ ¬ ( class1 = class2 ∧ ty = ty0 ∧ fieldvar = fieldvar0)], [CSIMPSEQ : ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]