INDUCTIVE DEFINITION cnt () [ ]
OF ARITY TProp
BUILT FROM:
     cnt_sort: n:nat.(cnt (TSort n))
   | cnt_head: t:T.(cnt t)k:K.v:T.(cnt (THead k v t))