Cut Predicate In Prolog