begin
definition
let IT be ( ( ) ( )
RelStr ) ;
end;
begin
begin
definition
let P,
Q be ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ;
func ConRelat (
P,
Q)
-> ( ( ) (
Relation-like ConFuncs (
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ,
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ) : ( ( non
empty ) ( non
empty )
set )
-defined ConFuncs (
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ,
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ) : ( ( non
empty ) ( non
empty )
set )
-valued )
Relation of )
means
for
x,
y being ( ( ) ( )
set ) holds
(
[x : ( ( ) ( ) set ) ,y : ( ( ) ( ) set ) ] : ( ( ) ( )
set )
in it : ( ( ) (
Relation-like Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr )
-defined Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr )
-valued )
Element of
K19(
K20(
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ,
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ) : ( ( ) (
Relation-like )
set ) ) : ( ( ) ( )
set ) ) iff (
x : ( ( ) ( )
set )
in ConFuncs (
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ,
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ) : ( ( non
empty ) ( non
empty )
set ) &
y : ( ( ) ( )
set )
in ConFuncs (
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ,
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) ) : ( ( non
empty ) ( non
empty )
set ) & ex
f,
g being ( (
Function-like quasi_total ) (
Relation-like the
carrier of
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) : ( ( ) ( non
empty )
set )
-defined the
carrier of
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
RelStr ) : ( ( ) ( non
empty )
set )
-valued Function-like quasi_total )
Function of ( ( ) ( non
empty )
set ) , ( ( ) ( non
empty )
set ) ) st
(
x : ( ( ) ( )
set )
= f : ( (
Function-like quasi_total ) (
Relation-like the
carrier of
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-defined the
carrier of
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-valued Function-like quasi_total )
Function of ( ( ) ( non
empty )
set ) , ( ( ) ( non
empty )
set ) ) &
y : ( ( ) ( )
set )
= g : ( (
Function-like quasi_total ) (
Relation-like the
carrier of
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-defined the
carrier of
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-valued Function-like quasi_total )
Function of ( ( ) ( non
empty )
set ) , ( ( ) ( non
empty )
set ) ) &
f : ( (
Function-like quasi_total ) (
Relation-like the
carrier of
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-defined the
carrier of
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-valued Function-like quasi_total )
Function of ( ( ) ( non
empty )
set ) , ( ( ) ( non
empty )
set ) )
<= g : ( (
Function-like quasi_total ) (
Relation-like the
carrier of
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-defined the
carrier of
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-valued Function-like quasi_total )
Function of ( ( ) ( non
empty )
set ) , ( ( ) ( non
empty )
set ) ) ) ) );
end;
theorem
for
P,
Q being ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset)
for
F being ( ( non
empty strongly_connected ) ( non
empty strongly_connected )
Chain of
ConPoset (
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ,
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ) : ( ( non
empty strict reflexive transitive antisymmetric ) ( non
empty strict V55()
reflexive transitive antisymmetric )
Poset) ) holds
(
ex_sup_of F : ( ( non
empty strongly_connected ) ( non
empty strongly_connected )
Chain of
ConPoset (
b1 : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ,
b2 : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ) : ( ( non
empty strict reflexive transitive antisymmetric ) ( non
empty strict V55()
reflexive transitive antisymmetric )
Poset) ) ,
ConPoset (
P : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ,
Q : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ) : ( ( non
empty strict reflexive transitive antisymmetric ) ( non
empty strict V55()
reflexive transitive antisymmetric )
Poset) &
sup_func F : ( ( non
empty strongly_connected ) ( non
empty strongly_connected )
Chain of
ConPoset (
b1 : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ,
b2 : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ) : ( ( non
empty strict reflexive transitive antisymmetric ) ( non
empty strict V55()
reflexive transitive antisymmetric )
Poset) ) : ( (
Function-like quasi_total ) (
Relation-like the
carrier of
b1 : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-defined the
carrier of
b2 : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) : ( ( ) ( non
empty )
set )
-valued Function-like quasi_total monotone continuous )
Function of ( ( ) ( non
empty )
set ) , ( ( ) ( non
empty )
set ) )
= "\/" (
F : ( ( non
empty strongly_connected ) ( non
empty strongly_connected )
Chain of
ConPoset (
b1 : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ,
b2 : ( ( non
empty strict reflexive transitive antisymmetric chain-complete ) ( non
empty strict V55()
reflexive transitive antisymmetric lower-bounded chain-complete )
Poset) ) : ( ( non
empty strict reflexive transitive antisymmetric ) ( non
empty strict V55()
reflexive transitive antisymmetric )
Poset) ) ,
(ConPoset (P : ( ( non empty strict reflexive transitive antisymmetric chain-complete ) ( non empty strict V55() reflexive transitive antisymmetric lower-bounded chain-complete ) Poset) ,Q : ( ( non empty strict reflexive transitive antisymmetric chain-complete ) ( non empty strict V55() reflexive transitive antisymmetric lower-bounded chain-complete ) Poset) )) : ( ( non
empty strict reflexive transitive antisymmetric ) ( non
empty strict V55()
reflexive transitive antisymmetric )
Poset) ) : ( ( ) ( )
Element of the
carrier of
(ConPoset (b1 : ( ( non empty strict reflexive transitive antisymmetric chain-complete ) ( non empty strict V55() reflexive transitive antisymmetric lower-bounded chain-complete ) Poset) ,b2 : ( ( non empty strict reflexive transitive antisymmetric chain-complete ) ( non empty strict V55() reflexive transitive antisymmetric lower-bounded chain-complete ) Poset) )) : ( ( non
empty strict reflexive transitive antisymmetric ) ( non
empty strict V55()
reflexive transitive antisymmetric )
Poset) : ( ( ) ( non
empty )
set ) ) ) ;
begin