diff options
author | 2017-06-01 15:44:11 +0200 | |
---|---|---|
committer | 2017-06-01 15:44:11 +0200 | |
commit | 84d49e38a245cbbbe5b6111a4e4d9afcbac2d33b (patch) | |
tree | 0e6bff9cf7c2aaf6967352bd5b5f8c8a2831a570 /tactics | |
parent | 48621da27d52be4825eea271d44bbd7362011dfa (diff) | |
parent | 8ab00e5f272aa8f16d70a00323c57f2d4ef66f03 (diff) |
Merge PR#561: Improving the Name API
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index f4408d403..b443a357a 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2975,7 +2975,7 @@ let specialize (c,lbind) ipat = if occur_meta clause.evd term then user_err (str "Cannot infer an instance for " ++ - pr_name (meta_name clause.evd (List.hd (collect_metas clause.evd term))) ++ + Name.print (meta_name clause.evd (List.hd (collect_metas clause.evd term))) ++ str "."); clause.evd, term in let typ = Retyping.get_type_of env sigma term in |