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

fix(th-data): avoid redundant explanations

Browse source
This commit is contained in:
Simon Cruanes 2019-12-28 09:00:59 -06:00
parent e58b29da02
commit 10b9febe9d
1 changed files with 0 additions and 1 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

@ -170,7 +170,6 @@ module Make(A : ARG) : S with module A = A = struct
Expl.mk_list [ Expl.mk_list [
Expl.mk_merge n1 c1.c_n; Expl.mk_merge n1 c1.c_n;
Expl.mk_merge n2 c2.c_n; Expl.mk_merge n2 c2.c_n;
Expl.mk_merge n1 n2;
] ]
in in
if A.Cstor.equal c1.c_cstor c2.c_cstor then ( if A.Cstor.equal c1.c_cstor c2.c_cstor then (