begin
scheme
SSubsetUniq{
F1()
-> ( ( ) ( )
1-sorted ) ,
P1[ ( ( ) ( )
set ) ] } :
for
A1,
A2 being ( ( ) ( )
Subset of ) st ( for
x being ( ( ) ( )
set ) holds
(
x : ( ( ) ( )
set )
in A1 : ( ( ) ( )
Subset of ) iff
P1[
x : ( ( ) ( )
set ) ] ) ) & ( for
x being ( ( ) ( )
set ) holds
(
x : ( ( ) ( )
set )
in A2 : ( ( ) ( )
Subset of ) iff
P1[
x : ( ( ) ( )
set ) ] ) ) holds
A1 : ( ( ) ( )
Subset of )
= A2 : ( ( ) ( )
Subset of )
registration
let A,
x be ( ( ) ( )
set ) ;
end;
begin
theorem
for
V,
V9,
C,
C9 being ( ( ) ( )
set )
for
A being ( ( ) (
finite )
Element of
Fin (PFuncs (V : ( ( ) ( ) set ) ,C : ( ( ) ( ) set ) )) : ( ( ) (
functional non
empty )
set ) : ( (
preBoolean ) ( non
empty cup-closed diff-closed preBoolean )
set ) )
for
B being ( ( ) (
finite )
Element of
Fin (PFuncs (V9 : ( ( ) ( ) set ) ,C9 : ( ( ) ( ) set ) )) : ( ( ) (
functional non
empty )
set ) : ( (
preBoolean ) ( non
empty cup-closed diff-closed preBoolean )
set ) ) st
V : ( ( ) ( )
set )
c= V9 : ( ( ) ( )
set ) &
C : ( ( ) ( )
set )
c= C9 : ( ( ) ( )
set ) &
A : ( ( ) (
finite )
Element of
Fin (PFuncs (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( ) (
functional non
empty )
set ) : ( (
preBoolean ) ( non
empty cup-closed diff-closed preBoolean )
set ) )
= B : ( ( ) (
finite )
Element of
Fin (PFuncs (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( ) (
functional non
empty )
set ) : ( (
preBoolean ) ( non
empty cup-closed diff-closed preBoolean )
set ) ) holds
mi A : ( ( ) (
finite )
Element of
Fin (PFuncs (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( ) (
functional non
empty )
set ) : ( (
preBoolean ) ( non
empty cup-closed diff-closed preBoolean )
set ) ) : ( ( ) (
functional finite )
Element of
SubstitutionSet (
b1 : ( ( ) ( )
set ) ,
b3 : ( ( ) ( )
set ) ) : ( ( ) ( non
empty )
Element of
bool (Fin (PFuncs (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( ) ( functional non empty ) set ) ) : ( (
preBoolean ) ( non
empty cup-closed diff-closed preBoolean )
set ) : ( ( ) ( non
empty V107()
cup-closed diff-closed preBoolean )
set ) ) )
= mi B : ( ( ) (
finite )
Element of
Fin (PFuncs (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( ) (
functional non
empty )
set ) : ( (
preBoolean ) ( non
empty cup-closed diff-closed preBoolean )
set ) ) : ( ( ) (
functional finite )
Element of
SubstitutionSet (
b2 : ( ( ) ( )
set ) ,
b4 : ( ( ) ( )
set ) ) : ( ( ) ( non
empty )
Element of
bool (Fin (PFuncs (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( ) ( functional non empty ) set ) ) : ( (
preBoolean ) ( non
empty cup-closed diff-closed preBoolean )
set ) : ( ( ) ( non
empty V107()
cup-closed diff-closed preBoolean )
set ) ) ) ;
theorem
for
V,
V9,
C,
C9 being ( ( ) ( )
set ) st
V : ( ( ) ( )
set )
c= V9 : ( ( ) ( )
set ) &
C : ( ( ) ( )
set )
c= C9 : ( ( ) ( )
set ) holds
the
L_join of
(SubstLatt (V : ( ( ) ( ) set ) ,C : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( (
Function-like V18(
[: the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) , the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) , the
carrier of
(SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( ( ) ( non
empty )
set ) ) ) (
Relation-like [: the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) , the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set )
-defined the
carrier of
(SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( ( ) ( non
empty )
set )
-valued Function-like V18(
[: the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) , the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) , the
carrier of
(SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( ( ) ( non
empty )
set ) ) )
Element of
bool [:[: the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) , the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( Relation-like non empty ) set ) , the carrier of (SubstLatt (b1 : ( ( ) ( ) set ) ,b3 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) : ( ( ) ( non
empty V107()
cup-closed diff-closed preBoolean )
set ) )
= the
L_join of
(SubstLatt (V9 : ( ( ) ( ) set ) ,C9 : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( (
Function-like V18(
[: the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) , the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) , the
carrier of
(SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( ( ) ( non
empty )
set ) ) ) (
Relation-like [: the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) , the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set )
-defined the
carrier of
(SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( ( ) ( non
empty )
set )
-valued Function-like V18(
[: the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) , the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) , the
carrier of
(SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( ( ) ( non
empty )
set ) ) )
Element of
bool [:[: the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) , the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( Relation-like non empty ) set ) , the carrier of (SubstLatt (b2 : ( ( ) ( ) set ) ,b4 : ( ( ) ( ) set ) )) : ( ( strict ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() ) LattStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) : ( ( ) ( non
empty V107()
cup-closed diff-closed preBoolean )
set ) )
|| the
carrier of
(SubstLatt (V : ( ( ) ( ) set ) ,C : ( ( ) ( ) set ) )) : ( (
strict ) ( non
empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like distributive modular lower-bounded upper-bounded V99() )
LattStr ) : ( ( ) ( non
empty )
set ) : ( ( ) (
Relation-like Function-like )
set ) ;
definition
let V,
C be ( ( ) ( )
set ) ;
end;
registration
let V,
C be ( ( ) ( )
set ) ;
end;
registration
let V,
C be ( ( ) ( )
set ) ;
end;
begin