| r ∈ refs0, validrefs(str, r ' + refs0, st[r -- _type] .type, st), path∃(str, r, r, st), ∀ st, str, refs, r0. # (r0 ' + refs) < # (r ' + refs0) → (validrefs(str, r0 ' + refs, st[r0 -- _type] .type, st) → hasSharing(r0, st) ∨ ¬ r0 ∈ refs ∧ ¬ dups(refs)) ⊦ hasSharing(r, st) |
⊦ r ∈ refs ↔ (∃ refs0, refs1. refs = refs0 + (r + refs1))
∃ refs2, refs1. refs0 = refs2 + (r + refs1), validrefs(str, r ' + refs0, st[r -- _type] .type, st), path∃(str, r, r, st), ∀ st, str, refs, r0. # (r0 ' + refs) < # (r ' + refs0) → (validrefs(str, r0 ' + refs, st[r0 -- _type] .type, st) → hasSharing(r0, st) ∨ ¬ r0 ∈ refs ∧ ¬ dups(refs)) ⊦ hasSharing(r, st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (refs0, r)]]