(* $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
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"^