∀[s,t:DSet].  (s × t ∈ DSet)
{ ((Unfold `set_prod` 0) THEN Auto) }
1. s : DSet
2. t : DSet
⊢ IsEqFun(|s| × |t|;λa,b. (a =b b))