Instance CompSpecs : compspecs.Definition Vprog : varspecs.Definition t_struct_elem := Tstruct _elem noattr.Definition t_struct_fifo := Tstruct _fifo noattr.Instance QS: listspec _elem _next (fun sh => malloc_token Ews t_struct_elem).

(* Specifications: *)
Lemma isnil: forall {T: Type} (s: list T), {s=nil}+{s<>nil}.
Lemma body_surely_malloc: semax_body Vprog Gprog f_surely_malloc surely_malloc_spec.
Lemma body_fifo_empty: semax_body Vprog Gprog f_fifo_empty fifo_empty_spec.
Lemma body_fifo_new: semax_body Vprog Gprog f_fifo_new fifo_new_spec.
Lemma body_fifo_put: semax_body Vprog Gprog f_fifo_put fifo_put_spec.
Lemma body_fifo_get: semax_body Vprog Gprog f_fifo_get fifo_get_spec.
Lemma body_make_elem: semax_body Vprog Gprog f_make_elem make_elem_spec.
Lemma body_main: semax_body Vprog Gprog f_main main_spec.
Lemma prog_correct: semax_prog prog Vprog Gprog.