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