simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 19:25:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add assertion

Browse source
This commit is contained in:
Simon Cruanes 2021-03-19 12:43:38 -04:00
parent ffc45b0db6
commit d665f83c65
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/th-bool-static/Sidekick_th_bool_static.ml
View file

@ -137,6 +137,7 @@ module Make(A : ARG) : S with module A = A = struct
Log.debugf 20 Log.debugf 20
(fun k->k "(@[sidekick.bool.proxy@ :t %a@ :for %a@])" (fun k->k "(@[sidekick.bool.proxy@ :t %a@ :for %a@])"
T.pp u T.pp for_); T.pp u T.pp for_);
assert (Ty.equal ty (T.ty u));
u u
let fresh_lit (self:state) ~for_ ~mk_lit ~pre : Lit.t = let fresh_lit (self:state) ~for_ ~mk_lit ~pre : Lit.t =