From 84e770b58ae08a345087de816aba29bc2fc727ba Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 12 Dec 2008 12:10:40 +0000 Subject: [PATCH] added empty_db, usefull to avoid translating all old coercions to obtain a new coercions database --- helm/software/components/ng_refiner/nCicCoercion.ml | 3 +++ helm/software/components/ng_refiner/nCicCoercion.mli | 2 ++ 2 files changed, 5 insertions(+) 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 -> -- 2.39.2