| C.Implicit _ -> F.fprintf f "?"
| C.Meta (n,_) -> F.fprintf f "?%d" n
| C.Sort C.Prop -> F.fprintf f "Prop"
| C.Implicit _ -> F.fprintf f "?"
| C.Meta (n,_) -> F.fprintf f "?%d" n
| C.Sort C.Prop -> F.fprintf f "Prop"
| 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 []) -> 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)
ppterm ~metasenv ~subst ~context:[] ~inside_fix:true bo) fl)
| (u,_,metasenv,subst,NCic.Inductive (b, leftno,tyl, _)) ->
"{"^NUri.string_of_uri u^"} with "^string_of_int leftno^" fixed params\n"^
ppterm ~metasenv ~subst ~context:[] ~inside_fix:true bo) fl)
| (u,_,metasenv,subst,NCic.Inductive (b, leftno,tyl, _)) ->
"{"^NUri.string_of_uri u^"} with "^string_of_int leftno^" fixed params\n"^
String.concat "\nand "
(List.map (fun (_,name,ty,cl) ->
name^": "^ppterm ~metasenv ~subst ~context:[] ty^ " :=\n"^
String.concat "\nand "
(List.map (fun (_,name,ty,cl) ->
name^": "^ppterm ~metasenv ~subst ~context:[] ty^ " :=\n"^