kernel-Nat.dist_eq_intro
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {n m k l : ℕ}, n + m = k + l → n.dist k = l.dist m
test "$(cargo run -q --release -p axeyum-lean-kernel --example nat_theorem_inventory -- dist_eq_intro 2>/dev/null | grep -Ec '^Nat\.dist_eq_intro[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits `Nat.dist_eq_intro` (`nat_prelude/dist_more2.rs`) through the trusted `Kernel::add_declaration` gate. `nat_theorem_inventory`'s rendered type is `(x0 x1 x2 x3 : AxNat) -> (x4 : Eq (add x0 x1) (add x2 x3)) -> Eq (dist x0 x2) (dist x3 x1)`, matching this fact's `formal.statement` up to variable naming. Anchored with `^Nat\.dist_eq_intro[[:space:]]`; `grep -Ec` consumes the pipe so the tested count decides the exit status. Run `--release` -- the debug build of this inventory example SIGABRTs on stack depth (unrelated to this proof).