Sourcetype 'uid commit = {root : 'uid;preds : 'uid list;
} Sourcetype ('uid, 'preds) kind Sourceval make : kind:('uid, 'preds) kind -> 'preds -> ?ts:int64 -> 'uid -> 'uid t Sourceval get_limits :
compare:('uid -> 'uid -> int) ->
('uid * 'ref * bool) list ->
('uid, 'ref) Smart.Commands.command list ->
'uid list * 'uid list