| validrefs(str, r ' + refs0, ty, st) ⊦ ∃ sks. fits(r, sks, st) ∧ # sks = # refs0 ∧ (∀ n. n ≠ 0 ∧ n ≤ # sks → st[r -- firstn(n, sks)] .refval = (r ' + refs0)[n]) |
validrefs(str, r ' + refs0, ty, st), ∀ st, ty, r, str, refs. # refs < # refs0 → ( validrefs(str, r ' + refs, ty, st) → (∃ sks. fits(r, sks, st) ∧ # sks = # refs ∧ (∀ n. n ≠ 0 ∧ n ≤ # sks → st[r -- firstn(n, sks)] .refval = (r ' + refs)[n]))) ⊦ ∃ sks. fits(r, sks, st) ∧ # sks = # refs0 ∧ (∀ n. n ≠ 0 ∧ n ≤ # sks → st[r -- firstn(n, sks)] .refval = (r ' + refs0)[n])
[[CONCRETESIMPRULES : ([CSIMPLESSPRED : <])], [EXTRATERMS : (# refs0)]]