From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Wed, 12 Jul 2006 17:13:14 +0000 (+0000)
Subject: added uri_of_carr
X-Git-Tag: 0.4.95@7852~1210
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=7f21c77a04c282e789dfbedf202fe90e15a7fde2;p=helm.git

added uri_of_carr
---

diff --git a/components/library/coercDb.ml b/components/library/coercDb.ml
index 25bdab180..3a4dac726 100644
--- a/components/library/coercDb.ml
+++ b/components/library/coercDb.ml
@@ -41,6 +41,10 @@ let coerc_carr_of_term t =
   Term t
 ;;
 
+let uri_of_carr = function
+  | Uri u -> Some u
+  | _ -> None
+
 let rec name_of_carr = function
   | Uri u -> UriManager.name_of_uri u
   | Sort s -> CicPp.ppsort s
diff --git a/components/library/coercDb.mli b/components/library/coercDb.mli
index 95dd96c0b..92d4b7f24 100644
--- a/components/library/coercDb.mli
+++ b/components/library/coercDb.mli
@@ -42,6 +42,7 @@ exception EqCarrOnNonMetaClosed
 val eq_carr: coerc_carr -> coerc_carr -> bool
 val coerc_carr_of_term: Cic.term -> coerc_carr
 val name_of_carr: coerc_carr -> string
+val uri_of_carr: coerc_carr -> UriManager.uri option
 
 val to_list:
   unit ->