Definition  source j m (b2:block) (ofs2:Z) : option(block * Z) :=
   if plt 1%positive (Mem.nextblock m)
   then sourceN (Pos.pred (Mem.nextblock m)) j m b2 ofs2
   else None.

Lemma perm_split: forall m b ofs (A B: Prop) k p (SPLIT: (Mem.perm m b ofs k p -> A) /\ (~Mem.perm m b ofs k p -> B)) (P:Prop) (HA: Mem.perm m b ofs k p -> A -> P) (HB: ~Mem.perm m b ofs k p -> B -> P), P.