| st[r -- _type] = typeval(mkclasstype(class)), r ∈ st, r -- _type ∈ st, class+∃(str, class), sk ∈ instfields(class), ∀ sk. sk ∈ instfields(class) → r -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[r -- sk], sk .fs .type, st) ⊦ r = jvmref, goodfieldandtype(r, sk, st) |
⊦ is_fskey(sk) → (goodfieldandtype(r, sk, st) ↔ r -- sk ∈ st ∧ oktype(st[r -- sk], sk .fs .type, st))
¬ is_fskey(sk), st[r -- _type] = typeval(mkclasstype(class)), r ∈ st, r -- _type ∈ st, class+∃(str, class), sk ∈ instfields(class), ∀ sk. sk ∈ instfields(class) → r -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[r -- sk], sk .fs .type, st) ⊦ r = jvmref, goodfieldandtype(r, sk, st)
is_fskey(sk), st[r -- _type] = typeval(mkclasstype(class)), r ∈ st, r -- _type ∈ st, class+∃(str, class), sk ∈ instfields(class), ∀ sk. sk ∈ instfields(class) → r -- sk ∈ st ∧ is_fskey(sk) ∧ compat(str, st[r -- sk], sk .fs .type, st) ⊦ r = jvmref, r -- sk ∈ st ∧ oktype(st[r -- sk], sk .fs .type, st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, sk, r)]]