Module Optimization_rules_cleanup

module Optimization_rules_cleanup: sig .. end

val cleanup_rules : ((bool Pervasives.ref ->
         Logical_algebra_types.logical_compile_context ->
         Logical_algebra_types.logical_algop_expr ->
         (Logical_algebra_types.logical_algop_expr *
          Optimization_walker.sub_expr_kind * int)
         option ->
         Logical_algebra_types.logical_algop_expr ->
         Logical_algebra_types.logical_algop_expr) *
        string)
       list