(match s with
C.Prop -> "Prop"
| C.Set -> "Set"
- | C.Type -> "Type"
+ | C.Type _ -> "Type" (* TASSI: universe is not explicit *)
| C.CProp -> "CProp"
)
- | C.Implicit -> "?"
+ | C.Implicit _ -> "?"
| C.Prod (b,s,t) ->
(match b with
C.Name n -> "(" ^ n ^ ":" ^ pp s l ^ ")" ^ pp t ((Some b)::l)