let S be non empty non void bool-correct 4,1 integer BoolSignature ; :: thesis: for X being non-empty ManySortedSet of the carrier of S
for T being b1,S -terms all_vars_including inheriting_operations free_in_itself vf-free integer VarMSAlgebra over S
for C being bool-correct 4,1 integer image of T
for I being integer SortSymbol of S
for u being ManySortedFunction of FreeGen T, the Sorts of C holds (\1 (T,I)) value_at (C,u) = 1

let X be non-empty ManySortedSet of the carrier of S; :: thesis: for T being X,S -terms all_vars_including inheriting_operations free_in_itself vf-free integer VarMSAlgebra over S
for C being bool-correct 4,1 integer image of T
for I being integer SortSymbol of S
for u being ManySortedFunction of FreeGen T, the Sorts of C holds (\1 (T,I)) value_at (C,u) = 1

let T be X,S -terms all_vars_including inheriting_operations free_in_itself vf-free integer VarMSAlgebra over S; :: thesis: for C being bool-correct 4,1 integer image of T
for I being integer SortSymbol of S
for u being ManySortedFunction of FreeGen T, the Sorts of C holds (\1 (T,I)) value_at (C,u) = 1

let C be bool-correct 4,1 integer image of T; :: thesis: for I being integer SortSymbol of S
for u being ManySortedFunction of FreeGen T, the Sorts of C holds (\1 (T,I)) value_at (C,u) = 1

let I be integer SortSymbol of S; :: thesis: for u being ManySortedFunction of FreeGen T, the Sorts of C holds (\1 (T,I)) value_at (C,u) = 1
let u be ManySortedFunction of FreeGen T, the Sorts of C; :: thesis: (\1 (T,I)) value_at (C,u) = 1
consider f being ManySortedFunction of T,C such that
A1: ( f is_homomorphism T,C & u = f || (FreeGen T) ) by MSAFREE4:46;
FreeGen T is_transformable_to the Sorts of C by MSAFREE4:21;
then doms u = FreeGen T by MSSUBFAM:17;
then consider f being ManySortedFunction of T,C, Q being GeneratorSet of T such that
A2: ( f is_homomorphism T,C & Q = doms u & u = f || Q & (\1 (T,I)) value_at (C,u) = (f . I) . (\1 (T,I)) ) by A1, AOFA_A00:def 21;
set o = In (( the connectives of S . 5), the carrier' of S);
A3: ( the_arity_of (In (( the connectives of S . 5), the carrier' of S)) = {} & the_result_sort_of (In (( the connectives of S . 5), the carrier' of S)) = I ) by Th15;
then Args ((In (( the connectives of S . 5), the carrier' of S)),T) = {{}} by Th21;
then reconsider p = {} as Element of Args ((In (( the connectives of S . 5), the carrier' of S)),T) by TARSKI:def 1;
( dom (f # p) = {} & dom p = {} ) by A3, MSUALG_3:6;
then A4: p = f # p ;
(f . I) . (\1 (T,I)) = \1 (C,I) by A4, A2, A3
.= 1 by AOFA_A00:55 ;
hence (\1 (T,I)) value_at (C,u) = 1 by A2; :: thesis: verum