let rec cnt_ind (P: (T \to Prop)) (f: (\forall (n: nat).(P (TSort n)))) (f0:
(\forall (t: T).((cnt t) \to ((P t) \to (\forall (k: K).(\forall (v: T).(P
(THead k v t)))))))) (t: T) (c: cnt t) on c: P t \def match c with [(cnt_sort
let rec cnt_ind (P: (T \to Prop)) (f: (\forall (n: nat).(P (TSort n)))) (f0:
(\forall (t: T).((cnt t) \to ((P t) \to (\forall (k: K).(\forall (v: T).(P
(THead k v t)))))))) (t: T) (c: cnt t) on c: P t \def match c with [(cnt_sort