Local Open Scope logic.

Lemma semax_func_cons_ext_vacuous:
forall {Espec: OracleKind} (V : varspecs) (G : funspecs) (C : compspecs) ge
(fs : list (ident * Clight.fundef)) (id : ident) (ef : external_function)
(argsig : typelist) (retsig : type)
(G' : funspecs) cc b,
(id_in_list id (map fst fs)) = false ->
ef_sig ef =
{|
sig_args := typlist_of_typelist (type_of_params (arglist 1 argsig));
sig_res := opttyp_of_type retsig;
sig_cc := cc_of_fundef (External ef argsig retsig cc) |} ->
Definition logical_or tid e1 e2 :=
(Sifthenelse e1
(Sset tid (Econst_int (Int.repr 1) tint))
(Ssequence
(Sset tid (Ecast e2 tbool))
(Sset tid (Ecast (Etempvar tid tint (*tbool*)) tint)))).