:: FUZZY_4 semantic presentation

registration
let C1 be non empty set ;
let F be Membership_Func of C1;
cluster K2(a2) -> non empty ;
coherence
not rng F is empty
proof end;
end;

theorem Th1: :: FUZZY_4:1
for C1 being non empty set
for F being Membership_Func of C1 holds
( rng F is bounded & ( for x being set st x in dom F holds
F . x <= sup (rng F) ) & ( for x being set st x in dom F holds
F . x >= inf (rng F) ) )
proof end;

theorem Th2: :: FUZZY_4:2
for C1 being non empty set
for F, G being Membership_Func of C1 st ( for x being set st x in C1 holds
F . x <= G . x ) holds
sup (rng F) <= sup (rng G)
proof end;

theorem Th3: :: FUZZY_4:3
for C1, C2 being non empty set
for f being RMembership_Func of C1,C2
for c being Element of [:C1,C2:] holds
( 0 <= f . c & f . c <= 1 )
proof end;

theorem Th4: :: FUZZY_4:4
for C1, C2 being non empty set
for f being RMembership_Func of C1,C2
for x, y being set st [x,y] in [:C1,C2:] holds
( 0 <= f . [x,y] & f . [x,y] <= 1 ) by ;

definition
let C1 be non empty set , C2 be non empty set ;
let h be RMembership_Func of C2,C1;
func converse c3 -> RMembership_Func of a1,a2 means :Def1: :: FUZZY_4:def 1
for x, y being set st [x,y] in [:C1,C2:] holds
it . [x,y] = h . [y,x];
existence
ex b1 being RMembership_Func of C1,C2 st
for x, y being set st [x,y] in [:C1,C2:] holds
b1 . [x,y] = h . [y,x]
proof end;
uniqueness
for b1, b2 being RMembership_Func of C1,C2 st ( for x, y being set st [x,y] in [:C1,C2:] holds
b1 . [x,y] = h . [y,x] ) & ( for x, y being set st [x,y] in [:C1,C2:] holds
b2 . [x,y] = h . [y,x] ) holds
b1 = b2
proof end;
end;

:: deftheorem Def1 defines converse FUZZY_4:def 1 :
for C1, C2 being non empty set
for h being RMembership_Func of C2,C1
for b4 being RMembership_Func of C1,C2 holds
( b4 = converse h iff for x, y being set st [x,y] in [:C1,C2:] holds
b4 . [x,y] = h . [y,x] );

theorem Th5: :: FUZZY_4:5
for C1, C2 being non empty set
for f being RMembership_Func of C1,C2 holds converse (converse f) = f
proof end;

theorem Th6: :: FUZZY_4:6
for C1, C2 being non empty set
for f being RMembership_Func of C1,C2 holds 1_minus (converse f) = converse (1_minus f)
proof end;

theorem Th7: :: FUZZY_4:7
for C1, C2 being non empty set
for f, g being RMembership_Func of C1,C2 holds converse (max f,g) = max (converse f),(converse g)
proof end;

theorem Th8: :: FUZZY_4:8
for C1, C2 being non empty set
for f, g being RMembership_Func of C1,C2 holds converse (min f,g) = min (converse f),(converse g)
proof end;

theorem Th9: :: FUZZY_4:9
for C1, C2 being non empty set
for f, g being RMembership_Func of C1,C2
for x, y being set st x in C1 & y in C2 & f . [x,y] <= g . [x,y] holds
(converse f) . [y,x] <= (converse g) . [y,x]
proof end;

theorem Th10: :: FUZZY_4:10
for C1, C2 being non empty set
for f, g being RMembership_Func of C1,C2 st g c= holds
converse g c=
proof end;

theorem Th11: :: FUZZY_4:11
for C1, C2 being non empty set
for f, g being RMembership_Func of C1,C2 holds converse (f \ g) = (converse f) \ (converse g)
proof end;

theorem Th12: :: FUZZY_4:12
for C1, C2 being non empty set
for f, g being RMembership_Func of C1,C2 holds converse (f \+\ g) = (converse f) \+\ (converse g)
proof end;

definition
let C1 be non empty set , C2 be non empty set , C3 be non empty set ;
let h be RMembership_Func of C1,C2;
let g be RMembership_Func of C2,C3;
let x be set , z be set ;
assume E33: ( x in C1 & z in C3 ) ;
func min c4,c5,c6,c7 -> Membership_Func of a2 means :Def2: :: FUZZY_4:def 2
for y being Element of C2 holds it . y = min (h . [x,y]),(g . [y,z]);
existence
ex b1 being Membership_Func of C2 st
for y being Element of C2 holds b1 . y = min (h . [x,y]),(g . [y,z])
proof end;
uniqueness
for b1, b2 being Membership_Func of C2 st ( for y being Element of C2 holds b1 . y = min (h . [x,y]),(g . [y,z]) ) & ( for y being Element of C2 holds b2 . y = min (h . [x,y]),(g . [y,z]) ) holds
b1 = b2
proof end;
end;

:: deftheorem Def2 defines min FUZZY_4:def 2 :
for C1, C2, C3 being non empty set
for h being RMembership_Func of C1,C2
for g being RMembership_Func of C2,C3
for x, z being set st x in C1 & z in C3 holds
for b8 being Membership_Func of C2 holds
( b8 = min h,g,x,z iff for y being Element of C2 holds b8 . y = min (h . [x,y]),(g . [y,z]) );

definition
let C1 be non empty set , C2 be non empty set , C3 be non empty set ;
let h be RMembership_Func of C1,C2;
let g be RMembership_Func of C2,C3;
func c4 (#) c5 -> RMembership_Func of a1,a3 means :Def3: :: FUZZY_4:def 3
for x, z being set st [x,z] in [:C1,C3:] holds
it . [x,z] = sup (rng (min h,g,x,z));
existence
ex b1 being RMembership_Func of C1,C3 st
for x, z being set st [x,z] in [:C1,C3:] holds
b1 . [x,z] = sup (rng (min h,g,x,z))
proof end;
uniqueness
for b1, b2 being RMembership_Func of C1,C3 st ( for x, z being set st [x,z] in [:C1,C3:] holds
b1 . [x,z] = sup (rng (min h,g,x,z)) ) & ( for x, z being set st [x,z] in [:C1,C3:] holds
b2 . [x,z] = sup (rng (min h,g,x,z)) ) holds
b1 = b2
proof end;
end;

:: deftheorem Def3 defines (#) FUZZY_4:def 3 :
for C1, C2, C3 being non empty set
for h being RMembership_Func of C1,C2
for g being RMembership_Func of C2,C3
for b6 being RMembership_Func of C1,C3 holds
( b6 = h (#) g iff for x, z being set st [x,z] in [:C1,C3:] holds
b6 . [x,z] = sup (rng (min h,g,x,z)) );

Lemma68: for C1, C2, C3 being non empty set
for f being RMembership_Func of C1,C2
for g, h being RMembership_Func of C2,C3
for x, z being set st x in C1 & z in C3 holds
sup (rng (min f,(max g,h),x,z)) = max (sup (rng (min f,g,x,z))),(sup (rng (min f,h,x,z)))
proof end;

theorem Th13: :: FUZZY_4:13
for C1, C2, C3 being non empty set
for f being RMembership_Func of C1,C2
for g, h being RMembership_Func of C2,C3 holds f (#) (max g,h) = max (f (#) g),(f (#) h)
proof end;

Lemma79: for C1, C2, C3 being non empty set
for f, g being RMembership_Func of C1,C2
for h being RMembership_Func of C2,C3
for x, z being set st x in C1 & z in C3 holds
sup (rng (min (max f,g),h,x,z)) = max (sup (rng (min f,h,x,z))),(sup (rng (min g,h,x,z)))
proof end;

theorem Th14: :: FUZZY_4:14
for C1, C2, C3 being non empty set
for f, g being RMembership_Func of C1,C2
for h being RMembership_Func of C2,C3 holds (max f,g) (#) h = max (f (#) h),(g (#) h)
proof end;

Lemma80: for C1, C2, C3 being non empty set
for f being RMembership_Func of C1,C2
for g, h being RMembership_Func of C2,C3
for x, z being set st x in C1 & z in C3 holds
sup (rng (min f,(min g,h),x,z)) <= min (sup (rng (min f,g,x,z))),(sup (rng (min f,h,x,z)))
proof end;

theorem Th15: :: FUZZY_4:15
for C1, C2, C3 being non empty set
for f being RMembership_Func of C1,C2
for g, h being RMembership_Func of C2,C3 holds min (f (#) g),(f (#) h) c=
proof end;

Lemma82: for C1, C2, C3 being non empty set
for f, g being RMembership_Func of C1,C2
for h being RMembership_Func of C2,C3
for x, z being set st x in C1 & z in C3 holds
sup (rng (min (min f,g),h,x,z)) <= min (sup (rng (min f,h,x,z))),(sup (rng (min g,h,x,z)))
proof end;

theorem Th16: :: FUZZY_4:16
for C1, C2, C3 being non empty set
for f, g being RMembership_Func of C1,C2
for h being RMembership_Func of C2,C3 holds min (f (#) h),(g (#) h) c=
proof end;

Lemma83: for C1, C2, C3 being non empty set
for f being RMembership_Func of C1,C2
for g being RMembership_Func of C2,C3
for x, z being set st x in C1 & z in C3 holds
sup (rng (min (converse g),(converse f),z,x)) = sup (rng (min f,g,x,z))
proof end;

theorem Th17: :: FUZZY_4:17
for C1, C2, C3 being non empty set
for f being RMembership_Func of C1,C2
for g being RMembership_Func of C2,C3 holds converse (f (#) g) = (converse g) (#) (converse f)
proof end;

theorem Th18: :: FUZZY_4:18
for C1, C2, C3 being non empty set
for f, g being RMembership_Func of C1,C2
for h, k being RMembership_Func of C2,C3
for x, z being set st x in C1 & z in C3 & ( for y being set st y in C2 holds
( f . [x,y] <= g . [x,y] & h . [y,z] <= k . [y,z] ) ) holds
(f (#) h) . [x,z] <= (g (#) k) . [x,z]
proof end;

theorem Th19: :: FUZZY_4:19
for C1, C2, C3 being non empty set
for f, g being RMembership_Func of C1,C2
for h, k being RMembership_Func of C2,C3 st g c= & k c= holds
g (#) k c=
proof end;

definition
let C1 be non empty set , C2 be non empty set ;
func Imf c1,c2 -> RMembership_Func of a1,a2 means :: FUZZY_4:def 4
for x, y being set st [x,y] in [:C1,C2:] holds
( ( x = y implies it . [x,y] = 1 ) & ( not x = y implies it . [x,y] = 0 ) );
existence
ex b1 being RMembership_Func of C1,C2 st
for x, y being set st [x,y] in [:C1,C2:] holds
( ( x = y implies b1 . [x,y] = 1 ) & ( not x = y implies b1 . [x,y] = 0 ) )
proof end;
uniqueness
for b1, b2 being RMembership_Func of C1,C2 st ( for x, y being set st [x,y] in [:C1,C2:] holds
( ( x = y implies b1 . [x,y] = 1 ) & ( not x = y implies b1 . [x,y] = 0 ) ) ) & ( for x, y being set st [x,y] in [:C1,C2:] holds
( ( x = y implies b2 . [x,y] = 1 ) & ( not x = y implies b2 . [x,y] = 0 ) ) ) holds
b1 = b2
proof end;
end;

:: deftheorem Def4 defines Imf FUZZY_4:def 4 :
for C1, C2 being non empty set
for b3 being RMembership_Func of C1,C2 holds
( b3 = Imf C1,C2 iff for x, y being set st [x,y] in [:C1,C2:] holds
( ( x = y implies b3 . [x,y] = 1 ) & ( not x = y implies b3 . [x,y] = 0 ) ) );

theorem Th20: :: FUZZY_4:20
for C1, C2 being non empty set
for c being Element of [:C1,C2:] holds
( (Zmf C1,C2) . c = 0 & (Umf C1,C2) . c = 1 )
proof end;

theorem Th21: :: FUZZY_4:21
for C1, C2 being non empty set
for x, y being set st [x,y] in [:C1,C2:] holds
( (Zmf C1,C2) . [x,y] = 0 & (Umf C1,C2) . [x,y] = 1 ) by ;

Lemma87: for C2, C3, C1 being non empty set
for f being RMembership_Func of C2,C3
for x, z being set st x in C1 & z in C3 holds
sup (rng (min (Zmf C1,C2),f,x,z)) = (Zmf C1,C3) . [x,z]
proof end;

theorem Th22: :: FUZZY_4:22
for C2, C3, C1 being non empty set
for f being RMembership_Func of C2,C3 holds (Zmf C1,C2) (#) f = Zmf C1,C3
proof end;

Lemma89: for C1, C2, C3 being non empty set
for f being RMembership_Func of C1,C2
for x, z being set st x in C1 & z in C3 holds
sup (rng (min f,(Zmf C2,C3),x,z)) = (Zmf C1,C3) . [x,z]
proof end;

theorem Th23: :: FUZZY_4:23
for C1, C2, C3 being non empty set
for f being RMembership_Func of C1,C2 holds f (#) (Zmf C2,C3) = Zmf C1,C3
proof end;

theorem Th24: :: FUZZY_4:24
for C1 being non empty set
for f being RMembership_Func of C1,C1 holds f (#) (Zmf C1,C1) = (Zmf C1,C1) (#) f
proof end;