simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-09 20:55:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

small fixes, warnings

Browse source
This commit is contained in:
Simon Cruanes 2022-08-27 20:44:13 -04:00
parent e3aa43f817
commit 137183f2fe
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
4 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/base/Data_ty.ml
View file

@ -62,7 +62,6 @@ end
module Cstor = struct
type t = cstor
let id c = c.cstor_id
let hash c = ID.hash c.cstor_id
let ty_args c = Lazy.force c.cstor_args |> List.map Select.ty

1
src/base/LIA_term.ml
View file

@ -1,6 +1,5 @@
open struct
let hash_z = Z.hash
let[@inline] hash_q q = CCHash.combine2 (hash_z (Q.num q)) (hash_z (Q.den q))
end
module LIA_pred = LRA_term.Pred

2
src/core-logic/term.ml
View file

@ -135,7 +135,7 @@ module Hcons = Hashcons.Make (struct
| E_app (f1, a1), E_app (f2, a2) -> equal f1 f2 && equal a1 a2
| E_app_fold a1, E_app_fold a2 ->
equal a1.f a2.f && equal a1.acc0 a2.acc0
&& List.equal equal a1.args a2.args
&& CCList.equal equal a1.args a2.args
| E_lam (_, ty1, bod1), E_lam (_, ty2, bod2) ->
equal ty1 ty2 && equal bod1 bod2
| E_pi (_, ty1, bod1), E_pi (_, ty2, bod2) ->

3
src/util/Event.ml
View file

@ -7,8 +7,7 @@ module Emitter = struct
type nonrec ('a, 'b) t = ('a, 'b) t
let emit (self : (_, unit) t) x =
if not (Vec.is_empty self.h) then
(Vec.iter [@inlined]) self.h ~f:(fun h -> h x)
if not (Vec.is_empty self.h) then Vec.iter self.h ~f:(fun h -> h x)
let emit_collect (self : _ t) x : _ list =
if Vec.is_empty self.h then