| Uri u -> UriManager.name_of_uri u
| Sort s -> CicPp.ppsort s
| Term (Cic.Appl ((Cic.Const (uri, _))::_))
| Term (Cic.Appl ((Cic.MutInd (uri, _, _))::_))
| Term (Cic.Appl ((Cic.MutConstruct (uri, _, _, _))::_)) ->
UriManager.name_of_uri uri
| Uri u -> UriManager.name_of_uri u
| Sort s -> CicPp.ppsort s
| Term (Cic.Appl ((Cic.Const (uri, _))::_))
| Term (Cic.Appl ((Cic.MutInd (uri, _, _))::_))
| Term (Cic.Appl ((Cic.MutConstruct (uri, _, _, _))::_)) ->
UriManager.name_of_uri uri