copulating is for procreation