Definition AccessMap_EFF_FUN (b2:block):
           Z -> perm_kind -> option permission :=
  if plt b2 (Mem.nextblock m2)
  then fun ofs2 k =>
       if (locBlocksSrc nu23 b2)
       then if (pubBlocksSrc nu23 b2)
            then match source (local_of nu12) m1 b2 ofs2 with
                   Some(b1,ofs1) => if pubBlocksSrc nu12 b1
                                    then PMap.get b1 m1'.(Mem.mem_access) ofs1 k
                                    else PMap.get b2 m2.(Mem.mem_access) ofs2 k
                 | None => PMap.get b2 m2.(Mem.mem_access) ofs2 k
                 end
            else PMap.get b2 m2.(Mem.mem_access) ofs2 k
       else match source (as_inj nu12) m1 b2 ofs2 with
                   Some(b1,ofs1) => PMap.get b1 m1'.(Mem.mem_access) ofs1 k
                 | None => match j23 b2 with
                             None => PMap.get b2 m2.(Mem.mem_access) ofs2 k
                           | Some (b3,d3) => None
                           end
(*Was:                            PMap.get b2 m2.(Mem.mem_access) ofs2 k*)

               end
     else fun ofs2 k =>
           match source j12' m1' b2 ofs2 with
              Some(b1,ofs1) => PMap.get b1 m1'.(Mem.mem_access) ofs1 k
            | None => None
          end.

Lemma mkAccessMap_EFF_existsT: forall N (VB : (Mem.nextblock m2 <= N)%positive) (VBJ12': forall b1 b2 delta, j12' b1 = Some (b2,delta) -> (b2 < N)%positive), { M : PMap.t (Z -> perm_kind -> option permission) | fst M = (fun k ofs => None) /\ forall b, PMap.get b M = AccessMap_EFF_FUN b}.