Instance CompSpecs : compspecs. make_compspecs prog. Defined.
Definition Vprog : varspecs. mk_varspecs prog. Defined.
Definition t_struct_elem := Tstruct _elem noattr.
Definition t_struct_fifo := Tstruct _fifo noattr.
Instance QS: listspec _elem _next (fun _ _ => emp).

Lemma sub_Qsh_Ews: sepalg.join_sub Qsh Ews.
Hint Resolve sub_Qsh_Ews: valid_pointer.