Skip to content

Commit c0f2069

Browse files
hyperpolymathclaude
andcommitted
chore(proofs): add F* corpus (5 arithmetic lemmas)
AddComm, AddAssoc, MulZero, NonNeg, Refl — all discharged by F*'s SMT backend. Exercises the fstar runner in batch_driver. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
1 parent 2269ebb commit c0f2069

5 files changed

Lines changed: 16 additions & 0 deletions

File tree

proofs/fstar/AddAssoc.fst

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
module AddAssoc
2+
val add_assoc : x:int -> y:int -> z:int -> Lemma ((x + y) + z == x + (y + z))
3+
let add_assoc _ _ _ = ()

proofs/fstar/AddComm.fst

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
module AddComm
2+
val add_comm : x:int -> y:int -> Lemma (x + y == y + x)
3+
let add_comm _ _ = ()

proofs/fstar/MulZero.fst

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
module MulZero
2+
open FStar.Mul
3+
val mul_zero : x:int -> Lemma (x * 0 == 0)
4+
let mul_zero _ = ()

proofs/fstar/NonNeg.fst

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
module NonNeg
2+
val abs_nonneg : x:int -> Lemma (if x >= 0 then x >= 0 else -x >= 0)
3+
let abs_nonneg _ = ()

proofs/fstar/Refl.fst

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
module Refl
2+
val refl : x:int -> Lemma (x == x)
3+
let refl _ = ()

0 commit comments

Comments
 (0)