(* The following two lemmas is not now used. but after deep embedded hoare logic (SL_as_Logic) is ported, the frame does not need to be quantified in the semantic definition of semax. Then, these two lemmas can replace the other two afterwards. *)

Lemma _guard_tc_environ:
forall {Espec: OracleKind} ge Delta' Delta (F P: environ -> pred rmap) f k,
tycontext_sub Delta Delta' ->
_guard Espec ge Delta' (fun rho => F rho * P rho) f k = _guard Espec ge Delta' (fun rho => F rho * (!! typecheck_environ Delta rho && P rho)) f k.