kernel-Int.not_prime_of_int_mul
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {a b : ℤ} {c : ℕ}, a.natAbs ≠ 1 → b.natAbs ≠ 1 → a * b = ↑c → ¬Nat.Prime c
test "$(cargo run -q --release -p axeyum-lean-kernel --example int_theorem_inventory -- 'not_prime_of_int_mul' 2>/dev/null | /usr/bin/grep -cE '^theorem[[:space:]]+Int\.not_prime_of_int_mul[[:space:]]')" -ge 1 Evidence notes
Reduces to a Nat-level fact about x := natAbs a, y := natAbs b: x ≠ 1 → y ≠ 1 → ¬prime_condition(x*y), proved by case-splitting x via the already-proved Nat.zero_or_succ. At x = 0: x*y = 0 (Nat.zero_mul), and the already-proved Nat.prime_ne_zero applied at 0 gives Not (Eq 0 0), contradicted by Eq.refl 0. At x = succ k (so 1 <= x, via the NatOps trait's zero_lt_succ helper transported along x = succ k): x itself is the discriminating divisor for the already-proved Nat.not_prime_of_dvd_of_ne -- x ∣ x*y (Nat.dvd_mul), x ≠ 1 (given), and x ≠ x*y because x = x*y together with x*1 = x (Nat.mul_one) and 1 <= x (Nat.mul_left_cancel_of_pos) would force y = 1, contradicting the other hypothesis. The Nat-level fact is then transported to c along natAbs(a*b) = natAbs(ofNat c) ~ c (via gcd::declare_nat_abs_mul and IntDev::int_eq_rewrite on the hypothesis a*b = ofNat c). int_theorem_inventory's rendered type for Int.not_prime_of_int_mul matches this fact's formal.statement exactly. New proof, lane int-prime-dvd (2026-09-01): crates/axeyum-lean-kernel/src/int_prelude/prime_dvd_mul_mirrors.rs. No Nat declaration was added -- every Nat-level fact used (zero_or_succ, zero_mul, mul_one, mul_left_cancel_of_pos, dvd_mul, prime_ne_zero, not_prime_of_dvd_of_ne) already existed in nat_prelude, per this lane's boundary with the sibling nat-prime-factorial-lcm lane.