∀[X:Type]. (discrete-groupoid(X) ∈ Groupoid)
{ ProveWfLemma }
1. X : Type
2. x : cat-ob(discrete-cat(X))
3. y : cat-ob(discrete-cat(X))
4. f : cat-arrow(discrete-cat(X)) x y
⊢ ⋅ ∈ cat-arrow(discrete-cat(X)) y x