| maxpath(str, r, st) = 1 + # refs0, st[r -- fs '] = refval(r0), maxpath(str, r, st) ≤ maxpath(str, r0, st), validrefs(str, r ' + refs0, st[r -- _type] .type, st), fs ' ∈ instfields(st[r -- _type] .type .class), is_obj(str, r, st), # refs0 < maxpath(str, r0, st) ⊦ refs0 = [], validrefset(str, r, st) = ∅, # validrefset(str, r, st) = 0, r ∈ refs0, dups(refs0), junkref(str, r, st), cyclic(str, r, st), has_reffield(refs0 .last, st) |
refs0 = refs + r1 ', maxpath(str, r, st) = 1 + # refs0, st[r -- fs '] = refval(r0), maxpath(str, r, st) ≤ maxpath(str, r0, st), validrefs(str, r ' + refs0, st[r -- _type] .type, st), fs ' ∈ instfields(st[r -- _type] .type .class), is_obj(str, r, st), # refs0 < maxpath(str, r0, st) ⊦ refs0 = [], validrefset(str, r, st) = ∅, # validrefset(str, r, st) = 0, r ∈ refs0, dups(refs0), junkref(str, r, st), cyclic(str, r, st), has_reffield(r1, st)
[[CONCRETESIMPRULES : ([CSIMPELIM : refs ≠ [] ⊦ r = refs .last ∧ refs0 = refs .butlast ↔ refs = refs0 + r '])], [EXTRATERMS : (refs0, r1, refs)]]