theorem clt_head:
\forall (k: K).(\forall (c: C).(\forall (u: T).(clt c (CHead c k u))))
\def
\lambda (_: K).(\lambda (c: C).(\lambda (u: T).(eq_ind_r nat (plus (cweight
c) O) (\lambda (n: nat).(lt n (plus (cweight c) (tweight u))))
theorem clt_head:
\forall (k: K).(\forall (c: C).(\forall (u: T).(clt c (CHead c k u))))
\def
\lambda (_: K).(\lambda (c: C).(\lambda (u: T).(eq_ind_r nat (plus (cweight
c) O) (\lambda (n: nat).(lt n (plus (cweight c) (tweight u))))