DEFINITION pr2_gen_cflat()
TYPE =
       f:F.c:C.v:T.t1:T.t2:T.(pr2 (CHead c (Flat f) v) t1 t2)(pr2 c t1 t2)
BODY =
Show proof