if pp_fix_name then
let _,name,_,_,_ = List.nth fl i in name
else
- let name = NUri.string_of_uri u in
- let name = Filename.basename name in
- let name = Filename.chop_extension name in
- name ^"("^ string_of_int i ^ ")"
+ NUri.name_of_uri u ^"("^ string_of_int i ^ ")"
| _ -> assert false)
with exn -> R.string_of_reference r
;;
| C.Meta (n,_) -> F.fprintf f "?%d" n
| C.Sort C.Prop -> F.fprintf f "Prop"
| C.Sort C.CProp -> F.fprintf f "CProp"
- | C.Sort (C.Type n) -> F.fprintf f "Type%d" n
+ | C.Sort (C.Type []) -> F.fprintf f "IllFormedUniverse"
+ | C.Sort (C.Type [false, u]) -> F.fprintf f "%s" (NUri.name_of_uri u)
+ | C.Sort (C.Type [true, u]) -> F.fprintf f "S(%s)" (NUri.name_of_uri u)
+ | C.Sort (C.Type l) ->
+ F.fprintf f "Max(";
+ aux ctx (C.Sort (C.Type [List.hd l]));
+ List.iter (fun x -> F.fprintf f ",";aux ctx (C.Sort (C.Type [x])))
+ (List.tl l);
+ F.fprintf f ")"
in
aux ~toplevel:true (List.map fst context) t;
F.fprintf f "@?";