| sk0 .fs = mkfs(class, ty, fieldvar), ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)) ⊦ is_fskey(sk0) ∧ validval(str, val, ty, st) ∧ type∃(str, ty) ∧ validfieldinits(str, fis0, st) ↔ is_fskey(sk0) ∧ oktype(val, sk0 .fs .type, st) ∧ ( is_referencevalue(val) → val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ sk0 .fs .type) ∧ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, val ' + fis0 .vals, st) ∧ (∀ sk. sk ∈ (sk0 × val) ' + fis0 → type∃(str, sk .fs .type)) |
sk0 .fs = mkfs(class, ty, fieldvar), is_fskey(sk0), ∀ str, st. validfieldinits(str, fis0, st) ↔ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, fis0 .vals, st) ∧ (∀ sk. sk ∈ fis0 → type∃(str, sk .fs .type)) ⊦ validval(str, val, ty, st) ∧ type∃(str, ty) ∧ validfieldinits(str, fis0, st) ↔ okval(val, ty) ∧ ( is_referencevalue(val) → val .refval = jvmref ∨ val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty) ∧ validfieldinits(fis0, st) ∧ ¬ junkrefs(str, val ' + fis0 .vals, st) ∧ (∀ sk. sk ∈ (sk0 × val) ' + fis0 → type∃(str, sk .fs .type))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ oktype(val, ty, st) ↔ okval(val, ty)])]]