Reference · Natural numbers
rainbow.math.nat.strict-below-more
Small reusable nat lemmas for indexed-fold attainment (pure nat, off the trusted base): nat/add-successor-right : i + succ e = succ (i + e) (add recurses left, so this needs proof) nat/strict-below-self : m < succ m nat/strict-below-weaken : i < m -> i < succ m
nat/add-successor-right
nat/add-successor-right : (i e : ℕ) → algebra/nat-add i (data/succ e) = data/succ (algebra/nat-add i e)
= = equality/Eqℕ = data/Nat
nat/strict-below-self
nat/strict-below-self : (m : ℕ) → nat/strict-below m (data/succ m)
ℕ = data/Nat
nat/strict-below-weaken
nat/strict-below-weaken : (i m : ℕ) (h : nat/strict-below i m) → nat/strict-below i (data/succ m)
ℕ = data/Nat