let F : Vector ℕ (n + 1) → ℕ := fun v => isDvdNat (v.get j.succ) (v.get i.succ - v.head)
n : ℕ
i j : Fin n
⊢ Arith₁ fun v => v.get i % v.get j
n : ℕ
i j : Fin n
F : Vector ℕ (n + 1) → ℕ := fun v => (v.get j.succ).isDvdNat (v.get i.succ - v.head)
⊢ Arith₁ fun v => v.get i % v.get j