371
371
pr "fresh identifier "; pp_name name; pr " = \""; pr x; pr "\";\n"
372
372
| Ast.MetaFreshIdDecl(name, Ast.ListSeed x) ->
373
373
failwith "unparse_hrule: not supported"
374
376
| Ast.MetaTypeDecl(ar, name) ->
375
377
no_arity ar; pr "type "; pp_name name; pr ";\n"
376
378
| Ast.MetaInitDecl(ar, name) ->