how many celestial objects are included in the category of comets?
(COUNT (AND astronomy.celestial_object (JOIN (R astronomy.celestial_object_category.objects) m.01srj)))