to_set_union : ∀ {A} [deceq] s t, @eq (set A) (@ts A (@union A deceq s t)) (@set.union A (@ts A s) (@ts A t))
to_set_empty : ∀ {A}, @eq (set A) (@ts A (@empty A)) (@set.empty A)