diff options
| -rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index f14edec639..34110f96cf 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -238,7 +238,9 @@ let ppnamedcontextval e = let ppaucontext auctx = let nas = AUContext.names auctx in let prlev l = match Level.var_index l with - | Some n -> Name.print nas.(n) + | Some n -> (match nas.(n) with + | Anonymous -> prlev l + | Name id -> Id.print id) | None -> prlev l in pp (pr_universe_context prlev (AUContext.repr auctx)) |