⊦ m < # A ∧ nodups(A)
→ (∀ n. (n < m → #oc(A[n], A, m) = 1) ∧ (m ≤ n ∧ n < # A → #oc(A[n], A, m) = 0))
Rule argument
spec:
inst:
name:nodups-oc
seq:
⊦ m < # A ∧ nodups(A)
→ (∀ n.
(n < m → #oc(A[n], A, m) = 1)
∧ ( m ≤ n ∧ n < # A → #oc(A[n], A, m) = 0))
subst:[m, A] → [m, A]
flags:current, []