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 = t
then 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