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 /pretyping/patternops.ml | |
| parent | 11d895262e49b4c9f371e38c9e4436cead7001f4 (diff) | |
| parent | ed0c434a05a929a659e43aed80ab7c8179a7daa3 (diff) | |
Merge PR #6148: [api] Another large deprecation, `Nameops` and friends.
Diffstat (limited to 'pretyping/patternops.ml')
| -rw-r--r-- | pretyping/patternops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/patternops.ml b/pretyping/patternops.ml index ee79b54744..4d8c09c50a 100644 --- a/pretyping/patternops.ml +++ b/pretyping/patternops.ml @@ -230,8 +230,8 @@ let error_instantiate_pattern id l = | [_] -> "is" | _ -> "are" in - user_err (str "Cannot substitute the term bound to " ++ pr_id id - ++ strbrk " in pattern because the term refers to " ++ pr_enum pr_id l + user_err (str "Cannot substitute the term bound to " ++ Id.print id + ++ strbrk " in pattern because the term refers to " ++ pr_enum Id.print l ++ strbrk " which " ++ str is ++ strbrk " not bound in the pattern.") let instantiate_pattern env sigma lvar c = |