- match fst(CicEnvironment.get_cooked_obj uri CicUniv.empty_ugraph) with
- Cic.Constant (_,Some bo,ty,_) -> [],bo,ty
- | Cic.CurrentProof (_,metasenv,bo,ty,_) -> metasenv,bo,ty
+ match fst(CicEnvironment.get_cooked_obj CicUniv.empty_ugraph uri ) with
+ Cic.Constant (_,Some bo,ty,_,_) -> [],bo,ty
+ | Cic.CurrentProof (_,metasenv,bo,ty,_,_) -> metasenv,bo,ty