:: UNIALG_3 semantic presentation  Show TPTP formulae Show IDV graph for whole article:: Showing IDV graph ... (Click the Palm Trees again to close it)

definition
let U0 be Universal_Algebra;
mode SubAlgebra-Family of U0 -> set means :Def1: :: UNIALG_3:def 1
for U1 being set st U1 in it holds
U1 is SubAlgebra of U0;
existence
ex b1 being set st
for U1 being set st U1 in b1 holds
U1 is SubAlgebra of U0
proof end;
end;

:: deftheorem Def1 defines SubAlgebra-Family UNIALG_3:def 1 :
for U0 being Universal_Algebra
for b2 being set holds
( b2 is SubAlgebra-Family of U0 iff for U1 being set st U1 in b2 holds
U1 is SubAlgebra of U0 );

registration
let U0 be Universal_Algebra;
cluster non empty SubAlgebra-Family of U0;
existence
not for b1 being SubAlgebra-Family of U0 holds b1 is empty
proof end;
end;

definition
let U0 be Universal_Algebra;
:: original: Sub
redefine func Sub U0 -> non empty SubAlgebra-Family of U0;
coherence
Sub U0 is non empty SubAlgebra-Family of U0
proof end;
let U00 be non empty SubAlgebra-Family of U0;
:: original: Element
redefine mode Element of U00 -> SubAlgebra of U0;
coherence
for b1 being Element of U00 holds b1 is SubAlgebra of U0
by Def1;
end;

definition
let U0 be Universal_Algebra;
:: original: UniAlg_join
redefine func UniAlg_join U0 -> BinOp of Sub U0;
coherence
UniAlg_join U0 is BinOp of Sub U0
;
:: original: UniAlg_meet
redefine func UniAlg_meet U0 -> BinOp of Sub U0;
coherence
UniAlg_meet U0 is BinOp of Sub U0
;
end;

definition
let U0 be Universal_Algebra;
let u be Element of Sub U0;
func carr u -> Subset of U0 means :Def2: :: UNIALG_3:def 2
ex U1 being SubAlgebra of U0 st
( u = U1 & it = the carrier of U1 );
existence
ex b1 being Subset of U0 ex U1 being SubAlgebra of U0 st
( u = U1 & b1 = the carrier of U1 )
proof end;
uniqueness
for b1, b2 being Subset of U0 st ex U1 being SubAlgebra of U0 st
( u = U1 & b1 = the carrier of U1 ) & ex U1 being SubAlgebra of U0 st
( u = U1 & b2 = the carrier of U1 ) holds
b1 = b2
;
end;

:: deftheorem Def2 defines carr UNIALG_3:def 2 :
for U0 being Universal_Algebra
for u being Element of Sub U0
for b3 being Subset of U0 holds
( b3 = carr u iff ex U1 being SubAlgebra of U0 st
( u = U1 & b3 = the carrier of U1 ) );

definition
let U0 be Universal_Algebra;
func Carr U0 -> Function of Sub U0, bool the carrier of U0 means :Def3: :: UNIALG_3:def 3
for u being Element of Sub U0 holds it . u = carr u;
existence
ex b1 being Function of Sub U0, bool the carrier of U0 st
for u being Element of Sub U0 holds b1 . u = carr u
proof end;
uniqueness
for b1, b2 being Function of Sub U0, bool the carrier of U0 st ( for u being Element of Sub U0 holds b1 . u = carr u ) & ( for u being Element of Sub U0 holds b2 . u = carr u ) holds
b1 = b2
proof end;
end;

:: deftheorem Def3 defines Carr UNIALG_3:def 3 :
for U0 being Universal_Algebra
for b2 being Function of Sub U0, bool the carrier of U0 holds
( b2 = Carr U0 iff for u being Element of Sub U0 holds b2 . u = carr u );

theorem Th1: :: UNIALG_3:1  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being Universal_Algebra
for u being set holds
( u in Sub U0 iff ex U1 being strict SubAlgebra of U0 st u = U1 )
proof end;

theorem :: UNIALG_3:2  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being Universal_Algebra
for H being non empty Subset of U0
for o being operation of U0 st arity o = 0 holds
( H is_closed_on o iff o . {} in H )
proof end;

theorem Th3: :: UNIALG_3:3  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being Universal_Algebra
for U1 being SubAlgebra of U0 holds the carrier of U1 c= the carrier of U0
proof end;

theorem :: UNIALG_3:4  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being Universal_Algebra
for H being non empty Subset of U0
for o being operation of U0 st H is_closed_on o & arity o = 0 holds
o /. H = o
proof end;

theorem :: UNIALG_3:5  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being Universal_Algebra holds Constants U0 = { (o . {} ) where o is operation of U0 : arity o = 0 }
proof end;

theorem Th6: :: UNIALG_3:6  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for U1 being SubAlgebra of U0 holds Constants U0 = Constants U1
proof end;

registration
let U0 be with_const_op Universal_Algebra;
cluster -> with_const_op SubAlgebra of U0;
coherence
for b1 being SubAlgebra of U0 holds b1 is with_const_op
proof end;
end;

theorem :: UNIALG_3:7  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for U1, U2 being SubAlgebra of U0 holds Constants U1 = Constants U2
proof end;

definition
let U0 be Universal_Algebra;
:: original: Carr
redefine func Carr U0 -> Function of Sub U0, bool the carrier of U0 means :Def4: :: UNIALG_3:def 4
for u being Element of Sub U0
for U1 being SubAlgebra of U0 st u = U1 holds
it . u = the carrier of U1;
coherence
Carr U0 is Function of Sub U0, bool the carrier of U0
;
compatibility
for b1 being Function of Sub U0, bool the carrier of U0 holds
( b1 = Carr U0 iff for u being Element of Sub U0
for U1 being SubAlgebra of U0 st u = U1 holds
b1 . u = the carrier of U1 )
proof end;
end;

:: deftheorem Def4 defines Carr UNIALG_3:def 4 :
for U0 being Universal_Algebra
for b2 being Function of Sub U0, bool the carrier of U0 holds
( b2 = Carr U0 iff for u being Element of Sub U0
for U1 being SubAlgebra of U0 st u = U1 holds
b2 . u = the carrier of U1 );

theorem :: UNIALG_3:8  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being Universal_Algebra
for H being strict SubAlgebra of U0
for u being Element of U0 holds
( u in (Carr U0) . H iff u in H )
proof end;

theorem Th9: :: UNIALG_3:9  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being Universal_Algebra
for H being non empty Subset of (Sub U0) holds not (Carr U0) .: H is empty
proof end;

theorem :: UNIALG_3:10  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for U1 being strict SubAlgebra of U0 holds Constants U0 c= (Carr U0) . U1
proof end;

theorem Th11: :: UNIALG_3:11  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for U1 being SubAlgebra of U0
for a being set st a is Element of Constants U0 holds
a in the carrier of U1
proof end;

theorem Th12: :: UNIALG_3:12  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for H being non empty Subset of (Sub U0) holds meet ((Carr U0) .: H) is non empty Subset of U0
proof end;

theorem :: UNIALG_3:13  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra holds the carrier of (UnSubAlLattice U0) = Sub U0 ;

theorem Th14: :: UNIALG_3:14  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for H being non empty Subset of (Sub U0)
for S being non empty Subset of U0 st S = meet ((Carr U0) .: H) holds
S is opers_closed
proof end;

definition
let U0 be strict with_const_op Universal_Algebra;
let H be non empty Subset of (Sub U0);
func meet H -> strict SubAlgebra of U0 means :Def5: :: UNIALG_3:def 5
the carrier of it = meet ((Carr U0) .: H);
existence
ex b1 being strict SubAlgebra of U0 st the carrier of b1 = meet ((Carr U0) .: H)
proof end;
uniqueness
for b1, b2 being strict SubAlgebra of U0 st the carrier of b1 = meet ((Carr U0) .: H) & the carrier of b2 = meet ((Carr U0) .: H) holds
b1 = b2
by UNIALG_2:15;
end;

:: deftheorem Def5 defines meet UNIALG_3:def 5 :
for U0 being strict with_const_op Universal_Algebra
for H being non empty Subset of (Sub U0)
for b3 being strict SubAlgebra of U0 holds
( b3 = meet H iff the carrier of b3 = meet ((Carr U0) .: H) );

theorem Th15: :: UNIALG_3:15  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for l1, l2 being Element of (UnSubAlLattice U0)
for U1, U2 being strict SubAlgebra of U0 st l1 = U1 & l2 = U2 holds
l1 "\/" l2 = U1 "\/" U2 by UNIALG_2:def 16;

theorem :: UNIALG_3:16  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for l1, l2 being Element of (UnSubAlLattice U0)
for U1, U2 being strict SubAlgebra of U0 st l1 = U1 & l2 = U2 holds
l1 "/\" l2 = U1 /\ U2 by UNIALG_2:def 17;

theorem Th17: :: UNIALG_3:17  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for l1, l2 being Element of (UnSubAlLattice U0)
for U1, U2 being strict SubAlgebra of U0 st l1 = U1 & l2 = U2 holds
( l1 [= l2 iff the carrier of U1 c= the carrier of U2 )
proof end;

theorem :: UNIALG_3:18  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being with_const_op Universal_Algebra
for l1, l2 being Element of (UnSubAlLattice U0)
for U1, U2 being strict SubAlgebra of U0 st l1 = U1 & l2 = U2 holds
( l1 [= l2 iff U1 is SubAlgebra of U2 )
proof end;

theorem Th19: :: UNIALG_3:19  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being strict with_const_op Universal_Algebra holds UnSubAlLattice U0 is bounded
proof end;

registration
let U0 be strict with_const_op Universal_Algebra;
cluster UnSubAlLattice U0 -> bounded ;
coherence
UnSubAlLattice U0 is bounded
by Th19;
end;

theorem Th20: :: UNIALG_3:20  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being strict with_const_op Universal_Algebra
for U1 being strict SubAlgebra of U0 holds (GenUnivAlg (Constants U0)) /\ U1 = GenUnivAlg (Constants U0)
proof end;

theorem :: UNIALG_3:21  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being strict with_const_op Universal_Algebra holds Bottom (UnSubAlLattice U0) = GenUnivAlg (Constants U0)
proof end;

theorem Th22: :: UNIALG_3:22  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being strict with_const_op Universal_Algebra
for U1 being SubAlgebra of U0
for H being Subset of U0 st H = the carrier of U0 holds
(GenUnivAlg H) "\/" U1 = GenUnivAlg H
proof end;

theorem Th23: :: UNIALG_3:23  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being strict with_const_op Universal_Algebra
for H being Subset of U0 st H = the carrier of U0 holds
Top (UnSubAlLattice U0) = GenUnivAlg H
proof end;

theorem :: UNIALG_3:24  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being strict with_const_op Universal_Algebra holds Top (UnSubAlLattice U0) = U0
proof end;

theorem :: UNIALG_3:25  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being strict with_const_op Universal_Algebra holds UnSubAlLattice U0 is complete
proof end;

definition
let U01, U02 be with_const_op Universal_Algebra;
let F be Function of the carrier of U01,the carrier of U02;
func FuncLatt F -> Function of the carrier of (UnSubAlLattice U01),the carrier of (UnSubAlLattice U02) means :Def6: :: UNIALG_3:def 6
for U1 being strict SubAlgebra of U01
for H being Subset of U02 st H = F .: the carrier of U1 holds
it . U1 = GenUnivAlg H;
existence
ex b1 being Function of the carrier of (UnSubAlLattice U01),the carrier of (UnSubAlLattice U02) st
for U1 being strict SubAlgebra of U01
for H being Subset of U02 st H = F .: the carrier of U1 holds
b1 . U1 = GenUnivAlg H
proof end;
uniqueness
for b1, b2 being Function of the carrier of (UnSubAlLattice U01),the carrier of (UnSubAlLattice U02) st ( for U1 being strict SubAlgebra of U01
for H being Subset of U02 st H = F .: the carrier of U1 holds
b1 . U1 = GenUnivAlg H ) & ( for U1 being strict SubAlgebra of U01
for H being Subset of U02 st H = F .: the carrier of U1 holds
b2 . U1 = GenUnivAlg H ) holds
b1 = b2
proof end;
end;

:: deftheorem Def6 defines FuncLatt UNIALG_3:def 6 :
for U01, U02 being with_const_op Universal_Algebra
for F being Function of the carrier of U01,the carrier of U02
for b4 being Function of the carrier of (UnSubAlLattice U01),the carrier of (UnSubAlLattice U02) holds
( b4 = FuncLatt F iff for U1 being strict SubAlgebra of U01
for H being Subset of U02 st H = F .: the carrier of U1 holds
b4 . U1 = GenUnivAlg H );

theorem :: UNIALG_3:26  Show TPTP formulae Show IDV graph:: Showing IDV graph ... (Click the Palm Tree again to close it) Show TPTP problem
for U0 being strict with_const_op Universal_Algebra
for F being Function of the carrier of U0,the carrier of U0 st F = id the carrier of U0 holds
FuncLatt F = id the carrier of (UnSubAlLattice U0)
proof end;