p[[i + 1]] - 1}], {i, Length[p] - 1}];

RegionIntersection[m[[t]], m[[i]]], {i, 1, Length[p] - 1},


Method -> Automatic];