Let_syntax.Let_syntaxval bind :
'a Dkml_install_api.Forward_progress.t ->
(('a * Dkml_install_api.Forward_progress.fatal_logger) ->
'b Dkml_install_api.Forward_progress.t) ->
'b Dkml_install_api.Forward_progress.tval map :
('a -> 'b) ->
'a Dkml_install_api.Forward_progress.t ->
'b Dkml_install_api.Forward_progress.tval return : 'a -> 'b Dkml_install_api.Forward_progress.t