| st[r -- _type] .type = mkclasstype(class), st[r -- sk0] = refval(r0), is_obj(str, r, st), junkref(str, r0, st), sks1 ⊑ sks, fits(r0, sks + sk ', st), sk0 ∈ instfields(class), ∀ sks0, r, sk, st, str. sks0 ⊑ sks ∧ fits(r, sks + sk ', st) → is_referencevalue(st[r -- sks0]) ∨ junkref(str, r, st) ⊦ r = jvmref, is_referencevalue(st[r -- (sk0 ' + sks1)]), sk0 .fs ' ∈ instfields(class) ∧ is_referencevalue(st[r -- sk0 .fs ']) ∧ st[r -- sk0 .fs '] .refval ≠ jvmref ∧ (¬ st[st[r -- sk0 .fs '] .refval -- _type] .type ≤ sk0 .fs .type ∨ junkref(str, st[r -- sk0 .fs '] .refval, st)) |
⊦ fits(jvmref, sks, st) ↔ sks = []
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : addfuns, , instfields-index-02, ⊦ sk ∈ instfields(class0) → ( sk .fs = mkfs (class, ty, fieldvar) ↔ sk = mkfs (class, ty, fieldvar) ')], [CSIMPNAMEDSEQ : storekey, , sel-05, ⊦ fs ' .fs = fs], [CSIMPNAMEDSEQ : javavalue, , test-19, ⊦ is_referencevalue(refval(r))], [CSIMPNAMEDSEQ : javavalue, , sel-09, ⊦ refval(r) .refval = r], [CSIMPNAMEDSEQ : list, storekeys, app-02-ant, ⊦ ¬ sks + sks0 ≠ [] ↔ sks = [] ∧ sks0 = []], [CSIMPNAMEDSEQ : list, storekeys, e, ⊦ sk ' ≠ []], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPELIM : ⊦ class = fs .class ∧ ty = fs .type ∧ fieldvar = fs .field ↔ fs = mkfs(class, ty, fieldvar)])], [EXTRATERMS : (sk0 .fs, class0, ty, fieldvar)]]