-(* | Reduce (_, kind, None) *)
-(* | Reduce (_, kind, Some ([], `Goal)) -> pp_reduction_kind kind *)
-(* | Reduce (_, kind, Some ([], `Everywhere)) -> *)
-(* sprintf "%s in hyp" (pp_reduction_kind kind) *)
-(* | Reduce (_, kind, Some (terms, `Goal)) -> *)
-(* sprintf "%s %s" (pp_reduction_kind kind) *)
-(* (String.concat ", " (List.map pp_term_ast terms)) *)
-(* | Reduce (_, kind, Some (terms, `Everywhere)) -> *)
-(* sprintf "%s in hyp %s" (pp_reduction_kind kind) *)
-(* (String.concat ", " (List.map pp_term_ast terms)) *)