| ⊦ is_obj(r, class, sk ' + sks, st) ↔ goodfieldandtype(r, sk, st) ∧ is_obj(r, class, sks, st) |
⊦ is_obj(r, class, sks, st) ↔ r ≠ jvmref ∧ (r -- _type) × typeval(mkclasstype(class)) ∈ st ∧ (∀ sk. sk ∈ sks → goodfieldandtype(r, sk, st))
⊦ r ≠ jvmref ∧ (r -- _type) × typeval(mkclasstype(class)) ∈ st ∧ (∀ sk0. sk0 ∈ sk ' + sks → goodfieldandtype(r, sk0, st)) ↔ goodfieldandtype(r, sk, st) ∧ is_obj(r, class, sks, st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, sk ' + sks, class, r)]]