:: WAYBEL22 semantic presentation

begin

theorem :: WAYBEL22:1
for L being ( ( V67() V68() V69() upper-bounded with_infima ) ( non empty V67() V68() V69() upper-bounded with_infima ) Semilattice)
for F being ( ( non empty directed ) ( non empty directed ) Subset of ) holds sup F : ( ( non empty directed ) ( non empty directed ) Subset of ) : ( ( ) ( ) Element of the carrier of (InclPoset (Filt b1 : ( ( V67() V68() V69() upper-bounded with_infima ) ( non empty V67() V68() V69() upper-bounded with_infima ) Semilattice) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) = union F : ( ( non empty directed ) ( non empty directed ) Subset of ) : ( ( ) ( ) set ) ;

theorem :: WAYBEL22:2
for L, S, T being ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset)
for f being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of L : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ,S : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) )
for g being ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b3 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b2 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of S : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ,T : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ) holds g : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b3 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b2 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of b2 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ,b3 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ) * f : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ,b2 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ) : ( ( Function-like ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b3 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) , the carrier of b3 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) is ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b3 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of L : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ,T : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ) ;

theorem :: WAYBEL22:3
for L being ( ( non empty ) ( non empty ) RelStr ) holds id L : ( ( non empty ) ( non empty ) RelStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) is infs-preserving ;

theorem :: WAYBEL22:4
for L being ( ( non empty ) ( non empty ) RelStr ) holds id L : ( ( non empty ) ( non empty ) RelStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty ) ( non empty ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) is directed-sups-preserving ;

theorem :: WAYBEL22:5
for L being ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) holds id L : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) is ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of L : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ,L : ( ( non empty V67() V68() V69() complete ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) Poset) ) ;

theorem :: WAYBEL22:6
for L being ( ( non empty V67() V68() V69() upper-bounded with_infima ) ( non empty V67() V68() V69() upper-bounded with_infima ) Poset) holds InclPoset (Filt L : ( ( non empty V67() V68() V69() upper-bounded with_infima ) ( non empty V67() V68() V69() upper-bounded with_infima ) Poset) ) : ( ( ) ( non empty ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) RelStr ) is ( ( non empty full infs-inheriting directed-sups-inheriting ) ( non empty V67() V68() V69() full meet-inheriting infs-inheriting with_infima filtered-infs-inheriting directed-sups-inheriting ) CLSubFrame of BoolePoset the carrier of L : ( ( non empty V67() V68() V69() upper-bounded with_infima ) ( non empty V67() V68() V69() upper-bounded with_infima ) Poset) : ( ( ) ( non empty ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) ;

registration
let L be ( ( non empty V67() V68() V69() upper-bounded with_infima ) ( non empty V67() V68() V69() upper-bounded with_infima ) Poset) ;
cluster InclPoset (Filt L : ( ( non empty V67() V68() V69() upper-bounded with_infima ) ( non empty V67() V68() V69() upper-bounded with_infima ) RelStr ) ) : ( ( ) ( non empty ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete up-complete /\-complete ) RelStr ) -> strict continuous ;
end;

registration
let L be ( ( non empty V67() V68() V69() upper-bounded ) ( non empty V67() V68() V69() upper-bounded ) Poset) ;
cluster -> non empty for ( ( ) ( ) Element of the carrier of (InclPoset (Filt L : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) : ( ( strict ) ( strict V67() V68() V69() ) RelStr ) : ( ( ) ( ) set ) ) ;
end;

begin

definition
let S be ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ;
let A be ( ( ) ( ) set ) ;
pred A is_FreeGen_set_of S means :: WAYBEL22:def 1
for T being ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset)
for f being ( ( Function-like quasi_total ) ( Relation-like A : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27(A : ( ( ) ( ) set ) ) quasi_total ) Function of A : ( ( ) ( ) set ) , the carrier of T : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) ex h being ( ( ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) CLHomomorphism of S : ( ( ) ( ) set ) ,T : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) st
( h : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ,b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) | A : ( ( ) ( ) set ) : ( ( Function-like ) ( Relation-like A : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like ) Element of bool [: the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) = f : ( ( Function-like quasi_total ) ( Relation-like A : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27(A : ( ( ) ( ) set ) ) quasi_total ) Function of A : ( ( ) ( ) set ) , the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) & ( for h9 being ( ( ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) CLHomomorphism of S : ( ( ) ( ) set ) ,T : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) st h9 : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ,b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) | A : ( ( ) ( ) set ) : ( ( Function-like ) ( Relation-like A : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like ) Element of bool [: the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) = f : ( ( Function-like quasi_total ) ( Relation-like A : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27(A : ( ( ) ( ) set ) ) quasi_total ) Function of A : ( ( ) ( ) set ) , the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) holds
h9 : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ,b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) = h : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ,b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) ) );
end;

theorem :: WAYBEL22:7
for S being ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset)
for A being ( ( ) ( ) set ) st A : ( ( ) ( ) set ) is_FreeGen_set_of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) holds
A : ( ( ) ( ) set ) is ( ( ) ( ) Subset of ) ;

theorem :: WAYBEL22:8
for S being ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset)
for A being ( ( ) ( ) set ) st A : ( ( ) ( ) set ) is_FreeGen_set_of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) holds
for h9 being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ,S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) st h9 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ,b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) | A : ( ( ) ( ) set ) : ( ( Function-like ) ( Relation-like b2 : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like ) Element of bool [: the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) = id A : ( ( ) ( ) set ) : ( ( V27(b2 : ( ( ) ( ) set ) ) ) ( Relation-like b2 : ( ( ) ( ) set ) -defined b2 : ( ( ) ( ) set ) -valued Function-like one-to-one V27(b2 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:b2 : ( ( ) ( ) set ) ,b2 : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) holds
h9 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ,b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) = id S : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ;

begin

definition
let X be ( ( ) ( ) set ) ;
func FixedUltraFilters X -> ( ( ) ( ) Subset-Family of ) equals :: WAYBEL22:def 2
{ (uparrow x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of bool the carrier of (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) where x is ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ex z being ( ( ) ( ) Element of X : ( ( ) ( ) set ) ) st x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = {z : ( ( ) ( ) Element of X : ( ( ) ( ) set ) ) } : ( ( ) ( non empty ) set ) } ;
end;

theorem :: WAYBEL22:9
for X being ( ( ) ( ) set ) holds FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) c= Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ;

theorem :: WAYBEL22:10
for X being ( ( ) ( ) set ) holds card (FixedUltraFilters X : ( ( ) ( ) set ) ) : ( ( ) ( ) Subset-Family of ) : ( ( cardinal ) ( cardinal ) set ) = card X : ( ( ) ( ) set ) : ( ( cardinal ) ( cardinal ) set ) ;

theorem :: WAYBEL22:11
for X being ( ( ) ( ) set )
for F being ( ( non empty filtered upper ) ( non empty filtered upper ) Filter of BoolePoset X : ( ( ) ( ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) holds F : ( ( non empty filtered upper ) ( non empty filtered upper ) Filter of BoolePoset b1 : ( ( ) ( ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) = "\/" ( { ("/\" ( { (uparrow x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty filtered upper ) Element of bool the carrier of (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) where x is ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ex z being ( ( ) ( ) Element of X : ( ( ) ( ) set ) ) st
( x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = {z : ( ( ) ( ) Element of b1 : ( ( ) ( ) set ) ) } : ( ( ) ( non empty ) set ) & z : ( ( ) ( ) Element of b1 : ( ( ) ( ) set ) ) in Y : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) )
}
,(InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) )
)
: ( ( ) ( non empty ) Element of the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) where Y is ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) : Y : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) in F : ( ( non empty filtered upper ) ( non empty filtered upper ) Filter of BoolePoset b1 : ( ( ) ( ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) )
}
,(InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) Element of the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) ;

definition
let X be ( ( ) ( ) set ) ;
let L be ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ;
let f be ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) ;
func f -extension_to_hom -> ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( ) set ) ) means :: WAYBEL22:def 3
for Fi being ( ( ) ( non empty ) Element of ( ( ) ( non empty ) set ) ) holds it : ( ( Function-like quasi_total ) ( Relation-like L : ( ( ) ( ) set ) -defined the carrier of X : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:L : ( ( ) ( ) set ) , the carrier of X : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) . Fi : ( ( ) ( non empty ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of L : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) = "\/" ( { ("/\" ( { (f : ( ( ) ( Relation-like L : ( ( ) ( ) set ) -defined L : ( ( ) ( ) set ) -valued ) Element of bool [:L : ( ( ) ( ) set ) ,L : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) . (uparrow x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of bool the carrier of (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) where x is ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ex z being ( ( ) ( ) Element of X : ( ( ) ( ) set ) ) st
( x : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = {z : ( ( ) ( ) Element of X : ( ( ) ( ) set ) ) } : ( ( ) ( non empty ) set ) & z : ( ( ) ( ) Element of X : ( ( ) ( ) set ) ) in Y : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) )
}
,L : ( ( ) ( ) set ) )
)
: ( ( ) ( ) Element of the carrier of L : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) where Y is ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) : Y : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) in Fi : ( ( ) ( non empty ) Element of ( ( ) ( non empty ) set ) )
}
,L : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of the carrier of L : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ;
end;

theorem :: WAYBEL22:12
for X being ( ( ) ( ) set )
for L being ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset)
for f being ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) holds f : ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) -extension_to_hom : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( non empty ) set ) ) is monotone ;

theorem :: WAYBEL22:13
for X being ( ( ) ( ) set )
for L being ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset)
for f being ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) holds (f : ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) -extension_to_hom) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( non empty ) set ) ) . (Top (InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) Element of the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) = Top L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( ) Element of the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) ;

registration
let X be ( ( ) ( ) set ) ;
let L be ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ;
let f be ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) ;
cluster f : ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Element of bool [:(FixedUltraFilters X : ( ( ) ( ) set ) ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) -extension_to_hom : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( non empty ) set ) ) -> Function-like quasi_total directed-sups-preserving ;
end;

registration
let X be ( ( ) ( ) set ) ;
let L be ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ;
let f be ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) ;
cluster f : ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Element of bool [:(FixedUltraFilters X : ( ( ) ( ) set ) ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) -extension_to_hom : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total directed-sups-preserving ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( non empty ) set ) ) -> Function-like quasi_total infs-preserving ;
end;

theorem :: WAYBEL22:14
for X being ( ( ) ( ) set )
for L being ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset)
for f being ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) holds (f : ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) -extension_to_hom) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total infs-preserving meet-preserving filtered-infs-preserving directed-sups-preserving ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( non empty ) set ) ) | (FixedUltraFilters X : ( ( ) ( ) set ) ) : ( ( ) ( ) Subset-Family of ) : ( ( Function-like ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like ) Element of bool [: the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) = f : ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) ;

theorem :: WAYBEL22:15
for X being ( ( ) ( ) set )
for L being ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset)
for f being ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) )
for h being ( ( ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ,L : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) st h : ( ( ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ,b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) | (FixedUltraFilters X : ( ( ) ( ) set ) ) : ( ( ) ( ) Subset-Family of ) : ( ( Function-like ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like ) Element of bool [: the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) = f : ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) holds
h : ( ( ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total ) CLHomomorphism of InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ,b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) ) = f : ( ( Function-like quasi_total ) ( Relation-like FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) ) quasi_total ) Function of FixedUltraFilters b1 : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) , the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) ) -extension_to_hom : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non empty V67() V68() V69() complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) Poset) : ( ( ) ( non empty ) set ) -valued Function-like V27( the carrier of (InclPoset (Filt (BoolePoset b1 : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) : ( ( ) ( non empty ) set ) ) quasi_total infs-preserving meet-preserving filtered-infs-preserving directed-sups-preserving ) Function of ( ( ) ( non empty ) set ) , ( ( ) ( non empty ) set ) ) ;

theorem :: WAYBEL22:16
for X being ( ( ) ( ) set ) holds FixedUltraFilters X : ( ( ) ( ) set ) : ( ( ) ( ) Subset-Family of ) is_FreeGen_set_of InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ;

theorem :: WAYBEL22:17
for L, M being ( ( V67() V68() V69() with_suprema with_infima complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) LATTICE)
for F, G being ( ( ) ( ) set ) st F : ( ( ) ( ) set ) is_FreeGen_set_of L : ( ( V67() V68() V69() with_suprema with_infima complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) LATTICE) & G : ( ( ) ( ) set ) is_FreeGen_set_of M : ( ( V67() V68() V69() with_suprema with_infima complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) LATTICE) & card F : ( ( ) ( ) set ) : ( ( cardinal ) ( cardinal ) set ) = card G : ( ( ) ( ) set ) : ( ( cardinal ) ( cardinal ) set ) holds
L : ( ( V67() V68() V69() with_suprema with_infima complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) LATTICE) ,M : ( ( V67() V68() V69() with_suprema with_infima complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) LATTICE) are_isomorphic ;

theorem :: WAYBEL22:18
for X being ( ( ) ( ) set )
for L being ( ( V67() V68() V69() with_suprema with_infima complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) LATTICE)
for G being ( ( ) ( ) set ) st G : ( ( ) ( ) set ) is_FreeGen_set_of L : ( ( V67() V68() V69() with_suprema with_infima complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) LATTICE) & card G : ( ( ) ( ) set ) : ( ( cardinal ) ( cardinal ) set ) = card X : ( ( ) ( ) set ) : ( ( cardinal ) ( cardinal ) set ) holds
L : ( ( V67() V68() V69() with_suprema with_infima complete continuous ) ( non empty V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) LATTICE) , InclPoset (Filt (BoolePoset X : ( ( ) ( ) set ) ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() V155() V156() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) ) : ( ( ) ( non empty ) set ) : ( ( strict ) ( non empty strict V67() V68() V69() lower-bounded upper-bounded V149() with_suprema with_infima complete continuous up-complete /\-complete ) RelStr ) are_isomorphic ;