From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 12 Dec 2008 12:10:40 +0000 (+0000)
Subject: added empty_db, usefull to avoid translating all old coercions to obtain a new coerci... 
X-Git-Tag: make_still_working~4414
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=84e770b58ae08a345087de816aba29bc2fc727ba;p=helm.git

added empty_db, usefull to avoid translating all old coercions to obtain a new coercions database
---

diff --git a/helm/software/components/ng_refiner/nCicCoercion.ml b/helm/software/components/ng_refiner/nCicCoercion.ml
index f2467605f..a4b10296f 100644
--- 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 d01e30a5a..5e60b7685 100644
--- 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 ->