(* $Id$ *)
let ppterm =
- ref (fun ~context ~subst ~metasenv ?inside_fix t -> "Please, set a pp callback")
+ ref (fun ~context:_ ~subst:_ ~metasenv:_ ?inside_fix _ ->
+ ignore (inside_fix) ; "Please, set a pp callback")
;;
let set_ppterm f = ppterm := f;;
else
NUri.name_of_uri u ^"("^ string_of_int i ^ ")"
| _ -> assert false)
- with exn -> R.string_of_reference r
+ with NCicLibrary.ObjectNotFound _ -> R.string_of_reference r
;;
-let trivial_pp_term ~context ~subst ~metasenv ?(inside_fix=false) t =
+let trivial_pp_term ~context ~subst:_ ~metasenv:_ ?(inside_fix=false) t =
let buff = Buffer.create 100 in
let f = Format.formatter_of_buffer buff in
let module F = Format in
| C.Implicit _ -> F.fprintf f "?"
| 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 []) -> 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"^
- "inductive "^
+ (if b then "inductive " else "coinductive ")^
String.concat "\nand "
(List.map (fun (_,name,ty,cl) ->
name^": "^ppterm ~metasenv ~subst ~context:[] ty^ " :=\n"^