diff options
| author | Maxime Dénès | 2017-11-16 16:06:17 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-16 16:06:17 +0100 |
| commit | 0786ae361cb5f134e91d790d6c096f84535b19ec (patch) | |
| tree | c4aeb3ac1a9c750ecb8e5d79abf218fecab2f774 /printing/printer.ml | |
| parent | 11d895262e49b4c9f371e38c9e4436cead7001f4 (diff) | |
| parent | ed0c434a05a929a659e43aed80ab7c8179a7daa3 (diff) | |
Merge PR #6148: [api] Another large deprecation, `Nameops` and friends.
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 751e91cf05..075b03b7d1 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -478,7 +478,7 @@ let pr_predicate pr_elt (b, elts) = if List.is_empty elts then str"none" else pr_elts let pr_cpred p = pr_predicate (pr_constant (Global.env())) (Cpred.elements p) -let pr_idpred p = pr_predicate Nameops.pr_id (Id.Pred.elements p) +let pr_idpred p = pr_predicate Id.print (Id.Pred.elements p) let pr_transparent_state (ids, csts) = hv 0 (str"VARIABLES: " ++ pr_idpred ids ++ fnl () ++ |