Fixpoint iota_formals (i: ident) (tl: typelist) :=
match tl with
| Tcons t tl' => (i,t) :: iota_formals (i+1)%positive tl'
| Tnil => nil
end.
Ltac make_sequential :=
match goal with
| |- @semax _ _ _ _ _ (normal_ret_assert _) => idtac
| |- _ => apply sequential
end.

(* Specifications: *)
Lemma isptr_force_ptr'' : forall p Q,
(isptr p -> Q) ->
(isptr (force_ptr p) -> Q).
Lemma isptr_offset_val'': forall i p Q,
(isptr p -> Q) ->
(isptr (offset_val i p) -> Q).
Lemma ptr_eq_e': forall v1 v2 B,
(v1=v2 -> B) ->
(ptr_eq v1 v2 -> B).
Lemma typed_false_of_bool':
forall x (P: Prop),
((x=false) -> P) ->
(typed_false tint (Val.of_bool x) -> P).
Lemma typed_true_of_bool':
forall x (P: Prop),
((x=true) -> P) ->
(typed_true tint (Val.of_bool x) -> P).