simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-07 03:35:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(th-data): fix merge explanation in cstor monoid

Browse source
This commit is contained in:
Simon Cruanes 2019-12-09 21:50:09 -06:00
parent d52fb1e5fd
commit 6061b5843e
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-data/Sidekick_th_data.ml
View file

@ -168,6 +168,7 @@ module Make(A : ARG) : S with module A = A = struct
Expl.mk_list [ Expl.mk_list [
Expl.mk_merge n1 v1.n; Expl.mk_merge n1 v1.n;
Expl.mk_merge n2 v2.n; Expl.mk_merge n2 v2.n;
Expl.mk_merge n1 n2;
] ]
in in
if A.Cstor.equal v1.cstor v2.cstor then ( if A.Cstor.equal v1.cstor v2.cstor then (