Section semax_ext.
Variable Espec : OracleKind.

Lemma semax_ext' (ext_link: Strings.String.string -> ident) id sig cc A P Q NEP NEQ (fs : funspecs) :
let f := mk_funspec sig cc A P Q NEP NEQ in
In (ext_link  id,f) fs ->
funspecs_norepeat fs ->
(forall n, semax_external (add_funspecs Espec ext_link fs) (fst (split (fst sig)))
(EF_external id (funsig2signature sig cc)) _ P Q n).