]> matita.cs.unibo.it Git - helm.git/commitdiff
added uri_of_carr
authorStefano Zacchiroli <zack@upsilon.cc>
Wed, 12 Jul 2006 17:13:14 +0000 (17:13 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Wed, 12 Jul 2006 17:13:14 +0000 (17:13 +0000)
helm/software/components/library/coercDb.ml
helm/software/components/library/coercDb.mli

index 25bdab18005033147bc31287db0fbfb8ba571f83..3a4dac726783e0e6584a8a772efc8d7f1c7aaaa4 100644 (file)
@@ -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
index 95dd96c0b18a2fd9a3849a8b707b74b1e1a7e38a..92d4b7f2484e231e1547a62899fe094ece785c79 100644 (file)
@@ -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 ->