| maxpath(str, r0, st) = 1 + # refs1, maxpath(str, r, st) = 1 + # refs0, st[r -- i '] = refval(r0), validrefs(str, r0 ' + refs1, st[r0 -- _type] .type, st), 0 < st[r -- _length] .intval, validrefs(str, r ' + refs0, st[r -- _type] .type, st), # refs0 ≤ # refs1, is_array(str, r, st), i < st[r -- _length] .intval, 0 ≤ i, maxpath(str, r, st) ≤ maxpath(str, r0, st), is_valid_ref(str, r0, st) ⊦ validrefset(str, r, st) = ∅, # validrefset(str, r, st) = 0, validrefset(str, r0, st) = ∅, # validrefset(str, r0, st) = 0, r0 ∈ refs1, dups(refs1), has_reffield((r0 ' + refs1) .last, st), has_reffield((r ' + refs0) .last, st), r ∈ refs0, dups(refs0), cyclic(str, r, st), junkref(str, r, st), validrefs(str, r0 ' + refs1, st[r -- _type] .type .type, st), st[r0 -- _type] .type ≤ st[r -- _type] .type .type |
⊦ is_array(str, r, st) → ( junkref(str, r, st) ↔ (∃ i. 0 ≤ i ∧ i < st[r -- _length] .intval ∧ is_referencevalue(st[r -- i ']) ∧ st[r -- i '] .refval ≠ jvmref ∧ (¬ st[st[r -- i '] .refval -- _type] .type ≤ st[r -- _type] .type .type ∨ junkref(str, st[r -- i '] .refval, st))))
is_array(str, r, st), maxpath(str, r0, st) = 1 + # refs1, maxpath(str, r, st) = 1 + # refs0, st[r -- i '] = refval(r0), validrefs(str, r0 ' + refs1, st[r0 -- _type] .type, st), 0 < st[r -- _length] .intval, validrefs(str, r ' + refs0, st[r -- _type] .type, st), # refs0 ≤ # refs1, is_array(str, r, st), i < st[r -- _length] .intval, 0 ≤ i, maxpath(str, r, st) ≤ maxpath(str, r0, st), is_valid_ref(str, r0, st) ⊦ validrefset(str, r, st) = ∅, # validrefset(str, r, st) = 0, validrefset(str, r0, st) = ∅, # validrefset(str, r0, st) = 0, r0 ∈ refs1, dups(refs1), has_reffield((r0 ' + refs1) .last, st), has_reffield((r ' + refs0) .last, st), r ∈ refs0, dups(refs0), cyclic(str, r, st), ∃ i. 0 ≤ i ∧ i < st[r -- _length] .intval ∧ is_referencevalue(st[r -- i ']) ∧ st[r -- i '] .refval ≠ jvmref ∧ (¬ st[st[r -- i '] .refval -- _type] .type ≤ st[r -- _type] .type .type ∨ junkref(str, st[r -- i '] .refval, st)), validrefs(str, r0 ' + refs1, st[r -- _type] .type .type, st), st[r0 -- _type] .type ≤ st[r -- _type] .type .type
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r, str)]]