:: WAYBEL35 semantic presentation

begin

begin

registration
let L be ( ( ) ( ) RelStr ) ;
cluster Relation-like the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) for ( ( ) ( ) Element of bool [: the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) , the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

registration
let L be ( ( transitive ) ( transitive ) RelStr ) ;
cluster Relation-like the carrier of L : ( ( transitive ) ( transitive ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( transitive ) ( transitive ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) auxiliary(ii) for ( ( ) ( ) Element of bool [: the carrier of L : ( ( transitive ) ( transitive ) RelStr ) : ( ( ) ( ) set ) , the carrier of L : ( ( transitive ) ( transitive ) RelStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

registration
let L be ( ( antisymmetric with_suprema ) ( non empty antisymmetric with_suprema ) RelStr ) ;
cluster Relation-like the carrier of L : ( ( antisymmetric with_suprema ) ( non empty antisymmetric with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( antisymmetric with_suprema ) ( non empty antisymmetric with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iii) for ( ( ) ( ) Element of bool [: the carrier of L : ( ( antisymmetric with_suprema ) ( non empty antisymmetric with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( antisymmetric with_suprema ) ( non empty antisymmetric with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

registration
let L be ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) ;
cluster Relation-like the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) for ( ( ) ( ) Element of bool [: the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

definition
let L be ( ( non empty ) ( non empty ) RelStr ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Relation of ) ;
attr R is extra-order means :: WAYBEL35:def 1
( R : ( ( ) ( ) NetStr over L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) ) is auxiliary(i) & R : ( ( ) ( ) NetStr over L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) ) is auxiliary(ii) & R : ( ( ) ( ) NetStr over L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) ) is auxiliary(iv) );
end;

registration
let L be ( ( non empty ) ( non empty ) RelStr ) ;
cluster extra-order -> auxiliary(i) auxiliary(ii) auxiliary(iv) for ( ( ) ( ) Element of bool [: the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
cluster auxiliary(i) auxiliary(ii) auxiliary(iv) -> extra-order for ( ( ) ( ) Element of bool [: the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

registration
let L be ( ( non empty ) ( non empty ) RelStr ) ;
cluster auxiliary(iii) extra-order -> auxiliary for ( ( ) ( ) Element of bool [: the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
cluster auxiliary -> extra-order for ( ( ) ( ) Element of bool [: the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

registration
let L be ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) ;
cluster Relation-like the carrier of L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued extra-order for ( ( ) ( ) Element of bool [: the carrier of L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

definition
let L be ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) ;
let R be ( ( auxiliary(ii) ) ( Relation-like the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Relation of ) ;
func R -LowerMap -> ( ( Function-like V31( the carrier of L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of (InclPoset (LOWER L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) ) : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict reflexive transitive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of (InclPoset (LOWER L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) ) : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict reflexive transitive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V31( the carrier of L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of (InclPoset (LOWER L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) ) : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict reflexive transitive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) ) ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( non empty ) set ) ) means :: WAYBEL35:def 2
for x being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) holds it : ( ( ) ( Relation-like R : ( ( ) ( ) set ) -defined R : ( ( ) ( ) set ) -valued ) Element of bool [:R : ( ( ) ( ) set ) ,R : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) . x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of (InclPoset (LOWER L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) ) : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict reflexive transitive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) ) = R : ( ( ) ( ) set ) -below x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of bool the carrier of L : ( ( non empty transitive antisymmetric lower-bounded ) ( non empty transitive antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

registration
let L be ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) ;
let R be ( ( auxiliary(ii) ) ( Relation-like the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Relation of ) ;
cluster R : ( ( auxiliary(ii) ) ( Relation-like the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Element of bool [: the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -LowerMap : ( ( Function-like V31( the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of (InclPoset (LOWER L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) ) : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict reflexive transitive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of (InclPoset (LOWER L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) ) : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict reflexive transitive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V31( the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of (InclPoset (LOWER L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) ) : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict reflexive transitive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) ) ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( non empty ) set ) ) -> Function-like V31( the carrier of L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of (InclPoset (LOWER L : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) RelStr ) ) : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict reflexive transitive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) ) monotone ;
end;

definition
let L be ( ( ) ( ) 1-sorted ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ;
mode strict_chain of R -> ( ( ) ( ) Subset of ) means :: WAYBEL35:def 3
for x, y being ( ( ) ( ) set ) st x : ( ( ) ( ) set ) in it : ( ( ) ( Relation-like R : ( ( ) ( ) set ) -defined R : ( ( ) ( ) set ) -valued ) Element of bool [:R : ( ( ) ( ) set ) ,R : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) & y : ( ( ) ( ) set ) in it : ( ( ) ( Relation-like R : ( ( ) ( ) set ) -defined R : ( ( ) ( ) set ) -valued ) Element of bool [:R : ( ( ) ( ) set ) ,R : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) & not [x : ( ( ) ( ) set ) ,y : ( ( ) ( ) set ) ] : ( ( ) ( non empty ) set ) in R : ( ( ) ( ) set ) & not x : ( ( ) ( ) set ) = y : ( ( ) ( ) set ) holds
[y : ( ( ) ( ) set ) ,x : ( ( ) ( ) set ) ] : ( ( ) ( non empty ) set ) in R : ( ( ) ( ) set ) ;
end;

theorem :: WAYBEL35:1
for L being ( ( ) ( ) 1-sorted )
for C being ( ( trivial ) ( trivial ) Subset of )
for R being ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) holds C : ( ( trivial ) ( trivial ) Subset of ) is ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ;

registration
let L be ( ( non empty ) ( non empty ) 1-sorted ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Relation of ) ;
cluster 1 : ( ( ) ( non empty V16() V17() V18() V22() V37() cardinal ) Element of NAT : ( ( ) ( non empty V16() V17() V18() V37() cardinal limit_cardinal ) Element of bool REAL : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ) -element for ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) ;
end;

theorem :: WAYBEL35:2
for L being ( ( antisymmetric ) ( antisymmetric ) RelStr )
for R being ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of )
for C being ( ( ) ( ) strict_chain of R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) )
for x, y being ( ( ) ( ) Element of ( ( ) ( ) set ) ) st x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) ) & y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) ) & x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) < y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) holds
[x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) ;

theorem :: WAYBEL35:3
for L being ( ( antisymmetric ) ( antisymmetric ) RelStr )
for R being ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of )
for x, y being ( ( ) ( ) Element of ( ( ) ( ) set ) ) st [x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) & [y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( antisymmetric ) ( antisymmetric ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) holds
x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) = y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ;

theorem :: WAYBEL35:4
for L being ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr )
for x being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) )
for R being ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of ) holds {(Bottom L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) ) ,x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) } : ( ( ) ( ) set ) is ( ( ) ( ) strict_chain of R : ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of ) ) ;

theorem :: WAYBEL35:5
for L being ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr )
for R being ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of )
for C being ( ( ) ( ) strict_chain of R : ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of ) ) holds C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of ) ) \/ {(Bottom L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) ) } : ( ( ) ( non empty trivial 1 : ( ( ) ( non empty V16() V17() V18() V22() V37() cardinal ) Element of NAT : ( ( ) ( non empty V16() V17() V18() V37() cardinal limit_cardinal ) Element of bool REAL : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ) -element ) set ) : ( ( ) ( ) set ) is ( ( ) ( ) strict_chain of R : ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of ) ) ;

definition
let L be ( ( ) ( ) 1-sorted ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ;
let C be ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ;
attr C is maximal means :: WAYBEL35:def 4
for D being ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) st C : ( ( ) ( Relation-like R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -defined R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -valued ) Element of bool [:R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ,R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) c= D : ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) holds
C : ( ( ) ( Relation-like R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -defined R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -valued ) Element of bool [:R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ,R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) = D : ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ;
end;

definition
let L be ( ( ) ( ) 1-sorted ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ;
let C be ( ( ) ( ) set ) ;
func Strict_Chains (R,C) -> ( ( ) ( ) set ) means :: WAYBEL35:def 5
for x being ( ( ) ( ) set ) holds
( x : ( ( ) ( ) set ) in it : ( ( Function-like V31(R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued Function-like V31(R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) ) ) Element of bool [:R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) iff ( x : ( ( ) ( ) set ) is ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) & C : ( ( ) ( Relation-like R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -defined R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -valued ) Element of bool [:R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ,R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) c= x : ( ( ) ( ) set ) ) );
end;

registration
let L be ( ( ) ( ) 1-sorted ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ;
let C be ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ;
cluster Strict_Chains (R : ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Element of bool [: the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) , the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ,C : ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Element of bool [: the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) , the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ) ) : ( ( ) ( ) set ) -> non empty ;
end;

notation
let R be ( ( Relation-like ) ( Relation-like ) Relation) ;
let X be ( ( ) ( ) set ) ;
synonym X is_inductive_wrt R for X has_upper_Zorn_property_wrt R;
end;

theorem :: WAYBEL35:6
for L being ( ( ) ( ) 1-sorted )
for R being ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of )
for C being ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) holds
( Strict_Chains (R : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,C : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) is_inductive_wrt RelIncl (Strict_Chains (R : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,C : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) )) : ( ( ) ( non empty ) set ) : ( ( V27( Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) ) reflexive antisymmetric transitive ) ( Relation-like Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) -defined Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) -valued V27( Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) ) reflexive antisymmetric transitive ) Element of bool [:(Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) )) : ( ( ) ( non empty ) set ) ,(Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) )) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) & ex D being ( ( ) ( ) set ) st
( D : ( ( ) ( ) set ) is_maximal_in RelIncl (Strict_Chains (R : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,C : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) )) : ( ( ) ( non empty ) set ) : ( ( V27( Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) ) reflexive antisymmetric transitive ) ( Relation-like Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) -defined Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) -valued V27( Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ) : ( ( ) ( non empty ) set ) ) reflexive antisymmetric transitive ) Element of bool [:(Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) )) : ( ( ) ( non empty ) set ) ,(Strict_Chains (b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ,b3 : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) )) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) & C : ( ( ) ( ) strict_chain of b2 : ( ( ) ( Relation-like the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ) c= D : ( ( ) ( ) set ) ) ) ;

theorem :: WAYBEL35:7
for L being ( ( non empty transitive ) ( non empty transitive ) RelStr )
for C being ( ( non empty ) ( non empty ) Subset of )
for X being ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) st ex_sup_of X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty transitive ) ( non empty transitive ) RelStr ) & "\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) : ( ( ) ( non empty ) set ) ) in C : ( ( non empty ) ( non empty ) Subset of ) holds
( ex_sup_of X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) , subrelstr C : ( ( non empty ) ( non empty ) Subset of ) : ( ( strict V134(b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) ) ( non empty strict transitive V134(b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) ) SubRelStr of b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) & "\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) : ( ( ) ( non empty ) set ) ) = "\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,(subrelstr C : ( ( non empty ) ( non empty ) Subset of ) ) : ( ( strict V134(b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) ) ( non empty strict transitive V134(b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) ) SubRelStr of b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) ) : ( ( ) ( ) Element of the carrier of (subrelstr b2 : ( ( non empty ) ( non empty ) Subset of ) ) : ( ( strict V134(b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) ) ( non empty strict transitive V134(b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) ) SubRelStr of b1 : ( ( non empty transitive ) ( non empty transitive ) RelStr ) ) : ( ( ) ( non empty ) set ) ) ) ;

theorem :: WAYBEL35:8
for L being ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset)
for R being ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of )
for C being ( ( non empty ) ( non empty ) strict_chain of R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) )
for X being ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) st ex_sup_of X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) & C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) is maximal holds
ex_sup_of X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) , subrelstr C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) : ( ( strict V134(b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) ) ( non empty strict reflexive transitive antisymmetric V134(b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) ) SubRelStr of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) ;

theorem :: WAYBEL35:9
for L being ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset)
for R being ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of )
for C being ( ( non empty ) ( non empty ) strict_chain of R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) )
for X being ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) st ex_inf_of (uparrow ("\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) )) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty filtered upper ) Element of bool the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) /\ C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) : ( ( ) ( ) Element of bool the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) & ex_sup_of X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) & C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) is maximal holds
( "\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,(subrelstr C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) ) : ( ( strict V134(b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) ) ( non empty strict reflexive transitive antisymmetric V134(b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) ) SubRelStr of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) ) : ( ( ) ( ) Element of the carrier of (subrelstr b3 : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) ) : ( ( strict V134(b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) ) ( non empty strict reflexive transitive antisymmetric V134(b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) ) SubRelStr of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) : ( ( ) ( non empty ) set ) ) = "/\" (((uparrow ("\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) )) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty filtered upper ) Element of bool the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) /\ C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) ) : ( ( ) ( ) Element of bool the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) ) & ( not "\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) ) in C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) implies "\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) ) < "/\" (((uparrow ("\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) )) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty filtered upper ) Element of bool the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) /\ C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) ) : ( ( ) ( ) Element of bool the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) ) ) ) ;

theorem :: WAYBEL35:10
for L being ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset)
for R being ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of )
for C being ( ( non empty ) ( non empty ) strict_chain of R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of ) ) st C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of ) ) is maximal holds
subrelstr C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of ) ) : ( ( strict V134(b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) ) ) ( non empty strict reflexive transitive antisymmetric V134(b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) ) ) SubRelStr of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) ) is complete ;

theorem :: WAYBEL35:11
for L being ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr )
for R being ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of )
for C being ( ( ) ( ) strict_chain of R : ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of ) ) st C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of ) ) is maximal holds
Bottom L : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) ) in C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(iv) ) ( Relation-like the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty antisymmetric lower-bounded ) ( non empty antisymmetric lower-bounded ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(iv) ) Relation of ) ) ;

theorem :: WAYBEL35:12
for L being ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset)
for R being ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Relation of )
for C being ( ( ) ( ) strict_chain of R : ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Relation of ) )
for m being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Relation of ) ) is maximal & m : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) is_maximum_of C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Relation of ) ) & [m : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ,(Top L : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Relation of ) holds
( [(Top L : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) ) ,(Top L : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(ii) ) Relation of ) & m : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = Top L : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric upper-bounded ) ( non empty reflexive transitive antisymmetric upper-bounded ) Poset) : ( ( ) ( non empty ) set ) ) ) ;

definition
let L be ( ( ) ( ) RelStr ) ;
let C be ( ( ) ( ) set ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued ) Relation of ) ;
pred R satisfies_SIC_on C means :: WAYBEL35:def 6
for x, z being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) & z : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) & [x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,z : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( ) ( ) strict_chain of C : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) & x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) <> z : ( ( ) ( ) Element of ( ( ) ( ) set ) ) holds
ex y being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st
( y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) & [x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( ) ( ) strict_chain of C : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) & [y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,z : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( ) ( ) strict_chain of C : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) & x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) <> y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) );
end;

definition
let L be ( ( ) ( ) RelStr ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued ) Relation of ) ;
let C be ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued ) Relation of ) ) ;
attr C is satisfying_SIC means :: WAYBEL35:def 7
R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) satisfies_SIC_on C : ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) ;
end;

theorem :: WAYBEL35:13
for L being ( ( ) ( ) RelStr )
for C being ( ( ) ( ) set )
for R being ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) st R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) satisfies_SIC_on C : ( ( ) ( ) set ) holds
for x, z being ( ( ) ( ) Element of ( ( ) ( ) set ) ) st x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( ) set ) & z : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( ) set ) & [x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,z : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) & x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) <> z : ( ( ) ( ) Element of ( ( ) ( ) set ) ) holds
ex y being ( ( ) ( ) Element of ( ( ) ( ) set ) ) st
( y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( ) set ) & [x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) & [y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,z : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) set ) in R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) & x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) < y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ) ;

registration
let L be ( ( ) ( ) RelStr ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued ) Relation of ) ;
cluster trivial -> satisfying_SIC for ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) 1-sorted ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) ;
end;

registration
let L be ( ( non empty ) ( non empty ) RelStr ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Relation of ) ;
cluster 1 : ( ( ) ( non empty V16() V17() V18() V22() V37() cardinal ) Element of NAT : ( ( ) ( non empty V16() V17() V18() V37() cardinal limit_cardinal ) Element of bool REAL : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ) -element for ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) ;
end;

theorem :: WAYBEL35:14
for L being ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset)
for R being ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of )
for C being ( ( ) ( ) strict_chain of R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of ) ) st C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of ) ) is maximal & R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of ) is satisfying_SI holds
R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of ) satisfies_SIC_on C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( reflexive transitive antisymmetric lower-bounded with_suprema ) ( non empty reflexive transitive antisymmetric lower-bounded with_suprema ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) ) Relation of ) ) ;

definition
let R be ( ( Relation-like ) ( Relation-like ) Relation) ;
let C, y be ( ( ) ( ) set ) ;
func SetBelow (R,C,y) -> ( ( ) ( ) set ) equals :: WAYBEL35:def 8
(R : ( ( non empty ) ( non empty ) RelStr ) " {y : ( ( ) ( ) strict_chain of C : ( ( ) ( Relation-like the carrier of R : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of R : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of R : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of R : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) } : ( ( ) ( non empty trivial 1 : ( ( ) ( non empty V16() V17() V18() V22() V37() cardinal ) Element of NAT : ( ( ) ( non empty V16() V17() V18() V37() cardinal limit_cardinal ) Element of bool REAL : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ) -element ) set ) ) : ( ( ) ( ) set ) /\ C : ( ( ) ( Relation-like the carrier of R : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of R : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of R : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of R : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ;
end;

theorem :: WAYBEL35:15
for R being ( ( Relation-like ) ( Relation-like ) Relation)
for C, x, y being ( ( ) ( ) set ) holds
( x : ( ( ) ( ) set ) in SetBelow (R : ( ( Relation-like ) ( Relation-like ) Relation) ,C : ( ( ) ( ) set ) ,y : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) iff ( [x : ( ( ) ( ) set ) ,y : ( ( ) ( ) set ) ] : ( ( ) ( non empty ) set ) in R : ( ( Relation-like ) ( Relation-like ) Relation) & x : ( ( ) ( ) set ) in C : ( ( ) ( ) set ) ) ) ;

definition
let L be ( ( ) ( ) 1-sorted ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -defined the carrier of L : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) -valued ) Relation of ) ;
let C, y be ( ( ) ( ) set ) ;
:: original: SetBelow
redefine func SetBelow (R,C,y) -> ( ( ) ( ) Subset of ) ;
end;

theorem :: WAYBEL35:16
for L being ( ( ) ( ) RelStr )
for R being ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of )
for C being ( ( ) ( ) set )
for y being ( ( ) ( ) Element of ( ( ) ( ) set ) ) holds SetBelow (R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) ,C : ( ( ) ( ) set ) ,y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ) : ( ( ) ( ) Subset of ) is_<=_than y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ;

theorem :: WAYBEL35:17
for L being ( ( reflexive transitive ) ( reflexive transitive ) RelStr )
for R being ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive ) ( reflexive transitive ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( reflexive transitive ) ( reflexive transitive ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(ii) ) Relation of )
for C being ( ( ) ( ) Subset of )
for x, y being ( ( ) ( ) Element of ( ( ) ( ) set ) ) st x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) <= y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) holds
SetBelow (R : ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive ) ( reflexive transitive ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( reflexive transitive ) ( reflexive transitive ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(ii) ) Relation of ) ,C : ( ( ) ( ) Subset of ) ,x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ) : ( ( ) ( ) Subset of ) c= SetBelow (R : ( ( auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( reflexive transitive ) ( reflexive transitive ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( reflexive transitive ) ( reflexive transitive ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(ii) ) Relation of ) ,C : ( ( ) ( ) Subset of ) ,y : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ) : ( ( ) ( ) Subset of ) ;

theorem :: WAYBEL35:18
for L being ( ( ) ( ) RelStr )
for R being ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of )
for C being ( ( ) ( ) set )
for x being ( ( ) ( ) Element of ( ( ) ( ) set ) ) st x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) in C : ( ( ) ( ) set ) & [x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ,x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ] : ( ( ) ( non empty ) Element of [: the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) , the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) :] : ( ( ) ( non empty ) set ) ) in R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) & ex_sup_of SetBelow (R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) ,C : ( ( ) ( ) set ) ,x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) ) : ( ( ) ( ) Subset of ) ,L : ( ( ) ( ) RelStr ) holds
x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) = sup (SetBelow (R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) -valued auxiliary(i) ) Relation of ) ,C : ( ( ) ( ) set ) ,x : ( ( ) ( ) Element of ( ( ) ( ) set ) ) )) : ( ( ) ( ) Subset of ) : ( ( ) ( ) Element of the carrier of b1 : ( ( ) ( ) RelStr ) : ( ( ) ( ) set ) ) ;

definition
let L be ( ( ) ( ) RelStr ) ;
let C be ( ( ) ( ) Subset of ) ;
attr C is sup-closed means :: WAYBEL35:def 9
for X being ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) st ex_sup_of X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty ) ( non empty ) RelStr ) holds
"\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,L : ( ( non empty ) ( non empty ) RelStr ) ) : ( ( ) ( ) Element of the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) ) = "\/" (X : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ,(subrelstr C : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( strict V134(L : ( ( non empty ) ( non empty ) RelStr ) ) ) ( strict V134(L : ( ( non empty ) ( non empty ) RelStr ) ) ) SubRelStr of L : ( ( non empty ) ( non empty ) RelStr ) ) ) : ( ( ) ( ) Element of the carrier of (subrelstr C : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( strict V134(L : ( ( non empty ) ( non empty ) RelStr ) ) ) ( strict V134(L : ( ( non empty ) ( non empty ) RelStr ) ) ) SubRelStr of L : ( ( non empty ) ( non empty ) RelStr ) ) : ( ( ) ( ) set ) ) ;
end;

theorem :: WAYBEL35:19
for L being ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset)
for R being ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of )
for C being ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) )
for p, q being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st p : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) & q : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) & p : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) < q : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) holds
ex y being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st
( p : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) < y : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) & [y : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ,q : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ] : ( ( ) ( non empty ) Element of [: the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) in R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) & y : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = sup (SetBelow (R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ,C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) ,y : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) )) : ( ( ) ( ) Subset of ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) ) ) ;

theorem :: WAYBEL35:20
for L being ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset)
for R being ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of )
for C being ( ( non empty ) ( non empty ) strict_chain of R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) st C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) is sup-closed & ( for c being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) holds
ex_sup_of SetBelow (R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ,C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) ,c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Subset of ) ,L : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) ) & R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) satisfies_SIC_on C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) holds
for c being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) holds
c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = sup (SetBelow (R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ,C : ( ( non empty ) ( non empty ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) ,c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) )) : ( ( ) ( ) Subset of ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric lower-bounded ) ( non empty reflexive transitive antisymmetric lower-bounded ) Poset) : ( ( ) ( non empty ) set ) ) ;

theorem :: WAYBEL35:21
for L being ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr )
for R being ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of )
for C being ( ( ) ( ) strict_chain of R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of ) ) st ( for c being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of ) ) holds
( ex_sup_of SetBelow (R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of ) ,C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of ) ) ,c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Subset of ) ,L : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) & c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = sup (SetBelow (R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of ) ,C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of ) ) ,c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) )) : ( ( ) ( ) Subset of ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) ) ) ) holds
R : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of ) satisfies_SIC_on C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive antisymmetric ) ( non empty reflexive antisymmetric ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) ) Relation of ) ) ;

definition
let L be ( ( non empty ) ( non empty ) RelStr ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Relation of ) ;
let C be ( ( ) ( ) set ) ;
func SupBelow (R,C) -> ( ( ) ( ) set ) means :: WAYBEL35:def 10
for y being ( ( ) ( ) set ) holds
( y : ( ( ) ( ) set ) in it : ( ( Function-like V31(R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V31(R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) ) ) Element of bool [:R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) iff y : ( ( ) ( ) set ) = sup (SetBelow (R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ,C : ( ( ) ( ) strict_chain of R : ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Element of bool [: the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) ,y : ( ( ) ( ) set ) )) : ( ( ) ( ) Subset of ) : ( ( ) ( ) Element of the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) ) );
end;

definition
let L be ( ( non empty ) ( non empty ) RelStr ) ;
let R be ( ( ) ( Relation-like the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued ) Relation of ) ;
let C be ( ( ) ( ) set ) ;
:: original: SupBelow
redefine func SupBelow (R,C) -> ( ( ) ( ) Subset of ) ;
end;

theorem :: WAYBEL35:22
for L being ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr )
for R being ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of )
for C being ( ( ) ( ) strict_chain of R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) st ( for c being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) holds ex_sup_of SetBelow (R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ,C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) ,c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Subset of ) ,L : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) ) holds
SupBelow (R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ,C : ( ( ) ( ) strict_chain of b2 : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) ) : ( ( ) ( ) Subset of ) is ( ( ) ( ) strict_chain of R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive ) ( non empty reflexive transitive ) RelStr ) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ) ;

theorem :: WAYBEL35:23
for L being ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset)
for R being ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of )
for C being ( ( ) ( ) Subset of ) st ( for c being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) holds ex_sup_of SetBelow (R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ,C : ( ( ) ( ) Subset of ) ,c : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Subset of ) ,L : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) ) holds
SupBelow (R : ( ( auxiliary(i) auxiliary(ii) ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric ) ( non empty reflexive transitive antisymmetric ) Poset) : ( ( ) ( non empty ) set ) -valued auxiliary(i) auxiliary(ii) ) Relation of ) ,C : ( ( ) ( ) Subset of ) ) : ( ( ) ( ) Subset of ) is sup-closed ;

theorem :: WAYBEL35:24
for L being ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset)
for R being ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of )
for C being ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) )
for d being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st d : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in SupBelow (R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ,C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) ) : ( ( ) ( ) Subset of ) holds
d : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = "\/" ( { b : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) where b is ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( b : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in SupBelow (R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ,C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) ) : ( ( ) ( ) Subset of ) & [b : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ,d : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ] : ( ( ) ( non empty ) Element of [: the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) in R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) } ,L : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) ) ;

theorem :: WAYBEL35:25
for L being ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset)
for R being ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of )
for C being ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) holds R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) satisfies_SIC_on SupBelow (R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ,C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) ) : ( ( ) ( ) Subset of ) ;

theorem :: WAYBEL35:26
for L being ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset)
for R being ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of )
for C being ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) )
for a, b being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st a : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) & b : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) & a : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) < b : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) holds
ex d being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st
( d : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in SupBelow (R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ,C : ( ( satisfying_SIC ) ( satisfying_SIC ) strict_chain of b2 : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) ) : ( ( ) ( ) Subset of ) & a : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) < d : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) & [d : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ,b : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ] : ( ( ) ( non empty ) Element of [: the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) in R : ( ( extra-order ) ( Relation-like the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty reflexive transitive antisymmetric complete ) ( non empty reflexive transitive antisymmetric lower-bounded upper-bounded V133() up-complete /\-complete with_suprema with_infima complete ) Poset) : ( ( ) ( non empty ) set ) -valued transitive auxiliary(i) auxiliary(ii) auxiliary(iv) extra-order ) Relation of ) ) ;