added empty_db, usefull to avoid translating all old coercions to obtain a new coerci...

diff --git a/helm/software/components/ng_refiner/nCicCoercion.ml b/helm/software/components/ng_refiner/nCicCoercion.ml
index f2467605f085731d456816feb325ca2e30e4b56a..a4b10296f2f5f960d7074285abebcc34bccb3cbd 100644 (file)
--- a/helm/software/components/ng_refiner/nCicCoercion.ml
+++ b/helm/software/components/ng_refiner/nCicCoercion.ml
@@ -71,6 +71,9 @@ let db () =
     (DB.empty,DB.empty) (CoercDb.to_list ())
 ;;
 
+let empty_db = (DB.empty,DB.empty) ;;
+
+
 let look_for_coercion (db_src,db_tgt) metasenv subst context infty expty =
   match infty, expty with
   | (NCic.Meta _ | NCic.Appl (NCic.Meta _::_)), 

diff --git a/helm/software/components/ng_refiner/nCicCoercion.mli b/helm/software/components/ng_refiner/nCicCoercion.mli
index d01e30a5ad9d286e3735a24e38ce0cb974cd6087..5e60b7685c49e52a0288ed0ad6a0b244fde1d332 100644 (file)
--- a/helm/software/components/ng_refiner/nCicCoercion.mli
+++ b/helm/software/components/ng_refiner/nCicCoercion.mli
@@ -22,6 +22,8 @@ val index_coercion:
   (* gets the old imperative coercion DB *)
 val db : unit -> db
 
+val empty_db : db
+
 val look_for_coercion:
     db ->
     NCic.metasenv -> NCic.substitution -> NCic.context ->