simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2026-05-05 17:04:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix warnings

Browse source
This commit is contained in:
Simon Cruanes 2026-03-16 03:01:09 +00:00
parent 83cef9e2b9
commit 3d9b32ad38
3 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/algos/simplex/tests/test_simplex.real.ml
View file

@ -124,8 +124,8 @@ module Step = struct
| [] -> []
| vs ->
let gen =
let+ x = oneofl vs
and+ kind = oneofl [ `Leq; `Lt; `Geq; `Gt ]
let+ x = oneof_list vs
and+ kind = oneof_list [ `Leq; `Lt; `Geq; `Gt ]
and+ n = rand_q.QC.gen in
( vars,
match kind with
@ -145,11 +145,11 @@ module Step = struct
(if List.length vars > 2 then (
let v = List.length vars in
let gen =
let* vars' = G.shuffle_l vars in
let* vars' = shuffle_list vars in
let* n = 1 -- min 12 (List.length vars') in
let vars' = CCList.take n vars' in
assert (List.length vars' = n);
let* coeffs = list_repeat n rand_q.gen in
let* coeffs = list_size (return n) rand_q.gen in
let le = List.combine coeffs vars' in
return (v :: vars, S_define (v, le))
in

2
src/main/show_trace.ml
View file

@ -10,7 +10,7 @@ type state = {
p_reader: Proof.Trace_reader.t;
}
let show_sat (self : state) ~tag v : unit =
let show_sat (_self : state) ~tag v : unit =
match tag with
| "AssCSat" ->
(match

2
src/sat/solver.ml
View file

@ -13,7 +13,7 @@ module Atom = Store.Atom
module Var = Store.Var
module Clause = Store.Clause
module H = Heap.Make [@specialise] (struct
module H = Heap.Make (struct
type store = Store.t
type t = var