| refs = r + refs0, validrefs(str, refs, ty, st) ⊦ refs = [], ∃ sks. fits(r, sks, st) ∧ 1 + # sks = # refs ∧ (∀ n. n ≠ 0 ∧ n ≤ # sks → st[r -- firstn(n, sks)] .refval = refs[n]) |
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])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = m + n0 ↔ n = n0], [CSIMPSEQ : ⊦ # r ' = 0 +1], [CSIMPSEQ : ⊦ # (refs + refs0) = # refs + # refs0], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ r ' + refs ≠ []], [CSIMPSEQ : ⊦ r + refs = r ' + refs])]]