Set Bullet Behavior "Strict Subproofs".
Ltac entailer_for_load_tac ::= unfold tc_efield; go_lower; entailer'.
Ltac entailer_for_store_tac ::= unfold tc_efield; go_lower; entailer'.

(* Specifications: *)
Lemma body_reader : semax_body Vprog Gprog f_reader reader_spec.