let S be locally_directed OrderSortedSign; :: thesis: for X being V5() ManySortedSet of
for s being Element of S
for t being Element of TS (DTConOSA X)
for x, x1 being set st x in X . s & t = root-tree [x,s] holds
( x1 in OSClass (PTCongruence X),t iff x1 = t )
let X be V5() ManySortedSet of ; :: thesis: for s being Element of S
for t being Element of TS (DTConOSA X)
for x, x1 being set st x in X . s & t = root-tree [x,s] holds
( x1 in OSClass (PTCongruence X),t iff x1 = t )
let s be Element of S; :: thesis: for t being Element of TS (DTConOSA X)
for x, x1 being set st x in X . s & t = root-tree [x,s] holds
( x1 in OSClass (PTCongruence X),t iff x1 = t )
let t be Element of TS (DTConOSA X); :: thesis: for x, x1 being set st x in X . s & t = root-tree [x,s] holds
( x1 in OSClass (PTCongruence X),t iff x1 = t )
set PTA = ParsedTermsOSA X;
set D = DTConOSA X;
set R = PTCongruence X;
reconsider y = t as Element of the Sorts of (ParsedTermsOSA X) . (LeastSort t) by Def12;
A1: OSClass (PTCongruence X),t =
OSClass (PTCongruence X),y
by Def28
.=
proj1 ((PTClasses X) . y)
by Th26
;
let x, x1 be set ; :: thesis: ( x in X . s & t = root-tree [x,s] implies ( x1 in OSClass (PTCongruence X),t iff x1 = t ) )
assume A2:
( x in X . s & t = root-tree [x,s] )
; :: thesis: ( x1 in OSClass (PTCongruence X),t iff x1 = t )
A3:
[x,s] in Terminals (DTConOSA X)
by A2, Th4;
then reconsider sy = [x,s] as Symbol of (DTConOSA X) ;
A4: (PTClasses X) . (root-tree sy) =
@ sy
by A3, Def22
.=
{ [(root-tree sy),s1] where s1 is Element of S : ex s2 being Element of S ex x2 being set st
( x2 in X . s2 & sy = [x2,s2] & s2 <= s1 ) }
;
hereby :: thesis: ( x1 = t implies x1 in OSClass (PTCongruence X),t )
assume
x1 in OSClass (PTCongruence X),
t
;
:: thesis: x1 = tthen consider z being
set such that A5:
[x1,z] in (PTClasses X) . y
by A1, RELAT_1:def 4;
consider s1 being
Element of
S such that A6:
[x1,z] = [(root-tree sy),s1]
and
ex
s2 being
Element of
S ex
x2 being
set st
(
x2 in X . s2 &
sy = [x2,s2] &
s2 <= s1 )
by A2, A4, A5;
thus
x1 = t
by A2, A6, ZFMISC_1:33;
:: thesis: verum
end;
assume
x1 = t
; :: thesis: x1 in OSClass (PTCongruence X),t
then
[x1,s] in (PTClasses X) . y
by A2, A4;
hence
x1 in OSClass (PTCongruence X),t
by A1, RELAT_1:def 4; :: thesis: verum