aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel
diff options
context:
space:
mode:
authorGravatar Amin Timany <amintimany@gmail.com>2017-04-28 11:12:26 +0200
committerGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2017-06-16 04:51:16 +0200
commit9903b47cdccc2fe98a905ab085cb24ca36de1aed (patch)
tree37249aac01e0dcdb8c3c9c9e6c65391f5ee6804f /kernel
parent9468e4b49bd2f397b5e1bd2b7994cc84929fb6ac (diff)
Disable debug printing
Fix a mistake in record declaration
Diffstat (limited to 'kernel')
-rw-r--r--kernel/subtyping.ml4
1 files changed, 0 insertions, 4 deletions
diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml
index 60cd77f40..60e630a6d 100644
--- a/kernel/subtyping.ml
+++ b/kernel/subtyping.ml
@@ -303,10 +303,6 @@ let check_constant cst env mp1 l info1 cb2 spec2 subst1 subst2 =
let ctx2 = Univ.instantiate_univ_context cb2.const_universes in
let inst1, ctx1 = Univ.UContext.dest ctx1 in
let inst2, ctx2 = Univ.UContext.dest ctx2 in
- output_string stderr "\ninst1:\n";
- output_string stderr (Pp.string_of_ppcmds (Univ.Instance.pr Univ.Level.pr inst1));
- output_string stderr "\ninst2:\n";
- output_string stderr (Pp.string_of_ppcmds (Univ.Instance.pr Univ.Level.pr inst2)); flush stderr;
if not (Univ.Instance.length inst1 == Univ.Instance.length inst2) then
error IncompatibleInstances
else