NCicProof.set_default_sig()
;;
-let debug _ = ();;
+let noprint _ = ();;
let print s = prerr_endline (Lazy.force s);;
-let debug = print;;
+let debug = noprint;;
module B(C : NCicBlob.NCicContext): Orderings.Blob
with type t = NCic.term and type input = NCic.term
let print s = prerr_endline (Lazy.force s) ;;
let noprint s = ();;
-let debug = print;;
+let debug = noprint;;
let monster = 100;;
let print ?(depth=0) s =
prerr_endline (String.make depth '\t'^Lazy.force s)
let noprint ?(depth=0) _ = ()
-let debug_print = print
+let debug_print = noprint
open Continuationals.Stack
open NTacStatus