function-args.el (fa-tvar->cons): simplify

* function-args.el (fa-tfunction->fal): simplify
  (fa-throw-unless-eq): new function