Definition perm_order''_dec : forall (op op' : option permission),
      {Mem.perm_order'' op op'} + {~ Mem.perm_order'' op op'}.Definition perm_eq_dec: forall (op op' : option permission),
      {op = op'} + {~ op = op'}.

Lemma storebytes_decay: forall m loc p vl m', Mem.storebytes m loc p vl = Some m' -> decay m m'.