set L = Net-Str a,b;
thus
Net-Str a,b is reflexive
:: thesis: ( Net-Str a,b is transitive & Net-Str a,b is directed & Net-Str a,b is antisymmetric )
thus
Net-Str a,b is transitive
:: thesis: ( Net-Str a,b is directed & Net-Str a,b is antisymmetric )
thus
Net-Str a,b is directed
:: thesis: Net-Str a,b is antisymmetric proof
[#] (Net-Str a,b) is
directed
proof
let x,
y be
Element of
(Net-Str a,b);
:: according to WAYBEL_0:def 1 :: thesis: ( not x in [#] (Net-Str a,b) or not y in [#] (Net-Str a,b) or ex b1 being Element of the carrier of (Net-Str a,b) st
( b1 in [#] (Net-Str a,b) & x <= b1 & y <= b1 ) )
assume
(
x in [#] (Net-Str a,b) &
y in [#] (Net-Str a,b) )
;
:: thesis: ex b1 being Element of the carrier of (Net-Str a,b) st
( b1 in [#] (Net-Str a,b) & x <= b1 & y <= b1 )
reconsider x' =
x,
y' =
y as
Element of
NAT by Def3;
set z' =
x' + y';
reconsider z =
x' + y' as
Element of
(Net-Str a,b) by Def3;
reconsider z =
z as
Element of
(Net-Str a,b) ;
take
z
;
:: thesis: ( z in [#] (Net-Str a,b) & x <= z & y <= z )
(
z in the
carrier of
(Net-Str a,b) &
x' <= x' + y' &
y' <= x' + y' )
by NAT_1:11;
hence
(
z in [#] (Net-Str a,b) &
x <= z &
y <= z )
by Def3;
:: thesis: verum
end;
hence
Net-Str a,
b is
directed
by WAYBEL_0:def 6;
:: thesis: verum
end;
thus
Net-Str a,b is antisymmetric
:: thesis: verum