| Branch _ ->
let s' =
match s with
- Cic.Prop ->
- "http://www.cs.unibo.it/helm/schemas/schema-helm#Prop"
- | Cic.Set ->
- "http://www.cs.unibo.it/helm/schemas/schema-helm#Set"
- | Cic.Type ->
- "http://www.cs.unibo.it/helm/schemas/schema-helm#Type"
+ Cic.Prop -> "Prop"
+ | Cic.Set -> "Set"
+ | Cic.Type -> "Type"
in
let kind',depth = !!kind in
(match depth with