with
Not_found ->
let params =
- let obj = CicEnvironment.get_obj uri in
+ let obj,_ = CicEnvironment.get_obj uri CicUniv.empty_ugraph in
(match obj with
C.Constant _ -> raise ReferenceToConstant
| C.Variable (_,_,_,params) -> params
| C.Appl _ -> assert false
| C.Const (uri,exp_named_subst') ->
let params =
- let obj = CicEnvironment.get_obj uri in
+ let obj,_ = CicEnvironment.get_obj uri CicUniv.empty_ugraph in
(match obj with
C.Constant (_,_,_,params) -> params
| C.Variable _ -> raise ReferenceToVariable
C.Const (uri,exp_named_subst'')
| C.MutInd (uri,typeno,exp_named_subst') ->
let params =
- let obj = CicEnvironment.get_obj uri in
+ let obj,_ = CicEnvironment.get_obj uri CicUniv.empty_ugraph in
(match obj with
C.Constant _ -> raise ReferenceToConstant
| C.Variable _ -> raise ReferenceToVariable
C.MutInd (uri,typeno,exp_named_subst'')
| C.MutConstruct (uri,typeno,consno,exp_named_subst') ->
let params =
- let obj = CicEnvironment.get_obj uri in
+ let obj,_ = CicEnvironment.get_obj uri CicUniv.empty_ugraph in
(match obj with
C.Constant _ -> raise ReferenceToConstant
| C.Variable _ -> raise ReferenceToVariable