1-- Binomial coefficients vanish above the row: choose(n, k + 1) = 0 when2-- n ≤ k, with truncated subtraction available for the exponents of the3-- binomial expansion4-- Part of Cumulus, the Grace17 mathematics library.5-- Copyright (c) 2026 Grant Passmore.6-- Released under the Apache License 2.0. See LICENSE in the repository root.7-- Authors: Grant Passmore89module Grace.Cumulus.NumberTheory.BinomialVanishing10import Binomial11import Nat.Subtraction1213theorem choose.vanishes (n k : Nat)14requires le : n ≤ k15shows choose(n, succ(k)) =016proof17obtain⟨d, dNat, shape⟩:= le18have above := choose.above at n19have form : succ(k) = n + succ(d)20rw← shape21ring22rw form23exact above with d, dNat24