Definition funcs := ((_fifo_new, Internal f_fifo_new) ::
   (_fifo_put, Internal f_fifo_put) ::
   (_fifo_empty, Internal f_fifo_empty) ::
   (_fifo_get, Internal f_fifo_get) :: nil).

Lemma funcs_correct: forall (Espec: OracleKind), semax_func V G funcs (map (fun f => f fifo) (Gexport ++ Gintern)).