DEFINITION F_rec()
TYPE =
       ΠP:F→Set.(P Appl)→(P Cast)→Πf:F.(P f)
BODY =
Show proof