| r -- mkfs(class, ty, fieldvar) ' ≠ jvmref -- mkfs(class0, void_type, `initstate' .field) ' ∧ r -- mkfs(class, ty, fieldvar) ' ≠ _uninit, okval(val, ty), sk ∈ statfields(class0), initdone(class0, st), tdname∃(str, class0), initdone(class0, st) → validstatfield(str, sk, st) ⊦ mkfs(class, ty, fieldvar) ' = _length, validstatfield(str, sk, st[r -- mkfs(class, ty, fieldvar) ', val]), is_referencevalue(val) |
okval(val, ty), sk ∈ statfields(class0), initdone(class0, st), tdname∃(str, class0), validstatfield(str, sk, st), r ≠ jvmref ∨ class ≠ class0 ∨ ty ≠ void_type ∨ fieldvar ≠ `initstate' .field ⊦ mkfs(class, ty, fieldvar) ' = _length, r -- mkfs(class, ty, fieldvar) ' = _uninit, validstatfield(str, sk, st[r -- mkfs(class, ty, fieldvar) ', val]), is_referencevalue(val)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : fieldspec, , inj-01, ⊦ mkfs(class1, ty, fieldvar) = mkfs (class2, ty0, fieldvar0) ↔ ¬ ¬ ( class1 = class2 ∧ ty = ty0 ∧ fieldvar = fieldvar0)], [CSIMPNAMEDSEQ : storekey, , inj-03, ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPNAMEDSEQ : refkey, , inj-01, ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]