2026-07-02 19:19:58 +00:00
|
|
|
|
#!/usr/bin/env bash
|
|
|
|
|
|
# Scalar-layer check (Scalar52 arithmetic mod ℓ). Compiles the gen model + the
|
|
|
|
|
|
# proven foundation. add/sub (Range-loop reductions) and the Montgomery mul
|
|
|
|
|
|
# path are in progress — see README. Guarded compiles throughout.
|
|
|
|
|
|
set -uo pipefail
|
|
|
|
|
|
source ~/aeneas-toolchain/env.sh
|
|
|
|
|
|
HERE="$(cd "$(dirname "$0")" && pwd)"
|
|
|
|
|
|
AENEAS_LEAN="$AENEAS_HOME/backends/lean"
|
|
|
|
|
|
GEN=(CurveScalar/TypesExternal CurveScalar/Types CurveScalar/FunsExternal CurveScalar/Funs)
|
2026-07-03 16:17:30 +00:00
|
|
|
|
PROOFS=(ScalarDenote ScalarLoop ScalarSubSpec ScalarAddSpec)
|
2026-07-02 19:19:58 +00:00
|
|
|
|
|
|
|
|
|
|
echo "=== stub/axiom audit ==="
|
|
|
|
|
|
grep -rnE '^(private |protected |noncomputable )*axiom ' "$HERE"/Proofs/Scalar*.lean 2>/dev/null && { echo "axiom under Proofs/"; exit 1; }
|
|
|
|
|
|
echo " clean"
|
|
|
|
|
|
echo "=== compile (guarded) ==="
|
|
|
|
|
|
cd "$AENEAS_LEAN"
|
|
|
|
|
|
lake env bash -c "
|
|
|
|
|
|
set -uo pipefail
|
|
|
|
|
|
cd '$HERE/gen' && export LEAN_PATH=\"\$LEAN_PATH:\$PWD:$HERE\"
|
|
|
|
|
|
for m in ${GEN[*]}; do echo \" · gen \$m\"; LEAN_TIMEOUT=300 LEAN_MEM_MB=6144 '$HERE/lean-guard' \"\$m.lean\" || exit 1; done
|
|
|
|
|
|
cd '$HERE'
|
2026-07-03 16:17:30 +00:00
|
|
|
|
for m in ${PROOFS[*]}; do echo \" · proof \$m\"; LEAN_TIMEOUT=300 LEAN_MEM_MB=4096 '$HERE/lean-guard' \"Proofs/\$m.lean\" || exit 1; done
|
2026-07-02 19:19:58 +00:00
|
|
|
|
" || { echo FAIL; exit 1; }
|
2026-07-03 10:54:27 +00:00
|
|
|
|
echo "=== Phase 3: axiom audit (kernel-level) ==="
|
|
|
|
|
|
cd "$AENEAS_LEAN"
|
|
|
|
|
|
lake env bash -c "
|
|
|
|
|
|
set -uo pipefail
|
|
|
|
|
|
export LEAN_PATH=\"\$LEAN_PATH:$HERE/gen:$HERE\"
|
|
|
|
|
|
cd '$HERE'
|
|
|
|
|
|
AUD=\$(mktemp '$HERE/.audit-scalar-XXXX.lean')
|
2026-07-03 16:17:30 +00:00
|
|
|
|
{ echo 'import Proofs.ScalarDenote'; echo 'import Proofs.ScalarSubSpec'; echo 'import Proofs.ScalarAddSpec'; echo '#print axioms ScalarProofs.L_val'
|
|
|
|
|
|
echo '#print axioms ScalarProofs.sub_loop_spec'
|
|
|
|
|
|
echo '#print axioms ScalarProofs.cond_add_l_one_spec'; echo '#print axioms ScalarProofs.sub_val_spec'; echo '#print axioms ScalarProofs.add_val_spec'; } > \"\$AUD\"
|
2026-07-03 10:54:27 +00:00
|
|
|
|
OUT=\$(LEAN_TIMEOUT=120 LEAN_MEM_MB=4096 '$HERE/lean-guard' \"\$AUD\" 2>&1)
|
|
|
|
|
|
echo \"\$OUT\"
|
|
|
|
|
|
rm -f \"\$AUD\" \"\${AUD%.lean}.olean\"
|
2026-07-03 16:17:30 +00:00
|
|
|
|
N=\$(echo \"\$OUT\" | grep -cF \"depends on axioms: [propext, Classical.choice, Quot.sound]\" || true)
|
|
|
|
|
|
[ \"\$N\" -eq 5 ] || { echo \"AXIOM AUDIT FAILED: \$N/5 clean\"; exit 1; }
|
2026-07-03 10:54:27 +00:00
|
|
|
|
" || { echo FAIL; exit 1; }
|
|
|
|
|
|
echo " L_val axiom-clean"
|
|
|
|
|
|
|
2026-07-02 19:19:58 +00:00
|
|
|
|
echo ""
|
|
|
|
|
|
echo "SCALAR FOUNDATION: gen compiles; denotation + group-order constant (L = ℓ) proven."
|