mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-09 04:35:35 -05:00
debug: add type checking in CC.merge
This commit is contained in:
parent
91e9b6cc2c
commit
62b1d83cd6
1 changed files with 1 additions and 0 deletions
|
|
@ -813,6 +813,7 @@ module Make (A: CC_ARG)
|
|||
let merge cc n1 n2 expl =
|
||||
Log.debugf 5
|
||||
(fun k->k "(@[cc.theory.merge@ :n1 %a@ :n2 %a@ :expl %a@])" N.pp n1 N.pp n2 Expl.pp expl);
|
||||
assert (T.Ty.equal (T.Term.ty n1.n_term) (T.Term.ty n2.n_term));
|
||||
merge_classes cc n1 n2 expl
|
||||
|
||||
let[@inline] merge_t cc t1 t2 expl =
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue