MVR4
I&clear:6$'%"fG%*procedureG'%"SG<%%%listG%$setG/<$-%*identicalG6#%%keepG-F06#%'
deleteG<$F+F,6)%"TG%$TinG%"RG%"jG%"GG%%fnewG%$excG6$%XMaple~Advisor~Database~1.
00~for~Maple~V~Release~4~and~5G%gnCopyright~(c)~1997~by~Robert~B.~Israel.~~All~
rights~reservedG6"C+@%-%%typeG6$9%%)equationGC$>8*-%&evalbG6#/-%$lhsG6#FH.F5>8&
-%$rhsGFSC$>FL%&falseG>FVFH@)-FF6$FV-F,6#F+%%NULLG-FF6$FV-F+F[o>FV<#-%#opG6#FV-
FF6$FVF,>FV-%$mapG6$:6#%"tGFB6$%)operatorG%&arrowGFB7#9$FBFBFV>FV-Fio6$:F\pFBF^
pFBFapFBFBFao>8(-Fco6$""$-%%evalG6#Fbp>8$-Fco6$""%F\q@%/F`qF\o>8%<">Fgq<#-%(ind
icesG6#F`q>8)-%'subsopG6%/F[q6$Fhp.%$fooG/FcqF\oF\q@%FL>FV-%&minusG6$FgqFV>FV-%
*intersectGF\s?&8'FV%%trueG>-F_r6#-Fco6#Fas&F`qFes-Far6$/F[qFhp-F]q6#F_rFBFBFB