From 7f21c77a04c282e789dfbedf202fe90e15a7fde2 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Wed, 12 Jul 2006 17:13:14 +0000 Subject: [PATCH] added uri_of_carr --- components/library/coercDb.ml | 4 ++++ components/library/coercDb.mli | 1 + 2 files changed, 5 insertions(+) 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 -> -- 2.39.2