diff options
| author |  Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-02-25 18:44:00 +0100 |
|---|---|---|
| committer | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-02-28 17:26:48 +0100 |
| commit | d99fe37fc4b348fd86ac836cbe4166ef28ed34c2 (patch) | |
| tree | ff40e4dad41decdd629fb803f5006dfd066f2306 /printing | |
| parent | feb82c906b62ab0f94bf57d28e10d1307a65f05f (diff) | |
Fix output test-suite 'simpl tactic' -> 'reduction tactics'
Diffstat (limited to 'printing')
| -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 -> |