kernel-Nat.abundant_mul_left
- Kind
- kernel-term
- Status
- checked
Supports: Abundant n -> Not (Eq m zero) -> Abundant (mul m n)
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- abundant_mul_left 2>/dev/null | grep -Ec '^Nat\.abundant_mul_left[[:space:]]')" -ge 1 Evidence notes
A direct instance of `Nat.sum_divisors_scale_le` (`divisor_sum_scale.rs`) at scale factor `q := m`: `m * sumDivisors n <= sumDivisors (m*n)`. Multiplies the `Abundant n` hypothesis through by `m` (`Nat.mul_lt_mul_left`'s `mpr` direction) to get `Lt (mul m (mul 2 n)) (sumDivisors (mul m n))`, then reassociates `mul m (mul 2 n)` to `mul 2 (mul m n)` via `mul_comm`/`mul_assoc`.