- components: composed coercions mus be generated with current base uri

[helm.git] / helm / software / components / library / coercDb.mli

diff --git a/helm/software/components/library/coercDb.mli b/helm/software/components/library/coercDb.mli
index 95dd96c0b18a2fd9a3849a8b707b74b1e1a7e38a..d8a8b0574de506f222da61acfb073f9074723896 100644 (file)
--- a/helm/software/components/library/coercDb.mli
+++ b/helm/software/components/library/coercDb.mli
@@ -36,12 +36,15 @@ type coerc_carr =
   | Uri of UriManager.uri (* const, mutind, mutconstr *)
   | Sort of Cic.sort (* Prop, Set, Type *) 
   | Term of Cic.term (* nothing supported *)
+  | Fun of int
+;;
   
 exception EqCarrNotImplemented of string Lazy.t
 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 ->