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