+ let index_obj =
+ match obj_kind with
+ NCic.Constant (_,_,_,_,(_,`Example,_))
+ | NCic.Fixpoint (_,_,(_,`Example,_)) -> false
+ | _ -> true
+ in
+ let status =
+ if index_obj then
+ let status = index_obj_for_auto status obj in
+ index_eq_for_auto status uri
+ else
+ status in