improve FiniteComplete.idr