let r2s pp_fix_name r =
try
match r with
- | R.Ref (u,R.Ind (_,i)) ->
+ | R.Ref (u,R.Ind (_,i,_)) ->
(match NCicLibrary.get_obj u with
| _,_,_,_, C.Inductive (_,_,itl,_) ->
let _,name,_,_ = List.nth itl i in name
| _ -> assert false)
- | R.Ref (u,R.Con (i,j)) ->
+ | R.Ref (u,R.Con (i,j,_)) ->
(match NCicLibrary.get_obj u with
| _,_,_,_, C.Inductive (_,_,itl,_) ->
let _,_,_,cl = List.nth itl i in
| C.Implicit _ -> F.fprintf f "?"
| C.Meta (n,_) -> F.fprintf f "?%d" n
| C.Sort C.Prop -> F.fprintf f "Prop"
- | C.Sort C.CProp -> F.fprintf f "CProp"
| C.Sort (C.Type []) -> F.fprintf f "IllFormedUniverse"
| C.Sort (C.Type [false, u]) -> F.fprintf f "%s" (NUri.name_of_uri u)
| C.Sort (C.Type [true, u]) -> F.fprintf f "S(%s)" (NUri.name_of_uri u)