| Cic.Variable _
| Cic.CurrentProof _ -> assert false
-let add_aliases_for_objs =
- List.fold_left
- (fun status uri ->
- let obj,_ = CicEnvironment.get_obj CicUniv.oblivion_ugraph uri in
- add_aliases_for_object status uri obj)
+let add_aliases_for_objs status =
+ function
+ `Old uris ->
+ List.fold_left
+ (fun status uri ->
+ let obj,_ = CicEnvironment.get_obj CicUniv.oblivion_ugraph uri in
+ add_aliases_for_object status uri obj) status uris
+ | `New nrefs -> assert false
module OrderedId =
struct