Ltac refold_right_sepcon R :=
 match R with
 | @sepcon mpred _ _ ?R1 ?R' => let S := refold_right_sepcon R' in constr: (R1 :: S )
 | _ => constr:(R :: nil)
 end.Definition func_ptr' f v := func_ptr f v && emp.

simpl in H0; unfold Vfalse in H0. inv H0. inv H2. + unfold Val.of_bool in H. destruct (Int.eq i j); inv H. Qed. Lemma bool_val_notbool_p