Binsec.Generic_decoder_sigmodule type Monad = sig ... endmodule Monadic_Arity (M : Monad) : sig ... endmodule type Expr_Input = sig ... endmodule type Instr_Input = sig ... endtype ('bool, 'bin) jump_kind = | JKIf of 'bool * 'bin jump_target * 'bin jump_target| JKJump of 'bin jump_target| JKStop| JKAssume of 'bool * 'bin jump_target