- | Fold (_, kind, term, pattern) ->
- sprintf "fold %s %s %s" (pp_reduction_kind kind) (pp_term_ast term)
- (pp_pattern pattern)
- | Generalize (_, term, ident, pattern) ->
- sprintf "generalize %s%s %s" (pp_term_ast term)
+ | Fold (_, kind, pattern) ->
+ sprintf "fold %s %s" (pp_reduction_kind kind) (pp_pattern pattern)
+ | Generalize (_, pattern, ident) ->
+ sprintf "generalize %s%s" (pp_pattern pattern)