| r -- mkfs(class, ty0, fieldvar) ' ∈ st, okval(st[r -- mkfs(class, ty0, fieldvar) '], ty0), okval(val, ty0), r ∈ st, st[r -- _type] .type ≤ ty ⊦ r = jvmref, mkfs(class, ty0, fieldvar) ' = _type, mkfs(class, ty0, fieldvar) ' = _length, ¬ is_valid_ref(str, r, st[r -- mkfs(class, ty0, fieldvar) ', val]) ↔ ¬ is_valid_ref(str, r, st) |
⊦ r -- fs ' ∈ st ∧ oktype(st[r -- fs '], fs .type, st) ∧ oktype(val, fs .type, st) ∧ fs ' ≠ _length ∧ fs ' ≠ _type → (is_valid_ref(str, r, st[r -- fs ', val]) ↔ is_valid_ref(str, r, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ oktype(val, ty, st) ↔ okval(val, ty)])], [EXTRATERMS : (val, mkfs(class, ty0, fieldvar), st, r, str)]]