TOLER_1: Relations of Tolerance

:: Relations of Tolerance
:: by Krzysztof Hryniewiecki
::
:: Received September 20, 1990
:: Copyright (c) 1990-2012 Association of Mizar Users

begin

registration

cluster Relation-like empty -> reflexive irreflexive symmetric antisymmetric asymmetric connected strongly_connected transitive for set ;

coherence

proof end;

end;

notation

let X be set ;
synonym Total X for nabla X;

end;

definition

let R be Relation;
let Y be set ;
:: original: |_2
redefine func R |_2 Y -> Relation of Y,Y;
coherence by XBOOLE_1:17;

end;

theorem :: TOLER_1:1

for X being set holds rng (Total X) = X

proof end;

theorem Th2: :: TOLER_1:2

for X, x, y being set st x in X & y in X holds
[x,y] in Total X

proof end;

theorem :: TOLER_1:3

for X, x, y being set st x in field (Total X) & y in field (Total X) holds
[x,y] in Total X

proof end;

theorem :: TOLER_1:4

for X being set holds Total X is strongly_connected

proof end;

theorem :: TOLER_1:5

for X being set holds Total X is connected

proof end;

theorem :: TOLER_1:6

for X being set
for T being Tolerance of X holds rng T = X

proof end;

theorem Th7: :: TOLER_1:7

for X, x being set
for T being reflexive total Relation of X holds
( x in X iff [x,x] in T )

proof end;

theorem :: TOLER_1:8

for X being set
for T being Tolerance of X holds T is_reflexive_in X

proof end;

theorem :: TOLER_1:9

for X being set
for T being Tolerance of X holds T is_symmetric_in X

proof end;

theorem Th10: :: TOLER_1:10

for X, Y, Z being set
for R being Relation of X,Y st R is symmetric holds
R |_2 Z is symmetric

proof end;

definition

let X be set ;
let T be Tolerance of X;
let Y be Subset of X;
:: original: |_2
redefine func T |_2 Y -> Tolerance of Y;
coherence

proof end;

end;

theorem :: TOLER_1:11

for Y, X being set
for T being Tolerance of X st Y c= X holds
T |_2 Y is Tolerance of Y

proof end;

:: Set and Class of Tolerance

definition

let X be set ;
let T be Tolerance of X;

mode TolSet of T -> set means :Def1: :: TOLER_1:def 1
for x, y being set st x in it & y in it holds
[x,y] in T;

existence

proof end;

end;

:: deftheorem Def1 defines TolSet TOLER_1:def 1 :

theorem Th12: :: TOLER_1:12

for X being set
for T being Tolerance of X holds {} is TolSet of T

proof end;

definition

let X be set ;
let T be Tolerance of X;
let IT be TolSet of T;

attr IT is TolClass-like means :Def2: :: TOLER_1:def 2
for x being set st not x in IT & x in X holds
ex y being set st
( y in IT & not [x,y] in T );

end;

:: deftheorem Def2 defines TolClass-like TOLER_1:def 2 :

registration

let X be set ;
let T be Tolerance of X;

cluster TolClass-like for TolSet of T;

existence

proof end;

end;

definition

let X be set ;
let T be Tolerance of X;
mode TolClass of T is TolClass-like TolSet of T;

end;

theorem :: TOLER_1:13

for X being set
for T being Tolerance of X st {} is TolClass of T holds
T = {}

proof end;

theorem :: TOLER_1:14

{} is Tolerance of {} by RELSET_1:12;

theorem Th15: :: TOLER_1:15

for X being set
for T being Tolerance of X
for x, y being set st [x,y] in T holds
{x,y} is TolSet of T

proof end;

theorem :: TOLER_1:16

for X being set
for T being Tolerance of X
for x being set st x in X holds
{x} is TolSet of T

proof end;

theorem :: TOLER_1:17

for X being set
for T being Tolerance of X
for Y, Z being set st Y is TolSet of T holds
Y /\ Z is TolSet of T

proof end;

theorem Th18: :: TOLER_1:18

for Y, X being set
for T being Tolerance of X st Y is TolSet of T holds
Y c= X

proof end;

theorem Th19: :: TOLER_1:19

for X being set
for T being Tolerance of X
for Y being TolSet of T ex Z being TolClass of T st Y c= Z

proof end;

theorem Th20: :: TOLER_1:20

for X being set
for T being Tolerance of X
for x, y being set st [x,y] in T holds
ex Z being TolClass of T st
( x in Z & y in Z )

proof end;

theorem Th21: :: TOLER_1:21

for X being set
for T being Tolerance of X
for x being set st x in X holds
ex Z being TolClass of T st x in Z

proof end;

theorem :: TOLER_1:22

for X being set
for T being Tolerance of X holds T c= Total X

proof end;

theorem :: TOLER_1:23

for X being set
for T being Tolerance of X holds id X c= T

proof end;

scheme :: TOLER_1:sch 1
ToleranceEx{ F₁() -> set , P₁[ set , set ] } :

ex T being Tolerance of F₁() st
for x, y being set st x in F₁() & y in F₁() holds
( [x,y] in T iff P₁[x,y] )

provided

A1: for x being set st x in F₁() holds
P₁[x,x] and
A2: for x, y being set st x in F₁() & y in F₁() & P₁[x,y] holds
P₁[y,x]

proof end;

theorem :: TOLER_1:24

for Y being set ex T being Tolerance of (union Y) st
for Z being set st Z in Y holds
Z is TolSet of T

proof end;

theorem :: TOLER_1:25

for Y being set
for T, R being Tolerance of (union Y) st ( for x, y being set holds
( [x,y] in T iff ex Z being set st
( Z in Y & x in Z & y in Z ) ) ) & ( for x, y being set holds
( [x,y] in R iff ex Z being set st
( Z in Y & x in Z & y in Z ) ) ) holds
T = R

proof end;

theorem Th26: :: TOLER_1:26

for X being set
for T, R being Tolerance of X st ( for Z being set holds
( Z is TolClass of T iff Z is TolClass of R ) ) holds
T = R

proof end;

notation

let X, Y be set ;
let T be Relation of X,Y;
let x be set ;
synonym neighbourhood (x,T) for Class (X,Y);

end;

theorem Th27: :: TOLER_1:27

for X, x being set
for T being Tolerance of X
for y being set holds
( y in neighbourhood (,) iff [x,y] in T )

proof end;

theorem :: TOLER_1:28

for X, x being set
for T being Tolerance of X
for Y being set st ( for Z being set holds
( Z in Y iff ( x in Z & Z is TolClass of T ) ) ) holds
neighbourhood (,) = union Y

proof end;

theorem :: TOLER_1:29

for X, x being set
for T being Tolerance of X
for Y being set st ( for Z being set holds
( Z in Y iff ( x in Z & Z is TolSet of T ) ) ) holds
neighbourhood (,) = union Y

proof end;

:: Family of sets and classes of proximity

definition

let X be set ;
let T be Tolerance of X;

func TolSets T -> set means :Def3: :: TOLER_1:def 3
for Y being set holds
( Y in it iff Y is TolSet of T );

existence

proof end;

uniqueness

proof end;

func TolClasses T -> set means :Def4: :: TOLER_1:def 4
for Y being set holds
( Y in it iff Y is TolClass of T );

existence

proof end;

uniqueness

proof end;

end;

:: deftheorem Def3 defines TolSets TOLER_1:def 3 :

:: deftheorem Def4 defines TolClasses TOLER_1:def 4 :

theorem :: TOLER_1:30

for X being set
for R, T being Tolerance of X st TolClasses R c= TolClasses T holds
R c= T

proof end;

theorem :: TOLER_1:31

for X being set
for T, R being Tolerance of X st TolClasses T = TolClasses R holds
T = R

proof end;

theorem :: TOLER_1:32

for X being set
for T being Tolerance of X holds union (TolClasses T) = X

proof end;

theorem :: TOLER_1:33

for X being set
for T being Tolerance of X holds union (TolSets T) = X

proof end;

theorem :: TOLER_1:34

for X being set
for T being Tolerance of X st ( for x being set st x in X holds
neighbourhood (,) is TolSet of T ) holds
T is transitive

proof end;

theorem :: TOLER_1:35

for X being set
for T being Tolerance of X st T is transitive holds
for x being set st x in X holds
neighbourhood (,) is TolClass of T

proof end;

theorem :: TOLER_1:36

for X being set
for T being Tolerance of X
for x being set
for Y being TolClass of T st x in Y holds
Y c= neighbourhood (,)

proof end;

theorem :: TOLER_1:37

for X being set
for R, T being Tolerance of X holds
( TolSets R c= TolSets T iff R c= T )

proof end;

theorem :: TOLER_1:38

for X being set
for T being Tolerance of X holds TolClasses T c= TolSets T

proof end;

theorem :: TOLER_1:39

for X being set
for R, T being Tolerance of X st ( for x being set st x in X holds
neighbourhood (,) c= neighbourhood (,) ) holds
R c= T

proof end;

theorem :: TOLER_1:40

for X being set
for T being Tolerance of X holds T c= T * T

proof end;