DEFINITION flt_thead_dx()
TYPE =
       k:K.c:C.u:T.t:T.(flt c t c (THead k u t))
BODY =
Show proof