| interface∃(str, class), jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st[_mode, val], initdone(class, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class), jvmref ∈ st[_mode, val], okval(st[jvmref -- mkfs(class0, ty, fieldvar) '], ty) ∧ ( is_referencevalue(st[jvmref -- mkfs(class0, ty, fieldvar) ']) ∧ st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval ≠ jvmref → st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type ∈ st[_mode, val] ∧ is_typevalue(st[_mode, val][st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) ∧ is_reftype((st[_mode, val][st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) .type) ∧ ( has_classtype((st[_mode, val][st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) .type) → tdname+∃(str, (st[_mode, val][st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) .type .jtelemtype .class)) ∧ ( is_classtype((st[_mode, val][st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) .type) → class+∃(str, (st[_mode, val][st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) .type .class)) ∧ asgcomp(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], ty, st[_mode, val])), jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st, jvmref ∈ st, ∀ sk. sk ∈ statfields(class) → jvmref -- sk ∈ st[_mode, val] ∧ is_fskey(sk) ∧ compat(str, st[_mode, val][jvmref -- sk], sk .fs .type, st[_mode, val]) ⊦ ty = void_type, compat(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], ty, st) |
interface∃(str, class), jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st[_mode, val], initdone(class, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class), jvmref ∈ st[_mode, val], okval(st[jvmref -- mkfs(class0, ty, fieldvar) '], ty), jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st, jvmref ∈ st, ∀ sk. sk ∈ statfields(class) → jvmref -- sk ∈ st[_mode, val] ∧ is_fskey(sk) ∧ compat(str, st[_mode, val][jvmref -- sk], sk .fs .type, st[_mode, val]), is_referencevalue(st[jvmref -- mkfs(class0, ty, fieldvar) ']) ∧ st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval ≠ jvmref → st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type ∈ st ∧ is_typevalue(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type]) ∧ is_reftype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) ∧ ( has_classtype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) → tdname+∃(str, st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type .jtelemtype .class)) ∧ ( is_classtype(st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type) → class+∃(str, st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type .class)) ∧ is_subtype(str, st[st[jvmref -- mkfs(class0, ty, fieldvar) '] .refval -- _type] .type, ty) ⊦ ty = void_type, compat(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ asgcomp(str, val, ty, st) ↔ ¬ is_referencevalue(val) ∨ val .refval = jvmref ∨ is_subtype (str, st[val .refval -- _type] .type, ty)], [CSIMPSEQ : ⊦ r ≠ jvmref → (st[_mode, val][r -- sk]) = st[r -- sk]], [CSIMPSEQ : ⊦ r -- _type ∈ st[_mode, val] ↔ r -- _type ∈ st])]]