let S be locally_directed OrderSortedSign; :: thesis: for X being non-empty ManySortedSet of S
for s being Element of S holds PTVars (s,X) = { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) }
let X be non-empty ManySortedSet of S; :: thesis: for s being Element of S holds PTVars (s,X) = { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) }
let s be Element of S; :: thesis: PTVars (s,X) = { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) }
set D = DTConOSA X;
set A = { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) } ;
thus PTVars (s,X) c= { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) } :: according to XBOOLE_0:def 10 :: thesis: { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) } c= PTVars (s,X)

proof

let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in PTVars (s,X) or x in { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) } )
assume x in PTVars (s,X) ; :: thesis: x in { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) }
then consider a being object such that
A1: a in X . s and
A2: x = root-tree [a,s] by Def23;
A3: [a,s] in Terminals (DTConOSA X) by A1, Th4;
then reconsider t = [a,s] as Symbol of (DTConOSA X) ;
t `2 = s ;
hence x in { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) } by A2, A3; :: thesis: verum

end;

let x be object ; :: according to TARSKI:def 3 :: thesis: ( not x in { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) } or x in PTVars (s,X) )
assume x in { (root-tree t) where t is Symbol of (DTConOSA X) : ( t in Terminals (DTConOSA X) & t `2 = s ) } ; :: thesis: x in PTVars (s,X)
then consider t being Symbol of (DTConOSA X) such that
A4: x = root-tree t and
A5: t in Terminals (DTConOSA X) and
A6: t `2 = s ;
consider s1 being Element of S, a being set such that
A7: a in X . s1 and
A8: t = [a,s1] by A5, Th4;
s = s1 by A6, A8;
hence x in PTVars (s,X) by A4, A7, A8, Def23; :: thesis: verum