fixed error in agda program