Lemma resource_decay_lock_coherence {b phi phi' lset m} : resource_decay b phi phi' -> lockSet_block_bound lset b -> (forall l p, AMap.find l lset = Some (Some p) -> level p = level phi) -> lock_coherence lset phi m -> lock_coherence (AMap.map (Coqlib.option_map (age_to (level phi'))) lset) phi' m.