db_src, db_tgt
;;
-let db () =
+let index_old_db odb db =
List.fold_left
(fun db (_,tgt,clist) ->
List.fold_left
(fun db (uri,_,arg) ->
+ try
let c=fst (OCic2NCic.convert_term uri (CicUtil.term_of_uri uri)) in
let arity = match tgt with | CoercDb.Fun i -> i | _ -> 0 in
let src, tgt =
NCicPp.ppterm ~metasenv ~subst:[] ~context:[] t);
assert false
in
- index_coercion db c src tgt arity arg)
+ index_coercion db c src tgt arity arg
+ with
+ | NCicEnvironment.BadDependency _
+ | NCicTypeChecker.TypeCheckerFailure _ -> db)
db clist)
- (DB.empty,DB.empty) (CoercDb.to_list ())
+ db (CoercDb.to_list odb)
;;
let empty_db = (DB.empty,DB.empty) ;;