Opaque Mem.storebytes.

Lemma setPermBlock_var_eq:
forall f bl1 bl2 ofsl b1 b2 ofs pmap pmap' p
(Hf: f b1 = Some b2)
(Hfl: f bl1 = Some bl2)
(Hinjective: forall b1 b1' b2 : block,
f b1 = Some b2 -> f b1' = Some b2 -> b1 = b1')
(Hperm: pmap # b1 ofs = pmap' # b2 ofs),
(setPermBlock_var p bl1 ofsl pmap
lksize.LKSIZE_nat) # b1 ofs =
(setPermBlock_var p bl2 ofsl pmap'
lksize.LKSIZE_nat) # b2 ofs.