diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-10-01 18:41:49 +0200 |
|---|---|---|
| committer |  Matthieu Sozeau <mattam@mattam.org> | 2015-10-02 15:54:13 +0200 |
| commit | de648c72a79ae5ba35db166575669ca465b11770 (patch) | |
| tree | 9a169304038a3e755241208a5434ef65e7c83c0e /checker/reduction.ml | |
| parent | 6b9ff2261c738ff8ce47b75e5ced2b85476b6210 (diff) | |
Univs: fix checker generating undeclared universes.
Diffstat (limited to 'checker/reduction.ml')
| -rw-r--r-- | checker/reduction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/reduction.ml b/checker/reduction.ml index 8ddeea2a2..384d883ea 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -175,7 +175,7 @@ let sort_cmp env univ pb s0 s1 = then begin if !Flags.debug then begin let op = match pb with CONV -> "=" | CUMUL -> "<=" in - Printf.eprintf "cort_cmp: %s\n%!" Pp.(string_of_ppcmds + Printf.eprintf "sort_cmp: %s\n%!" Pp.(string_of_ppcmds (str"Error: " ++ Univ.pr_uni u1 ++ str op ++ Univ.pr_uni u2 ++ str ":" ++ cut() ++ Univ.pr_universes univ)) end; |