Ltac simpl_compb := first [ rewrite if_trueb by (apply NPeano.Nat.ltb_lt; rewrite Nat2Z.inj_lt; omega)
                          | rewrite if_falseb by (apply NPeano.Nat.ltb_nlt; rewrite Nat2Z.inj_lt; omega)].

(* Specifications: *)
Lemma body_insert: semax_body Vprog Gprog f_insert insert_spec.
Lemma body_insert: semax_body Vprog Gprog f_insert insert_spec.
Lemma body_insert: semax_body Vprog Gprog f_insert insert_spec.
Lemma body_insert: semax_body Vprog Gprog f_insert insert_spec.
Lemma body_lookup: semax_body Vprog Gprog f_lookup lookup_spec.
Lemma body_turn_left: semax_body Vprog Gprog f_turn_left turn_left_spec.
Lemma body_pushdown_left: semax_body Vprog Gprog f_pushdown_left pushdown_left_spec.
Lemma body_delete: semax_body Vprog Gprog f_delete delete_spec.