| okval(val, ty0), validrefs(str, (r1 ' + acc) + r0 ', ty, st), ∀ str, r0, ty, st, val, ty0, class, fieldvar, r. validrefs(str, acc + r0 ', ty, st) ∧ okval(val, ty0) → mkfs(class, ty0, fieldvar) ' = _length ∨ mkfs(class, ty0, fieldvar) ' = _type ∨ validrefs(str, acc + r0 ', ty, st[r -- mkfs(class, ty0, fieldvar) ', val]) ∨ r ∈ acc ⊦ mkfs(class, ty0, fieldvar) ' = _length, mkfs(class, ty0, fieldvar) ' = _type, r = r1, validrefs(str, (r1 ' + acc) + r0 ', ty, st[r -- mkfs(class, ty0, fieldvar) ', val]), r ∈ acc |
⊦ r = jvmref → (validrefs(str, r ' + refs, ty, st) ↔ refs = [])
r1 ≠ jvmref, okval(val, ty0), validrefs(str, (r1 ' + acc) + r0 ', ty, st), ∀ str, r0, ty, st, val, ty0, class, fieldvar, r. validrefs(str, acc + r0 ', ty, st) ∧ okval(val, ty0) → mkfs(class, ty0, fieldvar) ' = _length ∨ mkfs(class, ty0, fieldvar) ' = _type ∨ validrefs(str, acc + r0 ', ty, st[r -- mkfs(class, ty0, fieldvar) ', val]) ∨ r ∈ acc ⊦ mkfs(class, ty0, fieldvar) ' = _length, mkfs(class, ty0, fieldvar) ' = _type, r = r1, validrefs(str, (r1 ' + acc) + r0 ', ty, st[r -- mkfs(class, ty0, fieldvar) ', val]), r ∈ acc
⊦ validrefs(str, jvmref ' + refs, ty, st) ↔ refs = []
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ refs + r ' ≠ []], [CSIMPSEQ : ⊦ ¬ refs + refs0 ≠ [] ↔ refs = [] ∧ refs0 = []], [CSIMPSEQ : ⊦ r ' ≠ []], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1])], [EXTRATERMS : (st[r -- mkfs(class, ty0, fieldvar) ', val], ty, acc + r0 ', r1, str)]]