Result.Infix
val (-->) : 'a H.t -> AnalysisResult.ResultNode.t -> 'a
val (<--) : 'a H.t -> (AnalysisResult.ResultNode.t * 'a) -> unit