| validrefs(str, refs, ty, st), refs ≠ [] ⊦ ∃ sks. fits(refs .first, sks, st) ∧ 1 + # sks = # refs ∧ (∀ n. 0 < n ∧ n ≤ # sks → st[refs .first -- firstn(n, sks)] .refval = refs[n]) |
validrefs(str, refs, ty, st) ⊦ refs = [], ∃ sks. fits(refs .first, sks, st) ∧ 1 + # sks = # refs ∧ (∀ n. n ≠ 0 ∧ n ≤ # sks → st[refs .first -- firstn(n, sks)] .refval = refs[n])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ 0 < n ↔ n ≠ 0])]]