Instance EqDec_statement: EqDec statement := eq_dec_statement.
Instance EqDec_external_function: EqDec external_function := eq_dec_external_function.

Lemma assert_safe_jsafe: forall {Espec: OracleKind} ge ve te ctl ora jm,
assert_safe Espec ge ve te ctl (construct_rho (filter_genv ge) ve te) (m_phi jm) ->
jm_bupd ora (jsafeN OK_spec ge (level jm) ora (State ve te ctl)) jm.