type unary_strategy = Ltac_plugin.Rewrite.unary_strategytype binary_strategy = Ltac_plugin.Rewrite.binary_strategytype ('a, 'b) strategy_ast = ('a, 'b) Ltac_plugin.Rewrite.strategy_astval strategy_ast_of_sexp :
(Sexplib.Sexp.t -> 'a) ->
(Sexplib.Sexp.t -> 'b) ->
Sexplib.Sexp.t ->
('a, 'b) strategy_astval sexp_of_strategy_ast :
('a -> Sexplib.Sexp.t) ->
('b -> Sexplib.Sexp.t) ->
('a, 'b) strategy_ast ->
Sexplib.Sexp.t