- | Fold (_, kind, term) ->
- sprintf "fold %s %s" (pp_reduction_kind kind) (pp_term_ast term)
- | Generalize (_, term, pattern) ->
- sprintf "generalize %s %s" (pp_term_ast term) (pp_pattern pattern)
+ | Fold (_, kind, pattern) ->
+ sprintf "fold %s %s" (pp_reduction_kind kind) (pp_pattern pattern)
+ | Generalize (_, pattern, ident) ->
+ sprintf "generalize %s%s" (pp_pattern pattern)
+ (match ident with None -> "" | Some id -> " as " ^ id)