Scheme context_ind2 := Minimality for context Sort Prop
  with contextlist_ind2 := Minimality for contextlist Sort Prop.Combined Scheme context_contextlist_ind from context_ind2, contextlist_ind2.

Lemma imm_safe_inv: forall k a m, imm_safe ge e k a m -> match a with | Eloc _ _ _ => True | Eval _ _ => True | _ => invert_expr_prop a m end.