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)).