kernel-Nat.add_eq_left
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {a b : ℕ}, a + b = a ↔ b = 0
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- add_eq_left 2>/dev/null | grep -Ec '^Nat\.add_eq_left[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits `Nat.add_eq_left` through the trusted `Kernel::add_declaration` gate, declared in `nat_prelude/add_basics.rs`. `declare_add_eq_left`: mp derives `Eq (add a b) (add a 0)` from the hypothesis and `add_zero`, then `add_left_cancel` gives `b = 0`; mpr substitutes `b = 0` via `congr` and closes with `add_zero`. `nat_theorem_inventory`'s rendered type is `(x0:AxNat)->(x1:AxNat)->Iff (Eq (add x0 x1) x0) (Eq x1 zero)`, matching this fact's `formal.statement`. `nat_theorem_inventory` exits non-zero for a name that does not exist, and the `grep -c` count (tested `-ge 1`, not piped into `grep -q`) requires the admitted declaration to actually be printed. Verified both ways: the real name greps to a count `-ge 1`; grepping a made-up name (`Nat.add_eq_left_bogus`) greps to `0`.