(true, library, true);
]
in
- let try_pass (fresh_instances, (_, aliases, universe), use_coercions) =
- CoercDb.use_coercions := use_coercions;
+ let try_pass (fresh_instances, (_, aliases, universe), insert_coercions) =
+ CicRefine.insert_coercions := insert_coercions;
f ~fresh_instances ~aliases ~universe thing
in
let set_aliases (instances,(use_mono_aliases,_,_),_) (_, user_asked as res) =
aux (errors @ [newerrors]) tl)
| [] -> assert false
in
- let saved_use_coercions = !CoercDb.use_coercions in
+ let saved_insert_coercions = !CicRefine.insert_coercions in
try
let res = aux [] passes in
- CoercDb.use_coercions := saved_use_coercions;
+ CicRefine.insert_coercions := saved_insert_coercions;
res
with exn ->
- CoercDb.use_coercions := saved_use_coercions;
+ CicRefine.insert_coercions := saved_insert_coercions;
raise exn
type disambiguator_thing =