let p be RelStr-yielding ManySortedSet of ; :: thesis: ( not product p is empty & product p is quasi_ordered & product p is Dickson & product p is antisymmetric )
A1:
product p = RelStr(# {{} },(id {{} }) #)
by YELLOW_1:26;
set pp = product p;
set cpp = the carrier of (product p);
set ipp = the InternalRel of (product p);
A2:
the InternalRel of (product p) = id {{} }
by YELLOW_1:26;
thus
not product p is empty
by YELLOW_1:26; :: thesis: ( product p is quasi_ordered & product p is Dickson & product p is antisymmetric )
thus
product p is quasi_ordered
:: thesis: ( product p is Dickson & product p is antisymmetric )proof
thus
product p is
reflexive
by YELLOW_1:26;
:: according to DICKSON:def 3 :: thesis: product p is transitive
let x,
y,
z be
set ;
:: according to RELAT_2:def 8,
ORDERS_2:def 5 :: thesis: ( not x in the carrier of (product p) or not y in the carrier of (product p) or not z in the carrier of (product p) or not [x,y] in the InternalRel of (product p) or not [y,z] in the InternalRel of (product p) or [x,z] in the InternalRel of (product p) )
assume
(
x in the
carrier of
(product p) &
y in the
carrier of
(product p) &
z in the
carrier of
(product p) &
[x,y] in the
InternalRel of
(product p) &
[y,z] in the
InternalRel of
(product p) )
;
:: thesis: [x,z] in the InternalRel of (product p)
hence
[x,z] in the
InternalRel of
(product p)
by A2, RELAT_1:def 10;
:: thesis: verum
end;
thus
product p is Dickson
:: thesis: product p is antisymmetric
thus
product p is antisymmetric
by YELLOW_1:26; :: thesis: verum