let S be non empty non void ManySortedSign ; :: thesis: for X being V2() ManySortedSet of holds rngs (Reverse X) = X
let X be V2() ManySortedSet of ; :: thesis: rngs (Reverse X) = X
set I = the carrier of S;
set R = Reverse X;
now let i be
set ;
:: thesis: ( i in the carrier of S implies (rngs (Reverse X)) . i = X . i )assume A1:
i in the
carrier of
S
;
:: thesis: (rngs (Reverse X)) . i = X . iA2:
dom (Reverse X) = the
carrier of
S
by PARTFUN1:def 4;
reconsider r =
(Reverse X) . i as
Function of
((FreeGen X) . i),
(X . i) by A1, PBOOLE:def 18;
thus
(rngs (Reverse X)) . i = X . i
:: thesis: verumproof
thus
(rngs (Reverse X)) . i c= X . i
:: according to XBOOLE_0:def 10 :: thesis: X . i c= (rngs (Reverse X)) . i
let x be
set ;
:: according to TARSKI:def 3 :: thesis: ( not x in X . i or x in (rngs (Reverse X)) . i )
assume A4:
x in X . i
;
:: thesis: x in (rngs (Reverse X)) . i
reconsider s0 =
i as
SortSymbol of
S by A1;
set D =
DTConMSA X;
A5:
[x,s0] in Terminals (DTConMSA X)
by A4, MSAFREE:7;
then reconsider t =
[x,s0] as
Symbol of
(DTConMSA X) ;
A6:
(Reverse X) . s0 = Reverse s0,
X
by MSAFREE:def 20;
then A7:
dom ((Reverse X) . s0) = FreeGen s0,
X
by FUNCT_2:def 1;
t `2 = s0
by MCART_1:7;
then
root-tree t in { (root-tree tt) where tt is Symbol of (DTConMSA X) : ( tt in Terminals (DTConMSA X) & tt `2 = s0 ) }
by A5;
then A8:
root-tree t in FreeGen s0,
X
by MSAFREE:14;
then A9:
((Reverse X) . s0) . (root-tree t) in rng ((Reverse X) . s0)
by A7, FUNCT_1:def 5;
((Reverse X) . s0) . (root-tree t) =
t `1
by A6, A8, MSAFREE:def 19
.=
x
by MCART_1:7
;
hence
x in (rngs (Reverse X)) . i
by A2, A9, FUNCT_6:31;
:: thesis: verum
end; end;
hence
rngs (Reverse X) = X
by PBOOLE:3; :: thesis: verum