type ('uid, 'ref) command = private | Create of 'uid * 'ref| Delete of 'uid * 'ref| Update of 'uid * 'uid * 'ref
val create : 'uid -> 'ref -> ('uid, 'ref) commandval delete : 'uid -> 'ref -> ('uid, 'ref) commandval update : 'uid -> 'uid -> 'ref -> ('uid, 'ref) commandval commands : ('uid, 'ref) t -> ('uid, 'ref) command listval pp : 'uid Fmt.t -> 'ref Fmt.t -> ('uid, 'ref) t Fmt.tval map :
fuid:('uid0 -> 'uid1) ->
fref:('ref0 -> 'ref1) ->
('uid0, 'ref0) t ->
('uid1, 'ref1) t