let S be locally_directed OrderSortedSign; :: thesis: for X being V5() ManySortedSet of holds PTCongruence X is monotone
let X be V5() ManySortedSet of ; :: thesis: PTCongruence X is monotone
set PTA = ParsedTermsOSA X;
set P = PTCongruence X;
thus
PTCongruence X is monotone
:: thesis: verumproof
let o1,
o2 be
OperSymbol of
S;
:: according to OSALG_4:def 28 :: thesis: ( not o1 <= o2 or for b1 being Element of Args o1,(ParsedTermsOSA X)
for b2 being Element of Args o2,(ParsedTermsOSA X) holds
( ex b3 being set st
( b3 in proj1 b1 & not [(b1 . b3),(b2 . b3)] in (PTCongruence X) . ((the_arity_of o2) /. b3) ) or [((Den o1,(ParsedTermsOSA X)) . b1),((Den o2,(ParsedTermsOSA X)) . b2)] in (PTCongruence X) . (the_result_sort_of o2) ) )
assume A1:
o1 <= o2
;
:: thesis: for b1 being Element of Args o1,(ParsedTermsOSA X)
for b2 being Element of Args o2,(ParsedTermsOSA X) holds
( ex b3 being set st
( b3 in proj1 b1 & not [(b1 . b3),(b2 . b3)] in (PTCongruence X) . ((the_arity_of o2) /. b3) ) or [((Den o1,(ParsedTermsOSA X)) . b1),((Den o2,(ParsedTermsOSA X)) . b2)] in (PTCongruence X) . (the_result_sort_of o2) )
let x1 be
Element of
Args o1,
(ParsedTermsOSA X);
:: thesis: for b1 being Element of Args o2,(ParsedTermsOSA X) holds
( ex b2 being set st
( b2 in proj1 x1 & not [(x1 . b2),(b1 . b2)] in (PTCongruence X) . ((the_arity_of o2) /. b2) ) or [((Den o1,(ParsedTermsOSA X)) . x1),((Den o2,(ParsedTermsOSA X)) . b1)] in (PTCongruence X) . (the_result_sort_of o2) )let x2 be
Element of
Args o2,
(ParsedTermsOSA X);
:: thesis: ( ex b1 being set st
( b1 in proj1 x1 & not [(x1 . b1),(x2 . b1)] in (PTCongruence X) . ((the_arity_of o2) /. b1) ) or [((Den o1,(ParsedTermsOSA X)) . x1),((Den o2,(ParsedTermsOSA X)) . x2)] in (PTCongruence X) . (the_result_sort_of o2) )
assume A2:
for
y being
Nat st
y in dom x1 holds
[(x1 . y),(x2 . y)] in (PTCongruence X) . ((the_arity_of o2) /. y)
;
:: thesis: [((Den o1,(ParsedTermsOSA X)) . x1),((Den o2,(ParsedTermsOSA X)) . x2)] in (PTCongruence X) . (the_result_sort_of o2)
A3:
(
o1 ~= o2 &
the_arity_of o1 <= the_arity_of o2 &
the_result_sort_of o1 <= the_result_sort_of o2 )
by A1, OSALG_1:def 22;
then A4:
len (the_arity_of o1) = len (the_arity_of o2)
by OSALG_1:def 7;
then
dom (the_arity_of o2) = dom (the_arity_of o1)
by FINSEQ_3:31;
then
dom (the_arity_of o2) = dom x1
by MSUALG_3:6;
hence
[((Den o1,(ParsedTermsOSA X)) . x1),((Den o2,(ParsedTermsOSA X)) . x2)] in (PTCongruence X) . (the_result_sort_of o2)
by A2, A3, A4, Th27;
:: thesis: verum
end;