let I be non empty set ; :: thesis: for A being non-Empty TopStruct-yielding ManySortedSet of I
for x being Point of (Segre_Product A) holds x is ManySortedSet of I
let A be non-Empty TopStruct-yielding ManySortedSet of I; :: thesis: for x being Point of (Segre_Product A) holds x is ManySortedSet of I
let x be Point of (Segre_Product A); :: thesis: x is ManySortedSet of I
ex f being Function st
( x = f & dom f = dom (Carrier A) & ( for a being object st a in dom (Carrier A) holds
f . a in (Carrier A) . a ) ) by CARD_3:def 5;
hence x is ManySortedSet of I ; :: thesis: verum