kernel-Nat.add_factorial_lt_factorial_add
- Kind
- kernel-term
- Status
- checked
Supports: The proposition declared as `Nat.add_factorial_lt_factorial_add` in the pinned Mathlib v4.30 source.
cargo test -p axeyum-lean-kernel --lib nat_prelude:: Evidence notes
`declare_add_factorial_lt_factorial_add` (`crates/axeyum-lean-kernel/src/nat_prelude/add_factorial_lt.rs`): `le_dest`+`Exists.rec` peel `Le 2 i` into a witness `k` with `i = add 2 k`, then a `k`-indexed strict induction on `Lt (add (add 2 k) n!) (factorial (add (add 2 k) n))` with `n`/`Le 1 n` held fixed. The base case (`k=0`, reducing via `add 2 0 ≡ 2` by pure δ/ι) is proved directly via `factorial_lt_of_lt` + `factorial_le` (at `factorial 2 ≡ 2`, also pure δ/ι) + `mul_le_mul_left`; the step case is `add_factorial_le_factorial_add`'s own step function applied to an IH that is already one `succ` ahead (since `Lt a b` unfolds definitionally to `Le (succ a) b`), landing on the required shape with no extra slack needed.