| refs = r + refs1 ∧ refs ≠ [], dups(refs), validrefs(str, refs, st[r -- _type] .type, st), unchanged(str, r, st, st0) ⊦ junkref(str, r, st), ∃ refs0. dups(refs0) ∧ refs0 .first = r ∧ validrefs(str, refs0, st0[refs0 .first -- _type] .type, st0) |
unchanged(str, r, st, st0), validrefs(str, r ' + refs1, st[r -- _type] .type, st) ⊦ junkref(str, r, st), ∃ refs0. dups(refs0) ∧ refs0 .first = r ∧ validrefs(str, refs0, st0[refs0 .first -- _type] .type, st0), ¬ r ∈ refs1 ∧ ¬ dups(refs1)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list-dup, references, rec, ⊦ dups(r ' + refs) ↔ ¬ ¬ (r ∈ refs ∨ dups(refs))], [CSIMPNAMEDSEQ : list, references, a, ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPNAMEDSEQ : list, references, e-01, ⊦ r ' + refs ≠ []], [CSIMPNAMEDSEQ : list, references, c, ⊦ r + refs = r ' + refs])]]