DEFINITION nf2_gen_cast()
TYPE =
       c:C.u:T.t:T.(nf2 c (THead (Flat Cast) u t))P:Prop.P
BODY =
Show proof