sig
  val ( let+ ) : 'Cmdliner.Term.t -> ('-> 'b) -> 'Cmdliner.Term.t
  val ( and+ ) :
    'Cmdliner.Term.t -> 'Cmdliner.Term.t -> ('a * 'b) Cmdliner.Term.t
end