A model for diagenesis in proto-planetary bodies