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

feat: basic model production for th-data

Browse source
This commit is contained in:
Simon Cruanes 2021-03-22 12:58:05 -04:00
parent be97938e12
commit 9e0c79f597
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/th-data/Sidekick_th_data.ml
View file

@ -539,8 +539,12 @@ module Make(A : ARG) : S with module A = A = struct
match ST_cstors.get self.cstors repr with match ST_cstors.get self.cstors repr with
| None -> None | None -> None
| Some c -> | Some c ->
Log.debugf 1 (fun k->k "FIND CSTOR %a" Monoid_cstor.pp c); Log.debugf 20 (fun k->k "(@[th-data.mk-model.find-cstor@ %a@])" Monoid_cstor.pp c);
None let args =
IArray.map (fun t -> recurse si (SI.cc_add_term si t))
c.c_args in
let t = A.mk_cstor self.tst c.c_cstor args in
Some t
let create_and_setup (solver:SI.t) : t = let create_and_setup (solver:SI.t) : t =
let self = { let self = {