diff options
Diffstat (limited to 'printing/prettyp.ml')
| -rw-r--r-- | printing/prettyp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index 031db5b0c..89808ef4d 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -635,11 +635,12 @@ let print_opaque_name qid = let print_about_any loc k = match k with | Term ref -> + let rb = Reductionops.ReductionBehaviour.print ref in Dumpglob.add_glob loc ref; pr_infos_list (print_ref false ref :: blankline :: print_name_infos ref @ - Reductionops.ReductionBehaviour.print ref :: + (if Pp.ismt rb then [] else [rb]) @ print_opacity ref @ [hov 0 (str "Expands to: " ++ pr_located_qualid k)]) | Syntactic kn -> |