ÞMgfun.mlaUËìX Holonomy/versionHolonomy/hilbert_dimension_recHolonomy/hilbert_dimension_do_itHolonomy/next_termHolonomy/fglm_algorithmHolonomy/fglm_termination_procHolonomyApplyOprdiff/ApplyOprAlgSubsdiff/AlgSubsqbinomialexpand/qbinomialqbinomial/qbinomialtoqpochhammerqfactorialexpand/qfactorialqfactorial/qfactorialtoqpochhammerqpochhammerexpand/qpochhammerconvert/qpochhammerMgfun/versionMgfun/old_behaviour_of_Groebner_ReduceMgfunMgfun/NOT_BUGGED_Reduce:-167.m¨lÐXìËW:-87.mw&ÕXìËW:-112.mÌC~XìËW:-126.m¶wMXìËW:-153.m©U«XìËW:-46.m’#MXìËW:-73.m}ÚOXìËW:-32.mW;XìËU:-19.mÐÊ#XìËU:-8.m¼8DXìËU:-176.mª<ÜXìËW:-144.mP¹XìËW:-130.m)ÏeXìËW:-91.mñ8dXìËW:-103.m½ÄXìËW:-117.m´Ð§XìËW:-78.mœ÷HXìËW:-64.m”—`XìËW:-50.mf¼AXìËWexpand/qfactorial.m-¦SXìËUqfactorial.m,®øXìËU:-23.m’ZXìËU:-37.mý¾™XìËU:-162.m [vXìËW:-96.mz7,XìËW:-108.mS&XìËW:-135.mNêXìËW:-149.m?ÂhXìËW:-121.m!#¬XìËW:-82.mð.ÆXìËW:-55.mzÕXìËW:-69.mS¬ÅXìËWMgfun/version.m5EXìËW:-41.mÝ"¶XìËU:-28.m×ÅàXìËU:-3.mÉ©FXìËU:-14.m³ïXìËUHolonomy/hilbert_dimension_do_it.m¥ÏXìËU:-202.mÏ‹fXìËW:-185.mßCšXìËW:-207.máÝõXìËW:-194.mâÒXìËW:-171.må$ XìËW:-180.mæ-óXìËW:-158.mú  XìËW:-199.müPŽXìËW:-211.m% XìËW:-216.m%[XìËW:-220.m(a)XìËW:-203.m´C½XìËW:-131.m€wAXìËW:-92.m 4XìËW:-145.mûÍAXìËW:-104.mêT¤XìËW:-118.mèËZXìËW:-79.m‘ñ2XìËW:-65.m€sXìËW:-51.mSkAXìËWexpand/qbinomial.m(Ö“XìËUApplyOpr.m3ïXìËU:-24.mðø{XìËU:-38.mî‘gXìËU:-10.mÆ6NXìËU:-190.m¤Y XìËW:-136.maUXìËW:-122.mQê/XìËW:-109.m¬/XìËW:-83.mÖi åXìËW:-97.mÏÁ-XìËW:-56.m…„ ¨XìËWMgfun.m6ÕXìËW:-29.miØXìËU:-42.mÔ÷ÎXìËU:-4.m˲EXìËU:-15.m¼|XìËUHolonomy/fglm_algorithm.m§¼^XìËU:-181.m¡ÑˆXìËW:-88.m|0XìËW:-113.m{cpXìËW:-127.mo/XìËW:-140.mä|1XìËW:-154.mÒÙXìËW:-47.m€)JXìËW:-60.mUqNXìËW:-74.mQVXìËWMgfun/old_behaviour_of_Groebner_Reduce.m5crXìËWqfactorial/qfactorialtoqpochhammer.m.ùüXìËUdiff/AlgSubs.m&¦XìËU:-33.mç -XìËU:-9.mËnDXìËU:-168.m¼3yXìËW:-163.mÑñ_XìËW:-186.mýÞ´XìËW:-208.mþ’ýXìËW:-172.m ÓXìËW:-177.mÛNXìËW:-195.mJ:XìËW:-159.mì·XìËW:-217.m!µXXìËW:-212.m'-XìËW:-221.m)ŠIXìËW:-182.m¶XìËW:-123.miR ÛXìËW:-150.m_8dXìËW:-137.mïø6XìËW:-84.m´g8XìËW:-98.m« 6XìËW:-57.m’p'XìËW:-70.m,ÅXìËW:-43.mZ´ XìËW:-16.mĘWXìËU:-5.m»òFXìËUHolonomy/version.m¤!XìËU:-204.m¥fXìËW:-141.m‚K1XìËW:-114.mh8XìËW:-128.mûž/XìËW:-100.møQ”XìËW:-155.möœµXìËW:-89.m¦Â“XìËW:-48.m}gBXìËW:-61.mfý—XìËW:-75.mX¿õXìËWqbinomial/qbinomialtoqpochhammer.m+iEXìËU:-34.mê:ÏXìËU:-20.mÒ6XìËUHolonomy/fglm_termination_proc.m«ŽXìËU:-132.mv-1XìËW:-105.malÌXìËW:-93.mX&LXìËW:-119.mú.pXìËW:-146.mðôDXìËW:-52.mPÏFXìËW:-66.mN=HXìËWexpand/qpochhammer.m0ú|XìËU:-39.m­†XìËU:-25.mì ˆXìËU:-11.mÔµBXìËU:-164.m½¬¿XìËW:-173.mÖP¡XìËW:-191.mÙörXìËW:-169.m}+XìËW:-178.m¨ÍXìËW:-187.m u%XìËW:-196.mÉwXìËW:-218.m%zIXìËW:-209.m&Ã%XìËW:-213.m&èEXìËW:-142.mv—XìËW:-115.mR XìËW:-129.mQ»/XìËW:-156.m6vXìËW:-101.møåXìËW:-62.m{ñvXìËW:-49.ms¶AXìËW:-76.mAG¹XìËW:-21.m6wXìËU:-35.mÛ¥}XìËUHolonomy/hilbert_dimension_rec.m¤!`XìËU:-106.mÓ¤XìËW:-133.mv^1XìËW:-94.mA* îXìËW:-147.màN.XìËW:-80.m}©1XìËW:-53.mFHEXìËW:-67.mCîXìËW:-26.mæüXìËU:-12.mÐÇXìËU:-1.mË÷ XìËUHolonomy.m­¨ÝXìËUHolonomy/next_term.m¦PlXìËU:-124.m€¸“XìËW:-151.mxû8%9'?(8$9%"""-%%nopsG6#9 (%%trueGC$>8&-%&unionG6$9&<#&F<6#F6@$/-%'selectG6%%%typeG9$-%(polynomG6$%(integ erGF@<">F3-F"6'FN,&F6F8F8F8F@F3F<@$4-%'memberG6$FS<#-%$seqG6$-%&minusG6$FDF6/F6 F3>F3-FB6$F3<#FDF3F0F0F0F0 M7R0 IAHolonomy/hilbert_dimension_do_itf*6$%"SG%"XG6"6#%WCopyright~(c)~1996-2008~Fre deric~Chyzak,~INRIA,~FranceGF'-%$maxG6#-%#opG6#-%$mapG6$%%nopsG-%?Holonomy/hilb ert_dimension_recG6'9$"""<"<#F99%F'F'F'F' M7R0 I3Holonomy/next_termf*6%%'borderG%*monoidealG%%TOrdG6"6#%WCopyright~(c)~1995-20 02~Frederic~Chyzak,~INRIA,~FranceGF(6$&9$6#"""-%%sortG6$7$-%#opG6$;""#!""F--F56 #-%'selectG6&f*6%%"tG%"bG%"mGF(6#F*F(45-%'memberG6$F-9%-%$hasG6$-%%map2G6%%'div ideGF-9&%%trueGF(F(F(-%$mapG6%f*6$%#dxG%#ctGF(6#F*F(*&F-F/FJF/F(F(F(&FR6#Q-orde r_indetsF(F,F-FJ&FR6#Q&orderF(F(F(F(F( M7R0 I8Holonomy/fglm_algorithmf*6&%,normal_formG%0find_dependencyG%1termination_proc G%%TOrdG6*%(currentG%'borderG%*monoidealG%$resG%#NFG%#EQG%#tyG%*subs_listG6#%WC opyright~(c)~1995-2009~Frederic~Chyzak,~INRIA,~FranceG6"C)>8(-%&tableGF4>8)F8>8 +7#-%$seqG6$/)&8*6#""%&FE6#""$&FE6#""#/FE-%%map2G6%%#opGFM-%'selectG6%%$hasG&&9 '6#Q(algebraF46#Q,type_structF4.%'qdilatG>8%7#""">8&7"?(F4F]oF]oF4-9&6%F[oF_oFY C.-%)userinfoG6&FG_F4%%fglmGQ+border~is~F4F[o-Fgo6&FGFioQ7monoideal~to~avoid~is ~F4F_o>8'-%3Holonomy/next_termGFdo>8$&F`p6#F]o-Fgo6&FJFioQ4deal~with~monomial~F 4Fdp>F[o&F`pFL-Fgo6%FGFioQ6compute~a~normal~formF4-9$6%FdpF7FY-Fgo6(""&FioQ1nor mal~form~for~F4FdpQ%~is~F4&F76#Fdp-Fgo6%FGFioQ2find~a~dependencyF4>F`p-9%6$F_oF 7@$0F`p.%%FAILGC%>&F;Fhq-%%subsG6$F=F`p>F_o7$-FR6#-%'removeG6%%'divideGF_oFdpFd p>F[o-F_s6%FasF[oFdp6$-%%evalG6#F7-Fgs6#F;F46$FinFcrF4F4 M7R0 I?Holonomy/fglm_termination_procf*6"F$6#%WCopyright~(c)~2000-2008~Frederic~Chyz ak,~INRIA,~FranceGE\s$Q5single_equation_caseF$f*6%%'borderG%*monoidealG%%TOrdGF $6#%WCopyright~(c)~1997-2002~Frederic~Chyzak,~INRIA,~FranceGF$/9%7"F$F$F$Q6zero _dimensional_caseF$f*F*F$6#%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA,~Fr anceGF$09$F2F$F$F$Q/holonomic_caseF$f*F*6#%$dimG6#%WCopyright~(c)~1996-2008~Fre deric~Chyzak,~INRIA,~FranceGF$C%>8$-%AHolonomy/hilbert_dimension_do_itG6$-%(con vertG6$F1.%$setG&9&6#Q-order_indetsF$-%)userinfoG6%""%.%%fglmG-%$catG6$Q6curren t~dimension~is~F$FA2-%%nopsG6#&&FK6#Q(algebraF$6#Q-right_indetsF$FAF$6$FIFSF$F$ F$F$F$F$ M7R0 I)Holonomy`6-c-HO_Internals$:-1c1algeq_to_dfinite$:-2c.holon_closure$:-3c-holon _defint$:-4c.holon_defqsum$:-5c-holon_defsum$:-6c/holon_diagonal$:-7c,dfinite_a dd$:-8c,dfinite_mul$:-9c5hypergeom_to_dfinite%:-10c.takayama_algo%:-11b6#%+this moduleG6+%7Holonomy/my_coeffs_recG%3Holonomy/my_coeffsG%5Holonomy/normal_formG% 9Holonomy/find_dependencyG%5Holonomy/terminationG%.Holonomy/fglmG%2Holonomy/tak ayamaG%5Holonomy/homogeneousG%2Holonomy/pretreatG6$%(packageG%WCopyright~(c)~20 00-2008~Frederic~Chyzak,~INRIA,~FranceG6-%-HO_InternalsG%1algeq_to_dfiniteG%.ho lon_closureG%-holon_defintG%.holon_defqsumG%-holon_defsumG%/holon_diagonalG%,df inite_addG%,dfinite_mulG%5hypergeom_to_dfiniteG%.takayama_algoG6"FLFLFL%2_m1405 14330584096G6+c7Holonomy/my_coeffs_rec%:-12c3Holonomy/my_coeffs%:-13c5Holonomy/ normal_form%:-14c9Holonomy/find_dependency%:-15c5Holonomy/termination%:-16c.Hol onomy/fglm%:-17c2Holonomy/takayama%:-18c5Holonomy/homogeneous%:-19c2Holonomy/pr etreat%:-20%*protectedG M7R0 I$:-6c-holon_defsum%:-216$%*protectedG/%+modulenameG%)HolonomyG M7R0 I%:-13f*6$%"pG%+indet_listG6"6#%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA ,~FranceGF'@%/9%7"9$-%#opG6#-%$mapG6%T%7#-T'6$F.&F,6#;""#!""&F,6#"""F'F'6(%6_th ismoduledefinitionGF'%7Holonomy/my_coeffs_recGc7Holonomy/my_coeffs_rec%:-12%3Ho lonomy/my_coeffsGc3Holonomy/my_coeffs%:-13/%+modulenameG%)HolonomyG M7R0 I%:-14=6"%&falseGE\[l(Q@holonomic_polynomial_expressionF$f*6%%%termG%,normal_fo rmG%%TOrdG6#%)red_formG6#%WCopyright~(c)~1997-2002~Frederic~Chyzak,~INRIA,~Fran ceGF$@%-%)assignedG6#&9%6#9$F5C$>8$-%'normalG6#-__%,Ore_algebraG%-OA_InternalsG %/apply_operatorG6%F8%;Holonomy/subs/the_functionG&9&6#Q(algebraF$>F5-%(collect G6&7$-%&numerG6#F;*&-%&denomGFR"""F8FV<$.%(AlgSubsG.%)ApplyOprG.%,distributedGF =F$6%FenFYFgn6$%6_thismoduledefinitionGF$Q6extension_contractionF$f*F)6$F.%&sca leG6#%WCopyright~(c)~1996-2009~Frederic~Chyzak,~INRIA,~FranceGF$@%F2F5C$>F;-%GM gfun/old_behaviour_of_Groebner_ReduceG6&F8%1Holonomy/subs/gbG%9Holonomy/subs/te rm_orderG8%>F5*&F;FVFio!""F$F$6$FjnF$Q4hpe_single_equationF$&c5Holonomy/normal_ form%:-146#F'Q;hpe_single_equation_RootOfF$&F`p6#QGholonomic_polynomial_express ion_RootOfF$Q"+F$f*F)6+%0remainder_tableG%+args_tableG%"iG%)den_listG%)position G%*incrementG%-reduced_formG%0old_normal_formGF^o6#%WCopyright~(c)~1995-2009~Fr ederic~Chyzak,~INRIA,~FranceGF$@%F2F5C'>Fio%9Holonomy/subs/args_tableG@%-%'memb erG6%%%trueG-%%map2G6%%$hasGF8&FH6#Q-order_indetsF$8(C%>8)-%#opG6$FcrF`r>8+-9!6 %*&F8FVFfrF\pF6FH>8*7$-%$seqG6$-&&&&Fio6#8&6#""#FI6#Q(productF$6$Ffr&F[sF[t/F\t ;FV%:Holonomy/subs/term_numberG-&FGF_t6$Ffr&F[s6#,&FetFVFVFV>Fas7#-%"$G6$FVF[u? (F\tFVFVFetF[rC$>&F;F[t-Feo6%&FasF[tFjs.8,>Fdu6$FduFiu>8'7#-Fds6$&FduF]tFct>F5- _FA%-vectprimpartG6$-%'expandG6#7$-Fds6$-%(convertG6$-%'subsopG6$/F\t&Fdu6#FVF] v%"*GFct*&-F^w6$F]vFfwFV&FasFjtFV%9Holonomy/subs/poly_indetGF$F$6$FjnF$Q"*F$f*F )6,%*remainderGFjpF[qF]qF^qF_qF`qF^o%1tensor_incrementG%.operator_typeG6#FbqF$@ %F2F5C&>FioFfq@%-Fiq6%F[rF\rF]vC'>Fcr-Fhr6$F]vF`r>8-&FG6$Q-type_of_leftF$-Fhr6$ 7%FVFVF^t-%'selectG6%F_r-Fgy6%F_r-Fhr6#-%%evalG6#FGQ.right_of_leftF$Fcr>Fiu-%#i fG6%/F_y.%%diffG-F^w6$7#-Fds6$&FcrF[tFct%"+G-Fcz6%-Fiq6$F_y<$.%'qdilatG.%&shift G-F^w6$FjzFfw-%&ERRORG6#-%$catG6%Q&type~F$F_yQ4~not~dealt~with~yetF$>Fas-F]s6%* &F8FVFcrF\pF6FH>Ffr7$-&&&&FioFewF]tFIF_t6$Fiu&FasFew-Fgt6$Fcr&FasF]t>Ffr7$FVFV? (F\tFVFVFetF[rC$>F;-Feo6%&FfrFewFjs.F[s>Ffr7$F;*&F[sFV&FfrF]tFV>F5-Fdv6$-Fhv6#F fr%@Holonomy/subs/tensor_poly_indetGF$6%FgzFg[lFe[l6$FjnF$Fepf*F)F-6#F0F$@%F2F5 C$>F;-FM6&F?FWFfn-%"@G6$%&evalaG%'NormalG>F5-FM6&FO<%FX.%'RootOfGFZFfnF=F$6&Fen FYFh_lFgn6$FjnF$/%+modulenameG%)HolonomyG M7R0 I$:-5c.holon_defqsum%:-226$%*protectedG/%+modulenameG%)HolonomyG M7R0 I$:-8c,dfinite_add%:-236$%*protectedG/%+modulenameG%)HolonomyG M7R0 I%:-15=6"%&falseGE\[l(Q@holonomic_polynomial_expressionF$f*6$%*monoidealG%2norm al_form_tableG6$%$sysG%$varG6#%WCopyright~(c)~1997-2009~Frederic~Chyzak,~INRIA, ~FranceGF$C&>8$-%$mapG6%f*6$%"iG%"tGF$6#%WCopyright~(c)~1997-2002~Frederic~Chyz ak,~INRIA,~FranceGF$&9%6#9$F$F$F$-%&minusG6$-F56$%#opG<#-%(indicesG6#F>-%(conve rtG6$F@.%$setGF>>F3-%(collectG6&F3<&.%(AlgSubsG.%)ApplyOprG._%,Ore_algebraGFV._ FenFX.%,distributedG%'normalG>8%-%'indetsG6$F3-.%)specfuncG6$.%)anythingGFT-T%6 %F3F\o-FL6$&%9Holonomy/subs/term_orderG6#Q-order_indetsF$FNF$6(FOFboFeoFXFVFin6 &%6_thismoduledefinitionGF$%2yet_another_gaussGc2yet_another_gauss%:-24Q6extens ion_contractionF$f*F)6)%+indet_listG%%termG%$etaG%)solutionG%%zeroGF-%+dependen cyG6#%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA,~FranceGF$C)>F3-F56$FF7#F H?&F\oF@%%trueG>F3-%'removeG6%%'divideGF3F\o>8(-%'expandG6#-%&numerG6#-Fjn6#-FL 6$7#-%$seqG6$*&&8&6#F\o"""&F>F^sF_s/F\oF3%"+G>8)<#-Fgo6$F\r%9Holonomy/subs/poly _indetG>8'-_%+SolveToolsG%'LinearG6$Fds<#-Fir6$F\sFas>8*-%%subsG6$Fjs-FL6$7#-Fi r6$*&F\sF_sF\oF_sFasFbs-%#ifG6%/Fdt""!.%%FAILG-FR6&-%)primpartG6$-Far6#-Fft6$-F 56$f*6#%"nGF$6$%)operatorG%&arrowGF$/F@F_sF$F$F$-%%map2G6%FFF_s-%'selectG6$%&ev albGFjsFdtFhsFhsFhn%'factorGF$6$FduFin6&FapF$%3Holonomy/my_coeffsGc3Holonomy/my _coeffs%:-13Q4hpe_single_equationF$&c9Holonomy/find_dependency%:-156#F'Q;hpe_si ngle_equation_RootOfF$&Few6#QGholonomic_polynomial_expression_RootOfF$Q"+F$f*F) 6#%"uG6#%WCopyright~(c)~1995-2005~Frederic~Chyzak,~INRIA,~FranceGF$-Fgo6%-F56%f *6$%"lGF^x6#F96#%WCopyright~(c)~1995-2002~Frederic~Chyzak,~INRIA,~FranceGF$7$-F ^r6#-%$addG6$*&)F>F3F_s&F@6#F3F_s/F3;F_s%:Holonomy/subs/term_numberG&F@6#,&FgyF _sF_sF_sF$F$F$-F56%f*F8F$6#FjxF$F=F$F$F$-FB6$FD-FL6$F@FOF>F37$-FF6#FhsF3FioF$F$ 6&FapF$FbpFcpQ"*F$f*F)F]x6#F`xF$-Fgo6%-F56%f*F8F$6#FjxF$F=F$F$F$F_zF>7$-FF6#%@H olonomy/subs/tensor_poly_indetGF3FioF$F$6&FapF$FbpFcpFjwf*F)F,6#F0F$C&>F3-F56%f *F8F$6#F>F3-FR6&F3<'FU.%'RootOfGFWFYFfnFhnFjn>F\o-F^o6$F3-Fao6$F doF`\lFfoF$6)FOFboFeoFXFVFb\lFin6&FapF$FbpFcp/%+modulenameG%)HolonomyG M7R0 I%:-16=6"%&falseGE\[l(Q@holonomic_polynomial_expressionF$-%?Holonomy/fglm_termi nation_procG6#Q6zero_dimensional_caseF$Q6extension_contractionF$-F)6#Q/holonomi c_caseF$Q4hpe_single_equationF$-F)6#Q5single_equation_caseF$Q;hpe_single_equati on_RootOfF$F1Q"+F$F(Q"*F$F(QGholonomic_polynomial_expression_RootOfF$F(/%+modul enameG%)HolonomyG M7R0 I$:-7c/holon_diagonal%:-256$%*protectedG/%+modulenameG%)HolonomyG M7R0 I%:-10c5hypergeom_to_dfinite%:-266$%*protectedG/%+modulenameG%)HolonomyG M7R0 I%:-17f*6%%*operationG%*subs_listG%%TOrdG6&%,normal_formG%0find_dependencyG%$re sG%#GBG6#%WCopyright~(c)~1997-2008~Frederic~Chyzak,~INRIA,~FranceG6"C*-%'ASSERT G6$-%'memberG6$9$7)Q"+F/Q"*F/Q6extension_contractionF/Q@holonomic_polynomial_ex pressionF/QGholonomic_polynomial_expression_RootOfF/Q4hpe_single_equationF/Q;hp e_single_equation_RootOfF/Q8operation~not~availableF/>8$-%%subsG6$9%-%%evalG6#& T%6#F7>8%-FD6$FF-FH6#&T'FL>8&-%8Holonomy/fglm_algorithmG6&FBFN&T)FL9&>FV-%$mapG 6$%#opG7#-%(entriesG6#&FV6#""#>8'-_%)GroebnerG%,InterReduceG6$FVFfn-_Fgo%.Remem berBasisG6%FVFdoFfnFdoF/F/6*%6_thismoduledefinitionGF/%5Holonomy/normal_formGc5 Holonomy/normal_form%:-14%9Holonomy/find_dependencyGc9Holonomy/find_dependency% :-15%5Holonomy/terminationGc5Holonomy/termination%:-16/%+modulenameG%)HolonomyG M7R0 I$:-3c.holon_closure%:-276$%*protectedG/%+modulenameG%)HolonomyG M7R0 I%:-18f*6''%*poly_listG-<$%%listG%$setG6#%(polynomG'%$AlgG%+OreAlgebraG'%'x_lis tG-F(6#%%nameG'%%TOrdG%.MonomialOrderG'%%initG7&F)F)%(integerG<$F4%*procedureG6 "6#%WCopyright~(c)~1996-2005~Frederic~Chyzak,~INRIA,~FranceGF>-T%6'-%(convertG6 $-%'expandG6#9$.F)9%-FE6$9&FK9'9(F>F>6&%6_thismoduledefinitionGF>%3takayama_alg orithmGc3takayama_algorithm%:-28/%+modulenameG%)HolonomyG M7R0 I$:-9c,dfinite_mul%:-296$%*protectedG/%+modulenameG%)HolonomyG M7R0 I$:-4c-holon_defint%:-306$%*protectedG/%+modulenameG%)HolonomyG M7R0 I$:-1`68c5algebraic_to_dfinite%:-31c1algeq_to_dfinite%:-32c,dfinite_add%:-23c%f glm%:-33c.dfinite_addup%:-34c/dfinite_create%:-35c,dfinite_mul%:-29c1dfinite_mu ltiply%:-36c)diagonal%:-37c6extension_contraction%:-38c.holon_closure%:-27c-hol on_defint%:-30c.holon_defqsum%:-22c-holon_defsum%:-21c/holon_diagonal%:-25c5hyp ergeom_to_dfinite%:-26c)takayama%:-39c:hypergeometric_to_dfinite%:-40c3takayama _algorithm%:-28c2usual_term_orders%:-41c3suitable_extension%:-42c2yet_another_g auss%:-24b6#%+thismoduleG6"6#%WCopyright~(c)~2000-2008~Frederic~Chyzak,~INRIA,~ FranceG68%5algebraic_to_dfiniteG%1algeq_to_dfiniteG%,dfinite_addG%%fglmG%.dfini te_addupG%/dfinite_createG%,dfinite_mulG%1dfinite_multiplyG%)diagonalG%6extensi on_contractionG%.holon_closureG%-holon_defintG%.holon_defqsumG%-holon_defsumG%/ holon_diagonalG%5hypergeom_to_dfiniteG%)takayamaG%:hypergeometric_to_dfiniteG%3 takayama_algorithmG%2usual_term_ordersG%3suitable_extensionG%2yet_another_gauss GF>F>F>F>%2_m140514330584160G6"6$%*protectedG/%+modulenameG%)HolonomyG M7R0 I%:-12f*6$%"pG%"xG6#%"iG6#%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA,~Fra nceG6"-%$seqG6$-%&coeffG6%9$9%8$/F4;""!-%'degreeG6$F2F3F+F+6$%6_thismoduledefin itionGF+/%+modulenameG%)HolonomyG M7R0 I%:-19f*6$%"vG%"dG6"6#%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA,~FranceG F'@%/-%%nopsG6#9$"""7#)-%#opGF.9%C$%)randpolyG-%'expandG6#*&-%9randpoly/monomia ls/denseG6$-F96#*&-%'subsopG6$/F0%%NULLGF/F0&F/6#F0!""F5F0)FGF5F0F'6#F76$%6_thi smoduledefinitionGF'/%+modulenameG%)HolonomyG M7R0 I$:-2c1algeq_to_dfinite%:-326$%*protectedG/%+modulenameG%)HolonomyG M7R0 I%:-20=6"%&falseGE\[l$%%diffGf*6%%"pG%#DxG%"xG6&%+coeff_listG%*term_listG%,degr ee_listG%"iG6#%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA,~FranceGF$C&>8$7 #-%'coeffsG6%9$9%8%>F=7#F=>8&-%$mapG6%%'degreeGF=F<-%'expandG6#-%(convertG6$7#- %$seqG6$*&)!""&FA6#8'"""-F'6$&F6FT7#-%"$G6$9&FSFV/FU;FV-%%nopsG6#F6%"+GF$F$6$%6 _thismoduledefinitionGF$%&shiftGf*6%F*%#SnG%"nG6%F.F/F16#F3F$C%>F6F7>F=F?-FG6#- FJ6$7#-FN6$-%%subsG6$/Fhn,&FhnFV-FE6$&F=6#FAFF67#-F96%-FG6#F;FF=F?-%&numerG6#-FJ6$7#-F N6$-Fcp6$/Fhn*&FhnFV)9'FgpFRF[qF\qF^oF$F$6$F`oF$/%+modulenameG%)HolonomyG M7R0 I%:-11c)takayama%:-396$%*protectedG/%+modulenameG%)HolonomyG M7R0 I%:-42f*6%%(sub_AlgG%$AlgG%'x_listG6(%&x_setG%)sub_CommG%%CommG%'sub_GRG%#GRG%" xG6#%WCopyright~(c)~1997-2002~Frederic~Chyzak,~INRIA,~FranceG6"C(>8$-%(convertG 6$9&.%$setG>8%&9$6#Q,commutationF1>8&&9%F?>8'&F<6#Q,ground_ringF1>8(&FBFH333333 3/&FF6#Q/characteristicF1&FKFV/&FF6#Q+all_indetsF1-%&unionG6$&FKFenF4/&FF6#Q,ty pe_structF1&FKF]o/-%&minusG6$&F>6#Q4non_alg_poly_indetsF1F4-Fbo6$&FDFeo<#-%$seq G6$&FD6$Q.right_of_leftF18)/FapF8/-Fhn6$&F>6#Q,left_indetsF1F4&FDFgp/&F>6#Q-rig ht_indetsF1-Fbo6$&FDF\qFjo/<#-F\p6$-%&evalbG6#/&F>6$Q-type_of_leftF1Fap&FDFjq/F apFfp<#%%trueG543-%)assignedG6#&F>6#Q-localizationF1-Fdr6#&FDFgr/FfrF[sF16$%,co mmutationGF:6$%6_thismoduledefinitionGF1/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-28f*6'%*poly_listG%$AlgG%+indet_listG%%TOrdG%%initG6,%*comm_typeG%,degree_l istG%#N0G%"NG%"iG%#GBG%"xG%/increment_listG%(elim_GBG%*stop_procG6#%WCopyright~ (c)~1996-2008~Frederic~Chyzak,~INRIA,~FranceG6"C'-%*typematchG6$9(7&'8,%%listG' 8)F@'8&%(integerG'8-<$.%%nameG.%*procedureG>8%-%$mapG6%%'degreeG9$9&?&8*FT%%tru eG>&8$6#FV&9%6$Q-type_of_leftF7FV?(8'-%$maxG6$,&FD"""F`oF`o-%$minG6#-%#opG6#FNF `oF7-FG6%F?FBF[oC'-%)userinfoG6%F`o.%)takayamaG-%$catG6$Q*degree~=~F7F[o>8+7#-% $seqG6$-%#ifG6%1&FN6#8(F[o-Feo6#-%'expandG6#-FP6%%"*G-T%6$FT,&F[oF`oF]q!""&FSF^ q%%NULLG/F_q;F`o-%%nopsG6#FS?&FVFTFW>Fdp-FP6'&T'6#FYFdp&Fgn6$Q.right_of_leftF7F VFV-Fjp6%/FY.%'qdilatG&Fgn6$Q+q_of_rightF7F[sF^r>FB-_%)GroebnerG%&BasisG6$-FP6% %)primpartG-FP6$Feo7$FdpFB&9'6#Q-order_indetsF7Fct>F?-%'removeG6%%$hasGFBFT7%F? FB,&F[oF`oF\rF`oF76&FJFLFbsF^p6(%6_thismoduledefinitionGF7%5Holonomy/homogeneou sGc5Holonomy/homogeneous%:-19%2Holonomy/pretreatGc2Holonomy/pretreat%:-20/%+mod ulenameGc-HO_Internals$:-1 M7R0 I%:-35f*6%%"fG%#GBG%%TOrdG6#%)d-finiteG6$%)rememberG%WCopyright~(c)~1997-2002~F rederic~Chyzak,~INRIA,~FranceG6"C)>&8$6#Q%typeF-.%(DFiniteG>&F16#Q$tagF-9$>&F16 #Q$varF--%(convertG6$&&9&6#Q(algebraF-6#Q,left_indetsF-.%%listG>&F1FEFC>&F16#Q' gbasisF-9%>&F16#Q+term_orderF-FDF1F-6(%$tagG%$varG%+term_orderG%%typeGF5FJ6$%6_ thismoduledefinitionGF-/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-41f*6$%$AlgG%(TO_typeG6#%(new_AlgG6#%WCopyright~(c)~1996-2008~Frederic~Chyz ak,~INRIA,~FranceG6"C$@(/9%Q(DfiniteF+C$>8$-__%,Ore_algebraG%-OA_InternalsG%4ra tionalize_algebraG6$9$Q&fullyF+@$4-%)assignedG6#&F36$Q2usual_term_ordersF+F0>FB -_%)GroebnerG%.MonomialOrderG6$F3-.%%tdegG6#-%#opG6#&F36#Q-right_indetsF+/F/Q*h olonomicF+C$>F3F;@$4-F@6#&F36$FDFV>Fgn-FG6$F3-FL6$FO-FP6#&F36#Q,left_indetsF+33 /-%%nopsG6#F/""#/-FP6$"""F/.%)takayamaG-%%typeG6$-FP6$FioF/-.%%listG6#.%%nameGC %>F3F4>F3-_F6%6polynomialize_algebraG6$F3-%(convertG6$Fcp.%$setG@$4-F@6#&F36$FD F/>F[r-FG6%F3-.%'lexdegG6$Fcp-Fcq6$FRFfpFcpF[rF+6(F_pFMFbrFgpFfqFjp6$%6_thismod uledefinitionGF+/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-36f*6$%+descr_listG%%TOrdG60%,term_numberG%+args_tableG%"iG%"jG%"kG%*subs_l istG%0new_comm_paramsG%0old_comm_paramsG%$AlgG%(new_AlgG%)new_TOrdG%(new_sysG%" CG%1all_right_indetsG6#%WCopyright~(c)~1995-2009~Frederic~Chyzak,~INRIA,~France G6"C)>8$-%%nopsG6#9$>8,&9%6#Q(algebraF8>8+-%#opG6#-%&minusG6$&FA6#Q,comm_indets F8&FA6#Q,left_indetsF8>80&FA6#Q,commutationF8>81<#-%$seqG6$-Fgn6$&8'6#8&/F\o&FU 6#Q-right_indetsF8/F^o;"""F;?(F^oFeoFeoF;%%trueGC(>8)7#-Fgn6$/F\oF[o/F\o&FAFao> 8*-Fgn6$-%#ifG6%0F^oF\o-Fgn6$&&F`p6#8(6#F\o/F^q;Feo-F=6#F`p%%NULLG/F\oFdo>&8-F] o-__%,Ore_algebraG%-OA_InternalsG%-skew_algebraG6%-FI6#-%%subsG6$Fjo<#-Fgn6$/&F U6$Q-type_of_leftF8&FU6$Q.left_of_rightF8F\o7%F\oF\s-Ffp6%-%%typeG6$Fir%9Ore_al gebra/types_with_qG&FU6$Q+q_of_rightF8F\oFdqF_o/.%%commG<$FbpFG/.%(polynomGFZ>& 8.F]o-_%)GroebnerG%.MonomialOrderG6$Fgq-.%%prodG6$-Fcr6$Fjo&&&&F?F]o6#""#6#Q2Cr eationArgumentsF8Fbu-.%%tdegG6#Fbp>&8/F]o-Fcr6$Fjo&Fau6#Feo>&8%F]o6$F[vFat-T%6% Q"*F87'/%9Holonomy/subs/args_tableGFcv/%:Holonomy/subs/term_numberGF;/%9Holonom y/subs/term_orderGFC/%9Holonomy/subs/poly_indetG&FBFao/%@Holonomy/subs/tensor_p oly_indetG-%$mapG6$FI7$FZF`pFCF86&%$setGF[tF_tFes6&%6_thismoduledefinitionGF8%. Holonomy/fglmGc.Holonomy/fglm%:-17/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-27f*6%'%"GG-<$%%listG%$setG6#%(polynomG'%%TOrdG%.MonomialOrderG'%)TOrd_locG F/6$%$AlgG%(Alg_locG6#%WCopyright~(c)~1996-2005~Frederic~Chyzak,~INRIA,~FranceG 6"C%>8$&9%6#Q(algebraF7>8%&9&F=-T%6#9"F7F76&%6_thismoduledefinitionGF7%6extensi on_contractionGc6extension_contraction%:-38/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-26f*6$'%"HG%*algebraicG'%$AlgG%+OreAlgebraG6"6#%WCopyright~(c)~1995-2002~Fr ederic~Chyzak,~INRIA,~FranceGF+-T%6$9$9%F+F+6&%6_thismoduledefinitionGF+%:hyper geometric_to_dfiniteGc:hypergeometric_to_dfinite%:-40/%+modulenameGc-HO_Interna ls$:-1 M7R0 I%:-33f*6%%*operationG%*subs_listG%%TOrdG6&%,normal_formG%0find_dependencyG%$re sG%#GBG6#%WCopyright~(c)~1997-2008~Frederic~Chyzak,~INRIA,~FranceG6"C*-%'ASSERT G6$-%'memberG6$9$7)Q"+F/Q"*F/Q6extension_contractionF/Q@holonomic_polynomial_ex pressionF/QGholonomic_polynomial_expression_RootOfF/Q4hpe_single_equationF/Q;hp e_single_equation_RootOfF/Q8operation~not~availableF/>8$-%%subsG6$9%-%%evalG6#& T%6#F7>8%-FD6$FF-FH6#&T'FL>8&-%8Holonomy/fglm_algorithmG6&FBFN&T)FL9&>FV-%$mapG 6$%#opG7#-%(entriesG6#&FV6#""#>8'-_%)GroebnerG%,InterReduceG6$FVFfn-_Fgo%.Remem berBasisG6%FVFdoFfnFdoF/F/6*%6_thismoduledefinitionGF/%5Holonomy/normal_formGc5 Holonomy/normal_form%:-14%9Holonomy/find_dependencyGc9Holonomy/find_dependency% :-15%5Holonomy/terminationGc5Holonomy/termination%:-16/%+modulenameGc-HO_Intern als$:-1 M7R0 I%:-34f*6$%+descr_listG%%TOrdG6%%,term_numberG%+args_tableG%"iG6#%WCopyright~(c )~1995-2009~Frederic~Chyzak,~INRIA,~FranceG6"C%>8$-%%nopsG6#9$?(8&"""F7F0%%true G>&8%6#F6-%#opG6#-F>6$F6F4-T%6%Q"+F-7&/%9Holonomy/subs/args_tableGF;/%:Holonomy /subs/term_numberGF0/%9Holonomy/subs/term_orderG9%/%9Holonomy/subs/poly_indetG& &FM6#Q(algebraF-6#Q-right_indetsF-FMF-F-6&%6_thismoduledefinitionGF-%.Holonomy/ fglmGc.Holonomy/fglm%:-17/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-25f*6('%"GG-<$%%listG%$setG6#%(polynomG'%'x_listG-F(6#%%nameG'%"sGF1'%)TOrd _ratG%.MonomialOrderG'%*TOrd_polyGF6'%*TOrd_elimGF66%%(Alg_ratG%)Alg_polyG%)Alg _elimG6#%WCopyright~(c)~1994-2005~Frederic~Chyzak,~INRIA,~FranceG6"C(>8$&9'6#Q( algebraFA>8%&9(FG>8&&9)FG@$/-%6VERIFICATION_ALGEBRASG6%FDFJFN%&falseGYQEterm~or ders~not~on~suitable~algebrasFA@$550-%%nopsG6#9%-Fhn6#-%(convertG6$Fjn.F*2Fgn"" #4-%'memberG6$9&FjnYQincannot~compute~a~diagonal~with~respect~to~these~indeterm inatesFA-T%6'-%'expandG6#9$7$-%#opG6#-%%subsG6$/Fgo%%NULLGFjnFgoFFFLFPFAFA6&%6_ thismoduledefinitionGFA%)diagonalGc)diagonal%:-37/%+modulenameGc-HO_Internals$: -1 M7R0 I%:-38f*6%%"GG%%TOrdG%)TOrd_locG6(%$AlgG%(Alg_locG%"uG%"pG%'GB_locG%#GBG6#%WCop yright~(c)~1996-2008~Frederic~Chyzak,~INRIA,~FranceG6"C*>8$&9%6#Q(algebraF1>8%& 9&F7>8&&&F:6#Q-localizationF16#""">8'&F@6#""#>8(-_%)GroebnerG%&BasisG6$<$,&*&FF FDF>FDFD!""FD-%#opG6#9$F<>8)-T%6%Q6extension_contractionF17%/%1Holonomy/subs/gb GFK/%9Holonomy/subs/term_orderGFF6-%'ASSERTG6$/FZ-FM6$FZF6QGbug~in~extensi on/contraction~algorithmF1FZF1F16&%6_thismoduledefinitionGF1%.Holonomy/fglmGc.H olonomy/fglm%:-17/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-24t+6&%*equa_listG%,NF_var_listG%,pp_var_listG%#~$G69%(equa_nbG%"iG%"jG%"LG %"cG%"tG%0input_term_listG%4all_input_term_listG%(term_nbG%-all_var_listG%#sbG% $pvcG%$pvmG%$pvdG%$pvlG%#ctG%#clG%#dtG%)term_lcmG%"uG%"mG%$denG%.expanded_formG 6#%WCopyright~(c)~1994-2009~Frederic~Chyzak,~INRIA,~FranceG6"C3>8$-%%nopsG6#9$? (8%"""FMFF%%trueGC$>89-%$lcmG6#-%#opG6#-%&denomG6#&FJ6#FL>&8'Ffn-%'normalG6#-%$ mapG6%%"*GFenFQ-%)userinfoG6)FM.%*gausselimGQ0elimination~of~FC-FH6#9%Q1~variab les~from~FCFFQ+~equationsFC-Fbo6%""$FdoQLfirst~convert~the~problem~to~linear~al gebraFC>8-7$-FVFho87?(FLFMFMFFFNC$>Fhn7$-%(collectG6%*&FdpFM&Fhn6#FMFMFap.%,dis tributedG&Fhn6#""#>&8(Ffn-%'coeffsG6%F]qFap&8)Ffn>8*7#-FV6#-%&minusG6$<#-%$seqG 6$Fjq/FL;FMFF<#FM>8+<%-FV6#-%'indetsG6$-Fas6$7#9"%)functionG-%"^G6$%%nameGF[t-F V6#F]r-Ffr6$-FV6#-Fas6#FaqFhr>8,-FHF]t>8.7#-Ffr6$/&F]rFfn&88Ffn/FL;FMFet>F[r-%% subsG6$Fht-FV6#F[r?(FLFMFMFFFN>Fhn7$-%(convertG6$-%$zipG6%f*6$%"aG%"bGFC6$%)ope ratorG%&arrowGFC*&FJFMFioFMFCFCFC7#Feq7#Fjq%"+GFaq-Fbo6%F^pFdoQAnow~perform~Gau ssian~eliminationFC-Fbo6&""&FdoQOthe~matrix~before~any~elimination~looks~like:~ FC-%%evalG6#Fin?(FLFMFMFFFNC.-Fbo6%""%FdoQ@finds~a~pivot~on~a~new~equationFC@$/ F]q""!C$-Fbo6&FawFdoQ8no~pivot~found~on~line~FCFL[>80FM>81!"">82F^x?(8&FMFMFetF NC&>83-%&coeffG6$F]q&F_u6#F\y>85-%'degreeG6#F_y>84-FHFiy@$330F_yF^x52FfyFgx/Fgx Fhx5/FjxF^x2F[zFjxC&>8/F_y>FexFcy>FgxFfy>FjxF[z-%'ASSERTG6$0FexFMQABUG,~found~p ivot~should~not~be~1FC-Fbo6&FawFdoQ/the~pivot~is:~FC*&FizFMFexFM?(F\y,&FLFMFMFM FMFFFNC$>F_y-Fay6$&&FinFdyF^qFex@$F`zC'>86-FS6$FizF_y>8:-%'expandG6#,&*&-F[o6#* &Fa\lFMF_yFhxFMF]\lFMFM*&-F[o6#*&Fa\lFMFizFhxFMFhnFMFhx>Fe\l-Fdw6$Fe\l-F^o6$f*6 #%"xGFC6$FfvFgvFC/FJ-%'freezeGFIFCFCFC-Fas6$Fe\l.-%)specfuncG6$%)anythingG<&_%, Ore_algebraG%(AlgSubsG_Fg^l%)ApplyOprG_FCFh^l_FCFj^l>Fe\l-__Fg^l%-OA_InternalsG %-vectprimpartG6$Fe\lF\s>F]\l-%%thawG6#Fe\l>Fhn-%&evalnG6#Fhn>Feq-Fj_l6#Feq-Fbo 6&FawFdoQJthe~matrix~after~elimination~looks~like:~FCFcw-Fbo6%F^pFdoQGfinally~r eturn~to~the~original~problemFC@%F]x-%)primpartG6$-Fdu6$7#-Ffr6$/Fcy&F]rFdy/F\y FauFaq9&%%FAILGFCFC6$%6_thismoduledefinitionGFC6#Fjw/%+modulenameGc-HO_Internal s$:-1 M7R0 I%:-31f*6%%"PG%"fG%%TOrdG60%%degPG%"xG%"kG%&x_lstG%#DPG%"AG%"BG%"RG%"SG%$denG%$ numG%#eqG%$algG%$oneG6#%WCopyright~(c)~1994-2002~Frederic~Chyzak,~INRIA,~France G6"C0-%'ASSERTG6$-%%typeG6$&9&6#Q(algebraF9.%,DiffAlgebraGQIterm~order~over~non -differential~algebraF9>8$-%'degreeG6$9$9%-F<6$2""!FIQ$P=0F9>8'&FA6#Q,left_inde tsF9>8(-%%diffGFL>81-%&gcdexG6'FMFZFN.8).8*-F<6$/Fhn"""Q0non-trivial~gcdF9>8.-% &numerG6#F_o>8--%&denomGFio>&8+6#FR-%'normalG6#-%$remG6%FNFMFN>&8,Fap-F]p6#F_p> F_p-FhoF\q?&8%FU%%trueGC$?(8&FcoFcoFIFaqC%>&F`p6#Fdq-Fcp6#-Ffp6%,**(F[pFco&Fjp6 #,&FdqFco!""FcoFco-Ffn6$&F`pF`rF`qFcoFco**F_rFcoFfoFco-Ffn6$FMF`qFco-Ffn6$FerFN FcoFbr*(F[pFco-Ffn6$F_rF`qFcoFerFcoFbr**FarFco-Ffn6$F[pF`qFcoF_rFcoFerFcoFbrFMF N>&FjpFhq*&-F]p6#FgqFcoF_r""#>Fgq-FhoFes>&8/6#F`q-%%subsG6$7#-%$seqG6$/&80Fhq)& FA6$Q.right_of_leftF9F`qFdq/Fdq;FRFI-T%6$7#-Fbt6$7$Fgq*()F[pFdqFcoFbsFcoFetFcoF [u7$-Fbt6$FetF[uFN-%%evalG6#-%$mapG6%%)primpartG7#-Fbt6$Fjs/F`qFU&FA6#Q-right_i ndetsF9F96$FF%-right_indetsG6&%6_thismoduledefinitionGF9%2yet_another_gaussGc2y et_another_gauss%:-24/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-37f*6'%"GG%'x_listG%)TOrd_ratG%*TOrd_polyG%*TOrd_elimG62%(Alg_ratG%)Alg_pol yG%(Alg_locG%)TOrd_locG%'GB_ratG%(GB_polyG%#dfG%$phiG%&loc_uG%&loc_pG%"iG%"xG%, remaining_xG%"KG%"CG%,minimal_dimG6#%WCopyright~(c)~1994-2008~Frederic~Chyzak,~ INRIA,~FranceG6"C3>80&9%6#!"">8$&9&6#Q(algebraF=>8%&9'FI-%)userinfoG6%""".T%Q?p erform~algebraic~substitutionF=>8(-_%)GroebnerG%&BasisG6$9$FH>8*-T'6%8+FWFH>Fin *&-%(AlgSubsG6'Fin-%(convertG6$&FF6#Q,left_indetsF=.%%listGFRFF<%-%$seqG6$/&FB6 #8.*&F`pFR&FB6#,&FbpFRFDFRFD/Fbp;""#-%%nopsG6#FB-F]p6$/8/F`q/F`q-%'removeG6%%'m emberGFfoFB/&FB6#FRFgqFR-%"*G6#-%#opG6$;FR!"#FBFD>FW-T)6%Q@holonomic_polynomial _expressionF=7$/%;Holonomy/subs/the_functionGFin/%9Holonomy/subs/term_orderGFHF H>FW-%$mapG6%%)primpartGFW&FF6#Q0non_comm_indetsF=-FP6%""$FSQ0operators~foundF= -FP6%FesFSFW-FP6%FRFSQ.test~holonomyF=>8)-FY6$FWFN>83-F[q6#Ffo@$0-_FZ%1HilbertD imensionG6$F]tFNFatC--FP6%FRFSQ>perform~extension/contractionF=>8--%$lcmG6#-F]r 6#-F]s6%%'lcoeffGFW&FF6#Q-right_indetsF=>F_u-F_s6$F_uF@-FP6&FesFSQ8localize~by~ polynomial~F=F_u>82&FL6#Q,commutationF=>81&Fbv6#Q,ground_ringF=>Fgv-__%,Ore_alg ebraG%-OA_InternalsG%,ground_ringG6%&Fgv6#Q/characteristicF=-%&unionG6$&Fgv6#Q+ all_indetsF=<#8,&Fgv6#Q,type_structF=>Fbv-_F^w%,commutationG6'Fgv&FbvFgo&FbvFiu <#-F]p6$/.%)loc_diffG7$&Fbv6$Q.right_of_leftF=F`qF`q/F`qFfx7$F]xF_u>8&-_F^w%(al gebraG6&Fbv-%&minusGFhw<"F\z>8'-_FZ%.MonomialOrderG6$Fey-.%'lexdegG6$-%%sortG6$ 7#-F]r6#Fgx&FN6#Q&orderF=7$-F]r6#-Fhz6$7#-F]r6#FfxF][lF]x>F]t-T+6%-F]s6$F]r<$FW F]tFNF^z-FP6%FesFSQMperform~elimination~and~creative~telescopingF=&-T-6'F]tFL-% %subsG6$/F@%%NULLGFB9(7&7"F]]l""!-Fg\l6$<$/%8Holonomy/subs/dimensionG-F[q6#&F[] l6#Q2polynomial_indetsF=/FjrF[]lf*6%%(elim_GBG%#GBG%"NG6#%$dimG6#%WCopyright~(c )~1997-2008~Frederic~Chyzak,~INRIA,~FranceGF=C%>FF-Fgt6$FgnFjr-FP6%""%.T#-%$cat G6$Q6current~dimension~is~F=FF2Fc]lFFF=F=6$%)diagonalGFTFhqF=6)%%diffG%%commG%) takayamaGFaoFjoF]yFez6.%6_thismoduledefinitionGF=Fb_lc)diagonal%:-37%/dfinite_c reateGc/dfinite_create%:-35%.Holonomy/fglmGc.Holonomy/fglm%:-17%6extension_cont ractionGc6extension_contraction%:-38%3takayama_algorithmGc3takayama_algorithm%: -28/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-32f*6%'%"PG%(polynomG'%"fG%%nameG'%%TOrdG%.MonomialOrderG6&%%degPG%#DPG%"AG %"BG6#%WCopyright~(c)~1994-2005~Frederic~Chyzak,~INRIA,~FranceG6"C(@$4-%%typeG6 $&9&6#Q(algebraF5.%,DiffAlgebraG-%&ERRORG6#-%$catG6$F=QI~must~be~built~on~a~dif ferential~algebraF5>8$-%'degreeG6$9$9%@$/FJ""!-FC6#-FF6$FNQH~does~not~define~an y~algebraic~functionF5>8%-%%diffGFM@$0-%&gcdexG6'FNFYFO.8&.8'"""-FC6#-FF6)Q%gcd (F5FNQ&diff(F5FNQ",F5FOQ,))~is~not~1F5-T%6%FNFOF=F5F56&%6_thismoduledefinitionG F5%5algebraic_to_dfiniteGc5algebraic_to_dfinite%:-31/%+modulenameGc-HO_Internal s$:-1 M7R0 I%:-23f*6$'%+descr_listG-%%listG6#%-DFiniteDescrG'%%TOrdG%.MonomialOrderG6)%"iG %"tG%"CG%"KG%"AG%"TG%&new_tG6#%WCopyright~(c)~1995-2008~Frederic~Chyzak,~INRIA, ~FranceG6"C$@$0-%%nopsG6#-%(convertG6$-%$mapG6$f*6#%"dGF86#%WCopyright~(c)~1995 -2002~Frederic~Chyzak,~INRIA,~FranceGF8&&9$6#""#6#Q(algebraF8F8F8F8FL.%$setG""" YQLall~term~orders~must~be~on~the~same~algebraF8@%4-%'memberG6$&9%6#Q%hackF87$. %%tdegG.%%plexGC$-%)userinfoG6%FS.%%hsumGQ6sum~by~FGLM~algorithmF8-T%6$-FC6$f*6 #F0F86#FIF87$-%'expandG6#&FL6#FS-%#opG6$;FN""$FLF8F8F8FLFfnC,-F`o6%FSFboQHsum~b y~computing~intersection~of~idealsF8>8*-%$seqG6$&8%6#8$/Fdq;FS,&-F=6#FLFS!""FS> 8(&FfnFO>8&&F\r6#Q,commutationF8>8'&F_r6#Q,ground_ringF8>Fdr-__%,Ore_algebraG%- OA_InternalsG%,ground_ringG6%&Fdr6#Q/characteristicF8-%&unionG6$&Fdr6#Q+all_ind etsF8<#F]q&Fdr6#Q,type_structF8>F_r-_F[s%,commutationG6'Fdr&F_r6#Q,left_indetsF 8&F_r6#Q-right_indetsF8&F\rF[t-%#ifG6%-%)assignedG6#&F\r6#Q-localizationF8F_uQ* undefinedF8>F\r-_F[s%(algebraG6&F_r&F\r6#Q0rational_indetsF8<"F[v>8)-_%)Groebne rGF-6$F\r-Fjt6%/FenFjn-.%'lexdegG6$7#F]q&Ffn6#Q-order_indetsF8-F\o6$F]q-Fdp6#Fj v-%'removeG6%%$hasG-_F`v%&BasisG6$7$-F_q6$-Fdp6#-F_p6#*&FaqFS-Fdp6$7$FdqFSFLFSF eq-Fdp6#-F_p6#*&,&FSFS-F@6$Fiv%"+GFjqFS-Fdp6$7$FjqFSFLFSF]vFivF8F86&%6_thismodu ledefinitionGF8%.dfinite_addupGc.dfinite_addup%:-34/%+modulenameGc-HO_Internals $:-1 M7R0 I%:-22f*6&'%*poly_listG-<$%%listG%$setG6#%(polynomG'%$AlgG%+OreAlgebraG'%'x_lis tG-F(6#%%nameG'%%TOrdG%.MonomialOrderG6%%(sub_AlgG%+not_decl_xG%"xG6#%WCopyrigh t~(c)~1996-2005~Frederic~Chyzak,~INRIA,~FranceG6"C)@$-%'memberG6$%&falseG-%$map G6%%%typeG-%(convertG6$9$.F*-.%/SkewPolynomialG6#9%Y-%$catG6$Q@polynomials~not~ in~the~algebra~F>FR>8$&9'6#Q(algebraF>@$4-T%6%FYFR9&YQKterm~order~not~over~the~ correct~subalgebraF>>8%-%&minusG6$-FJ6$F]oFM&FY6#Q,comm_indetsF>@$0Fao<"Y-FU6$F aoQ=~not~declared~in~the~algebraF>@$0<#-%$seqG6$&FR6$Q-type_of_leftF>8&/FjpF]o< #.%'qdilatGY-FU6$F]oQL~not~all~associated~to~q-dilation~operatorsF>&-T'6'-FJ6$- %'expandG6#FL.F)FR-FJ6$F]oF\rFen7&7"F`r""!f*6%%(elim_GBG%#GBG%"NGF>6"F>/FLF`rF> F>F>6#"""F>F>6(%6_thismoduledefinitionGF>%3suitable_extensionGc3suitable_extens ion%:-42%3takayama_algorithmGc3takayama_algorithm%:-28/%+modulenameGc-HO_Intern als$:-1 M7R0 I%:-29f*6$'%+descr_listG-%%listG6#%-DFiniteDescrG'%%TOrdG%.MonomialOrderG6"6#%W Copyright~(c)~1995-2005~Frederic~Chyzak,~INRIA,~FranceGF.C$@$0-%%nopsG6#-%(conv ertG6$-%$mapG6$f*6#%"dGF.6#%WCopyright~(c)~1995-2002~Frederic~Chyzak,~INRIA,~Fr anceGF.&&9$6#""#6#Q(algebraF.F.F.F.FD.%$setG"""YQLall~term~orders~must~be~on~th e~same~algebraF.-T%6$-F;6$%'expandGFD9%F.F.6&%6_thismoduledefinitionGF.%1dfinit e_multiplyGc1dfinite_multiply%:-36/%+modulenameGc-HO_Internals$:-1 M7R0 I%:-40f*6$%"HG%$AlgG6'%#DxG%#eqG%$ratG%)holon_eqG%*post_subsG6#%WCopyright~(c)~ 1995-2002~Frederic~Chyzak,~INRIA,~FranceG6"C%>8(<"?&8$&9%6#Q-right_indetsF/%%tr ueGC$>&8'6#F5-%)primpartG6$,&F5"""-%'normalG6$-%)simplifyG6$-%'expandG6#-FL6#*& -__%,Ore_algebraG%-OA_InternalsG%/apply_operatorG6%F59$F7FDFX!"".%)symbolicG.%) expandedGFYF5@$-%)assignedG6#&F76$Q6qdilat_auxiliary_infoF/F5>F2-%&unionG6$F2<# /)&F76$Q+q_of_rightF/F5F\o&F76$Q.left_of_rightF/F5-%%subsG6$F2<#-%$seqG6$-%(col lectG6$F=F5/F5F6F/6)%)anythingGFenFgn%)binomialG%*qbinomialG%+qfactorialG%,qpoc hhammerG6$%6_thismoduledefinitionGF//%+modulenameGc-HO_Internals$:-1 M7R0 I%:-30f*6&'%*poly_listG-<$%%listG%$setG6#%(polynomG'%$AlgG%+OreAlgebraG'%'x_lis tG-F(6#%%nameG'%%TOrdG%.MonomialOrderG6%%(sub_AlgG%+not_decl_xG%"xG6#%WCopyrigh t~(c)~1996-2005~Frederic~Chyzak,~INRIA,~FranceG6"C)@$-%'memberG6$%&falseG-%$map G6%%%typeG-%(convertG6$9$.F*-.%/SkewPolynomialG6#9%Y-%$catG6$Q@polynomials~not~ in~the~algebra~F>FR>8$&9'6#Q(algebraF>@$4-T%6%FYFR9&YQKterm~order~not~over~the~ correct~subalgebraF>>8%-%&minusG6$-FJ6$F]oFM&FY6#Q,comm_indetsF>@$0Fao<"Y-FU6$F aoQ=~not~declared~in~the~algebraF>@$0<#-%$seqG6$&FR6$Q-type_of_leftF>8&/FjpF]o< #.%%diffGY-FU6$F]oQL~not~all~associated~to~derivation~operatorsF>&-T'6'-FJ6$-%' expandG6#FL.F)FR-FJ6$F]oF\rFen7&7"F`r""!f*6%%(elim_GBG%#GBG%"NGF>6"F>/FLF`rF>F> F>6#"""F>F>6(%6_thismoduledefinitionGF>%3suitable_extensionGc3suitable_extensio n%:-42%3takayama_algorithmGc3takayama_algorithm%:-28/%+modulenameGc-HO_Internal s$:-1 M7R0 I%:-21f*6&'%*poly_listG-<$%%listG%$setG6#%(polynomG'%$AlgG%+OreAlgebraG'%'x_lis tG-F(6#%%nameG'%%TOrdG%.MonomialOrderG6%%(sub_AlgG%+not_decl_xG%"xG6#%WCopyrigh t~(c)~1996-2005~Frederic~Chyzak,~INRIA,~FranceG6"C)@$-%'memberG6$%&falseG-%$map G6%%%typeG-%(convertG6$9$.F*-.%/SkewPolynomialG6#9%Y-%$catG6$Q@polynomials~not~ in~the~algebra~F>FR>8$&9'6#Q(algebraF>@$4-T%6%FYFR9&YQKterm~order~not~over~the~ correct~subalgebraF>>8%-%&minusG6$-FJ6$F]oFM&FY6#Q,comm_indetsF>@$0Fao<"Y-FU6$F aoQ=~not~declared~in~the~algebraF>@$0<#-%$seqG6$&FR6$Q-type_of_leftF>8&/FjpF]o< #.%&shiftGY-FU6$F]oQG~not~all~associated~to~shift~operatorsF>&-T'6'-FJ6$-%'expa ndG6#FL.F)FR-FJ6$F]oF\rFen7&7"F`r""!f*6%%(elim_GBG%#GBG%"NGF>6"F>/FLF`rF>F>F>6# """F>F>6(%6_thismoduledefinitionGF>%3suitable_extensionGc3suitable_extension%:- 42%3takayama_algorithmGc3takayama_algorithm%:-28/%+modulenameGc-HO_Internals$:- 1 M7R0 I%:-39f*6''%*poly_listG-<$%%listG%$setG6#%(polynomG'%$AlgG%+OreAlgebraG'%'x_lis tG-F(6#%%nameG'%%TOrdG%.MonomialOrderG'%%initG7&F)F)%(integerG<$F4%*procedureG6 "6#%WCopyright~(c)~1996-2005~Frederic~Chyzak,~INRIA,~FranceGF>-T%6'-%(convertG6 $-%'expandG6#9$.F)9%-FE6$9&FK9'9(F>F>6&%6_thismoduledefinitionGF>%3takayama_alg orithmGc3takayama_algorithm%:-28/%+modulenameGc-HO_Internals$:-1 M7R0 I)ApplyOprf*6&%#dfG%"XG%#DXG%$AlgG6'%"rG%"sG%(cf_listG%(tm_listG%"iG6$%)remembe rG%WCopyright~(c)~1997-2009~Frederic~Chyzak,~INRIA,~FranceG6"C%@%-%%typeG6$9$.% (DFiniteGC$>8$-%GMgfun/old_behaviour_of_Groebner_ReduceG6&9&&F86#Q'gbasisF2&F86 #Q+term_orderF28%>8&7#-%'coeffsG6%F=&9'6#Q-right_indetsF28'C$>FJ7#-FM6%FAFOFS>F H""">FS7#FS-%(collectG6&-%(convertG6$7#-%$seqG6$*(&FJ6#8(FZFH!""-.F"6&F89%&FSFc oFPFZ/Fdo;FZ-%%nopsG6#FS%"+GFgo.%,distributedG%'normalGF26&F:%+term_orderG%%lis tGFbpF2F2 M7R0 I.diff/ApplyOprf*6'%#dfG%"XG%#DXG%$AlgG%"xG6"6"F*-%)ApplyOprG6&9$9%*&9&"""&9'6$ Q.right_of_leftF*9(F3F5F*F*F*%(_syslibG M7R0 I(AlgSubsf*6'%#dfG%"XG%#DXG%$AlgG%"UG6/%'the_DXG%&the_UG%"xG%'real_xG%'x_of_UG% ,real_x_of_UG%*shift_valG%"rG%"sG%(cf_listG%(tm_listG%"iG%&the_qG6$%)rememberG% WCopyright~(c)~1997-2009~Frederic~Chyzak,~INRIA,~FranceG6"C*>8$9&>8%9(?&8&9%%%t rueGC$>8(-%%subsG6$FAFD@$-%%typeG6$FI%"+GC$>8*-%&floorG6#-%'selectG6%FOFI.%(num ericG@*/&9'6$Q-type_of_leftF;FD.%&shiftGC$@$2FT""!YQSbackward~shifts~forbidden~ with~commutation~'shift'F;>F>*&)&Fjn6$Q.right_of_leftF;FDFT"""F>F[p/Fin.%+dual_ shiftGC%@$2FboFTYQWforward~shifts~forbidden~with~commutation~'dual_shift'F;>F>* &)Fho,$FT!""F[pF>F[p>FA-%&unionG6$-%'removeG6%f*6$%#eqGF-F;6$%)operatorG%&arrow GF;/-%#opG6$F[p9$FEF;F;F;FAFD<#/FD,&FIF[pFTFhp/Fin.%1shift+dual_shiftGC$>F>*&-% #ifG6%FapFgo)&Fjn6$Q+inverse_ofF;FhoFgpF[pF>F[p>FA-F[q6$-F^q6%f*FaqF;6$FdqFeqF; FfqF;F;F;FAFDF[r/&Fjn6$F\o&Fjn6$Q7left_of_auxiliary_infoF;FD.%3qdilat+dual_qdil atGC'>8'Fes>8)-FK6$FAF\t>F>*&-Fer6%Fap)&Fjn6$FjoF\tFT)&Fjn6$FjrFftFgpF[pF>F[p>8 0-FK6$FB-Fhq6$7%F[p""#Fhp-FY6%%$hasG&Fjn6#Q,type_structF;F\t>FA-F[q6$-F^q6%f*6$ Fbq%"SGF;6$FdqFeqF;-%'memberG6$FgqFEF;F;F;FA7$FDF\t<$F\r/F\t-%'expandG6#*&F^tF[ p)F\uFTFhp@%-FO6$Fjq.%(DFiniteGC$>8+-%GMgfun/old_behaviour_of_Groebner_ReduceG6 &F>&Fjq6#Q'gbasisF;&Fjq6#Q+term_orderF;8,>8-7#-%'coeffsG6%Fdw&Fjn6#Q-right_inde tsF;8.C$>F`x7#-Fcx6%F>FexFhx>F^xF[p>Fhx7#Fhx>F`x-FK6$FAF`x>F^x-FK6$FAF^x-%(coll ectG6&-%(convertG6$7#-%$seqG6$*(&F`x6#8/F[pF^xFhp-.F"6'FjqFE&FhxFczFjnFAF[p/Fdz ;F[p-%%nopsG6#FhxFQFfz.%,distributedG%'normalGF;6+Faw%+term_orderG%%listGF_[lFf nF^oF^pF`rFisF;F; M7R0 I-diff/AlgSubsf*6(%#dfG%"XG%#DXG%$AlgG%"UG%"xG6#%"iG6#%WCopyright~(c)~1997-2002 ~Frederic~Chyzak,~INRIA,~FranceG6"-%(convertG6$7#-%$seqG6$*&-%%diffG6$-%#opG6$7 $8$""#9(9)"""-%(AlgSubsG6'9$9%*&9&FC&9'6$Q.right_of_leftF/-F<6$7$F?FCFAFCFLFAFC /F?;FC-%%nopsG6#FA%"+GF/F/F/%(_syslibG M7R0 I*qbinomialf*6%%"qG%"nG%"mG6"6#%WCopyright~(c)~1995-2002~Frederic~Chyzak,~INRIA ,~FranceGF(@'5-%%typeG6$9%.%'negintG-F.6$9&F1YQMqbinomial~not~defined~for~negat ive~argumentsF(5-F.6$F0.%*nonnegintG-F.6$F5F;-%Aqbinomial/qbinomialtoqpochhamme rG6#-.F"6%9$F0F5FBF(6$F2F8$-%#ifG6%-%%typeG6$9%%"+G-%&truncG6#-%'selectG6%F9F;.%(numericG""!>8&,&F;"""F 4!"">8(*&))9$9&F4FI-F66%2FEF4-%$mulG6$*&,&FIFI*&)FP8%FI)FPFGFIFJFI,&FOFIFZFJFJ/ Ffn;FIF4-F66%2F4FE-FV6$*&FhnFIFYFJ/Ffn;,&F4FIFIFIFEFIFI>F4-F66%-F96$FQF<-F>6#-F A6%F9FQFCFE>8',&FQFIF4FJ>8)*&))FPF^pF4FJ-F66%FT-FV6$*&,&FdpFI*&FenFJFgnFIFJFI,& FIFI*&)FP,&FfnFIFIFIFIFdpFIFJFJ/Ffn;FE,&F4FIFJFI-F66%F]o-FV6$*&,&FIFI*&FenFIFdp FIFJFI,&FdpFI*&)FP,&FIFIFfnFJFIFgnFIFJFJFaoFIFI*(FLFIFapFI-%*qbinomialG6%FPFGF^ pFIF16#FDF1F1 M7R0 IAqbinomial/qbinomialtoqpochhammerf*6#%"xG6%%"qG%"nG%"mG6#%WCopyright~(c)~1995- 2002~Frederic~Chyzak,~INRIA,~FranceG6"C'-%'ASSERTG6$-%%typeG6$9$-.%*qbinomialG6 #-%"$G6$.%*algebraicG""$Q0not~a~qbinomialF,>8$-%#opG6$"""F4>8%-FC6$""#F4>8&-FC6 $F>F4*(-%,qpochhammerG6%FAFAFGFE-FQ6%FAFAFL!""-FQ6%FAFA,&FGFEFLFUFUF,6$F7F=F,F, M7R0 I+qfactorialf*6$%"qG%"nG6#%"kG6#%WCopyright~(c)~1995-2002~Frederic~Chyzak,~INRI A,~FranceG6"@'-%%typeG6$9%.%*nonnegintG-%$mulG6$,&"""F7)9$8$!""/F:;F7F0-F.6$F0. %'negintGYQNqfactorial~not~defined~for~negative~argumentsF+-.F"6$F9F0F+6$F2FAF+ F+ M7R0 I2expand/qfactorialf*6$%"qG%"nG6$%/numerical_partG%"iG6#%WCopyright~(c)~1995-20 02~Frederic~Chyzak,~INRIA,~FranceG6"@%-%%typeG6$9%%"+GC$>8$-%&floorG6#-%'select G6%F/F1.%(numericG@'2""!F5*&-%+qfactorialG6$9$,&F1"""F5!""FG-%$mulG6$,&FGFG*&)F E8%FG)FEFFFGFH/FO;FGF5FG2F5F@*&FBFG-FJ6$FL/FO;,&F5FGFGFGF@FH-.FC6$FEF1FZF,6#%*n umericalGF,F, M7R0 ICqfactorial/qfactorialtoqpochhammerf*6#%"xG6"6#%WCopyright~(c)~1995-2002~Frede ric~Chyzak,~INRIA,~FranceGF&C$-%'ASSERTG6$-%%typeG6$9$-.%+qfactorialG6#-%"$G6$. %*algebraicG""#Q1not~a~qfactorialF&-.%,qpochhammerG6$-%#opG6#F0-FA6$"""F0F&6$F3 F9F&F& M7R0 I,qpochhammerf*6%%"qG%"nG%"xG6#%"kG6#%WCopyright~(c)~1995-2002~Frederic~Chyzak, ~INRIA,~FranceG6"@'-%%typeG6$9%.%*nonnegintG-%$mulG6$,&"""F8*&9&F8)9$8$F8!""/F= ;""!,&F1F8F>F8-F/6$F1.%'negintG*$-F56$,&F8F8*&F:F8F;F>F>/F=;F8,$F1F>F>-.F"6%F8$-%#ifG6%-%%typeG6$9&%"*G-%' selectG6%F6F8<$)-.%*identicalG6#9$.%(numericGF?"""@'/F1FC>8&*(-%,qpochhammerG6% FC9%*&F8FFFC!""FF,&FFFF*()FCFOFFF8FFFCFQFQFF,&FFFFFPFQFQ-F66$F1F>C$>F1-%#opG6$" "#F1>FJ*&-%'expandG6#-FM6%FC,&FOFFF1FF*&F8FF)FCF1FQFF-FM6%FCF1F`oFQC$>F1-F36%-F 66$FO%"+G-%&floorG6#-F;6%F6FOFD""!@'2F`pF1>FJ*&-FM6%FC,&FOFFF1FQF8FF-%$mulG6$,& FFFF*(F8FF)FC8%FF)FCFgpFFFQ/F^q;F`p,&F1FFFQFFFF2F1F`p>FJ*&FepFF-Fip6$F[q/F^q;F1 FQFQ>FJ-FM6%FCFOF8-%%evalG6#-%%subsG6$/)FC%)infinityGF`pFJF.6$FAFEF.F. M7R0 I4convert/qpochhammerf*6#%"xG6$%0qfactorial_listG%/qbinomial_listG6#%WCopyright ~(c)~1995-2002~Frederic~Chyzak,~INRIA,~FranceG6"C%>8$-%#ifG6%-%)assignedG6#%+qf actorialG-%$mapG6$f*6#%"bGF+6$%)operatorG%&arrowGF+/9$-%Cqfactorial/qfactorialt oqpochhammerG6#F@F+F+F+-%'indetsG6$F@-.F56#-%"$G6$.%*algebraicG""#<">8%-F06%-F3 6#%*qbinomialG-F76$f*F:F+6$F=F>F+/F@-%Aqbinomial/qbinomialtoqpochhammerGFCF+F+F +-FE6$F@-.FWFIFP-%%subsG6$-%&unionG6$F.FRF@F+6%F5FWFNF+F+ M7R0 I.Mgfun/version$"#T!""6" M7R0 IGMgfun/old_behaviour_of_Groebner_Reducet+6'%"fG%"GG%%MOrdG%"sG%#~$G6$%$resG%&s caleG6#%RCopyright~(c)~2009~Frederic~Chyzak,~INRIA,~FranceG6"C&>8$-_%)GroebnerG %'ReduceG6&9$9%9&8%>9'-%&numerG6#F;>F;-%&denomGF@-%(collectG6%*&F;"""F2FH-%#ifG 6%-%%typeG6$F:%3ShortMonomialOrderG-%'indetsG6#F:-%(convertG6$&F:6#Q-order_inde tsF/.%$setG.%,distributedGF/6$FZFfnF/6#""&F/ M7R0 I&Mgfun`6.c-MG_Internals%:-43c5creative_telescoping%:-44c4dfinite_expr_to_sys%: -45c7dfinite_expr_to_diffeq%:-46c4dfinite_expr_to_rec%:-47c,diag_of_sys%:-48c+i nt_of_sys%:-49c+pol_to_sys%:-50c+sum_of_sys%:-51c(sys+sys%:-52c(sys*sys%:-53c>r ational_creative_telescoping%:-54b6#%+thismoduleG6=%(startupG%3uncouple_system_ AZG%/denom_solutionG%5denom_solution_shiftG%4denom_solution_diffG%6denom_soluti on_qdilatG%/LOE_sys_rat_AZG%0uncouple_systemG%,LOE_sys_ratG%+ZeilbergerG%+test_ orderG%4compute_indices_etaG%,trivial_resG%,convert_resG%(my_convG%CNonCommutat iveMultiplicationMatrixG%7uncouple_system_lexdegG%3LOE_sys_rat_lexdegG%3degree_ upper_boundG%9degree_upper_bound_shiftG%8degree_upper_bound_diffG%:degree_upper _bound_qdilatG%.rename_indetsG%?skew_poly_creative_telescopingG%)LOE_polyG%(LOE _ratG%4RationalTelescopingG6%%(packageG%WCopyright~(c)~2000-2010~Frederic~Chyza k,~INRIA,~FranceG/%%loadGF56.%-MG_InternalsG%5creative_telescopingG%4dfinite_ex pr_to_sysG%7dfinite_expr_to_diffeqG%4dfinite_expr_to_recG%,diag_of_sysG%+int_of _sysG%+pol_to_sysG%+sum_of_sysG%(sys+sysG%(sys*sysG%>rational_creative_telescop ingG6"F\oF\oF\o%2_m140134713276512G6=c(startup%:-55c3uncouple_system_AZ%:-56c/d enom_solution%:-57c5denom_solution_shift%:-58c4denom_solution_diff%:-59c6denom_ solution_qdilat%:-60c/LOE_sys_rat_AZ%:-61c0uncouple_system%:-62c,LOE_sys_rat%:- 63c+Zeilberger%:-64c+test_order%:-65c4compute_indices_eta%:-66c,trivial_res%:-6 7c,convert_res%:-68c(my_conv%:-69cCNonCommutativeMultiplicationMatrix%:-70c7unc ouple_system_lexdeg%:-71c3LOE_sys_rat_lexdeg%:-72c3degree_upper_bound%:-73c9deg ree_upper_bound_shift%:-74c8degree_upper_bound_diff%:-75c:degree_upper_bound_qd ilat%:-76c.rename_indets%:-77c?skew_poly_creative_telescoping%:-78c)LOE_poly%:- 79c(LOE_rat%:-80c4RationalTelescoping%:-81%*protectedG M7R0 I8Mgfun/NOT_BUGGED_Reducet+6(%"fG%#GBG%%MordG'%"sG%%nameG'%"QGF*%#~$G63%"AG%"pG %"qG%"aG%#lcG%#lmG%"iG%"cG%"lG%"dG%#ddG%(reducedG%"jG%"nG%$nlcG%"NG%&LM_GBG6#%P Copyright~(c)~2010,~INRIA.~All~rights~reserved.G6"C.>8$&9&6#Q(algebraFB>83-%%no psG6#9%>847#-%$seqG6$-_%)GroebnerG%0LeadingMonomialG6$8*FG-%#inG6$FenFO>8%-%'no rmalG6#9$>8.-%&denomG6#Fjn>Fjn-%&numerGFco>8'-%&tableG6#7#-%"$G6$""!FK>8/%%true G?(FB"""FepFBFbpC$>Fbp%&falseG?(FenFepFepFKFcpC$>6$8(8)-_FX%,LeadingTermG6$FjnF G@$-%'divideG6%F^q&FQ6#Fen.8&C,>FbpFcp>8+-_%,Ore_algebraG%-skew_productG6%Fjq&F OFhqFE>8,-_FX%3LeadingCoefficientG6$F^rFG>82-F\o6#*&F]qFepFfr!"">8--Fbo6#F\s>81 -FfoFds>F`o-%'expandG6#*&FbsFepF`oFep?(80FepFepFKFcp>&Fho6#F^t-F\o6#*&FbsFepF`t Fep>Fjn-F\o6#,&*&FjnFepFbsFepFep*&FfsFepF^rFepF`s>&FhoFhq,&F\uFep*&FfsFepFjqFep Fep>9(7#-FT6$F\u/Fen;FepFK>9'F`oFjnFBFBFB6#""'FB M7R0 I%:-76t+6''%"LG%%listG'%$varG%%nameG%)degree_fG>'%#_qGF*.%"qG%#~$G6&%"dG%"PG%"X G%"iG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C%>8$-%$maxG6#-%#opG 6#-%$mapG6%%'degreeG9$9%>8%-%$addG6$*&-%&coeffG6%-%'normalG6#-%'expandG6#&FG6#, &8'"""FfnFfnFHF6$-%'selectG6%%%t ypeG7#-%&solveG6$-%%evalG6$FJ/Fhn)9'%"nGFap%(integerG9&F9F96$%6_thismoduledefin itionGF96#""&/%+modulenameG%&MgfunG M7R0 I%:-67f*6%%$resG%$etaG%,indices_etaG6#%#idG6#%PCopyright~(c)~2009,~INRIA.~All~r ights~reserved.G6"-%&evalbG6#5/&9$6#""#<"/<#-%$seqG6$-%%evalG6$&9%6#-%#opG6#8$F 2-%#inG6$FE9&<#""!F,F,6$%6_thismoduledefinitionGF,/%+modulenameG%&MgfunG M7R0 I%:-58t+6%%"LG'%$varG%%nameG%#~$G6(%"dG%%varsG%"RG%"NG%"iG%#LLG6#%PCopyright~(c )~2009,~INRIA.~All~rights~reserved.G6"C(>8$,&-%%nopsG6#9$"""!""F<>8%-%&minusG6$ -%'indetsGF:<#9%>8)-%#ifG6%/F?<"F;-%%subsG6$7#-%$seqG6$/%"vG,$--%%randG6#;"$U"" %IDFen#F<"$F"/FVF?F;>8&-%*resultantG6%-%'normalG6#-%%evalG6$&FH6#FF[p-%$maxG6$F=-%#opG6#-%'selectG6%%%typeG-% %map2G6%FipF<-%&rootsG6$F]oF[p%*nonnegintG-%$gcdG6$-%$mulG6$-Feo6$&F;Fho/FF,&FF F<8(F8$<#-%#opG6#9%>8%7#-F96#-%'selectG6$f*6#%"xGF36$%)operatorG%&arrowGF3- %#inG6$-F96$""!9$T#F3F36$F.F6-%'indetsG6#FP-%%evalG6$FP7#-%$seqG6$/&F=6#8&&9&Fi n/Fjn;"""-%%nopsG6#F=F3F36$%6_thismoduledefinitionGF3/%+modulenameG%&MgfunG M7R0 I%:-59t+6%'%"LG%%listG'%$varG%%nameG%#~$G6*%#nuG%+Lambda_ratG%2get_integer_root sG%&r_minG%"VG%"mG%"rG%"fG6#%PCopyright~(c)~2010,~INRIA.~All~rights~reserved.G6 "C)>8$f*6%%$l_kGF(%#piG6$%%nu_kG%%ll_kG6"F7C&@$/9$""!O%)infinityG>8%FF?(F:FG""" F730FKFG/-%$remG6&FK9&9%.FKFGF7F:F7F7F7>FKf*6%F>F2'%(new_varGF*6'%"sG%"kGF=F@%" jG6"F7C%>F:FG?(FKFGFM,&-%%nopsG6#T$FM!""FM%%trueGC%>8&&Fbo6#,&FKFMFMFM>8'-T'6%F goT&FF@$/,&F\pFMFKFcoFU>F:,&F:FM*(-%%diffG6$Fgo7#-%"$G6$F`pF\pFM-%*factorialG6# F\pFco-%$mulG6$,(FTFM8(FcoFMFM/Feq;FMFKFMFMF:F7F76(F&FFF)FUF-F:>Fgof*6$%'Lambda GF(6$%/indeterminatesG%"iG6"F7C$>F:-%&minusG6$-%'indetsG6#FF<#FU7#-%'isolveG6#- %%evalG6$FF7#-%$seqG6$/FK,$-%%randGF7#FM"$F"-%#inG6$FKF:F7F7F7>F\pf*6$F>F26*%"R GF3%"QG%'rr_minG%#RRG%)lambda_iG%.integer_rootsG%$indG6"F7C(>F:7$FF-%(collectG6 $-%'expandG6#-T#6%FFFUFKF`p>8+7#-%#opG6#-Fdr6$-Fgr6#F:<$FKF`p>F:-F_s6$F:7#-Fcs6 $/&Fgu6#F^p*$-%)ithprimeG6#,&""%FMF^pFMFco/F^p;FM-F`o6#Fgu>F\pFI?(F7FMFMF70&F:6 #FcoFGC'>Feq-F^u6$-Fau6#-FR6&&F:6#!"#FgwF`p.FgoF`p>8)-%$lcmG6#-Fju6#-%$mapG6$%& denomG7#-%'coeffsG6$-F^u6$FgoF`pF`p>8*-T)6$FfxFK@$0Fgy7#<">F\p-%$minG6$F\p-Fju6 #-F]y6$-%"@G6$%$rhsGFjuFgy>F:7$-FjuF_v-F^u6$-Fau6#*&FfxFMFeqFMF`p@%2F\pFG,$F\pF coFGF7F76*F.FKF)FUF_rT%F/Fgo>FeqFM?&Fgu&-%(factorsG6#&FFFhw6#""#Fdo@$2FG-%'degr eeG6$&Fgu6#FMFUC%>Ffx-Faz6#,&-F]y6&F:FFFUFf\lFM7#,$-F\q6#;FG,&-F`oFhrFMFcoFMFco FM>Fgy-F\p6$Ff\lFfx>Feq*&FeqFM)Ff\l-%$maxG6$FgyFfxFMFeqF7F76&%6_thismoduledefin itionGF7F_rc"i%:-846#""$/%+modulenameG%&MgfunG M7R0 I%:-66f*6$'%"dG%*nonnegintG'%%nb_vG%'posintG6)%"PG%"rG%"tG%"xG%"uG%"iG%.compare _listsG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C'>8*f*6$%#l1G%#l2 GF56"F5C$?(T#"""FA-%%nopsG6#9$%%trueGC$@$2&9%6#F@&FEFLO%&falseG@$2FMFJOFFFOF5F5 6$F18)>8$-%(convertG6$-%'seriesG6%*$,&FAFA*&8(FA-%$addG6$&8'6#FT/FT;FAFKFA!""Fc oFjn,&FEFAFAFA%(polynomG>8%-%'expandG6#-%%evalG6$FV/FjnFA-%'coeffsG6%Fgo7#-%$se qGF]o.8&-%%sortG6$-%$mapG6$f*6#F0F56$%)operatorG%&arrowGF57#-Fdp6$-%'degreeG6$F E&F@6#T%/Fjq;FAT(F5F56(F/F_oF1FTF)FK7#FfpF8F5F56$%6_thismoduledefinitionGF5/%+m odulenameG%&MgfunG M7R0 I%:-45c4dfinite_expr_to_sys%:-856$%*protectedG/%+modulenameG%&MgfunG M7R0 I%:-52c0addition_of_sys%:-866$%*protectedG/%+modulenameG%&MgfunG M7R0 I%:-74t+6&'%"LG%%listG'%$varG%%nameG%)degree_fG%#~$G6*%"dG%*order_rhsG%"bG%%bet aG%&alphaG%"iG%"jG%"kG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C'> 8$,&-%%nopsG6#9$"""!""FA>8&7#-%$seqG6$-%'normalG6#-%$addG6$*&-%)binomialG6$8)8+ FA&F@6#,&FSFAFAFAFA/FS;FTF;/FT;""!F;>8'-%$maxG6#-%#opG6#,&-%$mapG6%%'degreeGFD9 %FA7#,$-%"$G6$FS/FSFenFBFA>8(-Fjn6#-F]o6#-%'selectG6%%%typeG-%%map2G6%F]oFA-%&r ootsG6$-FM6$*&-%&coeffG6%&FD6#,&FTFAFAFAFdo,&FTFAFhnFAFA-%$mulG6$,&FdoFA8*FB/Fi q;Ffn,&FTFAFBFAFAFZFdo%(integerG-Fjn6$F\p,&9&FAFhnFBF8F86$%6_thismoduledefiniti onGF86#""%/%+modulenameG%&MgfunG M7R0 I%:-51c+sum_of_sys%:-876$%*protectedG/%+modulenameG%&MgfunG M7R0 I%:-69f*6$%%exprG'%"dG%%nameG6#%"iG6#%PCopyright~(c)~2009,~INRIA.~All~rights~re served.G6"@%3-%%typeG6$9$%)functionG0-%#opG6$""!F3%'RootOfG@'/F6%%diffG*&&9%6#- F76$""#F3"""-9!6$-F76$FEF3F@FE/-F76$7#-%"$G6$F9""$F3%"DG*&&F@6#-F76$-F76$7$-FP6 $F9FDFEF3F3FE-FG6$--F76$7$F9FEF36#-F76#F3F@FE-%$mulG6$)&F@6#-F76#-%'indetsG6#8$ -%%evalG6#,&F\pFEFgo!""-%#inG6$F\pF_o@%-F16$F3%'atomicGF3-%$mapG6%FGF3F@F-F-6$% 6_thismoduledefinitionGF-/%+modulenameG%&MgfunG M7R0 I%:-60t+6&'%"LG%%listG'%$varG%%nameG'%"qGF*%#~$G6*%"rG%+low_degreeG%"iG%"nG%&de g_0G%#LLG%+comm_denomG%"HG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6 "C*>8$,&-%%nopsG6#9$"""!""FB>8%-%$minG6#-%#opG6#-%$mapG6%%(ldegreeGFA9%>8(-%$ma xG6$""!-FJ6#-%'selectG6%%%typeG7#-%&solveG6$-%$addG6$*&-%&coeffG6%&FA6#,&8&FBFB FBFPFEFB)9&*&8'FB,&F8)7#-%$seqG6$-%'normal G6#*&FboFB)*&FPFB)FgoFeoFBFRFCF[p>8*-%$lcmG6#-FJ6#-FM6$%&denomGF_p>F_p-FM6%-%"@ G6$Fep%"*GF_pF\q>8+-FT6$FC-FJ6#-FZ6%Ffn7#-Fin6$-%*resultantG6%-Fep6#-%%evalG6$& FA6#FB/FP*(FPFB)FgoFioFB)FgoF8$,&-%%nopsG6#9$"""!"" F=>8%-%$maxG6#-%#opG6#,&-%$mapG6%%'degreeGF<9%F=7#,$-%"$G6#;""!F7F>F=>8'-%$addG 6$*&-%&coeffG6%&F<6#,&%"kGF=F=F=FL,&F@F=FjnF=F=-%$mulG6$,&FLF=T%F>/F`o;FS,&FjnF =F>F=F=/FjnFR>8&-FB6#-FE6#-%'selectG6%%%typeG-%%map2G6%FEF=-%&rootsG6$FUFL%(int egerG-FB6$Ffo,&9&F=F@F>F4F46&%6_thismoduledefinitionGF4%"jGc"j%:-886#""%/%+modu lenameG%&MgfunG M7R0 I%:-43`68c0add_prod_of_sys%:-89c+int_of_sys%:-90c0addition_of_sys%:-86c,diag_of _sys%:-91c4anti_partial_of_sys%:-92c+pol_to_sys%:-93c/product_of_sys%:-82c+sum_ of_sys%:-87c;recognize_operator_algebra%:-94c3dfinite_spec_table%:-95c7dfinite_ expr_to_diffeq%:-96c4dfinite_expr_to_rec%:-97c4dfinite_expr_to_sys%:-85c.type_c hecking%:-98c5expression_to_system%:-99c3rational_solutions&:-100c*my_normal&:- 101c5creative_telescoping%:-83c5polynomial_solutions&:-102c?skew_poly_creative_ telescoping&:-103c)LOE_poly&:-104c(LOE_rat&:-105b6#%+thismoduleG6O%0Holonomy/ne w_dxG%0Holonomy/new_qxG%6'8$ 8%8&8'8(-%#opG6#9&>8)&-FV6$"""FR6#Fhn>8*7$Fhn,&FZFhnFhnFhn>8+&9$6$Q.right_of_le ftFL9%>8,<">FQ-%$addG6$-%$mapG6&_%,Ore_algebraG%)applyoprG-%%evalG6$FQ7$/&9+6#8 .Fhn-%$seqG6$/&Fhp6#8-""!-%#inG6$Faq-%&minusG6$<#-%"$G6#;FhnFZ<#Fjp&9'FipFao/Fj pF]r>FQ-Fcp6$FQ7#-F\q6$/F_q&F`rF`q/FaqF]r>8/Fhn>807#-F\q6$-%&coeffG6$&FQ6#,&&F[ o6#,&F\sFhnFhnFhnFhn!""Fhn&9(6#-FV6#82-Fdq6$Fat9)>81-%$lcmG6$-FV6#-%&denomG6#-% 'normalG6#FP-FV6#-F]u6#F^s>FP-F]p6$f*6#%"uGFL6$%)operatorG%&arrowGFL-%(collectG 6$-F`u6#*&FaoFhnT#FhnT&FLFL6&F@FftF)FdoFP>F^s-F]p6$f*FjuFL6$F]vF^vFLFbvFLFL6$F@ FftF^s>83-T%6+FaoFPFdoFbqF^sFfo%3local_formal_indetGF]tFdt>84-%'degreeG6$-%&num erG6#-F`u6#&F_wFinFdo>85-%%subsG6$7$-F\q6$/&FcwF`q&Fcw6$FjpFaq/Faq;FbqFew-F\q6$ /&F]tF`q&F]t6#-FV6#&Fdt6#,&FaqFhnFhnFhn/Faq;Fbq,&-%%nopsGFeuFhnF[tFhnF_w>&866#& F[o6#F\s&F`xFin>Ffo&F`x6#""#?(Faq,&FazFhnFhnFhnFhnFgs%%trueG>&F_zF`q,(-F_p6%F_o &F_z6#,&FaqFhnF[tFhnFaoFhn-Fjo6$*&&FR6$Fb[lFjpFhn&F_zFipFhn/Fjp;FhnFb[lF[t-Fcp6 $&FQFa[lFfoF[t>87-%'VectorG6#FZ?(FaqFZF[tFhnFjz>&F_\lF`q-F`u6#*&&FS6$FaqFaqF[t, &F\[lFhn-Fjo6$*&&FS6$FaqFjpFhn&F_\lFipFhn/Fjp;FgyFZF[tFhn>88F`\l?(FaqFhnFhnFZFj z>&Fe]l6#&FTF`qFaq>897$7#-F\q6$&F_\l6#&Fe]lF`qFjrFfo>8:Fhn?&8;-%'indetsG6#F\^lF jz@$/-FV6$FbqFg^lFcwC$>F\^l-Fcp6$F\^l/Fg^l&9*6#Fe^l>Fe^l,&Fe^lFhnFhnFhnF\^lFLFL 6&%6_thismoduledefinitionGFL%(LOE_ratGc(LOE_rat&:-1056#""*/%+modulenameG%&Mgfun G M7R0 I%:-68f*6*%$resG%"vG%#dvG%$dimG%3local_formal_indetG%-formal_indetG%$etaG%,indi ces_etaG6(%%nb_vG%(new_resG%#idG%*nb_indetsG%$indG%/old_form_paramG6#%PCopyrigh t~(c)~2009,~INRIA.~All~rights~reserved.G6"C&>8$-%%nopsG6#9%>8%7$-%%evalG6$-%$ad dG6$*&-%'normalG6#&9*6#-%#opG6#8&"""-%$mulG6$)&9&6#T%&FQFY/FZ;FRF9FR-%#inG6$FQ9 +&9$6#""#7#-%$seqG6$-FB6$&&F]o6#FRFYF\o/FZ;FR9'>8)7#-FO6#-%'selectG6$f*6#%"xGF6 6$%)operatorG%&arrowGF65/-FO6$""!F]oT$/F\qT&F6F66&F)9(F+FL-%'indetsG6#F?@%/F]p7 "7#F?7#-Fbo6$-FB6$F?7$/FZFR-Fbo6$/T'F^q-Fin6$Fer-%&minusG6$<#-FO6#F]p<#FZ-Fin6$ FZF]pF6F66(%6_thismoduledefinitionGF6%"iGc"i%:-84%"jGc"j%:-88/%+modulenameG%&Mg funG M7R0 I%:-63t+6-'%$AlgG%+OreAlgebraG'%$varG%%nameG%1uncoupled_systemG%"RG'%$etaGF*%,i ndices_etaG%-formal_indetG%+formal_rhsG>'%2uncoupling_methodG<$-%*identicalG6#% #AZG-F76#%'lexdegGF<%#~$G>%0constrained_etaG<"6"6#%PCopyright~(c)~2009,~INRIA.~ All~rights~reserved.GFA@&/9,.F<-T%6+9$9%9&9'9(9)9*9+/._FAF?9./FF.F9-T'6*FKFLFMF NFOFPFQFRFAFA6(%6_thismoduledefinitionGFA%3LOE_sys_rat_lexdegGc3LOE_sys_rat_lex deg%:-72%/LOE_sys_rat_AZGc/LOE_sys_rat_AZ%:-616#"#5/%+modulenameG%&MgfunG M7R0 I%:-54t+6&%"RG'%(typed_xG%#::G'%(typed_yGF(>'%+normalizedG%(booleanG%%trueG6$%" xG%"yG6#%PCopyright~(c)~2010,~INRIA.~All~rights~reserved.G6"C&>8$-%#opG6$"""9%> 8%-F:6$F<9&@$50F='F8%%diffG0FB'F?FGYQQonly~the~purely~differential~case~is~impl ementedF5@%9'-_T%%3AlmkvistZeilbergerG6%9$F8F?-_FP%2HermiteTelescoperGFRF5F56&% 6_thismoduledefinitionGF5%4RationalTelescopingGc4RationalTelescoping%:-816#""$6 $%*protectedG/%+modulenameG%&MgfunG M7R0 I%:-49c+int_of_sys%:-906$%*protectedG/%+modulenameG%&MgfunG M7R0 I%:-72t+6,'%$AlgG%+OreAlgebraG%$varG%1uncoupled_systemG%#PfG%$etaG%,indices_eta G%-formal_indetG%+formal_rhsG%#~$G>%0constrained_etaG<"68%$dimG%%dvarG%,constra intsG%"rG%"uG%"iG%"jG%"gG%"LG%(var_rhsG%#idG%*const_rhsG%"kG%$phiG%+comm_denomG %1sol_rat_unknownsG%3local_formal_indetG%/old_form_paramG%(sol_ratG%$resG%*nb_i ndetsG%$indG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C*>8$-%%nopsG 6#&9&6#""">8%&9$6$Q.right_of_leftFL9%>8&9->8'-%$mapG6$f*6#F8FL6$%)operatorG%&ar rowGFL-%'normalG6#-%$addG6$-_%,Ore_algebraG%)applyoprG6%-%&coeffG6$FZ&T$6#T%&T( FepT*/Ffp;FVT+FLFL6,F.9+F:8*F*9'F&FZF4FO&FT6#""#>8+&FT6#""%?(F_qFVFVFO%%trueGC/ -%)userinfoG6&Fcq_FL%4CreativeTelescopingGQ%j~=~FLF_q>8,&FS6#F_q>8-7#-%$seqG6$- Ffo6#-Fap6$&F\oFer&9(6#-%#opG6#8.-%#inG6$Fgs9)>8/-Ffo6#-Fio6$-F\p6%-Fap6$&&FT6# ""$Fer&Feq6#80&81F[uFZ/F\u;,(FOFVF_q!""FcqFVFO>82-%$lcmG6$-%&denomG6#F]t-Fes6#- Fiu6#Fgr>F]t-Ffo6#*&FduFVF]tFV>Fcr-F^o6%-%"@G6$Ffo%"*GFcrFdu>Fgr-F^o6%FfvFgrFdu >83-Ffp6+FZFcrFgnF]tFgrFin84FbsF[t>857#-Fes6#-%'selectG6$f*6#%"xGFL6$FcoFdoFL3/ -Fes6$""!FZT#/-FQ6#FZFVFLFL6$FDFaw-%'indetsG6#F^w>86-%%subsG6$7#-Fjr6$/&Fcw6#8) &Faw6$F_qFfy/Ffy;FV-FQ6#FcwF^w>&F^u6#,(FOFVFVFVF_qFbu-Ffo6#&F\yFU>Fin&F\yFbq>87 7$-%%evalG6$7#-Fjr6$&F^uFey/Ffy;FVFOFinFin-T'6%FgzFaw9*FLFL6(%6_thismoduledefin itionGFL%(LOE_ratGc(LOE_rat&:-105%.rename_indetsGc.rename_indets%:-776#""*/%+mo dulenameG%&MgfunG M7R0 I%:-81`6$c2HermiteTelescoper&:-149c3AlmkvistZeilberger&:-150b6#%+thismoduleG6(% )DivisionG%%ListG%*ReductionG%+TelescoperG%.DecompositionG%3RationalZeilbergerG 6"6$%2HermiteTelescoperG%3AlmkvistZeilbergerGF1F1F1F1%2_m140134693688256G6(c)Di vision&:-151c%List&:-152c*Reduction&:-153c+Telescoper&:-154c.Decomposition&:-15 5c3RationalZeilberger&:-156/%+modulenameG%&MgfunG M7R0 I%:-55f*6"F$6#%RCopyright~(c)~2009~Frederic~Chyzak,~INRIA,~FranceGF$C,>_F$%)App lyOprG-%%evalG6#_%,Ore_algebraGF*>_F$%+:-ApplyOprGF)-%*unprotectGF->F.F)-%(prot ectGF->_F$%(AlgSubsG-F,6#_F/F:>_F$%*:-AlgSubsGF9-F4F<>F=F9-F7F'%2uncoupling_methodG<$-%* identicalG6#%#AZG-F26#%'lexdegGF7%#~$G6"6#%PCopyright~(c)~2009,~INRIA.~All~righ ts~reserved.GF9@&/9(.F7-T%6&9$9%9&9'/F>.F4-T'FBF9F96(%6_thismoduledefinitionGF9 %7uncouple_system_lexdegGc7uncouple_system_lexdeg%:-71%3uncouple_system_AZGc3un couple_system_AZ%:-566#""'/%+modulenameG%&MgfunG M7R0 I%:-48c,diag_of_sys%:-916$%*protectedG/%+modulenameG%&MgfunG M7R0 I%:-80c(LOE_rat&:-105/%+modulenameG%&MgfunG M7R0 I%:-73t+6''%$AlgG%+OreAlgebraG'%"LG%%listG'%$varG%%nameG%)degree_fG%#~$G6$%)typ e_varG%%dvarG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C%>8$&9$6$Q- type_of_leftF59&>8%&F:6$Q.right_of_leftF5F=@)/F8.%&shiftG-T%6%9%F=9'/F8.%%diffG -T'FI/F8.%'qdilatG-T)6&FJF=FK&F:6$Q+q_of_rightF5F?YQVOperator~type~has~to~be~ei ther~shift,~diff~or~qdilat.F5F5F56*%6_thismoduledefinitionGF5%9degree_upper_bou nd_shiftGc9degree_upper_bound_shift%:-74%8degree_upper_bound_diffGc8degree_uppe r_bound_diff%:-75%:degree_upper_bound_qdilatGc:degree_upper_bound_qdilat%:-766# ""&/%+modulenameG%&MgfunG M7R0 I%:-47c4dfinite_expr_to_rec%:-976$%*protectedG/%+modulenameG%&MgfunG M7R0 I%:-65t+61'%$AlgG%+OreAlgebraG'%"dG%*nonnegintG%$dimG%$varG%#dvG%#DvG%)f_coords G%1uncoupled_systemG%$etaG%,indices_etaG%3local_formal_indetG%+formal_rhsG%2unc oupling_methodG%#~$G>%0constrained_etaG<"6)%%nb_vG%%dv_fG%#PfG%"rG%#ppG%*diff_p revG%)dual_algG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C)-%)useri nfoG6&"""_FD%4CreativeTelescopingGQ9Test~operator~P~of~orderFD9%>8$-%%nopsG6#9( >8%-%&tableGFD>8&-%'VectorG6#7#-%"$G6$""!9&?&8'9-%%trueGC%?(8(FIFIFO/&F^o6#FcoF [oFD@%/Fco,&FOFIFIFI>&FU6#F^o9*C$>8)-%%map2G6&_%,Ore_algebraG%-skew_productG&FS Ffo&FU6#,&F^oFI7%,$-Fin6$F[o,&FcoFI!""FIF`qF`q,$-Fin6$F[o,&FOFIFcoF`qF`qFI9$>F[ p,&-_%.LinearAlgebraG%5MatrixVectorMultiplyG6$&9)Ffo-%$mapG6%%&coeffGF`pFgpFI-% %evalG6$F`p/FgpF[oFI>FY,&FYFI*&&9,6#-%#opGF\pFIF[pFIFI>FY-F`r6$-%"@G6$%'normalG %'expandGFY@)/&Feq6$Q-type_of_leftFD9'.%%diffG-T%6,FeqF\t9+FYF[sF_o9.9/90/._FDF 892/Fis.%&shiftGC$>8*-_Fep%-dual_algebraG6$Feq<#&Feq6$Q.right_of_leftFDF\t-F`t6 ,F_uF\tFbt-F`r6$Fes,$-Fdr6$FY/F\t,&F\tFIF`qFIF`qF[sF_oFctFdtFetFft/Fis.%'qdilat GC$>F_uF`u-F`t6+F_uF\tFbt-F`r6$Fes,$-Fdr6$FY/F\t*&F\tFI&Feq6$Q+q_of_rightFDFeuF `qF`qF[sF_oFctFdtFetYQVOperator~type~has~to~be~either~shift,~qdilat~or~diff.FDF DFD6&%6_thismoduledefinitionGFD%,LOE_sys_ratGc,LOE_sys_rat%:-636#"#9/%+modulena meG%&MgfunG M7R0 I%:-56f*6&%$AlgG%$varG%#A_G%#r_G68%%dvarG%"AG%"rG%"nG%"TG%%permG%#I_G%&sigmaG%& deltaG%"iG%"jG%'perm_iG%$tmpG%"bG%"kG%"cG%'new_riG%"sG%"dG%"mG%"tG%"LG6"6"C7>8$ &9$6$Q.right_of_leftFA9%>8%-%'MatrixG6#9&>8&-%'VectorG6#9'>8'&-%#opG6$"""FK6#Ff n>8(-FM6$FWFW>&Fin6$FfnFfnFfn>8)-FS6#7#-%"$G6#;FfnFW>8*Ffn@)/&FF6$Q-type_of_lef tFAFI%%diffGC$>8+f*6#%"aGFA6"FAFFFAFAFA>8,f*FdpFA6"FA-F_p6$FFT$FAFA6$F&FI/F\p%& shiftGC$>Fbpf*FdpFA6"FA-%%evalG6$FF/F]q,&F]qFfnFfnFfnFAFAF^q>Fhpf*FdpFA6"FA""!F AFAFA/F\p%+dual_shiftGC$>Fbpf*FdpFA6"FA-Ffq6$FF/F]q,&F]qFfn!""FfnFAFAF^q>Fhpf*F dpFA6"FAF]rFAFAFAYQ@Neither~shift~nor~diff~algebra.FA?(8-FfnFfn,&FWFfnFhrFfn%%t rueGC%-%)userinfoG6&""$T%Q%i~=~FAF_s?(8.,&F_sFfnFfnFfnFfnFW/&FK6$F_sFjsF]rFA@%1 FjsFWC0@$0FjsF[tC*>8/&F`o6#F[t>Fgt&F`o6#Fjs>FjtFft-_%.LinearAlgebraG%-RowOperat ionG6%FK7$F[tFjs/%(inplaceGFas-_F_u%0ColumnOperationGFau>80&FQFht>Fju&FQF[u>F\v Fiu?(FjsF[tFfnFWFas>&Fin6$F[tFjsF]t>81-FS6#FW?(FjsF[tFfnFWFas>&FcvF[u-%'normalG 6#-%'expandG6#*&F]tFfn&FK6$F_sF[tFhr?(82F[tFfnFWFasC$?(Fjs,&F_sFfn""#FfnFfnFWFa s>&FK6$FcwFjs-Fjv6#-F]w6#z'6%&FK6$FcwF[tFiwFhv\[[[[[[[\[[[mFhr[[[[\[[[[[[[lFfn> Fax-Fjv6#-F]w6#*&FaxFfnF`wFhr>83Fdv>&FjxFht*&-Fhp6#F`wFfnF`wFhr?(FjsFfwFfnFWFas >&FjxF[u-Fjv6#-F]w6#,$*&F^yFfnFhvFfnFhr>84F]r?(FcwF[tFfnFWFasC$?(FjsFfnFfnFWFas >Fby-Fjv6#-F]w6#,&FbyFfn*&-Fbp6#&FK6$F_sFcwFfnFiwFfnFfn>Fjy,&FjyFfn*&FezFfn&FQ6 #FcwFfnFfn>FjuFjy?(FjsFfnFfnFWFas>&FKFavFby>F`wFfn?(FjsFfwFfnFWFas>F]tF]rC$>Fio 6$FioF[t>&Fin6$F[tF[tFfn>85-%%nopsG6#Fio>Fio7$Fio,&FWFfnFfnFfn>86-%&ArrayG6%Fgo Fgo;F]rFW?(F_sFfnFfnFWFas?(FjsFfnFfnFWFas>&Fd\l6%F_sFjsF]rF]t?(FcwFfnFfnF\\lFas ?(87FfnFfn,(&Fio6#,&FcwFfnFfnFfnFfn&FioF][lFhrFhrFfnFasC'?(88FfnFfnFe]lFasC%>&F d\l6%,&Fe]lFfnF`]lFfnFh]lF]r-Fjv6#-F]w6#,(-Fhp6#&Fd\l6%,(Fe]lFfnF`]lFfnFhrFfnFh ]lF]rFfnF[^lFfn*&&Fd\l6%F]^lF]^lF]rFfnFe^lFfnFhr?(FjsFfnFfn,&F`]lFfnFhrFfnFas>& Fd\l6%F]^lFh]lFjs-Fjv6#-F]w6#,*-Fbp6#&Fd\l6%Fg^lFh]l,&FjsFfnFhrFfnFfn-Fhp6#&Fd \l6%Fg^lFh]lFjsFfnF^_lFfn*&Fi^lFfnF\`lFfnFhr>&Fd\l6%F]^lFh]lF`]l-Fjv6#-F]w6#-Fb p6#&Fd\l6%Fg^lFh]lF\_l>&Fd\l6%F]^lFe]lF`]l-Fjv6#-F]w6#,&F[alFfnFi^lFfn>&FQ6#F]^ l-Fjv6#,(FcalFfn*&FDFfn&FQ6#Fg^lFfnFfn*&Fi^lFfnFialFfnFhr>Fi^lF]r?(F_s,&F`]lFfn FfnFfnFfnFa]lFasC&?(Fh]lFfnFfnFe]lFas?(FjsF]rFfnF\_lFas>&Fd\l6%,&Fe]lFfnF_sFfnF h]lFjs-Fjv6#-F]w6#z'6%&Fd\l6%FeblF]^lF]rFcblF\`l\[[[[[[[\[[[mFhr[[[[\[[[[[[[lFf n>&Fd\l6%,&Fe]lFfnFfnFfnFe]lF`]lF\cl>&FQ6#Febl-Fjv6#-F]w6#z'6%FcclFialF\cl\[[[ \[[[[[[[mFhr[[[[[[[[\[[[lFfn>F\clF]r-%'ASSERTG6$/F\\lFfnQ&WTF~?FA>FcwFfn>897$-% $seqG6$,$&Fd\l6%,&Fb]lFfnFhrFfnFfnFjsFhr/Fjs;F]rFa]lFfn-F]dl6#0<#-FZ6#Fcdl<#F]r ?(FAFfnFfnFA/&Fcdl6#FhrF]r>Fcdl&Fcdl6#;Ffn,&-F^\lFcelFfnFhrFfn7'FcdlFQFKFinF`oF AFA6&%6_thismoduledefinitionGFA%+ZeilbergerGc+Zeilberger%:-64/%+modulenameG%&Mg funG M7R0 I%:-70t+6)'%$AlgG%+OreAlgebraG%"xG%"BG'%$revG%&tableG%#GBG%%MordG%#~$G6*%"cG%"i G%"jG%"nG%"tG%#xwG%"XG%"sG6"6"C(>8'-%%nopsG6#9&>8*-%'MatrixG6$;"""F=FG>8)-%%map 2G6&_%,Ore_algebraG%-skew_productG9%FA9$>FJ-%'expandG6#-_%)GroebnerG%+NormalFor mG6%FJ9(9)?(8%FHFHF=%%trueGC%>8$-%$mapG6$-%"@G6$%'normalGFU7#-%'coeffsG6%&FJ6#F inFA.8(>F\p7#F\p?(8&FHFH-F?6#F\pFjn>&FC6$&9'6#&F\p6#F`pFin&F]oFjpFCF:F:6$%6_thi smoduledefinitionGF:6#""(/%+modulenameG%&MgfunG M7R0 I%:-79c)LOE_poly&:-104/%+modulenameG%&MgfunG M7R0 I%:-46c7dfinite_expr_to_diffeq%:-966$%*protectedG/%+modulenameG%&MgfunG M7R0 I%:-57t+6&'%$AlgG%+OreAlgebraG'%"LG%%listG'%$varG%%nameG%#~$G6$%)type_varG%%dva rG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C%>8$&9$6$Q-type_of_lef tF49&>8%&F96$Q.right_of_leftF4F<@)/F7.%&shiftG-T%6$9%FYQVOperator~type~has~to~be~either~shift,~dif f~or~qdilat.F4F4F46*%6_thismoduledefinitionGF4%5denom_solution_shiftGc5denom_so lution_shift%:-58%4denom_solution_diffGc4denom_solution_diff%:-59%6denom_soluti on_qdilatGc6denom_solution_qdilat%:-606#""%/%+modulenameG%&MgfunG M7R0 I%:-64t+62'%$AlgG%+OreAlgebraG'%$varG%%nameG'%$dimG%'posintG%%DvarG%"vG%#DvG%)f _coordsG%-formal_indetG%#~$G>%.constrained_PG""!>'%-double_orderG%(booleanG%&fa lseG>%*max_orderG%)infinityG>'%*min_orderG%*nonnegintG""">'%-non_zero_rhsG-%'Ve ctorG6#F:-FH6#7#-%"$G6$%%trueG9&>'%1target_dimensionGFBF6>'%2uncoupling_methodG <$-%*identicalG6#%#AZG-FZ6#%'lexdegGFin65%#dvG%%nb_vG%%dvarG%)var_typeG%0formal _rhs_vectG%+formal_rhsG%1uncoupled_systemG%)dual_algG%"dG%,indices_etaG%$resG%" iG%.converted_resG%%MordG%1constrained_P_opG%#d_G%)coeffs_PG%)monoms_PG%$etaG6# %PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C,>8$-%$mapG6$f*6#%"uGF`p6$ %)operatorG%&arrowGF`p&T$6$Q.right_of_leftF`p9$F`pF`p6$F&Faq9(>8%-%%nopsG6#Fcq> 8&&Faq6$F`q9%>8'&Faq6$Q-type_of_leftF`pF]r>81-_%)GroebnerG%.MonomialOrderG6$Faq -%%tdegG6$-%#opG6#FcpFjq>8(-FH6$FQf*6#FfoF`p6$F[qF\qF`p-%#ifG6%&F^q6#Faq&T%F[tF 6F`pF`p6&FF91F`o8)-%)userinfoG6%FC_F`p%4CreativeTelescopingGQ9Start~uncoupling~ system.F`p@'/F_r.%%diffG>8*-F]t6'FaqF]r,$9'!""Fas93-%#inG6$F_r<$.%'qdilatG.%&sh iftGC$>8+-_%,Ore_algebraG%-dual_algebraG6$Faq<#Fjq>F\u-F]t6'F]vF]r-%%map2G6&-%" @G6$%'normalG_F`v%)applyoprGFjqF`uF]vFasFbuYQVOperator~type~has~to~be~either~sh ift,~qdilat~or~diff.F`p@$09-F6C(>82-%%evalG6$-T'6$Fdw837#-%$seqG6$/&F^x6#&Fcq6# 8/&FcpFgx/Fhx;FCFeq>847#-%'coeffsG6%FgwFcp.85>8,-%'degreeG6$FgwFcp>8--T)6$FeyFe q>8.-T+60FaqFeyFQF]rFcp9)9*F\u86Fjy%3local_formal_indetGF`tFbu/%0constrained_et aG<#-Fax6$/&Fez6#-F^s6#-Fhv6%Fgy&FcyFgxFcp&F]yFgx/Fhx;FC-Fgq6#F]yO-T-6*F_zFcqFc pFQFfz9+FezFjy@%549.2FCFeq?(Fey90FC9/FPC%>FjyF[z>F_z-Faz6/FaqFeyFQF]rFcpFczFdzF \uFezFjyFfzF`tFbu@$4-T/6%F_zFezFjyC$>80Fj[l@$1-_Fgr%1HilbertDimensionG6$-Fep6$% &numerG7$-F^s6#-Fhv6%F^sFCFb]lFjqFdr92C$-Fbt6&""%FdtQ1PROFILE~-~LAST_DF`pFeyOFb ]lC(>FeyFd\l>FjyF[z>F_zFi\l?(F`pFCFCF`pF]]lC&@$/FeyFe\lO7">Fey-%$minG6$,$Fey""# Fe\l>FjyF[z>F_zFi\lFc^lFj[lF`pF`p60%6_thismoduledefinitionGF`p%0uncouple_system Gc0uncouple_system%:-62%(my_convGc(my_conv%:-69%4compute_indices_etaGc4compute_ indices_eta%:-66%+test_orderGc+test_order%:-65%,convert_resGc,convert_res%:-68% ,trivial_resGc,trivial_res%:-676#""*/%+modulenameG%&MgfunG M7R0 I%:-78c?skew_poly_creative_telescoping&:-103/%+modulenameG%&MgfunG M7R0 I%:-71f*6&'%$AlgG%+OreAlgebraG'%$varG%%nameG%"AG%"RG6B%$dimG%%dvarG%"rG%"iG%"jG %"GG%(L_arrayG%.var_rhs_arrayG%0const_rhs_arrayG%&val_rG%-formal_paramG%"gG%"kG %)comm_varG%%Alg_G%/monomial_orderG%#GBG%"nG%#nfG%$sysG%"cG%$solG%+params_solG% 'new_eqG%%rhs_G%*const_rhsG%(var_rhsG%"LG%+comm_denomG%'new_GBG%#gbG%)list_varG 6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C+>8$&-%#opG6$"""9&6#FX>8 %&9$6$Q.right_of_leftFP9%>8)7#-%$seqG6$,(*&FfnFX&8/6#8'FXFX-%$addG6$*&&FY6$Fgo8 (FX&Feo6#F^pFX/F^p;FXFS!""-%#ifG6%0&9'Ffo""!&8&6$,&FSFXFXFXFgoFjpFcp/FgoFbp>8*- %&ArrayG6#Fbp>8+Fbq>8,Fbq>&8-6#F^q7#-F`o6$FhpF_q?(F^pFSFcpFX%%trueGCB-%)userinf oG6&""#_FP%4CreativeTelescopingGQ%j~=~FPF^p>8C7%FfnF[o-Fep6%/&Fhn6$Q-type_of_le ftFPF[o.%,dual_qdilatG&Fhn6$Q+q_of_rightFPFfn%%NULLG>8.7%-F`o6$FdoF_q-F`o6$&F\q 6$,&F^pFXFXFXFgoF_q-FV6#-%'indetsG6#Fip>81-%&unionG6$-%&minusG6$&Fhn6#Q,comm_in detsFP<#F[o<#-FV6#Fjs>82-_%,Ore_algebraG%-skew_algebraG6%/F`sF[s/%%commGFit/%(p olynomGFjs>83-_%)GroebnerG%.MonomialOrderG6%Fhu-%%tdegG6$FfnFeu7#Feu>84-_Fgv%&B asisG6$F]oFdv?(85FjpFXF^pFar>&866#Few-%(collectG6%-_Fgv%+NormalFormG6%*&)FfnFew FXF_pFXF_wFdv7#-F`o6$Fdo/Fgo;FjpF^p%'normalG>877#-F`o6$-%&coeffG6$-Fio6$*&&886# 80FX&FhwFfyFX/FgyFgxFdo/Fgo;FXF^p>89-_%+SolveToolsG%'LinearG6$Fjx7#-F`o6$&FeyFf oFfx>8:-%'selectG6%%$hasGF]z7#-F`o6$/FfzFfzFfx>8;6$/-%$rhsG6#&FhzFZFX-F`o6$/-Ff [lFfoFjp-%#inG6$Fgo-F^u6$Fhz<#Fh[l>F]z-F[u6$-%%evalG6$-F^u6$F]zFhz7#Fb[l<#Fb[l> 8<-Fg\l6$-Fio6$*&FfzFX-Fg\l6$&FhwFfo7#-F`o6$/&FeoFfyFjp/FgyF[zFXFfxF]z>F^]l,&-F io6$-_F[v%-skew_productG6%-F_y6$F^]l&F\q6$FbtFgy&&F[r6#FbtFfyFhu/Fgy;FX-%%nopsG 6#Fj^lFX-Fg\l6$F^]l7#-F`o6$/Fg^lFjpF\_lFX>8=-Fhx6#-Fg\l6$F^]l7#-F`o6$/FhpFjpF_q >8>-Fhx6#-Fg\l6$F^]l7#-F`o6$/FdoFjpF_q>8?7#-F`o6$-Fhx6#-Fg\l6$FfzF]zFfx-%'ASSER TG6#0<#-FV6#F\al<#Fjp?(FPFXFXFP/&F\al6#FcpFjp>F\al&F\al6#;FX,&-F__lFjalFXFcpFX> 8@-%$lcmG6%-FV6#-%&denomGFjal-F^cl6#Fh_l-F^cl6#Fb`l>Fh_l-Fhx6#*&FgblFXFh_lFX>F \al-%$mapG6%-%"@G6$Fhx%"*GF\alFgbl>Fb`l-Fhx6#*&Fb`lFXFgblFX>&Faq6#,(FSFXF^pFcpF XFXF\al>&FfqFedlFb`l>&FhqFedlFh_l>FgoFX>8AFhs>&F[rF`p7#-%"$G6$Fjp-F__l6#F_w?&8B F_wFarC%>&F_elFfo,&-Fio6$-Fb^l6%-F_y6$-Fg\l6$Fgel7#-F`o6$Fj]l/Fgy;FX,&F^pFXFcpF XFg^lFi^lFhuF\_lFX-Fg\l6$Fgel7$FeflFd_lFX>F]el6$F]el,&-Fg\l6$Fgel7$/F_pFjp-F`o6 $Ff_l/Fgy;FjpF^_lFX-Fep6%0FjelFjp&F\q6$F^pFgoFjpFX>Fgo,&FgoFXFXFX>F]o7#F]el7&7# -F`o6$&FaqFfoF_q7#-F`o6$&FfqFfoF_q7#-F`o6$&FhqFfoF_qFeoFPFP6$%6_thismoduledefin itionGFP/%+modulenameG%&MgfunG M7R0 I%:-89f*6"6'%"RG%"TG%$GBsG%$GBpG%"iG6#%WCopyright~(c)~1996-2008~Frederic~Chyzak ,~INRIA,~FranceGF$C'>8$-T%6#7#&9"6#;"""!"#>8%-_%)GroebnerG%.MonomialOrderG6$&F/ 6#Q(algebraF$-.%%tdegG6#-%#opG6#&FA6#Q-right_indetsF$>8&-%$mapG6%_F>%&BasisG&F/ 6#Q'systemF$F;>8'--%#ifG6%/&F56#!""Q"+F$__%)HolonomyG%-HO_InternalsG%,dfinite_a ddG_F^o%,dfinite_mulG6$7#-%$seqG6$7$8(F;/FjoFOF;-%(collectG6%-FQ6&__%,Ore_algeb raG%-OA_InternalsG%/apply_operatorG-%(convertG6$FY.%$setG&F/6#Q)functionF$FA<$- FI6$""!F[q.%%diffG.%,distributedGF$6&FFFjpFcqFeq6&%6_thismoduledefinitionGF$%;r ecognize_operator_algebraGc;recognize_operator_algebra%:-94/%+modulenameGc-MG_I nternals%:-43 M7R0 I&:-153`6$c)Original&:-157c/VerifyOriginal&:-158b6#%+thismoduleG6&%3Integration ByPartsG%0ReduceOneFactorG%1ReduceOneFactor1G%6VerifyReduceOneFactorG6#%(packag eG6$%)OriginalG%/VerifyOriginalG6"6#QSComputing~Hermite~reduction~of~a~rational ~functionF4F4F4%2_m140134693688672G6&c3IntegrationByParts&:-159c0ReduceOneFacto r&:-160c1ReduceOneFactor1&:-161c6VerifyReduceOneFactor&:-162/%+modulenameGc4Rat ionalTelescoping%:-81 M7R0 I%:-98f*6$%+expressionG%-var_type_setG6/%)diff_setG%*shift_setG%+qshift_setG%(v ar_setG%(correctG%%exprG%"fG%%baseG%)exponentG%%termG%)new_formG%"iG%"qG6#%aoCo pyright~(c)~1999-2009~Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceG6"C+>8$-%% map2G6%%#opG"""-%'selectG6%%$hasG9%.%%diffG>8%-F<6%F>F?-FA6%FCFD.%&shiftG>8&-F< 6%F>F?-FA6%FCFD.%'qshiftG>8'-F<6%F>F?FD>8)-T%6$9$FD>Ffn-T'6#Ffn>8*-F>6$""!Ffn@3 4-FC6$FfnFXF7-&T)6#FE6$FfnFD>Ffn-%/Mgfun/IDENTITYGF^o3-%%typeG6$Ffn-.%'radfunG6 $.%)anythingG-%&unionG6$F:FH/-%*intersectG6$-%'indetsGF^oFP<"F73-%)assignedG6#& T+6#F`o-T-F\pF73/F`o%*hypergeomG-T/F\pF73/F`o.%$expG-Fio6$-F>F^oFD>Ffn-%*Mgfun/ EXPG6#Fhr/F`o%"^GC%>8+-F>6$F?Ffn>8,-F>6$""#Ffn@+3-Fio6$FesFD4-FC6$FasFX>Ffn-F[s 6#*&-%#lnG6#FasF?FesF?533-Fbp6$Fes-%'linearG6#FH4-FC6$Fes-F[q6$F:FPF]t33-Fbp6$F as-Fep6$FhpF:4-FC6$Fas-F[q6$FHFP-&Fjo6#FMF\t>Ffn-%,Mgfun/POWERG6$FesFas333-Fbp6 $Fes-<$.F]u.%*quadraticG6#FP4-FC6$Fes-F[q6$F:F:F]t-&Fjo6#FUF\t>Ffn-%-Mgfun/qPOW ERGFev-Fbp6$Fes.%(integerG@-32FcoFes-Ffq6#&Fiq6#-F>6$Fco-F]oFft>Ffn)-T16$FasFDF es-%'memberG6$-F>6$FcoFas<&.%&GAMMAG.%)binomialG.%*factorialG.%+pochhammerG>Ffn -%$mulG6$8//Faz-%$mapG6$f*6#%"zGF76$%)operatorG%&arrowGF7@%/-F>6$FcoFjnF^s-%,Mg fun/GAMMAG6$-F>6$F?-F>6$F?Fjn*&-F>6$FhsFjnF?T#F?-Fa[l6$Fe[lFj[lF7F76$F0Fes-%#if G6%-FC6$-F>6$7$F?FcoFfn<$FeyFiy<#-%(convertG6$FasFey<#-F>6#Fh\l/Fby.%+qfactoria lG>Ffn-%2Mgfun/qPOCHHAMMERG6%-F>6$FhsFas-%"$G6$-F>6$F?FasFhsFes/Fby.%*qbinomial GC$>80Fj]l>Ffn*(-Fc]l6%Fe]l-Fh]l6$Fa^lFhsFesF?-Fc]l6%-F>6$""$FasFf^l,$Fes!""F?- Fc]l6%,&Fe]lF?Fj^lF^_lFf^lF]_lF?/Fby.%,qpochhammerG>Ffn-Fc]l6%-F>6$;FhsF\_lFasF j]lFes>Ffn%2Mgfun/NOT_DFINITEG>FfnF\`l5/F`o%"+G/F`o%"*GC%>8(%%trueG?&8-FfnFe`lC $>&8.6#Fh`l-F]y6$Fh`lFD>Fe`l-%&evalbG6#0F[alF\`l>Ffn-F_\l6%Fe`l--F_\l6%F_`l.%$a ddG.F_z6$F[al/Fh`lFfnF\`l>FfnF\`lFfnF761FfpFipFerFFFNFV%*nonnegintGF\blF_zFhyFj yF\zFfyF_xFc]l62%6_thismoduledefinitionGF7%CMgfun/type_checking/rewrite_powersG cCMgfun/type_checking/rewrite_powers&:-125%KMgfun/type_checking/rewrite_spec_fu nctionsGcKMgfun/type_checking/rewrite_spec_functions&:-126%8%-&T%6#.%%diffG6$-%#opG6$"" $9$9%?(8$"""F?-%%nopsG6#-F86$F?F;F/>F/-&F26#.%&shiftG6$-F86$7$F?F>F;FF?F?- FA6#-F86$""#F;F/>F/-FG6$-F86$7$FTF>F;F8$-%#opG6$""!9$@C/-F36$F5F1. %*orthopolyG@./-F36#F1.%"LG>8%-%#ifG6%/-%%nopsG6#F6""#-%*LaguerreLG6%-F36$"""F6 F5-F36$FLF6-FN6#-F3FK/F?.%"PG>FD-FF6%FH-%(JacobiPG6&FPF5F5FS-FinFV/F?.%"GG>FD-% ,GegenbauerCGFV/F?.%"HG>FD-%)HermiteHGFV/F?.%"TG>FD-%+ChebyshevTGFV/F?.%"UG>FD- %+ChebyshevUGFV/F1.%+qfactorialG>FD-%2Mgfun/qPOCHHAMMERG6%FS-%"$G6$FPFLFR/F1.%* qbinomialGC$>8(FP>FD*(-Fip6%FS-F\q6$FcqFLFRFR-Fip6%-F36$""$F6Fhq!""FR-Fip6%,&FS FRF\rF_rFhqF_rFR/F1.%,qpochhammerG>FD-Fip6%-F36$;FLF^rF6FPFR-%'memberG6$F1<&.%& GAMMAG.%)binomialG.%*factorialG.%+pochhammerG>FD-%$mulG6$8&/F\t-%$mapG6$f*6#%"z GF.6$%)operatorG%&arrowGF.-FF6%/F2%"^G-%,Mgfun/GAMMAG6$-F36$7$FRFRF6FS-F\u6$FPF RF.F.F.-FF6%-F]s6$F1<$F`sFds<#-%(convertG6$F6F`s<#-F36#Fiu/F1.%+WhittakerMG>FD- f*6%%#muG%#nuGFctF.6$FetFftF.*(-%$expG6#,$9&#F_rFLFR)F^w,&9%FR#FRFLFRFR-%*hyper geomG6%7#,(FbwFRF6F_rFcwFR7#,&FbwFLFRFRF^wFRF.F.F.FV/F1.%+WhittakerWG>FD-f*FevF .6$FetFftF.*(FjvFRF`wFR-%(KummerUG6%FhwFjwF^wFRF.F.F.FV/F1.%*KelvinBerG>FD,&-%( BesselJG6$FP*&-F[w6#*&^##F^r""%FR%#PiGFRFRFSFRFcw-F\y6$FP*&-F[w6#*&^##!"$FdyFRF eyFRFRFSFRFcw/F1.%*KelvinBeiG>FD*&^#F_wFR,&F[yFRFfyF_rFR/F1.%*KelvinKerG>FD,$*& -F[w6#*(FdzFRFPFRFeyFRFR,&-F\y6$FP*&-F[w6#*&^##FRFdyFRFeyFRFRFSFRFR-F\y6$FP*&-F [w6#*&^##F_rFdyFRFeyFRFRFSFRFRFRFcw/F1.%*KelvinKeiG>FD*(FdzFRF\[lFR,&F`[lFRFh[l F_rFR/F1.%*KelvinHerG>FD,&-%)HankelH1GF]yFcw-%)HankelH2GFgyFcw/F1.%*KelvinHeiG> FD*&FdzFR,&F[]lFRF]]lF_rFR/F1.%)FresnelfGC$>8'FW>FD,&*&,&FcwFR-%)FresnelSG6#Fj] lF_rFR-%$cosG6#,$*&FeyFRFj]lFLFcwFRFR*&,&FcwFR-%)FresnelCGFa^lF_rFR-%$sinGFd^lF RF_r/F1.%)FresnelgGC$>Fj]lFW>FD,&*&Fh^lFRFb^lFRFR*&F^^lFRF[_lFRF_r/F1.%*Legendr ePG>FDFhn>FDF6FDF.6)FcsFesFgsF`qFfpFerFas6$%6_thismoduledefinitionGF./%+modulen ameGc-MG_Internals%:-43 M7R0 I&:-103t+6.%"fG'%%_AlgG%+OreAlgebraG%%_varG%*_order_dxG%#~$G>%.constrained_PG"" !>%-double_orderG%&falseG>%-formal_indetG.%"cG>%*max_orderG%)infinityG>%*min_or derG""">'%1target_dimensionG%*nonnegintGF.>'%2uncoupling_methodG<$-%*identicalG 6#%#AZG-FE6#%'lexdegGFJ6O%)conv_varG%)type_varG%%varsG%%dvarG%*typed_varG%"vG%# dvG%(typed_vG%*sys_mgfunG%"FG%$sysG%"dG%"iG%1short_mono_orderG%%MordG%#GBG%"JG% "BG%$revG%$dimG%#DvG%%DvarG%"zG%-dvar_only_eqG%(deg_varG%-non_zero_rhsG%'type_v G%,qshift_varsG%,qshift_dvarG%#qsG%*new_namesG%'new_dxG%$AlgG%$varG%+sys_output G%+Alg_outputG%,Mord_outputG%*GB_outputG%"gG%"jG%"eG%"uG%$eisG%#gbG%)order_dxG6 #%PCopyright~(c)~2010,~INRIA.~All~rights~reserved.G6"CF>8$f*6#FgoFep6"Fep@%/&T$ 6$Q-type_of_leftFep9$.%'qshiftG'-%#opG6$""#FbqF^q'FbqF^qFepFep6$F'9%>8'&F\r6$Q. right_of_leftFep9&>8%&F\r6$FaqFbr>8)7#-Fgq6#-%&minusG6$&F\r6#Q,left_indetsFep<# Fbr>8&7$-Fgq6#FhrFbr>8*-%$mapG6$f*6#F_pFep6$%)operatorG%&arrowGFep&F_q6$FarFbqF epFepF[rFhr>8>-F[t6$f*F^tFep6$F`tFatFepF^qFepFepF[rFhr>8A7">8?-%'selectG6$f*F^t Fep6$F`tFatFepF]qFepFepF[rFds@%3-%%typeG6$Fbq.%)functionG/-Fgq6$F.Fbq.%%LFOSG>8 .-Fgq6$F;FbqC&>8(-Fhp6#Fbr>8+-F[t6$FhpFhr>8,-T%6$Fbq-8-6$Ffv-Fgq6#Fjv>Fav-%%eva lG6$-F[t6%T'F^w8/7$-%$seqG6$/&F^x6#80&F\r6$FarFfx-%#inG6$FfxFds-Fax6$/&F^x6#-Fg q6$FiqFfxFgx-Fjx6$FfxF^u@%0F^uF\uC*>8@-F[t6$f*F^tFep6$F`tFatFepFbtFepFepF[rF^u> F[u-F[t6$f*F^tFep6$F`tFatFep&F_q6$Q+q_of_rightFepFbqFepFepF[rFiy>8B7#-Fax6$-%$c atG6&%"xG-Fgq6$Fiq&F^uFex%#__GFfx/Ffx;F;-%%nopsG6#F^u>8C7#-Fax6$-F\[l6$F^x&FgzF exFc[l>8P-Fiw6$9'7#-Fax6$/&FiyFex&Fi[lFexFc[l>Fav-Fiw6$Fav7$-Fax6$/Fa[lF_\lFc[l Ff\l>8D-_%,Ore_algebraG%-skew_algebraG6%-Fax6$/%'qdilatG7%Fj\lF_\l&F[uFexFc[l-F gq6#-F`u6$f*F^tFep6$F`tFatFep0FbvFcqFepFepFep&F\r6#Q,type_structFep/%%commG-F]s 6$&F\r6#Q,comm_indetsFep<%Ffs-Fgq6#F[uFbr@$-Fjx6$FbrF^uC%?(FfxF;F;Fep0Fa[lFbrFe p>F^rFj\l>8EF_\lC%>Fc]lF\r>F[`lFbr>Fa\lFd\l>Fhr7#-Fgq6#-F]s6$&Fc]lF`s<#F[`l>Fet -F[t6$f*F^tFep6$F`tFatFep&T#F`qFepFep6$FfoFc]lFhr>Fis-F[t6$f*F^tFep6$F`tFatFep& F^alFctFepFepF_alFhr>81-%%tdegG6$-Fgq6#-F]s6$&Fc]l6#Q4non_alg_poly_indetsFep<#- Fgq6#Fa\lFcbl>82-_%)GroebnerG%.MonomialOrderG6$Fc]lFgal>83-_Fibl%&BasisG6$FavFf bl>84-_Fibl%0LeadingMonomialG6$F]clFfbl>6$8586-_Fibl%*NormalSetG6$FcclFgal>87-F f[l6#Fjcl>8=-%'VectorG6#7#-%"$G6$%%trueGFadl@$/-Ff[lFgsF;C$>8;-%'removeG6%%$has GF]clF^r@$0FcelF\uC%>Fedl-Fgdl6#7#-F[el6$F1Fadl>8<-%'degreeG6#-Fecl6$-Fgq6#Fcel Ffbl?(FfxF.F;,&FbflF;!""F;F]el>&Fedl6#&F[dl6#)&Fis6#F;FfxF]el-%)userinfoG6&""%_ Fep%4CreativeTelescopingGQ4PROFILE~-~DIMENSIONFepFadl>88-%%map2G6)T)Fc]lFisFjcl F[dlF]clFfbl>89-Fahl6(Fc]lF^rFjclF[dlF]clFfbl>8:-T+61Fc]lF[`lFadlFchlFhrF]hl-Fg dl6#7$F;-F[el6$F.,&FadlF;F\glF;9+/._FepF:9-/._FepF79,/._FepFB9//._FepF09*/._Fep F_oFedl/._FepF>9./._FepF-9)>8N-Fax6$&8LFex/Ffx;F.-Ff[l6#Fghl>8F<#-Fax6$z'6%&&Fg hlFexFdgl&Fb[m6#F.Fa[m[[[[\[[[\[[[mF;\[[[[[[[[[[[lF\gl/Ffx;F;Fe[m>8G-Fe]l6%-Fax 6$/&FetFex7%&FisFex&FhrFex-%#ifG6%/F[]m.F\^l&Fc]l6$FezF]]m%%NULLG/Ffx;F;F`el/Fj ^l-F]s6$-%&unionG6$<#F^[m&Fc]lF^_l<%FfsFa_lF[`l/%(polynomG7#F^[m>8H-Fhbl6%Fe\m- Fial6%F^[mFcbl-Fgq6#-F]s6$<#-Fgq6#FisFbblFd^m>8I-F_cl6$-F[t6$%&numerGFh[mFf^m>8 J7#-Fax6$-%$addG6$*&&&&Fghl6#8K6#FiqFexF;&FjclFexF;/Ffx;F;Fadl/Ff`mFc\m>Fc_m-F` u6$f*F^tFep6$F`tFatFep0-%&coeffG6$Fbq&F^alFa\mF.FepFep6$F^pFb[mFc_m>Fghl7#-Fax6 $7$-Fcam6$8OF`\m,$-F_`m6$-_Ff]l%-skew_productG6%-Fcam6$F^bm&Fb[mFe`m&Fj_mFe`mFc ]lF[amF\gl-Fjx6$F^bmFc_m@$Ffy>Fghl-Fiw6$Fghl7$-Fax6$/F_\lFa[lFc[l-Fax6$/Fj\lFi \lFc[lFghlFepFep6,%6_thismoduledefinitionGFep%4dfinite_expr_to_sysGc4dfinite_ex pr_to_sys%:-85%(my_convGc(my_conv%:-69%CNonCommutativeMultiplicationMatrixGcCNo nCommutativeMultiplicationMatrix%:-70%+ZeilbergerGc+Zeilberger%:-646#""&/%+modu lenameGc-MG_Internals%:-43 M7R0 I&:-112f*6&%#eqG%$psiG%"kG%&orderG6,%#CFG%#cfG%$tmpG%"iG%"jG%"XG%"aG%"bG%"dG%&a lphaG6#%WCopyright~(c)~2000-2002~Frederic~Chyzak,~INRIA,~FranceG6"C*?(8'""!"""9 '%%trueG>&8%6#F9-%'expandG6#-%&coeffG6$9$-9%6#,&9&F;F9F;?(F9F:F;F&8$FA-%$ad dG6$*&-%)binomialG6$8(F9F;&F@6#FYF;/FY;F9F<>8*,&-%$maxG6$!""-%#opG6#-T%6$&FQ6#F 8&FP>F?F:?(F6F;F;F60FjoF:C%>8,-%'degreeG6$FjoFM>F?,&F?F ;*(-%*factorialG6#F`pF;-FF6%FjoFMF`pF;)8)F`pF;F;>Fjo,&FjoF;-FC6#*(FgpF;FjpF;-FW 6$,&FMF;FinF^oF`pF;F^o>8+-F\o6#-%$seqG6$,&-Fbp6$F?F]qF;F9F^o/F9;F:F<>F`p-F\o6#- F[r6$F^rF`r>8--FS6$-FS6$-FC6#*(-FW6$,&F]qF;FgqF;FYF;-FW6$FY,&FgqF;F9F;F;-FF6%F? F]qFYF;/FY;F:F`pF`r-F\o6%,&FgqF^oF^oF;,&-Fbp6$-%'removeG6%%$hasGFHFJFMF;FgqF^o- F`o6#-%'selectG6%%%typeG-Fco6$FhrF]q.%*nonnegintGF66#F]u6&%6_thismoduledefiniti onGF6%4Mgfun/integer_solnsGc4Mgfun/integer_solns&:-115/%+modulenameGc-MG_Intern als%:-43 M7R0 I%:-97f*6$%%exprG'%-f_of_typed_nG-%)functionG6#%%nameG6"6#%aoCopyright~(c)~1999 -2002~Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceGF,-T%6$9$--%#opG6$""!9%6#' -F56$"""F8.%&shiftGF,6#F?6&%6_thismoduledefinitionGF,%4dfinite_expr_to_sysGc4df inite_expr_to_sys%:-85/%+modulenameGc-MG_Internals%:-43 M7R0 I%:-90f*6$%$sysG%"rG6'%%optsG%"nG%"aG%"bG%"tG6#%WCopyright~(c)~1996-2002~Freder ic~Chyzak,~INRIA,~FranceG6"C&@$4-%*typematchG6$9%/'8%.%%nameG<$'8(-.%*identical G6#.%)residuesG;'8&.%*algebraicG'8'FHYQ7bad~summation~intervalF/>8$<#&9"6#;""$! ""@$0-%&minusG6$FO<%.%,_incautiousG.%/_takayama_algoG.%4_natural_boundariesG<"Y Q,bad~optionsF/-T%6&9$F6FOQ$intF/F/6)F;FIFAFDFjnFhnF\o6&%6_thismoduledefinition GF/%4anti_partial_of_sysGc4anti_partial_of_sys%:-92/%+modulenameGc-MG_Internals %:-43 M7R0 I&:-154`6(c)GeddesLe&:-163c(Hermite&:-164c6ModularVerifyFunction&:-165c2Modular VerifyList&:-166c6VerifyHermiteFunction&:-167c2VerifyHermiteList&:-168b6#%+this moduleG6-%3FindLinearRelationG%4GenerateCertificateG%3GenerateTelescoperG%*GetC oeffsG%2LowerBoundForRankG%2NewIntegrablePartG%-SimpleReduceG%.SimpleReduce1G%. SimpleReduce2G%3VerifySimpleReduceG%8VerifyNewIntegrablePartG6#%(packageG6(%)Ge ddesLeG%(HermiteG%6ModularVerifyFunctionG%2ModularVerifyListG%6VerifyHermiteFun ctionG%2VerifyHermiteListG6"6#QYComputing~the~minimal~telescoper~for~a~rational ~functionFCFCFC%2_m140134693688960G6-c3FindLinearRelation&:-169c4GenerateCertif icate&:-170c3GenerateTelescoper&:-171c*GetCoeffs&:-172c2LowerBoundForRank&:-173 c2NewIntegrablePart&:-174c-SimpleReduce&:-175c.SimpleReduce1&:-176c.SimpleReduc e2&:-177c3VerifySimpleReduce&:-178c8VerifyNewIntegrablePart&:-179/%+modulenameG c4RationalTelescoping%:-81 M7R0 I%:-83t+6'%%exprG'%(typed_nG<%%#::G-.%%listG6#F)-.%$setGF-'%(typed_kG<$F)F*>'%$ optGF,7"%#~$G6?%,create_commG%.typed_var_intG%(var_intG%)dvar_intG%(ore_intG%(t yped_vG%"vG%#dvG%&ore_vG%%varsG%(indets_G%$AlgG%)expr_argG%#ctG%"AG%$varG%$resG %"RG%"MG%"PG%"QG%%MordG%"dG%"rG%"iG%"jG%"kG%#coG%%rem_G6#%PCopyright~(c)~2010,~ INRIA.~All~rights~reserved.G6"C9>8$f*6$F?FA6%F@%&type_G%"tG6"FYC%>6$Ffn8%-%#opG 6#9$@'/F`o.%'qshiftG>8&)%"qGFfn/F`o.%'qdilatG>Fjo6$FfnF\p>FjoFfn/F`o7$9%FjoFYFY FY>F`o-%#ifG6%-%%typeG6$9&F)7#F]qF]q>Fjo-%%map2G6%Fbo"""F`o>8'7#-%$seqG6$-%$cat G6&%#_dG&Fjo6#8=%#__GF`r/F`r;Fcq-%%nopsG6#Fjo>8(7#-Fhq6$-Ffn6$&F`o6#8<&FeqF_s/F `sFcr>8)-Fhp6%-F[q6$Fep<$F+F/7#-Fbo6#Fep7#Fep>8*-Faq6%FboFcqFds>8+7#-Fhq6$-F[r6 &F]r&F_tF_sFar,&F`sFcqFdrFcq/F`s;Fcq-Fer6#F_t>8,7#-Fhq6$-Ffn6$&FdsF_s&FctF_sF[u >8-7$-FboFfr-FboF^u>8.-%&minusG6$-%'selectG6%F[q-%'indetsGFco%%nameG<#-Fbo6#Fiu >8/-_%,Ore_algebraG%-skew_algebraG6%-Fbo6#Fhr-Fbo6#F`u/%%commGF^v@%3-F[q6$Fdo.% )functionG/-Fbo6$""!Fdo.%&LFSolG>80-%%LFOSG6#-%%evalG6$-%$mapG6%T%-Fbo6$FcqFdo8 :7#-Fhq6$/&FbyF_s&F\w6$Q.right_of_leftFYF`s-%#inG6$F`sFiu>FexFdo>81-%&tableGFY? (F`sFdr!""Fcq%%trueGC&>82-F^w6%-Fbo6#&Fhr6#;FcqF`sFdwFfw>83&FjoF_s@$/-Fbo6$""#F ^sFgo>Fa[l)F\pFa[l>&F`zF_s-T'6'-Fhp6%/F`sFdrFex-Fgx6#-Faq6%FboFcq&F`z6#,&F`sFcq FcqFcqFhzFa[l-_%*ListToolsG%(ReverseG6#7$-Fbo6#Fct-Fbo6#&Feq6#;Fcq,&F`sFcqFdzFc q-Fhp6%/F`sFcq-Fbo6#9'%%NULLG-%)userinfoG6%Fcq_FY%4CreativeTelescopingGQDStart~ to~reconstruct~rhs~operators.FY>86-Fer6#&F`z6#Fcq>84-%&ArrayG6$;FcqFe^l;Fcq,&Fd rFcqFcqFcq>85Faz?(F`sFcqFcqFe^lFezC(>6$8788-Fbo6#&Fh^lF_s>Fh_l-%)primpartG6%Fh_ l7%-Fbo6#FeqF_]lF[v.8?@$0Fe`lFax>Fi_l*&Fi_lFcqFe`lFdz>&F[_l6$F`sFcqFh_l>&F[_l6$ F`sFg[lFi_l>&Fc_lF_s,&Fh_lFcq-_F_w%-skew_productG6%-Fhp6%/-Fbo6$Fg[l&F`oFi^l.%% diffG&FeqFi^l,&F_blFcqFdzFcqFi_lF\wFdz@$2FcqFdr>89-_%)GroebnerG%.MonomialOrderG 6$F\w-%%tdegG6#-Fbo6#-Fj\l6#7$F_]lFb`l?(F`sFcqFcq,&FdrFcqFdzFcqFez?(F`rFcqFcqFe ^lFezC'>8@-%8Mgfun/NOT_BUGGED_ReduceG6'&Fc_lF_r7#-Fhq6$&&Ff\l6#8>Fi^l/Fbdl;Fcq- Fer6#Ff\lFdbl.8;.%"aG-%'ASSERTG6$/FgclFaxQ&r~=~0FY>Fi_l-%'normalG6#*&-%$addG6$- Fdal6%&FjdlFadl&F`dl6#Fg[lF\wFcdlFcqFhdlFdz>&F[_l6$F`r,&F`sFcqFg[lFcqFi_l@$2F`s Fccl>F[dl,&F[dlFcq-Fdal6%-Fhp6%/-Fbo6$Fg[l&F`oFg\lF]bl&FeqFg\l,&F]glFcqFdzFcqFi _lF\wFdz7#-Fhq6$7$-_F_w%)applyoprG6%F[al-%#_FG6#F\vF\w-Fhq6$-Fdgl6%&F[_l6$F`s,& FcqFcqF`rFcq-%#_fG6$F\vF[vF\wFbr/F`sF__lFYFY6(%6_thismoduledefinitionGFY%(my_co nvGc(my_conv%:-69%?skew_poly_creative_telescopingGc?skew_poly_creative_telescop ing&:-1036#""&/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-1477*,6*&%#DxG""#%"xGF'!""**F&"""%#SbGF+%"bGF+F(F+F)**F&F+F,F+%"aGF+F(F+F+* &F(F+F&F+F)*&%#SaGF+F(F+F+*&F,F+F-F'F)*(F,F+,&F/F+F)F+F+F-F+F+*&F,F+F/F+F+*$F-F 'F+*$F(F'F)z+6(F&F2F,F/F-F(\[[[[[[[[\[][wF+\[[[_[c[[[[[[wF)\[][[[c[[[[[[wF+[[][ [[[[[\[[[sF),8*(F&F'F(F'F-F+F'F%F'*(F&F+F-F'F(F+!"#*(z'6$F/F(\[[[[][[[[sF>\[[[[ [[[[[oF>F+F&F+F-F+F+*(F&F+F/F+F(F+F>*(F,F'F-F+F(F'F)*&z'FA][[[[][[[[wF+][[[[[[[ [[sF)F+F,F'F+*&,&F/F'F'F+F+F-F'F+*&z)FA][[[[[[[[[sF+[[[[[][[[[oF'!F'F+F-F+F+*&F /F+F(F'F)F8F+,.F%F)*(F&F+F-F+F(F+F+FBF+*(F2F+F,F+F(F+F+*&,&F/F)F)F+F+F-F+F+F8F) z16&F&F2F/F(][[[[[[[[][[oF)\[[[[[[[[\[[mF)[[[[[[][[[[[mF+[[[][[[[[[[[mF+][[[[[[ [[[[[mF)[[[\[[[[[[[[lF'!F+,0*&F(""$F&FTF+*&z'FA][[[[][[[[wF)][[[[[[[[[sF'F+F&F' F+F=F)*&z'FA^[[[[[[[[[wF+\[[[[][[[[sF)F+F&F+F+*&,&F/F+F+F+F+F-F'F+FJF)F8F+z-6(F 2F,%#TbGF/F-F(\[[[_[[[[\[[[wF)\[][[[[[[\[[[wF+\[[[_[c[[[[[[wF+\[][[[c[[[[[[wF+[ [][[[[[[[[][sF>z16(F&F2%#TaGF/F-F(][[[[[[[[[[_[[lF)\[[[c[c[[[[[[[lF+\[_[[[c[[[[ [[[lF)\[[[[[[[[[[][sF)\[[[[[[[[\[[[sF+[[_[[[[[[[[[[sF+][[[[[[[[[[[[sF)/%+module nameGc-MG_Internals%:-43 M7R0 I&:-140""*/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-125f*6$%+expressionG%-var_type_setG6/%%exprG%%baseG%)exponentG%(sub_setG%)d iff_setG%+qshift_setG%*shift_setG%*other_setG%*diff_exprG%,qshift_exprG%+shift_ exprG%+other_exprG%"iG6#%aoCopyright~(c)~1999-2002~Frederic~Chyzak~and~Cyril~Ge rma,~INRIA,~FranceG6"C&>8$-T%6#9$@$/-%#opG6$""!F:.%$expG>F:)-FF6#"""-FB6#F:@$/F A%"^GC+>F:-%(applyopG6%%'expandG""#F:>8%-FB6$FKF:>8&-FB6$FWF:>8'-%#ifG6%-%%type G6$Fgn%"+G<#-FB6#Fgn<#Fgn>8+-%'removeG6%%$hasGF[o-%%map2G6%FBFK9%>8(-%&minusG6$ -Fjo6%F\pF[o-F^p6%FBFK-%'selectG6%F\pF`p<$.%'qshiftG.%&shiftGFho>8*-Fdp6$-Fjo6% F\pF[o-F^p6%FBFK-F[q6%F\pF`p<$.%%diffGF^qFho>8)-Fdp6$-Fjo6%F\pF[o-F^p6%FBFK-F[q 6%F\pF`p<$F]rF`qFho@%/-%%nopsG6#F[o,*-F]s6#FhoFK-F]s6#FbpFK-F]s6#F`rFK-F]s6#Fcq FKC'>8,-F]o6%/FYFE-FF6#-%$addG6$80/FctFbp)FYF`t>8-)FY-Fat6$Fct/FctF`r>8.)FY-Fat 6$Fct/FctFcq>8/)FY-Fat6$Fct/FctFho>F:**FjsFKFgtFKF]uFKFcuFKYQ;expression~is~not ~d-finiteF7F:F76&F^rFaqF_qFF6&%6_thismoduledefinitionGF7%BMgfun/type_checking/n ormalizationGcBMgfun/type_checking/normalization&:-124/%+modulenameGc-MG_Intern als%:-43 M7R0 I&:-118f*6$%%termG%*shift_setG6%%&v_setG%"vG%(correctG6#%aoCopyright~(c)~1999-2 002~Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceG6"C&>8&%%trueG>8$-%*intersec tG6$9%-%'indetsG6#9$@$0F3<"@%0-%%nopsG6#F3""">F0%&falseGC$>8%-%#opGFC@$4-%%type G6$*&F;FDFI!"".%(integerG>F0FFF0F-6#FT6$%6_thismoduledefinitionGF-/%+modulename Gc-MG_Internals%:-43 M7R0 I&:-111G/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-104t+6,'%$AlgG%+OreAlgebraG'%"LG%%listG'%$varG%%nameG>%*const_rhsG""!>'%(va r_rhsGF*7">'%1prev_constraintsG%$setG<">'%-formal_indetGF-.%"pG>'%$etaGF-.%$Eta G>'%,indices_etaG-F*6#F*7#-%$seqG6$7#T%/FN;F0,&-%%nopsG6#9("""!""FV%#~$G6.%"dG% %dvarG%*order_rhsG%"fG%"kG%"NG%"iG%"PG%$equG%$solG%)my_indetG%+indets_rhsG6#%PC opyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C0-%'ASSERTG6$0&9%6#FWF0Q+L[-1 ]~<>~0Fbo-Feo6$5/&9$6$Q-type_of_leftFbo9&.%%diffG0&Fio6#FVF0Q*L[1]~<>~0Fbo>8$,& -FS6#FioFVFWFV>8%&Fap6$Q.right_of_leftFboFdp>8&FQ>8'-%'normalG6#,&9'FV-%$addG6$ *&&9+6#-%#opG6#&9,6#,&8(FVFVFVFV&FUFjrFV/F\s;F0FfqFV>8)-T'6&FapFioFdp-%'degreeG 6$FhqFdp-Feo6$1Fas"&++"QODegree~bigger~than~10000~(it's~probably~a~bug)Fbo>8/-% &unionG6$-%$mapG6$%$rhsG-%'selectG6$f*6#%"uGFbo6$%)operatorG%&arrowGFbo/-Ffr6$F 0-Fet6#FapT$FboFbo6$F<9*9)-Fgt6$f*FjtFbo6$F]uF^uFbo/-Ffr6$F0FapFduFboFboFeu-%'i ndetsG6#F]r>8+-F_r6$*&&8.6#F\sFV)FdpF\sFV/F\s;F0Fas>8,-%(collectG6$-%'expandG6# ,&-F_r6$*&&FioFjrFV-_%,Ore_algebraG%)applyoprG6%)FaqF\sFcvFapFV/F\s;F0F\qFVFhqF WFdp>8--_%+SolveToolsG%'LinearG6$-F`t6$<#-%'coeffsG6$F^wFdpFgu7%-FK6$&Fhv6#8*/F dyF\w-FK6$FbrF^s-Ffr6#F^t@$/Fcx%%NULLGOF4-T)6%7$-%%evalG6$FcvFcx-Fgt6$f*FjtFbo6 $F]uF^uFbo-%#inG6$-Ffr6$F0-%$lhsGFcu<$T&FduFboFbo6&FAFcrF8$-T%6#9$>8(&F;6#Q(algebraF8>8- -_%)GroebnerG%.MonomialOrderG6$FA-.%%tdegG6#-%#opG6#&FA6#Q-right_indetsF8>8%-_F I%&BasisG6$&F;6#Q'systemF8FF>8&-%$lcmG6#-FQ6#-%$mapG6%_FI%3LeadingCoefficientGF WFF>Fjn-%'expandG6#*&Fjn"""-%$gcdG6$Fjn)9&-%'degreeG6$FjnF_p!"">8)-__%,Ore_alge braG%-OA_InternalsG%6polynomialize_algebraG6$-_Fhp%4rationalize_algebraG6$FAQ&f ullyF8&FA6#Q,left_indetsF8>8'-%%nopsG6#Fbq>8.-FH6$Fep-.%%wdegG6$7$-%"$G6$-Fap6$ FjnFbqFfq-Fdr6$FjoFfq-Fao6$FQ7$FSFbq>8+&FA6#Q,commutationF8>8,&F^s6#Q,ground_ri ngF8>Fcs-_Fhp%,ground_ringG6%&Fcs6#Q/characteristicF8-%&unionG6$&Fcs6#Q+all_ind etsF8<#F_p&Fcs6#Q,type_structF8>F^s-_Fhp%,commutationG6'Fcs-%&minusG6$&F^sFcqFe t-F_u6$&F^sFT<#&FA6$Q.right_of_leftF8F_p-%'removeG6%%$hasG&F^sFgtF_pQ*undefined F8>8*-_Fhp%(algebraG6&F^s-F_u6$&FA6#Q0rational_indetsF8Fet<"Fjv>8/-FH6%F`v-.%'l exdegG6$7#F_p7#-FQ6#&F`vFTFcw>80-__%)HolonomyG%-HO_InternalsG%/holon_diagonalG6 (Ffn7$9%F_pFbxFFF[rF\w-Fao6&_Fhp%/apply_operatorGFiw-%%subsG6$/F_p%%NULLG&F;6#Q )functionF8FAF86'%'systemGFNF`rFaw%-right_indetsG6&%6_thismoduledefinitionGF8%; recognize_operator_algebraGc;recognize_operator_algebra%:-94/%+modulenameGc-MG_ Internals%:-43 M7R0 I&:-155`6%c+SquareFree&:-181c:SquareFreePartialFraction&:-182c6VerifyPartialFra ction&:-183b6#%+thismoduleG6%%.AdicExpansionG%,LaurentPartG%)PositionG6#%(packa geG6%%+SquareFreeG%:SquareFreePartialFractionG%6VerifyPartialFractionG6"6#Q^oth is~module~is~to~compute~squarefree~partial~fraction~decompositionF5F5F5%2_m1401 34693689216G6%c.AdicExpansion&:-184c,LaurentPart&:-185c)Position&:-186/%+module nameGc4RationalTelescoping%:-81 M7R0 I&:-100f*6"F$6#%WCopyright~(c)~2000-2002~Frederic~Chyzak,~INRIA,~FranceGF$F$F$F $6$%6_thismoduledefinitionGF$/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-101f*6#%%exprG6%%$rawG%$accG%"iG6#%WCopyright~(c)~2000-2002~Frederic~Chyzak ,~INRIA,~FranceG6"C&>8$-%#ifG6%-%%typeG6$9$%"+G7#-%#opG6#F67#F6>8%""!?(8&"""FB- %%nopsG6#F/%%trueG>F>-%'normalG6#,&F>FB&F/6#FAFBF>F,F,6$%6_thismoduledefinition GF,/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-110G/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-119f*6$%%termG%+qshift_setG6%%&v_setG%"vG%(correctG6#%\oCopyright~(c)~2002~ Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceG6"C&>8&%%trueG>8$-%*intersectG6$ 9%-%'indetsG6#9$@$0F3<"@%0-%%nopsG6#F3""">F0%&falseGC$>8%-%#opGFC@$43-%%typeG6$ -%&coeffG6%F;FI""#.%(integerG-FP6$-FS6%F;FIFDFV>F0FFF0F-6#FW6$%6_thismoduledefi nitionGF-/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-128G/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-145c,Ore_algebra&:-187/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-138""$/%+modulenameGc-MG_Internals%:-43 M7R0 I%:-99f*6$%%exprG%-var_type_setG6I%"fG%"iG%"xG%*type_listG%(var_setG%/name_cons tantsG%-renamed_exprG%%termG%'df_tabG%$AlgG%%TOrdG%(fun_setG%)subs_setG%%operG% )comm_setG%,alg_rel_setG%*q_fun_setG%/q_var_type_setG%3non_q_var_type_setG%"jG% &q_funG%,qtype_tableG%2q_operator_numberG%+q_comm_setG%2alg_constants_setG%8non _alg_other_constantsG%3alg_constants_listG%.alg_subs_listG%"TG%&aux_UG%(aux_Alg G%,type_structG%,power_to_qnG%'df_setG%.expanded_exprG%#dvG%#qnG%"aG%"kG6#%aoCo pyright~(c)~1999-2009~Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceG6"CC>8*-T% 6$9$9%@$/FT%2Mgfun/NOT_DFINITEGC$>8F-%'expandG6#FX@$0FinFX>FT-FV6$FinFY@$FenYQV expression~is~not~d-finite,~or~not~recognized~as~suchFQ>8(-%%map2G6%%#opG"""FY> 8)-%&minusG6$-%'indetsG6$FT.%%nameGFfo>8=-%'removeG6%%%typeG-Fip6%%$hasG-Fbp6$F T<$%"^G.%)functionGFfo-<$.%'algfunG.%'radfunG6#.%)rationalG>FT-%%subsG6$<$-%$se qG6$/-Fjo6$8%Fgp&8J6#Fir/Fir;F[p-%%nopsG6#Fgp/%#PiG%)Mgfun/PiGFT>FT-F`r6$-%$map G6$f*6#%"zGFQ6$%)operatorG%&arrowGFQ/FX,&-%#ReGF\oF[p*&-%'RootOfG6#z'6#%#_ZG#F[ p!F[pF[p-%#ImGF\oF[pF[pFQFQFQ-Fip6%F[q-Fbp6$FT.%,complexconsG.%)realconsGFT>8<- Fip6%F^q-Fbp6$FT<$Fbq.FgtFfo>Fgu-Fip6%F[qFgu-.%(ratpolyG6$F\r-Fbp6$FguFdp>8>-%% sortG6$-%(convertG6$Fgu%%listGf*6$FM%"bGFQ6$F_tF`tFQ-%&evalbG6#2-%'lengthG6#FY- FiwF\oFQFQFQ>8?7#-Fdr6$/-Fjo6$FirFhv&8IF\s/Fir;F[p-F`s6#Fhv>FT-F`r6$-Fjo6#F]xFT ?(FirF[pF[p-F`sF^y%%trueG>&8@F\s7$-Fjo6$FirF]x-%#ifG6%-F[q6$-Fjo6$7$FirF[pF]xFg t-F`r6$/F[u-Fjo6$7$Fir""#F]x-Fjo6#F]z-%&numerG6#,&)Fcz-%&denomG6#-Fjo6$7%FirF[p FfzF]xF[p)-Fjo6$7%FirF[pF[pF]x-FjzF`[l!"">83-F`r6$-Fdr6$-Fjo6$F[p&Fdy6#87/Fd\l; F[pF`y<#-Fdr6$-Fjo6$FfzFb\lFe\l>81Q@holonomic_polynomial_expressionFQ>8/-%'sele ctG6%F^q-Fbp6$FTFcqFfo>F`]l-Fip6%F[qF`]lF]v?&8+F`]lFayC$>8$-Fjo6$""!Fj]l@%5-%)a ssignedG6#&T'6#F]^l/F]^l.%*hypergeomGC$>&8,6#Fj]l-T)6%Fj]lFYF[\l@$3/F]]lF^]l-F^ q6$F^_lF]v>F]]lQGholonomic_polynomial_expression_RootOfFQYQGbug:~recognized~fun ction~not~in~table!FQ>84-Fb]l6$f*6#%"pGFQ6$F_tF`tFQ-Few6#/-Fjo6$F`^lFX%2Mgfun/q POCHHAMMERGFQFQFQF`]l>8;-Fho6%FjoF[p-Fb]l6%F^qFY.%0non_root_of_oneG>85-Fip6%F^q -%&unionG6#-Fdr6$-Fis6%f*6$%"tG%"qGFQ6$F_tF`tFQ7$FXFYFQFQFQ-Fb]l6%F^qFY-Fbp6$88 Fdp-Fjo6$""$Fhbl/FhblF^`lFaal?(FirF[pF[p-F`s6#FdalFay@&/-Fjo6$Fc[lFdal.%'qshift G>&89F\s/.%'qdilatG7$&8GF\s/&8HF\s)-Fjo6$FezFdal-Fjo6$Fg[lFdal/FbclFjcl>Fgcl/Fj cl7%F]dlFedlFcdl>8:F^cl>86-Fip6%F^qFY<%FjclFdclFaal>8'6$-Fdr6$Fgcl/Fir;F[pF\el- Fdr6$/-Fjo6$FezF^el7$&F^dl6#,&FirF[pF\elF[p-Fjo6$F_zF^el/Fir;F[p-F`s6#F^el>82-F hal6&F]pF\al-F]w6$-Fho6%FjoFfzF]x.%$setG<$-Fiy6%-F^q6$FT<%Fds.%)FresnelCG.%)Fre snelSGFds%%NULLG-Fdr6$FjrF]s>8--__%,Ore_algebraG%-OA_InternalsG%-skew_algebraG6 %Fcel/.%%commGFifl/.%.alg_relationsGF[\l>8.-_%)GroebnerG%.MonomialOrderG6$F`hl- .%%tdegG6#-Fdr6$F]dl/Fir;F[p,&FfflF[pF\elF[p>8D-Fis6$f*6#F*FQ6$F_tF`tFQ/)&FX6#" "%&FX6#F[cl&FX6#FfzFQFQFQ-Fho6%FjoFfz-Fb]l6$f*6#%"lGFQ6$F_tF`tFQ/-F`sF\oFijlFQF QFQ-Fb]l6%F^q&F`hl6#Q,type_structFQFjcl?&Fj]lF`]lFayC&>8E-Fb]l6%F^q-Fbp6$-Fjo6$ FfzF^_lFcq.%(AlgSubsG@$0-F`s6#F`\mF[p\>8B-Fjo6$7$F[pFijlF`\m@$-F^q6$&F_]mF[\m.% 3qdilat+dual_qdilatGC%>8C-Fb]l6$f*Fb`lFQ6$F_tF`tFQ-Few6#/-F`s6#-Fjo6$FfzFX""&FQ FQFQ-Fb]l6%F^qFf]mFg]m>8A<#-Fdr6$/&8&F[[m-F`r6$F_jl-F[o6#-F`r6$-Fjo6$7$FfzFg^mF ^_l)&Fa_m6#Fg^m&Fa_mFhjl/Fa_m-Fho6%FjoFfzF[^m>F^_l-%'subsopG6$/7$FfzFi[l-Fhal6$ F[_m-Fjo6$Fg`mF^_lF^_l>80<#-Fdr6$F^_l/Fj]lF`]l6%-__%)HolonomyG%-HO_InternalsG%% fglmG6%F]]l7$/%;Holonomy/subs/the_functionG-F`r6$F]amFT/%9Holonomy/subs/term_or derGF_ilF_ilF_il<%-Fdr6$/FdxF]z/FirFf\l-Fdr6$/FjrFgrF]s/FdsFcsFQ6/FgilFjhlFaglF epFdqFgtFcvFhqFjqF]rFj`lF[dlFecl6*%6_thismoduledefinitionGFQ%.type_checkingGc.t ype_checking%:-98%3dfinite_spec_tableGc3dfinite_spec_table%:-95%AMgfun/substitu ted_atom_to_systemGcAMgfun/substituted_atom_to_system&:-123/%+modulenameGc-MG_I nternals%:-43 M7R0 I%:-92f*6&%$sysG%"rG%%optsG%+sum_or_intG6;%"nG%"mG%"aG%"bG%"tG%,user_systemG%(A lg_ratG%)Alg_elimG%)Alg_polyG%(Alg_locG%&T_ratG%'T_elimG%'T_polyG%&T_locG%"GG%# GBG%+to_be_elimG%&loc_uG%&loc_pG%'resultG%.Takayama_algoG%/Kashiwara_algoG%"CG% "KG%"xG6#%WCopyright~(c)~1996-2009~Frederic~Chyzak,~INRIA,~FranceG6"C+-%*typema tchG6$9%/'8$.%%nameG<$'8(-.%*identicalG6#.%)residuesG;'8&.%*algebraicG'8'Ffn-%) userinfoG6'""".%&MgfunGQ)options~FE9&Q,~recognizedFE-F[o6%F]oF^oQJconverts~the~ system~into~linear~operatorsFE>8)-T%6#9$>8*&Fgo6#Q(algebraFE>84-%&unionG6$-%#if G6%-%$hasG6$&F]p6#Q,left_indetsFEFM<#FM<"-%%map2G6%%#opG""#-%'selectG6%Fjp&Fgo6 #Q+expr_to_qxFEFM@$/FbpF`qY-%$catG6$-Fgp6%/9'Q$sumFEQEcannot~sum~with~respect~t o~variable~FEQKcannot~integrate~with~respect~to~variable~FEFM>8%-Fdq6#-%&minusG 6$F\qF_q@%33334-%'memberG6$.%/_takayama_algoGFao/FbpF_q/-%%nopsG6#F\qFeq-Fgs6$& F]p6$Q-type_of_leftFEFM<$.%%diffG.%&shiftG-Fgs6$&F]p6$FdtFjrFetC'-F[o6%F]oF^oQV use~Chyzak's~extension~of~Zeilberger's~fast~algorithmFE>87-T'6%-.%&LFSolGFjo'Fj rF\u'FMFbt>Fcu&Fcu6#F]o>Fcu7$-%%evalG6$F]v/%#_FG-%(unapplyG6$-%#_fG6$FjrFMFjr&F cu6#Feq@%55-Fgs6$.%4_natural_boundariesGFaoFfs-%)assignedG6#FR<#-%%subsG6$7$/FM %%NULLG/Fjv-Fdq6$""!&Fgo6#Q)functionFEF]vYQInon~homogeneous~case~not~implemente d~yetFEC'>88%&falseG>82&Fgo6#Q'systemFE@%FfsC$>Fjx%%trueG>83F]y@%-%%typeG6$F]p. %,DiffAlgebraGC%>894-Fgs6$.%,_incautiousGFao@%F_zC'>8,-__%,Ore_algebraG%-OA_Int ernalsG%6polynomialize_algebraG6$-_F[[l%4rationalize_algebraG6$F]pQ&fullyFEF\q> 80-_%)GroebnerG%.MonomialOrderG6$Fhz-.%%tdegG6#-Fdq6#&F]p6#Q0non_comm_indetsFE- F[o6%F]oF^oQDcompute~the~dimension~of~the~systemFE>Ffy-_Fi[l%&BasisG6$F]yFf[l@% /-_Fi[l%1HilbertDimensionG6$FfyFf[l-F^t6#&F]p6#Q-right_indetsFEC$-F[o6%FeqF^oQ@ the~system~is~already~holonomicFE>F_zF[yC/>8.-Fh[l6$F]p-F]\l6#-FdqFd]l>Ffy-Fj\l 6$F]yF_^l>86-%$lcmG6#-Fdq6#-%$mapG6%_Fi[l%3LeadingCoefficientGFfyF_^l>Fi^l-%'ex pandG6#*&Fi^lF]o-%$gcdG6$Fi^l)-Fdq6#Fbp-%'degreeG6$Fi^lF]`l!""-F[o6%F]oF^oQ>per form~extension/contractionFE-F[o6&""%F^oQ8localize~by~polynomial~FEFi^l>8:&F]p6 #Q,commutationFE>8;&F[al6#Q,ground_ringFE>F`al-_F[[l%,ground_ringG6%&F`al6#Q/ch aracteristicFE-Fdp6$&F`al6#Q+all_indetsFE<#85&F`al6#Q,type_structFE>F[al-_F[[l% ,commutationG6'F`al&F[alF]q&F[alFf]l<#-%$seqG6$/.%)loc_diffG7$&F[al6$Q.right_of _leftFE88--_F[[l%(algebraG6&F[al-F^sF]blF`qF`q>81-Fh[l 6$F\dl-.%'lexdegG6$-%%sortG6$7#-Fdq6#F\cl&Ff[l6#Q&orderFE7$-Fdq6#-F[el6$7#-Fdq6 #F[clF`elFbbl>Ffy-__%)HolonomyG%-HO_InternalsG%6extension_contractionG6%-Ff_l6# -F`_l6$Fdq<$F]yFfyFf[lFcdlC%-F[o6%F]oF^oQNincautiously~perform~no~extension/con tractionFE-F[o6%F]oF^oQ@algorithm~may~fail~to~terminateFE>FfyF]y>Fjx5-Fjp6$FaoF cwFewC%-F[o6%F]oF^oQ7cannot~ensure~holonomyFEF\gl>FfyF^y@%FjxC*@$2F]o-F^tF^`lYQ Vmultivariate~Takayama's~algorithm~not~implemented~yetFE>F[alF\al>F`alFaal>F`al -Ffal6%Fial-Fdp6$F^blFbpFcbl>F[al-Fhbl6'F`al-F^s6$F[clFbp-F^s6$F\cl<#&F[al6$Fgc lF]`l<#-F_cl6$/&F[al6$FdtFhclFdcl/FhclFjhlQ*undefinedFE>8+-F^dl6&F[al-F^s6$-F^s 6$&F[alF_blF\clFbpF`qF`q>8/-Fh[l6%Fjil-Fgdl6#-Fdq6#-F`_l6%%(convertG7$Fbp&FjilF f]l.%%listG-F\[m6$FbpF_[m@)/&F]p6$FdtF]`lFhtC$-F[o6%F]oF^oQIuse~Takayama's~algo rithm~for~recurrencesFE>Fcu-_F^fl%-holon_defsumG6&FcflF]p7#F]`lFcjl/Fe[m.%'qdil atGC$-F[o6%F]oF^oQKuse~Takayama's~algorithm~for~q-recurrencesFE>Fcu-_F^fl%.holo n_defqsumGF_\m/Fe[mFftC$-F[o6%F]oF^oQTuse~Takayama's~algorithm~for~differential ~equationsFE>Fcu-_F^fl%-holon_defintGF_\mY-Fgp6%FdrQ?bad~commutation~type~for~a ~sumFEQHbad~commutation~type~for~an~integrationFEC'>Fcjl-Fh[l6$-Fjz6$F]pFbp-Fgd l6#-Fdq6#-F`_l6%F\[m7$FbpFe]lF_[m-F[o6%F]oF^oQXperform~naive~elimination~by~Gro ebner~basis~calculationFE>Ffy-Fj\l6$FfyFcjl>Fcu-%'removeG6%FjpFfyFbp@%F_wC$>Fcu -Fjw6$/&F]pF`il-Fgp6%FdrF]oFbxFcu>Fcu-Fj\l6$FcuFcjlYFgx-Fjw6$&Fgo6#Q+qx_to_expr FE-F`_l6&_F[[l%/apply_operatorG-F\[m6$Fcu.%$setG-Fjw6$F]xFcxF]pFE65F`[mF^\lFhdl Fj`mFOFgnFUFXFjsFdzFdwF\zFitFc\mFgtF_oFiuFjvFev6(%6_thismoduledefinitionGFE%;re cognize_operator_algebraGc;recognize_operator_algebra%:-94%5creative_telescopin gGc5creative_telescoping%:-83/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-156`6$c)VerifyHT&:-188c/RatTelescoping&:-189b6#%+thismoduleG6%%'ApplyLG%2Lo werBoundForRankG%,ParadGosperG6#%(packageG6$%)VerifyHTG%/RatTelescopingG6"6#Q[p Creative~telescoping~for~rational~functions~by~Almkvist~&~Zeilberger's~algorith mF3F3F3%2_m140134693689376G6%c'ApplyL&:-190c2LowerBoundForRank&:-191c,ParadGosp er&:-192/%+modulenameGc4RationalTelescoping%:-81 M7R0 I&:-109G/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-102f*6"F$6#%WCopyright~(c)~2000-2002~Frederic~Chyzak,~INRIA,~FranceGF$F$F$F $6$%6_thismoduledefinitionGF$/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-127G/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-120=6"%&falseGE\[l"%&shiftGf*6'%$eqnG%$psiG%"kG%&orderG%*param_setG6,%"DG%" PG%"TG%#eqG%"cG%"iG%$sysG%$varG%$solG%-remaining_ciG6#%WCopyright~(c)~2000-2002 ~Frederic~Chyzak,~INRIA,~FranceGF$C->8$-T%6&9$9%9&9'>8'-%(collectG6%FBFC%'expan dG>8%-%$addG6$*&&8(6#8)""")FDFUFV/FU;""!F>?(FUFZFVFE%%trueGC$>&8&FT-FK6#-%%subs G6$/FD,&FDFVFUFVFM>Fin-FK6#*&-%&coeffG6$FG-FC6#FaoFVFinFV>FG,&-FK6#-%'removeG6% %$hasGFBFCFV-FO6$Fin/FU;FZFEFV>8*<#-%'coeffsG6$FGFD>8+-%&unionG6$9(<#-%$seqG6$F RFX>8,-_%+SolveToolsG%'LinearG6$FhpF^q>8--%'selectG6%Fbp-%%map2G6%%#opGFV-Far6$ %&evalbGFhqFS@$0F_r<"C$>6$FMFhq-Ffr6#-F^o6%/&FS6#-%$minG6#-Ffr6#-%$mapG6$FfrF_r FV-F]t6$f*6#%"vGF$6$%)operatorG%&arrowGF$/FBFZF$F$F$F_r7$FMFhq>Fhq-%&minusG6$Fh q<#/FVFV6$-F^o6$FhqFM<#-Feq6$/FU-%'normalG6#-F^o6$FhqFU/FUFbqF$F$6&%6_thismodul edefinitionGF$%3Mgfun/degree_boundGc3Mgfun/degree_bound&:-112/%+modulenameGc-MG _Internals%:-43 M7R0 I&:-121=6"%&falseGE\[l#%%diffGf*6%%%lofeG%)phi_of_kG%*param_setG65%$phiG%"kG%&o rderG%#cfG%*phi_denomG%%lofoG%"UG%"DG%#eqG%"cG%"iG%"jG%$sysG%$varG%$solG%$resG% -remaining_ciG%"XG%%TIMEG6#%WCopyright~(c)~2000-2002~Frederic~Chyzak,~INRIA,~Fr anceGF$C'>8$-%#opG6$""!9%>8%-FG6#FJ>8&-%$maxG6#-FG6#-%$mapG6$T%-%'selectG6%%$ha sG-%'indetsG6$9$.%)functionGFE@%0FPFIC3>86-%%timeGF$>8)-%%subsG6$7#-%$seqG6$/-F '6$-FE6#FL7#-%"$G6$FL8.)8*,&Fgp"""F[qF[q/Fgp;FIFPF[o?(FgpFIF[qFP%%trueG>&8'6#Fg p-%&coeffG6%FfoFipFjp>8(-&T'6#.F'6$&Fbq6#FPFL>Fbo,&FcoF[qFbo!""-%)userinfoG6%"" $.%&MgfunG-%(sprintfG6$QIComputing~denominator~bound:~%a~seconds.F$Fbo>FboFco>8 +,&""(F[q-%'degreeG6$FhqFL""#>8,,&-%%evalG6#-Fho6$/FEFIF[oF[q-%$addG6$-%'normal G6#*&FaqF[q-T)6#-F'6$*&-Fat6$*&&8-6#8/F[q)FLFcuF[q/Fcu;FIF`sF[qFhqFcrFcpF[qF\qF [q>Fhs-Fdt6#Fhs>Fhs-%&numerGFiu>80<#-%'coeffsG6$FhsFL>81-%&unionG6$9&<#-F\p6$&F auFcq/FgpFfu>82-_%+SolveToolsG%'LinearG6$F^vFdv>83<$-F\p6$/Fgp-Fdt6#-Fho6$F_wFg p/FgpFhv/FE-%(unapplyG6$-Fdt6#-Fho6$F_w*&-Fat6$*&F\wF[q)FLFgpF[qF]wF[qFhqFcrFL> 84-Fen6%Fgn-Fin6$Ffw.%%nameGFau@$0F^y<">Ffw-Fho6%/&Fau6#-%$minG6#-FG6#-FW6$FGF^ yF[q-FW6$f*6#%"vGF$6$%)operatorG%&arrowGF$/F[oFIF$F$F$F^yFfw>Ffw<$-F\p6$/FgpFgp F_x/FE-Fbx6$-FG6$7$F[qFfs-Faw6$7#-Fho6$/FJ85F[o7#F_\lFL-%'removeG6$%&evalbGFfwF $6%F]o%)infinityGFdy6*%6_thismoduledefinitionGF$%4Mgfun/diff_to_orderGc4Mgfun/d iff_to_order&:-114%8Mgfun/denominator_boundGc8Mgfun/denominator_bound&:-113%*my _normalGc*my_normal&:-101%&shiftGf*F)60F.%$psiGF/F0F1F2%2shifted_phi_denomGF5F6 F8FFEFF>FPFM>Fbq-FR6#-FG6#-FW6$FGFZ@$0Fbq,$Ff\lFcr>Fbq,&FbqF[qF PFcr@%0FbqFIC.>FdvFco?(FauFIF[qFbqF_q>&Fhq6#Fau-Feq6$F[o-FE6#,&FPF[qFauF[q>Ffo- &FY6#.F_]l6%-%'expandG6#-Fho6$/FP,&FPF[qFbqFcr&Fhq6#Fbq-Fh_l6#&Fhq6#FIFP>Fdv,&F coF[qFdvFcr-Fer6%FgrFhr-F[s6$F]sFdv?(FauFIF[qFbqF_q>&FipF[_l-Fho6$/FPF`_lFfo>Fd vFco>Fhs,&FjsF[q-Fat6$*&-Fdt6#*&Fj^lF[qF\alFcrF[q-FLF__lF[q/Fau;FIFbqF[q>FhsFhu >FhsF[v>Fgp-&F[rFd_l6'FhsFLFPFbqFhv>Fcu-Ffv6$<#/FE-Fbx6$-Fdt6#*&&Fgp6#F[qF[qFfo FcrFP&Fgp6#Ffs>Fcu<$-F\p6$/FauFau/FauFhv/FE-Fbx6$-FG6$Fh[l-Faw6$7#-Fho6$/FJF^vF [o7#F^vFP-Fb\l6$Fd\lFcuF$Fe\l6(Fh\lF$F[]lF\]l%7Mgfun/polynomial_solveGc7Mgfun/p olynomial_solve&:-120/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-130=6"%&falseGE\[l:%+ChebyshevUG7$7$%&shiftG%%diffGf*6'%"nG%"xG%#SnG%#TnG%# DxGF$6$%)operatorG%&arrowGF$7$7&,(*$9&""#"""*&9%FF;!""FFFFDF:F;FDF:FDFEFD*&FIFFDFFDF?,(FEFF<)FIFQFD,&*&-%'expandG6#),&FIFFF$F$6$FXF$%)He rmiteHG7$F)f*F-F$6$F4F5F$7$7&,*F9FFF$F$6$FXF$%(KummerUG7$7%F*F*F+f*6*%"aG% "bGF/%#SaG%#TaG%#SbG%#TbGF2F$6$F4F5F$7$7),(*&F:F<9+F;F<*&,&F>FFFDFFDF:FDFFFF;FEF;FFD F<*&F>F<,&FIF;F]oFFFDF;*&F>F<,&FIF;""&FFD*&,(F>FF#FFDFDF<,,*(Fd[lF<,&FFFFFFFFFDF[\lFFDFd`lFD7&,&*&)F f_lFd`lFFFDFDF<,,*(F:F]oFNFDF^vF]oFD*(F:F;,&F FD,&FFFFFFFFFDF:FFFFF<,&FIFFDFFFDFQFF<,&FF?FIFD,(*&F\jlFF;FF;FIFF?FIFDFawFcwFfwF$F$6$FXF$%)LommelS2G7$F`uf*FbuF$6$F4F5F $F[blF$F$6$FXF$/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-107f*6"6#%#qxG6$%)rememberG%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA ,~FranceGF$8$F$F$6$%6_thismoduledefinitionGF$/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-116f*6$%%exprG%-var_type_setG6&%(correctG%"fG%"iG%*signatureG6#%aoCopyright ~(c)~1999-2002~Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceG6"C'>8%-%#opG6$"" !9$>8'&&T%6#F16#""">8$-%&evalbG6#/-%%nopsG6#F6-FF6#F8?(8&F>F>FEF@>F@3-%)assigne dG6#&T'6#&F86#FK-FQ6$-F36$FKF69%F@F.F.6(%6_thismoduledefinitionGF.%3dfinite_spe c_tableGc3dfinite_spec_table%:-95%6%8$8%8&-T%6$9$-%(convertG6$9%.%$setG>FH-FP6$FHFS-%%subsG 6$FJ-%$mapG6&__%,Ore_algebraG%-OA_InternalsG%/apply_operatorGFH-%%map2G6%%#opG" ""FR&FI6#Q(algebraFDFD6#FT6&%6_thismoduledefinitionGFD%5expression_to_systemGc5 expression_to_system%:-99/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-149t+6&%$ratG'%"xG%%nameG'%"yGF(%#~$G6&%#CTG%#dxG%"LG%"iG6"6"C%>8$-_T%%(Her miteG6'9$9%9&8%/.%'outputG.%-unnormalizedG>8&-%#opG6$"""F5-%'subsopG6$/FI-%$add G6$*&-%&coeffG6%FEF>8'FI-%%diffG6$-%#_FG6#F<7#-%"$G6$FF5F2F26&%6_thismoduledefinitionGF2%+TelescoperGc+Telescoper&:-1546#""%/%+mod ulenameGc4RationalTelescoping%:-81 M7R0 I%:-94f*6#%$sysG6@%%sysDG%%indNG%%indFG%(indFnoDG%%indPG%*args_of_FG%,shift_nam esG%,qcalc_pairsG%,qcalc_namesG%"iG%"jG%"qG%,expon_namesG%-args_of_diffG%+fun_i ndetsG%)q_indetsG%.qdilat_indetsG%.qshift_indetsG%-shift_indetsG%,diff_indetsG% "LG%#dxG%#qxG%%optsG%$AlgG%#OPG%2convert_functionsG%/convert_powersG%*final_sys G%,user_systemG6#%WCopyright~(c)~1996-2005~Frederic~Chyzak,~INRIA,~FranceG6"CQ> 8$-%'expandG6#-%(convertG6$9$.%"DG>8%-%'indetsG6$FJ.%%nameG>8&-FW6$FJ.%)functio nG>8'-%&unionG6$-%$mapG6$f*6#%"fGFG6$%)operatorG%&arrowGFG--%#opG6#-F[p6$""!FQ6 #-F[p6#FQFGFGFG-%'selectG6%%$hasGFfnFR-%'removeGFep>8(-Fhp6%%%typeG-FW6$-FL6#FJ )FY.%)anythingG)FY.%'posintG>80-Fao6$F[p-Fao6%FW-%%map2G6%F[p""#FjpFY>8)-Fao6$F [pFfn>8*-FW6$-Fdp6%F]qFcr-.%#OrG6$-%#&+G6$FYFfq-Fas6$FfqFYFY>8+-F_r6%Fao-%"@G6$ F[pFW-Fao6%FO-Fdp6%F]qFcr-F^s6%-%#&*G6$FYFY-Fct6$FYFeq-Fct6$FeqFY.%$setG>8,<"?( 8-"""F`u-%%nopsG6#Ffs%%trueG?(8.,&F_uF`uF`uF`uF`uFauFduC$>8/-%*intersectG6$&Ffs 6#F_u&Ffs6#Ffu@$/-Fbu6#FjuF`uC$>F\u-F^o6$<#-Fao6$F[p7$-%&minusG6$F^vFjuFjuF\u>F \u-F^o6$<#-Fao6$F[p7$-F_w6$F`vFjuFjuF\u>81F]u?&F_u-F_w6$FfnF\oFduC%>8=-F[p6$7$F _pF_pF_u>Fax-%#ifG6%/FaxFR&FS6#F`u-Fgx6%3/-F[p6$F_pFax%#@@G/-F[p6$F`uFaxFR&FS6# -%"$G6$F`u-F[p6$FarFaxFax>F[x-F^o6$F[x<#-%$seqG6$-F[p6$FfuF_u/FfuFax>82-F^o6$-F ao6$F[p-F_r6%F[pF_pF]x-F_r6%F[pF_pF\o>83-F^o6$-F_r6%F[pFarF\u-F_r6%F[pF`uFjp>84 -F_r6%F[pF`uF\u>85-F\v6$FgrFiq>86-F_wF`\l>87-FW6$F[xFY>887'FhzFj[lF^\lFb\lFe\l? (F_uF`uF`u-Fbu6#Fi\lFdu?(FfuFguF`uF\]lFdu@$0-F\v6$&Fi\lF_v&Fi\lFavF]uY6'QEtoo~c omplicated~functional~equationsFGF_uFfuFc]lFd]l@$/FhzF]uYQAno~function~present~ in~the~inputFG@$2F`u-Fbu6#FhzYQFmultiple~functions~not~dealt~with~yetFG>89-%&ta bleGFG>8:Fd^l>8;%%NULLG?&F_uFj[lFduC$>&Fc^lF_v-T%F_v>Fi^l6$Fi^l/.%'qdilatG7%F^_ lF_u-F[p6#Fb[l?&F_uF^\lFduC%>F^_lF__l>&Fg^lF_v-T'F_v>Fi^l6$Fi^l/Fd_l7$F^_l/F]`l )Fg_lF_u?&F_uFb\lFduC$>F^_lF__l>Fi^l6$Fi^l/.%&shiftG7$F^_lF_u?&F_uFe\lFduC$>F^_ lF__l>Fi^l6$Fi^l/.%%diffGF^al>8<-__%,Ore_algebraG%-OA_InternalsG%-skew_algebraG 6$Fi^l/.%%commG-F_w6$FU-F^o6&Fj[lF^\lFb\lFe\l>8>F]u?&F_uFfnFduC&@%-Ffp6$F_uFRC% >FaxFbx>FaxFfx>Fax-%$mulG6$&Fc^l6#FdzFfz>FaxF`u>Fax*&FaxF`u-FO6$-Fao6%f*6$%"sGF <6#%"xG6#%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA,~FranceGFGC$>FJ-F[p6# -FW6$FQFY)&9%Faq,&FQF`uFJ!""FG6#FZFG-Fdp6%F]q7#-F[pF_v%"+GFc^l%"*GF`u>Fax*&FaxF `u-FO6$-Fao6&f*6%%"pGFFJFidl>Ffn-F[p6#-F\v6 $FJ9&>FU-Fdp6%FfpFQFfn)&F]el6#-F[p6#-F_wFjfl-Fgx6%-F]q6$FU%"^G-F[p6$FarFUF`uFG6 $FZFiglFG-Fdp6%F]qFcelFfelFc^lFb[lFfelF`u>Fhbl-F^o6$Fhbl<#/F_uFax>8?<#-Fbz6$/Fe `lF]`l/F_uF^\l>Fi\l<$-F[p6#F\o-Fbz6$--F[p6#-F[p6$F_pF_u6#Fdel/F_uFcp>Fi\l-%%sub sG6$-Fao6$f*6#F2FG6$FgoFhoFG/FQF`uFGFGFGFb[lFi\l>Fi\l-Fao6$f*6#%%funcGFG6#FddlF G-F_r6&FdpF]qFQFYFGF`elFGFi\l@$0F\]lF`uY6$QRunable~to~determine~the~function~or ~its~argumentsFGFi\l>8@-%(collectG6&-Fjil6$-F^o6$FhblFehl-Fc[m6%FJ<$-F[p6#-F[pF ]]lFR.%,distributedG&Fhal6#Q-right_indetsFGF_\mFL>&8A6#Q(algebraFGFhal>&Ff\m6#Q +expr_to_dxFGFhbl>&Ff\m6#Q+expr_to_qxFGFehl>&Ff\m6#Q+qx_to_exprFG-Fao6$f*6#%#eq GFG6#FddlFG/-F[p6$FarFQ-F[p6$F`uFQFGFGFGFehl>&Ff\m6#Q'systemFGFa[m>&Ff\m6#Q%typ eFGFc^m>&Ff\m6#Q)functionFGF^\mFf\mFGFG6(%6_thismoduledefinitionGFG%0Holonomy/n ew_dxGc0Holonomy/new_dx&:-106%0Holonomy/new_qxGc0Holonomy/new_qx&:-107/%+module nameGc-MG_Internals%:-43 M7R0 I&:-135f*6*%"aG%"bG%"xG%#SaG%#TaG%#SbG%#TbG%#DxG6"6$%)operatorG%&arrowGF-7$7',* *$9'""$"""*&9&F7F5""#!""*&,&*$,&9$F7F:F7F:F7*$9%F:F;F7F5F7F7*&F9F7,&*$,&F@F7F7F 7F:F7FAF;F7F;,,*(F5F79)F79+F7F7**,&FBF7F7F7F7F9F;F5F7FIF7F7F@F;FBF;F;F7,,*(F9F6 FFF;FJF6F;*(F9F:,&F7F7*$FFF;!"$F7FJF:F7*(F9F7,&F7F7*&,(F7F7*$F9F:F7FAF;F7FFF;F; F7FJF7F7*&F9F:,&F7F7FQ!"#F7F7FAF;,&*&F5F79(F7F7F;F7,&*&FIF79*F7F7F;F7-%'lexdegG 6$7$FgnFjn7%F5FIFJF-F-6$%6_thismoduledefinitionGF-/%+modulenameGc-MG_Internals% :-43 M7R0 I&:-1447$7',**$%#SaG""$"""*&%"xGF)F'""#!""*&,&*$,&%"aGF)F,F)F,F)*$%"bGF,F-F)F'F )F)*&F+F),&*$,&F2F)F)F)F,F)F3F-F)F-,,*(%#DxGF)F'F)%#SbGF)F)**,&F4F)F)F)F)F+F-F' F)F8&%%trueG>8$-%%map2G6%%#opG"""-%'selectG6%%$hasG9%.F'>8%-F96%F;F< -%'removeGF?@%-F@6$9$FD>F4F%>F4-%%typeG6$FL<$-.%'algfunG6$.%)anythingGF7-.%'rad funGFVF4F$6&F'FenFUFX6$%6_thismoduledefinitionGF$%0non_root_of_oneGf*F)F$6#F1F$ 533-FP6$FL.%)rationalG0FL""!0*$FL""#F<3-FP6$FL.%%nameG4-%)assignedG6#FLF$6#Fbo6 $FhnF$%*parameterGf*F)6#F/6#F1F$C$@%-FP6$FL.%(integerG>F7F5>F7F%F7F$6#F\q6$FhnF $%&shiftGf*F)6&F/%%termG%*shift_setGF.6#F1F$C'>F7F5>F4-F96%F;F<-F>6%F@FA.Faq>8' -F96%F;F<-FHF]r@%4-F@6$FLF`r?&FD-%#ifG6%-FP6$FL%"+GFL7#FLF7>F7-T%6$FDF4>F7F%F7F $6#Faq6&FhnF$%=Mgfun/is_integer_linear_termGc=Mgfun/is_integer_linear_term&:-11 8%'qdilatGf*F)6&%+qdilat_setG%(var_setGFdqF/6#F1F$C'>F`rF5>F7-F96%F;F<-F>6%F@FA .Fis>FD-F96%F;FF`rF%F`rF$6$F\qFis6$FhnF$%'qshif tGf*F)6&F/Fdq%+qshift_setGF.6#F1F$C'>F7F5>F4-F96%F;F<-F>6%F@FA.Fjv>F`r-F96%F;F< -FHFew@%Fer?&FDFirF7>F7Fas>F7F%F7F$6#Fjv6&FhnF$%@Mgfun/is_integer_quadratic_ter mGc@Mgfun/is_integer_quadratic_term&:-119/%+modulenameGc-MG_Internals%:-43 M7R0 I%:-93f*6%%#eqG%(hol_sysG'%*single_eqG-%)specfuncG6$%%nameG%+univariateG65%'f_o f_zG%)hol_exprG%+hol_expr_DG%*hol_sys_DG%%indFG%%namFG%)der_listG%(lin_sysG%#df G%"iG%"jG%"fG%"zG%)lin_subsG%$AlgG%%TOrdG%-non_lin_exprG%'answerG%#DzG6#%WCopyr ight~(c)~1997-2008~Frederic~Chyzak,~INRIA,~FranceG6"C6>8$-%#opG6$"""9$>8%-FI6$" "#FL>8/-FI6$""!FG>80-FI6#FG>8&-%(convertG6$FN.%"DG>8'-Fhn6$9%Fjn>8(-%&minusG6$- %'indetsG6$<$FfnF]o.%)functionG<#Fjn>8)-%%map2G6%FIFVFbo>F^p-%&unionG6$-%$mapG6 $FI-%'selectG6%%$hasGF^pFjn-%'removeGF[q?(8-FKFK-%%nopsG6#F^p%%trueG>&8*6#F`q-F hn6$-Fjp6%F\qFbo&F^pFhq.%%listG>8+-T%6#7$-%$seqG6$-%%subsG6$/F]rFSFfq/F`q;FKFaq -Fgo6$F]o.F,>82&Far6#Q(algebraFD@%/9#FQ>83-_%)GroebnerG%.MonomialOrderG6$Fcs-.% %tdegG6#-FI6#&Fcs6#Q-right_indetsFDC$>86&Fcs6$Q.right_of_leftFD-FI6#9&>F[t-F]t6 $Fcs-.%'lexdegG6$-Fhn6$-Fdo6$Fgt<#F\uF^r7#F\u>817#-Fgr6$-Fgr6$/&Ffq6#8.&&&Far6# Q'systemFDFhqFiv/Fjv;FK-Fbq6#FfqF]s?(F`qFKFK-Fbq6#F]oFdq>&8,Fhq-__%)HolonomyG%- HO_InternalsG%/dfinite_createG6%&&F]oFhq6#FK-_F^t%&BasisG6$-Fjr6$Fav&Fbx6#FQF[t F[t>84-Fjr6$<#-Fgr6$-Fgr6$/Fhv-%)ApplyOprG6&Fhw-Fhn6$&Fcs6#Q,left_indetsFDF^rF[ wFcsF`wF]sFfn>85-_F\x%%fglmG6%-%#ifG6%FhsQ@holonomic_polynomial_expressionFDQ4h pe_single_equationFD7$/%;Holonomy/subs/the_functionGF]y/%9Holonomy/subs/term_or derGF[tF[t@$/F_z%%NULLGYQ0bug~in~HolonomyFD>F_z-Fhn6$-Fgp6&__%,Ore_algebraG%-OA _InternalsG%/apply_operatorG-_F^t%,InterReduceG6$F_zF[t-FS6#FXFcs.%$setG-Fez6%F hsF_z-FI6#F_zFD6*F[pF[oF,F_rFctFhuFgyFd\l6&%6_thismoduledefinitionGFD%;recogniz e_operator_algebraGc;recognize_operator_algebra%:-94/%+modulenameGc-MG_Internal s%:-43 M7R0 I%:-86f*6"F$6#%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA,~FranceGF$-T%6$9 "Q"+F$F$F$6&%6_thismoduledefinitionGF$%0add_prod_of_sysGc0add_prod_of_sys%:-89/ %+modulenameGc-MG_Internals%:-43 M7R0 I&:-150t+6&%$ratG'%"xG%%nameG'%"yGF(%#~$G6&%#CTG%#dxG%"LG%"iG6"6"C%>8$-_T%%/Rat TelescopingG6&9$9%9&8%>8&-%#opG6$"""F5-%'subsopG6$/FD-%$addG6$*&-%&coeffG6%F@F> 8'FD-%%diffG6$-%#_FG6#F<7#-%"$G6$FF5F2F26&%6_thismo duledefinitionGF2%3RationalZeilbergerGc3RationalZeilberger&:-1566#""%/%+modulen ameGc4RationalTelescoping%:-81 M7R0 I&:-1436%/%1shift+dual_shiftG7%%#SaG%#TaG%"aG/F%7%%#SbG%#TbG%"bG/%%diffG7$%#DxG %"xG/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-1366*%"aG%"bG%"xG%#SaG%#TaG%#SbG%#TbG%#DxG/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-105t+6,'%%Alg_G%+OreAlgebraG'%#L_G%%listG'%$varG%%nameG>%+const_rhs_G""!>'% )var_rhs_GF*7">'%1prev_constraintsG%$setG<">'%-formal_indetGF-.%"pG>'%$etaGF-.% $EtaG>'%,indices_etaG-F*6#F*7#-%$seqG6$7#T%/FN;F0,&-%%nopsG6#9("""!""FV%#~$G66% "dG%%dvarG%$AlgG%"LG%*const_rhsG%(var_rhsG%)type_varG%"VG%)diff_equG%.diff_equ_ polyG%$equG%+comm_denomG%,new_var_rhsG%)poly_solG%"UG%"iG%"kG%'sqfr_VG%*max_den omG%"TG6#%PCopyright~(c)~2009,~INRIA.~All~rights~reserved.G6"C,-%'ASSERTG6$0&9% 6#FWF0Q+L[-1]~<>~0Fjo-F]p6$5/&8&6$Q-type_of_leftFjo9&.%%diffG0&Fap6#FVF0Q*L[1]~ <>~0Fjo>8$,&-FS6#FapFVFWFV>8%&9$6$Q.right_of_leftFjoF\q@%-%#inG6$&F[rFjp<$.%,du al_qdilatG.%+dual_shiftGC&>Fip-_%,Ore_algebraG%-dual_algebraG6$F[r<#Fiq>8'-%%ma p2G6&_F\s%)applyoprG)FiqFdq-_%*ListToolsG%(ReverseGFgqFip>8(-Fes6%Fgs9'Fip>8)-F cs6&FesFgsFUFip>6&FipFasF]tFbt6&F[rFapF`tFU>8*Fhp>8+-T'6%FipFasF\q@%/FitF]qC*-% 'divideG6%F[u-%$gcdG6$F[u-F^q6$F[uF\q.85>86-%$lcmG6$*&F[uFV)F[v,&-FS6#FasFVFWFV FV-%&denomG6#F]t?(83F0FVFcv%%trueGC%>&876#Fjv-F^q6$*&-826#F\qFVF[uFW7#-%"$G6$F \qFjv-Fcu6%F]v-Fgv6#F^w.%$denG>F^w-%'expandG6#*&-%&numerGF^xFVF`xFV>8,-%$addG6$ *&&Fas6#,&FjvFVFVFVFVF^wFV/Fjv;F0Fcv>8--%(collectG6$-%%evalG6$Fix7#-FK6$/-F^q6$ FdwFgw)%#dxGF`yFayFbz>8.7#-FK6$-Fcx6#-%&coeffG6%FdyFbz84/F][l;FVFdv>F]t-%'norma lG6#,&*&F]vFVF]tFVFV-Fiy6$Fdy/FbzF0FW>Fbt-%$mapG6%-%"@G6$Fb[l%"*GFbtF]vC'>Fdz-F [\l6$Fb[l7#-FK6$*&F^yFV-Fes6%)FiqFjvF[uFipFWFay>8/-F_v6$-%#opG6#-Fgv6#FdzFfv>Fd z-F[\l6%F]\lFdzF]]l>F]t-Fb[l6#*&F]tFVF]]lFV>Fbt-F[\l6%F]\lFbtF]]l>81-T)6+FipFdz F\qF]tFbt9)9*9+9,@%/F`^lF4F47$-Fb[l6#*&&F`^lFaqFVF[uFW&F`^l6#""#FjoFjo6*%6_this moduledefinitionGFjoFcoc"i%:-84%/denom_solutionGc/denom_solution%:-57%)LOE_poly Gc)LOE_poly&:-1046#"#5/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-114f*6#%%exprG6"6#%WCopyright~(c)~2000-2002~Frederic~Chyzak,~INRIA,~FranceG F&@%3-%%typeG6$9$.%)functionG/-%#opG6$""!F..%%diffG,&-T%6#-F36$"""F.F>F>F>F5F&6 $F0F76&%6_thismoduledefinitionGF&%4Mgfun/diff_to_orderGc4Mgfun/diff_to_order&:- 114/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-123f*6%%+expressionG%-var_type_setG%,alg_rel_setG6F%"fG%"iG%*constantsG%/na me_constantsG%+rat_or_algG%+var_numberG%&descrG%*type_listG%$AlgG%%TOrdG%#dfG%) ann_polyG%+type_tableG%*signatureG%*param_seqG%"jG%"TG%.extracted_argG%"GG%#GBG %+q_calculusG%.qshift_numberG%"pG%"qG%%exprG%&elem1G%&elem2G%0operator_numberG% 0inverse_numbersG%&the_qG%)alg_exprG%"lG%"zG%#qzG%#dzG%'inv_dzG6#%aoCopyright~( c)~1999-2008~Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceG6"C6>8$-%#opG6$""!9 $@%/FR.%*hypergeomGC'>8:-%%nopsG6#-FT6$"""FW>8;-Fjn6#-FT6$""#FW>8?,(FhnF^oF`oF^ oF^oF^o>817$-%"$G6$.%&shiftG,&FhnF^oF`oF^o.%%diffG>8<-%0Mgfun/hypergeomG6%-FTF[ o-FTFbo-FT6$""$FWC$>Fjo&&T%6#FR6#F^o>FepFW>8@%%NULLG>88%&falseG?(8%F^oF^o-Fjn6# Fjo%%trueG@//&Fjo6#F]rFbp>&80Fdr/Fcr7$&8FFdr&8DFdr/FcrF_pC$>Ffr/.%1shift+dual_s hiftG7%Fjr&8GFdrF\s>Fgq6$FgqF]r/Fcr.%*parameterG>FfrFhq/Fcr.%0non_root_of_oneGC %>FfrFhq>8AF\s>FjqF`r/Fcr.%'qshiftG>Ffr/.%3qdilat+dual_qdilatG7%FjrFes/&8EFdr)F ctF\s/Fcr.%'qdilatG>Ffr/Fjt7&FjrFesF\sFctYQ8wrong~argument~in~tableFO>8+-%$seqG 6$Ffr/F]r;F^oF^r>8)-Fjn6#-%%subsG6$<$/F^tFhq/FjsFhqFjo>89-Fjn6#-%'selectG6%%$ha sGFjoFft>82-F\v6$-%#ifG6%Fis-FT6$F]rFepFhq/F]r;F^o-Fjn6#Fep@%FY>8*7$Q$fooFO-.%% tdegG6$-F\v6$Fjr/F]r;F^oFho-F\v6$Fes/F]r;F^oFap>Fax-&Faq6#Feo6&-F\v6$F\s/F]r;F^ oFav-F\v6$-Fgw6%FbrFjr-FT6#7$FjrFesFgy-Fgw6%Fjq-FT6#7$Fct-F\v6$F^u/F]r;F^oF[wFh qFcw>8&-%'removeG6%Faw-F\[l6%Faw-%'indetsG6#7$Fep&FaxFdq-%%map2G6%FTF^o9%<&F]sF _uF[sFfs>8'-F_w6%%%typeGFjz.%%nameG-%'ASSERTG6$/FjzF[\lQ?non-name~constants~not ~allowedFO>F[\l-%&unionG6$F[\l-Fgw6%Fjq<#Fct<">8,-__%,Ore_algebraG%-OA_Internal sG%-skew_algebraG6%Fju/.%%commG-Fh\l6$F[\l-Fa[l6#9&/.%.alg_relationsGF^^l>8--_% )GroebnerG%.MonomialOrderG6$F_]l&FaxFcy?(F]rF^oF^oF]xF`r@&-F^\l6$Fiw.%(ratpolyG >&8(FdrFiw1F^o-Fjn6#-%*intersectG6$-Fa[l6#Fiw-Ff[l6%FTF^o-F_w6%FawFh[lFbpC)>85- %(convertG6$-F_w6%F^\lFi_l<$%"^G.%'RootOfG.%%listG>Fa`l-%%sortG6$Fa`lf*6$%"aG%" bGFO6$%)operatorG%&arrowGFO-%&evalbG6#2-%'lengthG6#Fh[l-F]bl6#FWFOFOFO?(83F^oF^ o-Fjn6#Fa`lF`r>&846#Fbbl7$/&Fa`lFhbl&8CFhbl-Fgw6%-F^\l6$F[clFh`l,&)F\cl-%&denom G6#-FT6$7$FbblFeoFa`lF^o)-FT6$7$FbblF^oFa`l-%&numerGFfcl!""-Fev6$/%#_ZGF\clF[dl >86-Fev6$-F\v6$-FT6$F^oFfbl/Fbbl;F^oFcbl<$,&8BF^oFiwF`dl-F\v6$-FT6$FeoFfblF]el> 87-_Ff^l%&BasisG6$-%$mapG6$F_dlFfdl-%'lexdegG6$7#-F\v6$F\clF]el7#Fael>8/-FT6#-F \[l6%FawFgelFbfl>Fa_l-Fj`l6$FgflFael@$FYC(>8=*&&F]s6#FgoF^o&F[sFeglF^o?(F]r,&Fh nF^oF^oF^oF^oFapF`r>Fbgl-_Fb]l%-skew_productG6%Fbglz)6%F\sFdglFfgl\[[[\[[[[[[[m F^o[[[[[[[[\[[[lF^o!F`dlF_]l>8>Fdgl?(F]rF^oF^oFhnF`r>Fahl-F[hl6%Fahlz'F_hl\[[[ \[[[[[[[mF^o[[[[[[[[\[[[lF^oF_]l>Fd[l7&-F\v6$z)6&F\sFdglFjrFfgl[[[\[[[[[\[[mF^o \[[[[[\[[[[[mF`dl[[[[[[[[[\[[lF`dl/F]r;F^oFhn-F\v6$,&*(FdglF^oFjrF^oFfglF^oF^o* &F\sF^o,&FjrF^oF`dlF^oF^oF^o/F]r;FhglFap-%(collectG6$,&FbglF^oFahlF`dlFfgl-F\v6 $z'6$FjrFes\[[[[][[[[sF^o!F`dlF^y>Fd[l-Fiel6$Fd[lFc^l>8.-%(AlgSubsG6'-__%)Holon omyG%-HO_InternalsG%/dfinite_createG6%FR-Fgw6%/-Fjn6#7#FgqFVFd[l7$-FT6#Fd[l-F\v 6$F]jl/F]rFgqFc^l7#-F\v6$F\s/F]r;F^o,&FavF^o-Fgw6%FjqF^oFVF^oF^oF_]l<$-F\v6$-Fg w6%Fet/F^u-%'expandG6#)&Fb_l6#-FT6#FctFa_lFhqFgy-F\v6$/F\sFa_lF]\m/FWFcjlFO61Fi ]l%)functionGF`pFcpFgtFcuFcsF[uF[tF__lF\alFfxF`flFj`lFddl6&%6_thismoduledefinit ionGFO%3dfinite_spec_tableGc3dfinite_spec_table%:-95/%+modulenameGc-MG_Internal s%:-43 M7R0 I&:-132""$/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-133""!/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-142=6"%&falseGE\[l%"""/%1shift+dual_shiftG7%%#SaG%#TaG%"aG""#/F)7%%#SbG%#Tb G%"bG""$/%%diffG7$%#DxG%"xG""%F5/%+modulenameGc-MG_Internals%:-43 M7R0 I%:-87f*6$%$sysG%"rG6&%%optsG%"nG%"aG%"bG6#%WCopyright~(c)~1996-2002~Frederic~C hyzak,~INRIA,~FranceG6"C&@$4-%*typematchG6$9%/'8%.%%nameG;'8&.%*algebraicG'8'F> YQ7bad~summation~intervalF.>8$<#&9"6#;""$!""@$0-%&minusG6$FE<%.%,_incautiousG.% /_takayama_algoG.%4_natural_boundariesG<"YQ,bad~optionsF.-T%6&9$F5FEQ$sumF.F.6) F:F?%*identicalG%)residuesGFVFTFX6&%6_thismoduledefinitionGF.%4anti_partial_of_ sysGc4anti_partial_of_sys%:-92/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-151`6&c.ExactDivision&:-193c2HalfEuclideanList&:-194c-MergeInverse&:-195c/M ergeRemainder&:-196b6#%+thismoduleG6"6#%(packageG6&%.ExactDivisionG%2HalfEuclid eanListG%-MergeInverseG%/MergeRemainderGF,6#QDpolynomial~extended~gcd~computati onF,F,F,%2_m140134693688288G6"/%+modulenameGc4RationalTelescoping%:-81 M7R0 I%:-96f*6$%%exprG'%-f_of_typed_xG-%)functionG6#%%nameG6"6#%aoCopyright~(c)~1999 -2002~Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceGF,-T%6$9$--%#opG6$""!9%6#' -F56$"""F8.%%diffGF,6#F?6&%6_thismoduledefinitionGF,%4dfinite_expr_to_sysGc4dfi nite_expr_to_sys%:-85/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-113=6"%&falseGE\[l#%%diffGf*6$%"CG%"xGF$6#%WCopyright~(c)~2000-2002~Frederi c~Chyzak,~INRIA,~FranceGF$9$F$F$6$%6_thismoduledefinitionGF$%&shiftGf*6%%#AAG%# BBGF+6-%#suG%"AG%"BG%"uG%"RG%"mG%"NG%"iG%"jG%"dG%%TIMEG6#F-F$C,>8.-%%timeGF$>8* %)infinityG?(F$"""FL-%#ifG6%/-%'indetsG6#7$F.9%<#9&FL""&2"#5FIC*-%)userinfoG6%" "#.%&MgfunG-%(sprintfG6$QEIntermediate~bound~on~dispersion:~%aF$FI>8%""!?(F$FLF LF$/*&FaoFL8&FLFboC%>8$-%$mapG6$f*6#%"vGF$6$%)operatorG%&arrowGF$/F.*&-%%randGF $FLFep!""F$F$F$-%&minusG6$FQFV>Fao-%%subsG6$FioF.>Ffo-F]q6$FioFU>8'FL>Fao-%'fac torG6#Fao>Ffo-Ffq6#Ffo>8(-%*resultantG6%Fao-F]q6$/FW,&FWFL8)FLFfoFW>FI-%$minG6$ FI-%$maxG6$Fbo-%#opG6#-%'selectG6%%%typeG-T%6$F\r%#mbG.%*nonnegintG-Fgn6%FinFjn -F]o6$Q8Bound~on~dispersion:~%aF$FI>FaoF.>FfoFU?(8+FIFgpFbo%%trueGC&>8--%$gcdG6 $Fao-F]q6$/FW,&FWFLFatFLFfo>Fao-%'normalG6#*&FaoFLFetFgp>Ffo-F_u6#*&FfoFL-F]q6$ /FW,&FWFLFatFgpFetFgp>Fcq*&FcqFL-%$mulG6$-F]q6$/FW,&FWFL8,FgpFet/Fcv;FboFatFL>F E,&FFFLFEFgp-Fgn6%""$Fjn-F]o6$QCComputing~a~resultant:~%a~seconds.F$FEFcqF$6#Fh s6&F0F$%4Mgfun/integer_solnsGc4Mgfun/integer_solns&:-115/%+modulenameGc-MG_Inte rnals%:-43 M7R0 I&:-106f*6"6#%#dxG6$%)rememberG%WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA ,~FranceGF$8$F$F$6$%6_thismoduledefinitionGF$/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-1317%%&shiftGF$%%diffG/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-124f*6#%+expressionG6$%%exprG%"fG6#%aoCopyright~(c)~1999-2002~Frederic~Chyz ak~and~Cyril~Germa,~INRIA,~FranceG6"C&>8$9$>8%-%#opG6$""!F.@&3/F1%"^G/-F36$7$"" "F5F.F9>F.-T%6#)-F36$7$F>F>F.*&-F36$7$F>""#F.F>-F36$FKF.F>3F8/F;.%$expG>F.-FQ6# *&FDF>FLF>F.F+6#FQ6&%6_thismoduledefinitionGF+%BMgfun/type_checking/normalizati onGcBMgfun/type_checking/normalization&:-124/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-141""*/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-134""#/%+modulenameGc-MG_Internals%:-43 M7R0 I%:-95=6"%&falseGE\[lZ%+ChebyshevUG7$7$%&shiftG%%diffGf*6'%"nG%"xG%#SnG%#TnG%#D xGF$6$%)operatorG%&arrowGF$7$7%,.*&9("""9%""#!""*&9&F;9$F;F;*&FAF;FF:F;F@F ;F*&FFAFC,,F9F;*&9'F;FAF;F;FBF>F:F> FLF;-%'lexdegG6$7#FL7$F@F:F$F$6$%6_thismoduledefinitionGF$F$%aoCopyright~(c)~19 99-2009~Frederic~Chyzak~and~Cyril~Germa,~INRIA,~FranceG%%erfiG7$7#F+f*6$F/F2F$6 $F4F5F$7$7#,&*$FF;FFinF$F$6$FSF$%(arccoshG7$FWf*FYF$6$F4F5F$7$7#,&*&,&FIF ;F>F;F;FF:F ;F@F;,.F`qFC*&F@F=F,0*&F:FHFF9F;Fbq F;F?F;FFLF;F:FCFMF$F$6$FSF$%#EiG7$FWf*FYF$6$F4F5F$7$7#,&*&FAF;FF;F,*FEF;FGF;FIF>FhnF;,(FGF>*&FFMF$F$6$FSF$%$cosG7$FWf*FYF$6$F4 F5F$FepF$F$6$FSF$%'arccosG7$FWf*FYF$6$F4F5F$F[pF$F$6$FSF$%(arcsinhG7$FWf*FYF$6$ F4F5F$7$7#,&*&,&F;F;FIF;F;FF?F;FBF>F:F;,*FEF;FFF>FGF;FIF>,*F9F;FKF;FBF>F:F>FMF$F$6$FSF$%'WeberE G7$F)f*F-F$6$F4F5F$F]qF$F$6$FSF$%#lnG7$FWf*FYF$6$F4F5F$7$7#,&FarF;F,&*&-%'expandG6#),&FAF;F>F;FLF;F@F;F;F>F;7$,&*&)FA,$FLF>F;FF;,&F@F;-F`w6#)FcwFhwF>-FN6$7#F@7#FF;FF;F;FF;F;FinF$F$6$FSF$%#CiG7$FWf*FYF$6$F4F5F$7$7#,(*&FAF;FFinF$F$6$FSF$%)Herm iteHG7$F)f*F-F$6$F4F5F$7$7%,(F:F;F@F;FFMF$F$6$FSF$%) HankelH1G7$F)f*F-F$6$F4F5F$FirF$F$6$FSF$%)FresnelSG7$FWf*FYF$6$F4F5F$7$7#,(F^zF ;FhnF>*(%)Mgfun/PiGF=FAFHFF;FinF$F$6$FSF$%(arcsechG7$FWf*FYF$6$F4F5F$FfxF$F$6$FSF$%(KummerUG7$7%F* F*F+f*6*%"aG%"bGF/%#SaG%#TaG%#SbG%#TbGF2F$6$F4F5F$7$7',(9+F;9)F;F>F;,,*&FLF;FAF =F;*(FAF;F*&F]^lF;F@F;F>FKF;FAF>,**&F@F;F]^lF=F;*&F]^lF;FFA F>,.Fb^lF;*&9*F;FAF;F;*&Fh^lF;FFh^lF;FF;,,Fb^lF;F:F;FAF>F-FN6$ 7$F:Fh^l7%FLF^^lF]^lF$F$6$FSF$%#SiG7$FWf*FYF$6$F4F5F$F[zF$F$6$FSF$%(BesselIG7$F )f*F-F$6$F4F5F$7$7%,(FGF>F\sF;FAF;,*FEF;FGF;FhnF>FIF>F^sFMF$F$6$FSF$%&dilogG7$F Wf*FYF$6$F4F5F$7$7#,(*&,&FAF;FIF>F;FFinF$F$6$FSF$ %(StruveLG7$F)f*F-F$6$F4F5F$7$7&,.FEF;*(F:F;FAF;FFAF;,(FaqF;*&,&FAF;F;F;F;F@F;F;F,,F9F;*&,&FBF=F FA"#5""'F;F;F@F;F;FBFi`lF*&9,F;FF@F>FAF>F>F;,6FfclF>Fi^lF;*&Fh^lF;F@F;F ;Fg^lF;FgclF>Fh^lF;FF@F>FAF>F>F;,jn*&FgclF;FLF=FC*&F*&F@F=FLF;F>*&F gclF;F*(FgclF;F@F;FLF= F>*(FgclF;FAF;FLF=FC*(F:F;F@F;FAF;F=*(FFGF=F_sFi`l*&F@F;F:F;F=*&F@F;FLF;Fi`lFF@F;FLFCFhnF>* $F@F=F;F:F=FgclF=FbalF=,8*&FgclF=FLF=F;*(FgclF;FFbdlF;FcdlF>FfclF=FBF>F?F>FIF>FAF>,0F_dlF;*&9-F;F@F;F=*&FfelF;FAF;F=FKF>F gclF>F@FCFAF>,0F_dlF>Fe^lF=*&F]^lF;FAF;F=FKF;FgclF;F,@FedlF;FfdlF;FgdlF= *(F^^lF;FFjdlF >F`^lFCFbdlF>FcdlF>FddlFCFBF;F?F>-FN6$7%F^^lF]^lFfel7&F:Fh^lFiclFgclF$F$6$FSF$% 2Mgfun/qPOCHHAMMERG7$7&%'qshiftG%'qdilatG%0non_root_of_oneGF_vf*6+F.F/F0F1%#HxG %#KxG%"qG%#qnGFbvF$6$F4F5F$7$-Ffv6%2FivFicl7&,&F@F;),&F;F;Fe^lF>FiclF>,&*&),&Fh ^lF;Fe^lF>FiclF;FLF;F;)Fh^lFiclF>,&*&),&F;F;FFiclF;F:F;F;FgglF>,&*&)F\hl,$Fi clF>F;F^^lF;F;),&Fh^lF;FFehlF>7&,&*&)FhglFehlF;F@F;F;F>F;,&*&)Fh^lFehlF;FLF; F;FdhlF>,&*&F[ilF;F:F;F;)FahlFehlF>,&*&FfhlF;F^^lF;F;FdhlF>-FN6$7$FLF^^lFQF$F$6 $FSF$%)LommelS1G7$F`]lf*Fb]lF$6$F4F5F$7$7*,6*&F]^lF=F@F=F>**F]^lF;F^^lF;F**F]^lF;F^^lF;FAF;F@F;F;Fb^lF>F]elF;*&F^^lF;F*(F^^lF;FcwF;F,**(F@F;FLF;F]^lF;F;F]flF>F[flF;F_sF>,8*(F]^lF=F@F=F*&,&*&FAF;F@F=F;F^elF>F;F^^lF=F;*&,&FAF=F=F;F;FF^elF;,.F_jlF>*(F]^lF;FF>F;F;F ,0F_jlF>Fb^lF>*$FLF=F;FIF;F^elF>FAF=F;F;,0*&F@FHF]^lFHF;*&,&F`[mF>F^ elF=F;F]^lF=F;FijlF>*&,&*$F@FHF;F?F>F;F]^lF;F;*&FgalF;FF^elF;,,F]flF >F[flF;*(Fh^lF;FAF;F@F;F;*(Fh^lF;F*(F:F;FAF=F@F;F;*(F:F;F Fb^lF>F]elF;FhnF;F^elF>F[_lF$F$6$FSF$%$ChiG7$FWf*FYF$6$F4F5F$7$7#,(F^z F;FhnF=FBF>FinF$F$6$FSF$%%erfcG7$FWf*FYF$6$F4F5F$7$7#,&FhnF;FBF=FinF$F$6$FSF$%' arccscG7$FWf*FYF$6$F4F5F$FfxF$F$6$FSF$%)HankelH2G7$F)f*F-F$6$F4F5F$FirF$F$6$FSF $%$ShiG7$FWf*FYF$6$F4F5F$F_]mF$F$6$FSF$%$erfG7$FWf*FYF$6$F4F5F$Fg]mF$F$6$FSF$%, Mgfun/POWERG7$F)f*F-F$6$F4F5F$7$7%,&FGF;FAF>,&F@F;F,&F_sF;F>F;FMF$F$6$FSF$%' arctanG7$FWf*FYF$6$F4F5F$7$7#,&FFFF=FinF$F$6$FSF$%$SsiG7$FWf*FYF$6$F 4F5F$F[zF$F$6$FSF$%'AiryBiG7$FWf*FYF$6$F4F5F$FdzF$F$6$FSF$%(BesselYG7$F)f*F-F$6 $F4F5F$FirF$F$6$FSF$%)FresnelCG7$FWf*FYF$6$F4F5F$F[\lF$F$6$FSF$%/Mgfun/IDENTITY G7$FWf*FYF$6$F4F5F$7$7#,&FBF;F>F;FinF$F$6$FSF$%'arccotG7$FWf*FYF$6$F4F5F$F]`mF$ F$6$FSF$%%sinhG7$FWf*FYF$6$F4F5F$FcyF$F$6$FSF$%(arctanhG7$FWf*FYF$6$F4F5F$Fg`mF $F$6$FSF$%*LaguerreLG7$F`]lf*6*F.Fc]lF/F0F1Fe]lFf]lF2F$6$F4F5F$7$7'F\^l,.Fb^lF> *&FgalF;FLF;F;FF@F;FAF>F>F;,,Fd^lF;Fe^lF;Fb^lF>F]^lF;FAF;,*Fb^lF>Fi^lF;Fg^lF ;F,*Fb^lF;FGF;FbqF;FAF>F[_lF$F$6$FSF$%(StruveHG7$F)f*F-F$6$F4F5F$7$7&,.FEF;F balFC*&,&FBFCFF;F@F;F;FIF;FhnF;FAF;Feal,,F9F>FialF;*&,*FIF[elFhnF>FA!#5!"'F; F;F@F;F;FBFHFFdjlF;*&F^^lF;FFFKF;FAF>Fc^l,*Fb^lF>*&Fg\lF;Fh^lF;F;FF;F;,.Fb^lF;FbqF;FGF>FAF >FF[_lF$F$6$FSF$%,GegenbauerCG7$F`]lf*F[dmF$6$F4F5F$7$7',*Fb^lF>FcfmF=F< FCFAF>,.*&F]^lF;F@F=F>FKF;F\sFCF?F>F]^lF;FLF;,.F_jlF;Ff[mF=*$F]^lF=F>Fb^lF;FBFC FIF>,D*(F]^lF;FF]^lF>F:F>F[_lF$F$6$FSF$%)LommelS2G7$F`]lf*Fb]l F$6$F4F5F$F\jlF$F$6$FSF$/%+modulenameGc-MG_Internals%:-43 M7R0 I%:-88""%/%+modulenameGc-MG_Internals%:-43 M7R0 I&:-152`6(c2AddSimpleFraction&:-197c7AddTwoPartialFractions&:-198c4DiffPartialF raction&:-199c1FromListToNormal&:-200c:FromListToPartialFraction&:-201c/ScalarM ultiply&:-202b6#%+thismoduleG6(%*AddBranchG%+AddBranch1G%+DiffBranchG%3DiffSimp leFractionG%0NormalizeBranchG%5SumOfSimpleFractionsG6#%(packageG6(%2AddSimpleFr actionG%7AddTwoPartialFractionsG%4DiffPartialFractionG%1FromListToNormalG%:From ListToPartialFractionG%/ScalarMultiplyG6"6#QDhandling~lists~of~partial~fraction sF>F>F>%2_m140134693688416G6(c*AddBranch&:-203c+AddBranch1&:-204c+DiffBranch&:- 205c3DiffSimpleFraction&:-206c0NormalizeBranch&:-207c5SumOfSimpleFractions&:-20 8/%+modulenameGc4RationalTelescoping%:-81 M7R0 I&:-162f*6&%"LG%"GG%"RG%"xG6)%"fG%"gG%"rG%"nG%#ngG%#nrG%"iG6"6"C)>8'-%%nopsG6#9 $>8$-%$addG6$*(&&F96#8*6#"""FE&FA6#""#FE)&F9FD,&FCFE!""FEFL/FC;FHF5>8(-F76#9%>8 %-F=6$*(&&FSFBFDFE&FZFGFE)&FSFDFKFL/FC;FHFP>8)-F76#9&>8&-F=6$*(&&F^oFBFDFE&FeoF GFE)&F^oFDFKFL/FC;FHF[o-%)TestzeroG6#,(-%%diffG6$FU9'FEF`oFEF;FLF2F26$%6_thismo duledefinitionGF2/%+modulenameGc*Reduction&:-153 M7R0 I&:-181f*6$%"PG%"xG6/%"TG%"LG%"MG%#LpG%#MpG%#LsG%#MsG%"cG%"nG%"iG%"fG%"mG%"kG6" 6"C)@$/-%'degreeG6$9$9%""!O7$F=7">8$-%(sqrfreeGF<>8+&FD6#""">8,-%%nopsG6#&FD6#" "#>6$8%8&6$7#&&FQFJFJ7#&FenFR?(8-FSFKFM%%trueGC+>6$8.8/6$&&FQ6#FinFJ&FboFR>80-T %6$FWF_o>8)7#-%#opG6$;FK,&FfoFK!""FKFV>8'7#-F^p6$;Ffo-FO6#FVFV>8*7#-F^p6$F`pFW> 8(7#-F^p6$;Ffo-FO6#FWFW?(F6FKFKF630FaqFB/F_o&FaqFJC%>F^o*&F^oFK&FdpFJFK>Fdp7#-F ^p6$;FS-FO6#FdpFdp>Faq7#-F^p6$;FS-FO6#FaqFaq>FV7%-F^p6#F[pF^o-F^pFgr>FW7%-F^p6# F\qF_o-F^pF^s7$FH7#-%$seqG6$7$&FVFco&FWFco/Fin;FKFfqF6F66&%6_thismoduledefiniti onGF6%)PositionGc)Position&:-1866$%*protectedG/%+modulenameGc.Decomposition&:-1 55 M7R0 I&:-190f*6&%"LG%"fG%"xG%#DxG6&%"nG%"iG%#fpG%#dfG6"6"C'>8$-%'degreeG6$9$9'>8&*&- %&coeffG6%F6F7""!"""9%F?>8'F@?(8%F?F?F2%%trueGC$>FB-%%diffG6$FB9&>F9-%'normalG6 #,&F9F?*&-F<6%F6F7FDF?FBF?F?F9F/F/6$%6_thismoduledefinitionGF//%+modulenameGc3R ationalZeilberger&:-156 M7R0 I&:-204f*6$%"BG%$varG61%"bG%#deG%$nu1G%"CG%$nu2G%#l1G%#l2G%"lG%"TG%#nuG%"cG%#ll G%"dG%"iG%"mG6"6"C8>8$-%%nopsG6#9$@$/F;""!YQ;the~input~is~an~empty~listF8@$/F;" ""O&F?6#FG>82-F=6#FI>8%&FIFJ>8&7#-%#opG6$;""#FLFI>8'-T%6$7#-FV6$;FYF;F?%"yG@$/F S7"OFen>FL-F=6#&F?6#FY>8(7#-FV6$FXFen@$/FhoF`oOFI>8)-F=6#FS>8*-F=6#Fho>8+-%$min G6$F`pFdp>8/-%$maxGF[q>8,-%&tableG6#F`o?(81FGFGFhp%%trueGC$>8--%'normalG6#z'6&& &FS6#FfqFJ&FarFfo&&FhoFbrFJ&FerFfo[[[[[[\[[\[[mFG\[[\[[[[[[[[mFG@%/FjqFB>&FaqFb r7$FGFBC$>Fjq-%)primpartG6%Fjq9%.8.>Fjr7$FcsFjq@$2FhpF`p?(Ffq,&FhpFGFGFGFGF]qFg q>FjrFar@$2FhpFdp?(FfqFisFGF]qFgq>FjrFer>80F]q?(FfqF]q!""FGFgq@%/&FjrFfoFB>F`t, &F`tFGFbtFG[7$FP-%$seqG6$Fjr/Ffq;FGF`tF8F86&%6_thismoduledefinitionGF8%+AddBran ch1Gc+AddBranch1&:-204/%+modulenameGc%List&:-152 M7R0 I&:-167f*6(%"LG%"gG%"fG%"xG%"yG%#DxG6)%"SG%"GG%%coesG%"vG%%apopG%%leftG%&rightG 6"6"C*>8$9$>8%9%>8&7#-%'coeffsG6%-%(collectG6$F79)FE.8'>FG7#FG>8(-%$mapG6'f*6&F (F)%"zG%"DGF46$%)operatorG%&arrowGF4-%%diffG6$F;7#-%"$G6$9&-%'degreeG6$F89'F4F4 F4FGFgnF[oFE>8)-%(convertG6$-%$zipG6%f*6$F(F)F46$FTFUF4*&F8"""F;FhoF4F4F4F=FK%" +G>8*-FW6$F:9(@%-%)TestzeroG6#,&F]oFhoF[p!""%%trueG%&falseGF4F46$%6_thismoduled efinitionGF46$%*protectedG/%+modulenameGc+Telescoper&:-154 M7R0 I&:-176f*6&%"rG%"sG%"xG%"yG6-%#nuG%#coG%#deG%"RG%"gG%#c1G%#p1G%#ApG%#cpG%#csG%# ppG6"6"C,>8%&&9$6#""#6#""">8$&F;F=>8&&F8'-T%6%7$,$*& FBF@-%%diffG6$FE9&F@!""FE9%9'>8--%(contentG6%&FOF?Ffn.8.@%/FhnFI>8(FL>Fbo7$FE7$ -%'normalG6#*&F9F@FhnF@F^o>8,-Fjn6%,(*&-FW6$F9FYF@FBF@F@*&F9F@-FW6$FBFYF@F@*&F9 F@&FOF=F@F@Ffn.8+@$/F[pFI>F[pF@7$Fbo7$FE7$F[pFhpF6F66&%6_thismoduledefinitionGF 6%.SimpleReduce2Gc.SimpleReduce2&:-177/%+modulenameGc+Telescoper&:-154 M7R0 I&:-161f*6%%"LG%"xG%"tG6,%"fG%#dfG%"gG%"rG%"nG%"BG%"CG%"iG%#L1G%"RG6"6"C,>8$&9$ 6#""">8%-%%diffG6$F79%>8&""!>8'&F96#""#>8(-%%nopsG6#F9@$/FKFIC$@$/9#""$C$-%&gcd exG6'F7F=FA.8*.8)>9&7$FenFgnO7%FCFFF7FW?(8+FUF;FK%%trueGC&>8,7%&F96#F^oF7,&F^oF ;!""F;>8--T%6%FboFjnFA>FC-%'normalG6#,&FCF;&FioF:F;>FF,&FFF;&FioFHF;@$FS>FinFjn F\oF4F46&%6_thismoduledefinitionGF4%3IntegrationByPartsGc3IntegrationByParts&:- 159/%+modulenameGc*Reduction&:-153 M7R0 I&:-189f*6&%"fG%"xG%"yG%#DxG6H%#fpG%#nuG%#deG%#reG%%polyG%"PG%"QG%"AG%#ppG%"BG% "CG%#AmG%#AsG%#BmG%#BsG%#CmG%#CsG%#CdG%$ACdG%#BdG%$ACsG%%dACsG%$ordG%"iG%&ithDf G%"NG%#rNG%"eG%%idenG%"jG%"RG%%delLG%"kG%"aG%"bG%"LG%"gG%#cLG6"6"CB>8$-%'normal G6#9$>6$8%8&6$-%&numerG6#FT-%&denomGFjn>8'-%$remG6&FenFfn9&.8(>Fdo-%$intG6$FdoF bo@$-%)TestzeroG6#F^oO7$"""Fdo>FT-FV6#*&F^oF_pFfn!"">6$8)8*Fgn>8+-%(contentG6%F hpFbo.8,>8--F\q6%F_q9%.8.>8/-%$gcdG6$Fjp-%%diffG6$FjpFdq>80-FV6#*&FjpF_pFhqFdp> 81-Fjq6$Faq-F]r6$FaqFbo>82-FV6#*&FaqF_pFerFdp>83-Fjq6$Ffq-F]r6$FfqFbo>84-FV6#*& FfqF_pF`sFdp>88*&F`rF_pFfsF_p>89-F]r6$F[tFdq>87-FV6#*(F[sF_pFhrF_pFaqFdp>86-FV6 #**F[tF_p-F]r6$*&FhqF_pF`sF_pFdqF_pFhqFdpF`sFdp>85-FV6#*(FfsF_pFcsF_pFfqFdp>8:, &-%'degreeG6$F[sFboF_p-Fgu6$FfsFboF_p>8C,(-Fgu6$FhpFboF_p*&,&8DF_pFdpF_pF_pFiuF _pF_pFfuFdp>8E*&F[sF_pFfsF_p>8F,(-F]r6$FevFboF_p*&FfsF_pFbtF_pFdp*&F[sF_p,&*&Fb vF_p-F]rFjuF_pF_pF_uF_pF_pFdp>8?-%&tableG6#7">8=Fbw>&Fgw6#""!Fgp>8>*&&FawFjwF_p FgpF_p>8@*(FjpF_pF`sF_pFerF_p>8B-T%6*F]x7#F_x-%%evalG6$F\v/FbvF[x7$Fdv-Fjx6$Fgv F\yFaxFdqFbo9'@$/-%%nopsG6#Fdx""#C%>8G-%)primpartG6%&Fdx6#F_pF`y.8I>8H-FV6#*&,& -T'6&F]zFdoFdqF`yF_p&Fdx6#FfyF_pF_pF`zFdpO7$FiyFbz?(8;F_pF_pFdu%%trueGC'>&Fgw6# F_[l-FV6#,&-FV6#*&-F]r6$&Fgw6#,&F_[lF_pFdpF_pFdqF_pF[tF_pF_p-FV6#*&F]\lF_p-FV6# ,&*&F_[lF_pF^tF_pF_pFgtF_pF_pFdp>F]x-FV6#,&*&&FawFd[lF_pFc[lF_pF_p*&F[tF_pF]xF_ pF_p>Fax*&FaxF_pF[tF_p>Fdx-Ffx6*F]x7#-%$seqG6$&Faw6#8A/Fi]l;F[xF_[l-Fjx6$F\v/Fb vF_[l7$Fdv-Fjx6$FgvF^^lFaxFdqFboF`y@$FbyC%>FiyFjy>FbzFczOF][lFQFQ6(%6_thismodul edefinitionGFQ%,ParadGosperGc,ParadGosper&:-192%'ApplyLGc'ApplyL&:-1906$%*prote ctedG/%+modulenameGc3RationalZeilberger&:-156 M7R0 I&:-203f*6$%"BG%"LG6+%$varG%"pG%#deG%"FG%"lG%"iG%"HG%#dhG%"GG6"6"C*@$/-%%nopsG6 #9$"""O9%>6$8$8%6$&F<6#F:&F<6#""#>8'&F<6#""$@$/FH7"O7%F?F@7#F9>8&&F9FC>8(-F76#F H?(8)F:F:FV%%trueGC%>8*&FH6#FZ>8+&FhnFC@$-%)TestzeroG6#,&FSF:F\o!""C%>8,-T%6$7$ F9FhnF?@$/-F76#FfoF:O7%F?F@7$-%#opG6$;F:,&FZF:FcoF:FH-Fcp6$;,&FZF:F:F:FVFHO7%F? F@7%FbpFfoFgp7%F?F@7$-FcpFXF9F2F26&%6_thismoduledefinitionGF2%+AddBranch1Gc+Add Branch1&:-204/%+modulenameGc%List&:-152 M7R0 I&:-182f*6%%"fG%"xG%"tG6@%"gG%"aG%"bG%"dG%"cG%"pG%"iG%"SG%"LG%"MG%"nG%#GtG%"wG% "rG%"vG%"mG%"uG%"HG%"sG%"GG%"TG%#T1G%#T2G%"jG%#dpG%#cpG%#apG%#bpG%#SpG%#csG6"6" C6>8$-%'normalG6#9$>6$8%8'6$-%&numerG6#FK-%&denomGFW>8(*&-%(contentG6%FR9%.8>"" "-Fhn6%FSFjn.89&*&FenF]oF\oF]oO6$Fen7%Fjn F\o7">8)-%$quoG6&F\oFaoFjn.8?>F\oF[q>8@-T%6$FaoFjn>8A&F^q6#F]o>Fao*&FcqF]oFaoF] o>8+&F^q6#""#>8.-%%nopsG6#Fiq>Fiq7#-%$seqG6$&Fiq6#,&F^rF]o8*Fbo/Fjr;Fho,&F^rF]o FboF]o>8/-%&tableG6#Fdp?(FjrF]oF]oF]s%%trueGC,>82&&Fiq6#FjrFeq>83&FisF[r>84-_T' %.ExactDivisionG6&FaoFgsF\tFjn>88F`s?(8;,&FjrF]oF]oF]oF]oF^rFdsC$-%&gcdexG6&&&F iq6#FhtFeqFgsFjn.80>&FftF`u-%"$G6$Fbu&F_uF[r>857#-Fer6$Fdu/Fht;FitF^r>86-_Fbt%/ MergeRemainderG6%FjuFgsFjn>&F_sFjs-T)6'F\o7%F_tFgsF\tFavFjnFjp>F\oF[q>FaoF_t>&F _s6#F^r-T+6$7%F\o&&FiqF`wFeq&FfwF[rFjn>87Fdp?(FjrF]oF]oF^rFdsC$@$0FcqF]oC&>89Fg v>8:Fdp?(FhtF]oF]o-F`r6#FgvFds>Fbx7$-%#opG6#Fbx7$*&&&F`xF`uFeqF]oFcqF]o&F^yF[r> FgvFbx>Fiw7$-Fix6#Fiw7$Fhs-FixFex>Fiw7%FjnFfpFiw@$F[p>F_p*&FenF]o-_T-%:FromList ToPartialFractionGFdyF]o6$FenFiwFHFH6.%6_thismoduledefinitionGFH%+SquareFreeGc+ SquareFree&:-181%)DivisionGc)Division&:-151%,LaurentPartGc,LaurentPart&:-185%.A dicExpansionGc.AdicExpansion&:-184%%ListGc%List&:-1526$%*protectedG/%+modulenam eGc.Decomposition&:-155 M7R0 I&:-175f*6&%"FG%"SG%"xG%"yG6%%"lG%"TG%"iG6"6"C&>8$-%%nopsG6#9$>8%-%&tableG6#7"? (8&"""F>F1%%trueG>&F76#F=-T%6&&F5FB&9%FB9&9'7$7#-%$seqG6$&FA6#F>/F=;F>F17#-FN6$ &FA6#""#FRF.F.6&%6_thismoduledefinitionGF.%.SimpleReduce1Gc.SimpleReduce1&:-176 /%+modulenameGc+Telescoper&:-154 M7R0 I&:-168f*6(%"LG%"GG%"fG%"xG%"yG%#DxG6&%"dG%"iG%"uG%"vG6"6"C'>8$-%'degreeG6$9$9) >8&-%'normalG6#*&-%&coeffG6%F8F9""!"""9&FD?(8%FDFDF4%%trueG>F;-F=6#,&F;FD*&-FA6 %F8F9FGFD-%%diffG6$FE-%"$G6$9'FGFDFD>8'-F=6#-_T%%:FromListToPartialFractionG6#9 %-%)TestzeroG6#,&F;FD-FQ6$FX9(!""F1F16&%6_thismoduledefinitionGF1%%ListGc%List& :-1526$%*protectedG/%+modulenameGc+Telescoper&:-154 M7R0 I&:-164f*6'%"fG%"xG%"yG%#DxG%$optG6H%"FG%#deG%"gG%"HG%"lG%"SG%#SpG%"GG%"RG%"cG% "rG%"LG%"PG%#CpG%$ordG%$solG%"MG%"QG%"iG%"TG%"CG%#ctG%%CertG%&CertLG%#g1G%#g2G% #gdG%#lhG%#rhG%"UG%"VG%#luG%#trG%#tmG%#tuG%#tlG%#tsG%#ttG6"6"CD>8$-%'normalG6#9 $>8%-%&denomG6#FU@$/9#""&C$@$4-%%typeG6$9(%)equationGYQQthe~optional~argument~s hould~be~of~equation~typeFR>6$8?8@6$-%$lhsG6#Fco-%$rhsGF^p@$/-%'degreeG6$Fen9&" "!C%>8&-%$intG6$FUFfp@$Fjn@$/Fio.%'outputG@$5/Fjo.%+normalizedG/Fjo.%-unnormali zedGO7$"""FjpO7$F]r7%FfpFjp7">8D-%%timeGFR>8'-_T%%)OriginalGF]q>6&8-Fjp8.8*6&&F gr6#F]r&Fgr6#""#&Fgr6#""$&Fgr6#""%@$/&F_sFhsFarC$@$Fjn@$F`qC$@$FhqO7$F]r*&F^sF] r-_T'%:FromListToPartialFractionG6#FjpF]r@$FeqO7$F]r*&F^sF]r-_Fjt%1FromListToNo rmalGF\uF]rO7$F]r-_Fjt%/ScalarMultiplyG6$F^sFjp>8(-%%nopsG6#F_t>8)-%&tableG6#Fa r?(86F]rF]rF[v%%trueG>&F`v6#Fev&&F`sFivFes>82Fgp>8+Fav>8,-%&TableGFcv>81Fav@$/F [oF\t>&F_w6#F]wFjp@$FjnC$@$3F`qFhq>FiwFht@$3F`q5Feq/Fjo.%(parfracG>FiwFjp>&FawF jwF_t>8/-T)6$FhxFfp>807#&FjxFcs>&FewFjw&FjxFes>83<">8HFgp>8GFgp>8FFgp>8EFgp?(FR F]rF]rFR/FfyFgyC8>8IFdr>Fjx-T+6&FhxF`v9%Ffp>6$8A8B6$FayFdy>8C-F]v6#F\[l>Fdz,&Fd rF]rFdz!"">Fiy,&FiyF]rFdzF]r>F]w,&F]wF]rF]rF]r>FdzFdr@$Fgw>Fiw-T-6%&F_w6#,&F]wF ]rFe[lF]rFayFiz@$FjnC$@$F^xC%>8>-%%diffG6$F`\lFiz>8=-%$addG6$*(&&&F\[lFivFesFcs F]r&Fc]lFesF]r&Fd]lFcsFe[l/Fev;F]rF`[l>Fiw,&Fh\lF]rF]]lF]r@$Fax>Fiw-F^\l6%F`\lF \[lFiz>F]z,(F]zF]rFdrF]rFdzFe[l>FhxF][l>FdzFdr>FjxF[y>F_y7$-%#opG6#F_yFay>FcyFd y>84-%'MatrixGFh^l>F_z,(F_zF]rFdrF]rFdzFe[l>FdzFdr>Ffy-T/6$F[_lFi[l>FdzFd[l>F[z ,&F[zF]rFdzF]r>85Fav?(FevFgpF]rF]wFfv>&Fi_lFiv-FW6#*&&&FfyFcs6#,&FevF]rF]rF]rF] r&FewFivFe[l>87-T16'F]wF^sFi_lFiz9'>Ff`l-%)primpartG6%Ff`lFj`l.89@$FjnC%@$3F`qF eqC$>8;-T36&F]wF`alFi_lF_w>8:-Fbu6#Fgal@$F^xC%>8Fbbl,&Fbb lF]r*&F\`lF]r&F_wFivF]rF]r>F\bl*&FbblF]rF`alFe[l@$3F`qFcx>F\blFhal@$Fgw>F\blFha l7$Ff`lF\blFRFR64%6_thismoduledefinitionGFR%*ReductionGc*Reduction&:-153%%ListG c%List&:-152%*GetCoeffsGc*GetCoeffs&:-172%-SimpleReduceGc-SimpleReduce&:-175%2N ewIntegrablePartGc2NewIntegrablePart&:-174%3FindLinearRelationGc3FindLinearRela tion&:-169%3GenerateTelescoperGc3GenerateTelescoper&:-171%4GenerateCertificateG c4GenerateCertificate&:-1706$%*protectedG/%+modulenameGc+Telescoper&:-154 M7R0 I&:-165f*6)%"LG%"GG%"pG%"fG%"xG%"yG%#DxG6*%"iG%#dfG%#dgG%#mfG%#mgG%"dG%"uG%"vG6 "6"C,>8%-%$modG6$-%&denomG6#9'9&>8&-F;6$-F>6#9%FA@$3/F9""!/FCFLYQDnumeric~excep tion:~division~by~zeroF6>8'-F;6$F@FA>8(-F;6$-%'NormalGFGFA>8)-%'degreeG6$9$9*>8 *-F;6$-FY6#*&-%&coeffG6%FinFjnFL"""FQFeoFA?(8$FeoFeoFen%%trueG>F\o-F;6$-FY6#-F; 6$,&F\oFeo-FY6#-F;6$*&-Fco6%FinFjnFgoFeo-FY6#-%%diffG6$FQ-%"$G6$9(FgoFeoFAFeoFA FA>8+-F;6$-FY6#-F[q6$FU9)FA-%)TestzeroG6#-F;6$-FY6#,&F\oFeoFbq!""FAF6F66$%6_thi smoduledefinitionGF66$%*protectedG/%+modulenameGc+Telescoper&:-154 M7R0 I&:-174f*6%%#G1G%#G2G%"xG6&%"GG%"iG%"lG%"fG6"6"C&>8$-_T%%4DiffPartialFractionG6 $9$9&>8&-%%nopsG6#9%?(8%"""FAF:%%trueGC$>8'&F>6#F@>F1-_F4%2AddSimpleFractionG6$ 7&&&FE6#""#6#FA&FEFR&FOFPFAF1F1F.F.6&%6_thismoduledefinitionGF.%%ListGc%List&:- 152/%+modulenameGc+Telescoper&:-154 M7R0 I&:-183f*6%%"cG%"GG%"rG6.%$varG%"pG%"FG%"lG%"iG%"fG%#deG%"gG%"dG%#nuG%"hG%"jG6" 6"C'>6$8$8&6$&9%6#"""&F>6#""$>8'-%%nopsG6#F;?(8(F@F@FE%%trueGC(>8)&F;6#FJ>8*&FN F?>8+-%$gcdG6$FR-%%diffG6$FRF:@$0FUF@O%&falseG>8,-%'degreeGFen?(8/""#F@-FG6#FNF KC$>8-&&FN6#F_o6#F`o@$1F[o-F]o6$FeoF:OFin>8.-_T%%:FromListToPartialFractionG6#F >-%)TestzeroG6#,&*&9$F@F`pF@F@9&!""F6F66&%6_thismoduledefinitionGF6%%ListGc%Lis t&:-1526$%*protectedG/%+modulenameGc.Decomposition&:-155 M7R0 I&:-192f*6*%#rNG%"eG%$delG%"LG%#deG%"xG%"yG%#DxG65%"sG%"cG%$eqnG%$varG%"MG%#rkG %"pG%%teleG%$cerG%$pvaG%%pva1G%%pva2G%$solG%#evG%$ev1G%$ev2G%%rollG%"jG%#ttG6"6 "C,>84-%%randG6#;""""%+5@$-%)TestzeroG6#9&C(>8&7#-%'coeffsG6$-%(collectG6$9$9*F fn>8'9%>8(&-_%.LinearAlgebraG%/GenerateMatrixG6$FSFhn6#FJ>8*-%)ithprimeG6#-FEFB >8)-T%6$F[oFdo@%2Fjo-%%nopsG6#FhnC$>80<#-_%+SolveToolsG%'LinearGFao@%/-Fap6#Fep ""!O7"C'>8+-%$addG6$*&&Fin6#85FJ)9+,&F[rFJ!""FJFJ/F[r;FJ-Fap6#Fin>Fdq-%%evalG6$ Fdq&FepFbo>8--%(convertG6$-%&minusG6$-%'indetsG6#Fdq<$9)F]r%%listG>81<#-%$seqG6 $/&FjrFjqFJ/F[r;FJ-Fap6#FjrO7$-Ffr6$FdqFhsF_qOFaq>8%-%&tableG6#Faq>8$-Ffq6$*&&F itFjqFJ)FfnF[rFJ/F[r;F_q,&FPFJF_rFJ>FS7#-FV6$-FY6$,(FenFJ*&&9'FboFJ-%%diffG6$F^ uFfnFJF_r*&&F`v6#""#FJF^uFJF_rFfnFfn>Fhn7$-%#opGFcr-F[t6$FbuFdu>F[oF\o>FdoFeo>F joF[p@%F_pC$>FepFfp@%F\qOFaqC)>FdqFeq>FdqFer@$-FNFcsOFaq>8,-Ffr6$F^uFhr>FjrF[s> FhsFisO7$Fet*&-Ffr6$F]xFhsFJ9(F_rOFaqFBFB6&%6_thismoduledefinitionGFB%2LowerBou ndForRankGc2LowerBoundForRank&:-191/%+modulenameGc3RationalZeilberger&:-156 M7R0 I&:-202f*6$%"cG%"LG60%$varG%"pG%"FG%#cpG%#deG%#nuG%"GG%"iG%"MG%"TG%"jG%#csG%#ns G%"kG6"6"C*>6%8$8%8&6%&9%6#"""&F@6#""#&F@6#""$>8'-%'normalG6#9$>6$8(8)6$-%&deno mGFM-%&numerGFM@$52""!-%'degreeG6$FQF;2Fen-Fgn6$FRF;YQenthe~first~input~is~not~ a~scalar~with~respect~to~the~secondF7@$/FRFenO7%F;Fen7">8*Fbo?(8+FBFB-%%nopsG6# F=%%trueGC'>8,&F=6#Ffo>8--%&tableG6#Fbo>&FapFA&F]pFA?(8.FEFB-Fho6#F]pFjoC$>6$8/ 806$&&F]p6#FipFA&FcqFD@%/F`qFen>&FapFdq7$FBFen>Fiq7$-FL6#*&FJFBF_qFBF`q>Fdo7$-% #opG6#Fdo7#-%$seqG6$&Fap6#81/F[s;FBFjp7%F;*&FJFBF8$-%'normalG6#9$@$/FB""!O7$"" "FL>8%-_T%%)OriginalG6%FF9&/.%'outputG.%(parfracG>6%8&8'8(6%&FN6#FL&FN6#""#&FN6 #""$@%5/9#""%/-%$rhsG6#9(.%-unnormalizedG>Fgn*&FfnFL-_T'%:FromListToPartialFrac tionG6#FgnFL>Fgn*&FfnFL-_Fbp%1FromListToNormalGFdpFL>8)&FhnF`o>8*-%%nopsG6#F[q@ $/F^qFIO7$FLFgn>8+&%&tableGF?>8,Fhq>85-_%)OreToolsG%+SetOreRingG6$9%.%-differen tialG>86-%%timeGF??(8-FLFLF^q%%trueGC&>6%8.8/806%&&F[q6#F[sF[o&&FesF]oF[o&FhsF] o>81-&%(DEtoolsG6#T)6&**FfnFLFasFLFbsFLF`s!""FcrFT9'>&FgqFfs-__F`r%+ConvertersG %2FromPolyToOrePolyG6$&F[tF[oFdt>&F[rFfs&F[tF]o>FgrFhr>84-_F`r%$LCMG6$-%$seqG6$ Fft/F[s;FLF^qF]r>83FI?(F[sFLFLF^qF\sC$>82-_F`r%)QuotientG6%FcuFftF]r@%Fco>F^v,& F^vFL-_F`r%&ApplyG6%FbvF_uF]rFL>F^v-FD6#,&F^vFL-FD6#FjvFL@%Fco>Fgn,&-F[w6%FcuFg nF]rFLF^vFL>Fgn-FD6#,&-FD6#FgwFLF^vFL7$-_Fit%2FromOrePolyToPolyG6$FcuFdtFgnF?F? 6*%6_thismoduledefinitionGF?%*ReductionGc*Reduction&:-153%%ListGc%List&:-152%+Z eilbergerGc+Zeilberger%:-646$%*protectedG/%+modulenameGc+Telescoper&:-154 M7R0 I&:-173f*6$%"MG%"pG60%#rnG%#cnG%%varsG%"gG%"eG%"NG%"iG%"jG%#enG%"sG%"bG%#deG%$d eiG%#MMG6"6"C0>8$&-%#opG6$"""9$6#F?>8%&F<6#""#>8&7#-F=6#-%'indetsG6#F@>8/7"?(8* F?F?F:%%trueGC%>80FQ?(8+F?F?FCFT>FW7$-F=6#FW-%&denomG6#&F@6$FSFY>FP7$-F=6#FP-%$ modG6$-%$LcmG6#Ffn9%>81-%'MatrixG6$F:FC?(FSF?F?F:FT?(FYF?F?FCFT>&FioF\o-Fbo6$-% 'NormalG6#*&&FP6#FSF?F[oF?Fgo>8'-%%randG6#;F?,&FgoF?!""F?>8(7#-%$seqG6$-FjpF7/F S;F?-%%nopsG6#FH>8-<#-Feq6$/&FHFhp&FbqFhpFhq>8)Fjo?(FSF?F?F:FT?(FYF?F?FCFT>&Ffr F\o-Fbo6$-%'ExpandG6#-%%subsG6$F^rF`pFgo-__%.LinearAlgebraG%(ModularG%*RowReduc eG6-FgoFfrF:FCFC""!Fjs8.FjsFjs%&falseGOF[tF7F76$%6_thismoduledefinitionGF7/%+mo dulenameGc+Telescoper&:-154 M7R0 I&:-166f*6)%"LG%"GG%"pG%"fG%"xG%"yG%#DxG6#%#GpG6"6"C$>8$-_T%%1FromListToNormalG 6#9%-T'6)9$F29&9'9(9)9*F/F/6(%6_thismoduledefinitionGF/%%ListGc%List&:-152%6Mod ularVerifyFunctionGc6ModularVerifyFunction&:-1656$%*protectedG/%+modulenameGc+T elescoper&:-154 M7R0 I&:-191f*6$%"MG%"pG60%#rnG%#cnG%%varsG%"gG%"eG%"NG%"iG%"jG%#enG%"sG%"bG%#deG%$d eiG%#MMG6"6"C,>6$8$8%-%#opG6$"""9$>8&-%(convertG6$-%'indetsG6#FA%%listG>8/-%&ta bleGF7?(8*F@F@F;%%trueG>&FL6#FP-%$modG6$-%$LcmG6#-%$seqG6$-%&denomG6#&FA6$FP8+/ F]o;F@F<9%>81-%'MatrixG6#7#-Ffn6$7#-Ffn6$-FV6$-%'NormalG6#*&FSF@F[oF@F`oF^o/FP; F@F;>8'-%%randG6#;F@,&F`oF@!""F@>8-<#-Ffn6$/&FCFT-FepF7/FP;F@-%%nopsG6#FC>8)-Fd o6#7#-Ffn6$7#-Ffn6$-FV6$-%'ExpandG6#-%%subsG6$F]q&FboF\oF`oF^oFbp-__%.LinearAlg ebraG%(ModularG%*RowReduceG6-F`oFjqF;F8$&9$6#""#>8%&F56#""$@$ /F97"OF3>8&F3?(8'"""FE-%%nopsG6#F9%%trueGC'>8(""!>8)&F96#FD>8*&FO6#FE?(8+F7FE-F G6#FOFI>FL,&FLFE*(&&FO6#FWFUFE&FhnF6FE)FS,&FWFE!""FEF]oFE>FB,&FBFEFLFEFBF0F06$% 6_thismoduledefinitionGF06$%*protectedG/%+modulenameGc%List&:-152 M7R0 I&:-184f*6%%"FG%"xG%"tG6,%"aG%"cG%"dG%"nG%"iG%"rG%"qG%"TG%"lG%"gG6"6"C*>6%8$8&8 '6%&9$6#"""&F=6#""#&F=6#""$>8+-%&tableG6#7"@$/9#FE>8-""!?(8(F:!""F?%%trueGC&>8) -%$remG6&F8F99%.F8>FX-%)primpartG6%FXFfn.8%@%0FXFQ>&FG6#FS7$F]oFX>Fao7$F?FQ@$FM >FP,&*(F]oF?FXF?)F9FSFTF?FPF?@$FM>9&FP>8,F:?(FSF:FTF?FU@%/&FaoFAFQ>F_p,&F_pF?FT F?[7#-%$seqG6$Fao/FS;F?F_pF4F46$%6_thismoduledefinitionGF4/%+modulenameGc.Decom position&:-155 M7R0 I&:-185f*6'%"aG%"dG%"sG%"xG%"tG60%#nuG%"uG%"vG%"nG%"TG%"rG%"iG%#cpG%"wG%#dsG%#n sG%"lG%#rsG%#csG6"6"C,>8$9$>6%8%8&8'6%&9%6#"""&FF6#""#&FF6#""$>8(-%&tableG6#7"> 8+FH>8-FH?(8*FC!""FH%%trueGC(>FV-%'normalG6#*(FVFH-%(contentG6%F=9'.F=FHFXFen>8 )-%$remG6%*&-Feo6%F=FBF`oFH9&FHFBF`o@%/Fco""!>&FP6#FZ7$FHF]pC$>80-%)primpartG6% FcoF`o.81>F_p7$-Fjn6#*&FipFHFVFHFdp>6$FX8.6$-%&denomG6#Fco-%&numerGFeq>F=,&*&FX FHF=FHFH*&FaqFHFAFHFen>F=-_T%%.ExactDivisionG6&F=FBFHF`o@$/9#""&>9(*&-Fjn6#*&FV FHFXFenFHF=FH>8/FC?(FZFCFenFHFfn@%/&F_pFJF]p>F]s,&F]sFHFenFH[7#-%$seqG6$F_p/FZ; FHF]sF:F:6&%6_thismoduledefinitionGF:%)DivisionGc)Division&:-151/%+modulenameGc .Decomposition&:-155 M7R0 I&:-207f*6#%"BG6&%#nuG%"lG%#deG%"iG6"6"C'>8$""!>8%-%%nopsG6#9$>8&&F66#"""?(8'"" #F;F2%%trueG>F/-%'normalG6#,&F/F;*(&&F66#F=F:F;&FG6#F>F;)F8,&F2F;F=!""F;F;-FB6# *&F/F;)F8,&F2F;FMF;FMF,F,6$%6_thismoduledefinitionGF,/%+modulenameGc%List&:-152 M7R0 I&:-194f*6%%"LG%"gG%"xG6&%"CG%"iG%"hG%"sG6"6"C$>8$7"?(8%"""F5-%%nopsG6#9$%%true GC%>8&-%&gcdexG6&&F96#F49%9&.8'@$2""!-%'degreeG6$F=FDYQ:a~nontrivial~gcd~is~fou ndF.>F17$-%#opG6#F1FFF.F.6$%6_thismoduledefinitionGF.6$%*protectedG/%+modulenam eGc)Division&:-151 M7R0 I&:-200f*6#%"LG6*%"pG%"FG%"RG%"iG%"rG%"MG%"dG%"jG6"6"C(>8$&9$6#""#>8%&F56#""$@$ /F97"OF3>8&F3?(8'"""FE-%%nopsG6#F9%%trueGC'>8(""!>8)&F96#FD>8*&FO6#FE?(8+F7FE-F G6#FOFI>FL-%'normalG6#,&FLFE-Ffn6#*(&&FO6#FWFUFE&F]oF6FE)FS,&FWFE!""FEFboFE>FB, &FBFEFLFEFBF0F06$%6_thismoduledefinitionGF06$%*protectedG/%+modulenameGc%List&: -152 M7R0 I&:-171f*6'%"lG%"cG%"WG%"xG%#DxG6%%"TG%"PG%"iG6"6"C&>8$*&&9&6#""!"""9%!"">8%*$F 9F:?(8&F8F89$%%trueGC$>F<-&%(DEtoolsG6#%%multG6%9(F<7$FJ9'>F2-%'normalG6#,&F2F8 *&&F56#F?F8F6$T#T%6$9$"""?(T'F3F3T) %%trueGC$>F/-%'lcoeffG6%F/&T+6#F5.T->F0*&F0F3FAF3F.F$F$6.%#lcGc#lc&:-209%#lmGc# lm&:-210%"iGc"i&:-211%"NGc"N&:-212%%varsGc%vars&:-213%$lmtGc$lmt&:-214Q6PairSel ectionStrategyF$Q'normalF$Q-order_indetsF$7'%#DxG%#SbG%#SaG%#TbG%#TaGQ(algebraF $c,Ore_algebra&:-187Q2polynomial_indetsF$7"Q3commutative_paramsF$<"Q6polynomial _normalizerF$f*6#%"aGF$6"F$-%'normalG6$F2.%)expandedGF$F$F$Q5known_Groebner_bas esF$=F$F%E\[l)<'z)6&FUFWF]o%"xG\[[[[[[[[\[[m!""[[[\[[\[[[[[mF3[[[\[[[[[[[[lF[pz +6&FUFVF]o%"bG\[[[[[[[[\[[mF[p[[[\[[\[[[[[mF3\[[[[[\[[[[[mF[p\[[[[[[[[[[[lF3z+6 &FUF]oF^pFjo\[[[[[[[[][[nF3[[[\[[[[[\[[mF3\[[[[[[[[\[[mF[p[[[[[[\[[[[[lF[pz-6&F UFXF^pFjo\[[[[[[[[\[[mF[p[[[\[[\[[[[[mF3[[[[[[\[[[[[lF[p[[[\[[[[[[[[lF[p!F3z/6' FUFYF]oF^pFjo\[[[[[[[[[\[sF3[[[[[\[_[[[[sF3[[_[[[[_[[[[sF[p[[[[[\[[[[[[oF[p[[_[ [[[[[[[[oF3\[[[[[[[[[[[oF[p7'7%,&F]oF3F^pF[pFVF\p7%F]oFWFho7%Fjo*$FU""#F_p7%,&F ^pF3F[pF3FXFap7%FgpFYFcp<',**&FjoF3FUF3F[p*&F]qF3FXF3F3F^pF[pF3F3FhoF\pF_pFcpFe p<),&FUF3**F]oF3F^pF[pFWF3FVF3F[p,(*&FUF[qFjoF3F3*&,&F^pF3FjoF[pF3FUF3F3F]oF[p, (*&F^pF3,&F]oF3FjoF3F3F3*(FjoF3FgpF3FVF3F3*(F]oF3F^pF3FWF3F[p,(*(,&F^pF3F3F3F3, &F^pF[pFjoF[pF3FVF3F3*(FjoF3,(F]oF[pF^pF3F3F3F3FVF[qF3*&FarF3F^pF3F3,,*&,*F]oF[ qF^pF[pFjoF3F[qF3F3FWF3F3*&,&F]oF3F3F3F3FWF[qF[pF^pF3F]oF[pF[pF3z'6$FWFY\[[[[][ [[[sF3!F[pz'6$FVFX\[[[[][[[[sF3!F[pFep<)Ffq,(*&,*F^pF3F]o!"#FjoF[pFcsF3F3FWF3F3 *(FjrF3,(F]oF3F[qF3F^pF[pF3FWF[qF3F3F3,*F]oF3FjoF3*(F]oF3,(F^pF3F]oF[pF[pF3F3FW F3F3*&FjoF3FVF3F[p,**&FjoF3FVF[qF3*&FbrF3FVF3F3F^pF3F]oF[pF[sF]sz'6&FUFWFVF]o\[ [\[[\[[[[[nF3[[[[[[[[[\[[lF37'7%F3FV,(FUF3FVF3F[pF37%z)6$F]oF^p[[[[[_[[[[sF3\[[ [[][[[[sF[p[[[[[][[[[oF3FWz-6'FUFWF]oF^pFjo[[[[[][_[[[[wF3[[_[[\[_[[[[wF[p\[[[[ [[[[[\[sF[p[[[[[\[_[[[[sF3[[[[[\[[[[[[oF[pFip7%,(F]oF3F^pF[pF3F3FXz/6'FUFXF]oF^ pFjo\[[[[[[[[[\[sF3[[[[[\[_[[[[sF3[[_[[[[_[[[[sF[p[[[[[[[_[[[[oF3[[_[[[[[[[[[oF 3!F[p7%F3FYz-Fdp\[[[[[[[[[\[sF3[[[[[[[_[[[[oF3[[[[[\[[[[[[oF[p[[_[[[[[[[[[oF3\[ [[[[[[[[[[oF[p<'FatF_pFetF\uFitF_t<',**$FW""$F3*&FjoF3FWF[qF[p*&,&*$,&F]oF3F[qF 3F[qF3*$F^pF[qF[pF3FWF3F3*&FjoF3,&*$FjrF[qF3FguF[pF3F[p,,*(FUF3FWF3FVF3F3**FarF 3FjoF[pFWF3FVF3F3F]oF[pF^pF[pF[pF3,,*(FjoFauFjrF[pFUFauF[p*(FjoF[q,&F3F3*$FjrF[ p!"$F3FUF[qF3*(FjoF3,&F3F3*&z)6$F^pFjo[[[[[_[[[[sF[p][[[[[[[[[sF3!F3F3FjrF[pF[p F3FUF3F3*&FjoF[q,&F3F3FbvFcsF3F3FguF[pF[sF]s7*7%z'6%F]oF^pFjo\[[[[[[[\[[[mF3\[[ [\[[[[[[[mF[p*&FUF3FVF3z96(FUFWFVF]oF^pFjo][[[[[[[[[[_[[lF[p\[[[_[c[[[[][[lF3\[ ][[[c[[[[][[lF[p[[][_[c[[[[[[wF3[[_[[[c[[[[[[wF[p\[[[[[[[[[[][sF[p\[[[[[[[[\[[[ sF3[[[[_[c[[[[[[sF3[[][[[c[[[[[[sF[p[[_[[[[[[[[[[sF3][[[[[[[[[[[[sF[p7%Fjo*&FUF 3FWF3z+Faw\[[[[[[[[\[][wF3\[[[_[c[[[[[[wF[p\[][[[c[[[[[[wF3[[][[[[[[\[[[sF[p7%z )F^w][[[[[[[\[[[nF3][[[\[[[[[[[nF[p][[[[[[[[[[[mF[p*$FVF[qzC6'FUFVF]oF^pFjo][_[ [[[[[[][_lF[q][[[[\[c[[[[_lF3][_[[[[c[[[[_lF[p][[[[[[[[[][[lF[q\[_[[\[[[[\[[lFc s\[c[[[[[[[\[[lFcs][[[[[[c[[[[[lF[p\[[[[\[[[[\[wFcs\[_[[[[[[[\[wFcs[[c[[\[[[[[[ wF[q][[[[\[[[[[[wF[p][_[[[[[[[[[wF3[[_[[\[[[[[[sF[q[[c[[[[[[[[[sF[q][[[[[[[[[[[ sF3[[_[[[[[[[[[oF[q7%Fjo*&FWF3FVF3z1Faw][[[[[[[[[[_[[lF[p\[[[_[[[[[[][wF3\[][[[ [[[[[][wF3\[[[[[c[[\[[[wF3[[][_[[[[[[[[sF[p][[[[[[[[[[[[sF[p[[][[[[[[[[[[oF[p7% F3*$FWF[qz1Fio][[[[[[[[][[oF[p\[[[[[[[[\[[mF[p[[[[[[][[[[[mF3[[[][[[[[[[[mF3][[ [[[[[[[[[mF[p[[[\[[[[[[[[lF[q!F37%*$FjoFau*$FUFauz7F`p^[[[[[[[[^[[qF3][[[[[\[[] [[pF[p][[[[[[[[][[oF[q\[[][[[[[\[[oF[p^[[[[[[[[\[[oF3\[[[[[\[[\[[nF[p[[[][[\[[[ [[nF3][[[[[\[[[[[nF[p[[[][[[[[[[[mF3][[[[[[[[[[[mF37%z'F^w\[[[[[[[\[[[mF3\[[[\[ [[[[[[mF3FXz-6(FWFVFXF]oF^pFjo\[[[_[[[[\[[[wF[p\[][[[[[[\[[[wF3\[[[_[c[[[[[[wF3 \[][[[c[[[[[[wF3[[][[[[[[[[][sFcs7%z'F^w\[[[[[[[][[[nF3\[[[][[[[[[[nF[pFYz16(FU FWFYF]oF^pFjo][[[[[[[[[[_[[lF[p\[[[c[c[[[[[[[lF3\[_[[[c[[[[[[[lF[p\[[[[[[[[[[][ sF[p\[[[[[[[[\[[[sF3[[_[[[[[[[[[[sF3][[[[[[[[[[[[sF[p<*FdwFfxF_xF\xFjxFcxF`wFhw F[w<*,.*&FUF[qFjoF[qF[p*(FUF3F^pF3FjoF3F3*(FUF3F]oF3FjoF3F3*(FWF3FVF3FjoF3F3*&, &F]oF[pF[pF3F3F^pF3F3*$FjoF[qF[p,0*&FjoFauFUFauF3*&z'6$F]oFjo][[[[][[[[wF[p][[[ [[[[[[sF[qF3FUF[qF3*(FUF3F^pF[qFjoF3F[p*&z'Fjy^[[[[[[[[[wF3\[[[[][[[[sF[pF3FUF3 F3*&FjrF3F^pF[qF3*&F]oF3FjoF[qF[pFeyF3,6F_yF[p**FUF3FVF3F^pF3FjoF3F[p**FUF3FVF3 F]oF3FjoF3F3FaqF[p*&FWF3FjoF3F3*&FVF3F^pF[qF[p*(FVF3,&F]oF3F[pF3F3F^pF3F3*&FVF3 F]oF3F3FguF3FeyF[p,8*(FUF[qFjoF[qF^pF3F[qF_yF[qF[zFcs*(z'Fjy\[[[[][[[[sFcs\[[[[ [[[[[oFcsF3FUF3F^pF3F3FayFcs*(FVF[qF^pF3FjoF[qF[p*&z'Fjy][[[[][[[[wF3][[[[[[[[[ sF[pF3FVF[qF3*&,&F]oF[qF[qF3F3F^pF[qF3*&z)Fjy][[[[[[[[[sF3[[[[[][[[[oF[q!F[qF3F ^pF3F3F_zF[pFeyF3FdwFfxF_xFjxF[wQ&orderF$f*FdtF$6"F$-%&evalbG6#/&-F/6#,&F2F39%F 36#F[qF^\lF$F$6$%#ltGc#lt&:-215Q-syzygy_orderF$f*6$%#b1G%#b2GF$6#%WCopyright~(c )~1994-2002~Frederic~Chyzak,~INRIA,~FranceGF$C$@$4-%)assignedG6#%B_EnvGroebnerP airSelectionStrategyG>F`]l&F/6#FQ@'/F`]lQ&sugarF$@+2&F^\l6#Fau&F2Fj]lF72F[^lFi] lF%0&F^\l6#""%&F2F_^l-F06$F^^lFa^l2&F^\l6#""&&F2Ff^lF7F%/F`]lFR@'F]^lFb^lFd^lF7 F%YQEnon-existing~pair~selection~strategyF$F$F$6&%/monomial_orderGc/monomial_or der&:-180%#spGc#sp&:-216Q%typeF$Q.MonomialOrderF$Q2CreationArgumentsF$6$Fen-%'l exdegG6$7$FYFX7%FWFVFUQ6non_invertible_indetsF$<'FUFWFVFYFXF$ M7R0 I&:-158f*6%%"RG%"fG%"xG6%%"gG%"rG%"cG6"6"C%>8$-_T%%:FromListToPartialFractionG6 #&9$6#""#>8%-F26#&F76#""$-%)TestzeroG6#,&*&&F76#"""FH,&-%%diffG6$F09&FHF;FHFHFH 9%!""F-F-6&%6_thismoduledefinitionGF-%%ListGc%List&:-1526$%*protectedG/%+module nameGc*Reduction&:-153 M7R0 I&:-193f*6&%#P1G%#P2G%"mG%"xG6(%#c1G%#c2G%"qG%"iG%$pp2G%"tG6"6"C&>8&-%)primpart G6%9$9'.8$>8(-F66%9%F9.8%?(8'"""FE9&%%trueGC$>8)-%'divideG6%F4F=.F4@$/FJ%&false GYQ:the~division~is~not~exactF1*(F4FEF;FE)FBFF!""F1F16$%6_thismoduledefinitionG F16$%*protectedG/%+modulenameGc)Division&:-151 M7R0 I&:-199f*6$%"FG%"xG6+%$varG%"pG%#ppG%"GG%"lG%"HG%"iG%#deG%"rG6"6"C*>6$8$8%6$&9$ 6#"""&F:6#""#>8&-%%diffG6$F79%>8'&F:6#""$@$/FG7"O7%F6FAFM>8(-%%nopsG6#FG>8)-%&t ableG6#FM?(8*F8+&&FG6#FenF;>8,-T%6%F[oFEF6@%/F^oFM>&FVF\o-%#opGF Y>Feo7$Fin-Fgo6#F^o7%F6FA7#-%$seqG6$Feo/Fen;F8$""">8%-%%nopsG6#9$?(8&F0F0F2%%trueG@% 2&F66#F89%>F/,&F/F0F0F0[F/F,F,6$%6_thismoduledefinitionGF,/%+modulenameGc.Decom position&:-155 M7R0 I&:-208f*6%%#F1G%#F2G%$varG6*%#c1G%#deG%$nu1G%"mG%#c2G%$nu2G%#nuG%"cG6"6"C'>6$8 $8&6$&9$6#"""&F:6#""#>6$8(8)6$&9%F;&FFF>>8*-%)primpartG6%,&*&F6FFRF<7$FRFIF2F26$%6_thismoduledefinitionGF2/%+modulenameGc%Lis t&:-152 M7R0 I&:-179f*6&%%GnewG%#G1G%#G2G%"xG6&%%gnewG%#g1G%$varG%#g2G6"6"C'>8$-_T%%:FromLis tToPartialFractionG6#9$>8%-F46#9%>8&&F=6#""">8'-F46#7%F?""!9&-%)TestzeroG6#,(F2 FB-%%diffG6$F:9'!""FDFRF/F/6&%6_thismoduledefinitionGF/%%ListGc%List&:-152/%+mo dulenameGc+Telescoper&:-154 M7R0 I&:-172f*6$%"LG%"yG6,%"nG%"CG%"AG%"BG%"iG%"jG%#BsG%#nuG%"cG%"aG6"6"C+>8$-%%nops G6#9$>6%8%8&8'6%-%&tableG6#7"FAFA?(8("""FGF6%%trueG>6%&F=6#FF&F>FL&F?FL6%&&&F:F L6#""#6#FG&FQFS&FRFU>8*FA?(FFFGFGF6FH>&FYFL*&-%$mulG6$&F?6#8)/F]o;FG,&FFFG!""FG FG-Fin6$F[o/F]o;,&FFFGFGFGF6FG>8+-%$addG6$*(FKFGFMFGFfnFG/FF;FGF6>8,-%(contentG 6%Fho9%.8-@$/F`p""!>F`pFG7$-_%0PolynomialToolsG%0CoefficientListG6$FfpFdpF`pF3F 36$%6_thismoduledefinitionGF3/%+modulenameGc+Telescoper&:-154 M7R0 I&:-157f*6%%"fG%"xG%$optG63%"RG%"GG%"cG%"pG%"LG%"gG%"rG%#gnG%#rnG%"nG%"iG%#csG% #c1G%#p1G%#RpG%"tG%#CfG6"6"C.>8$-_T%%:SquareFreePartialFractionG6$9$9%>6$8&8%6$ &F>6#"""&F>6#""#>8'-%$intG6$&FIFOFE@$/&FI6#""$7"C&@$/9#Fen@%-%%typeG6$&9"FZ%"=G @%3/-%$lhsG6#9&.%'outputG/-%$rhsGFgo.%+normalizedGO7&FHFR""!7#7$FMFbp@%3Fdo/F\p .%-unnormalizedGOFap@$3Fdo/F\p.%(parfracGOFapY6$QhoOriginal~expects~its~3th~arg ument,~opt,~to~be~of~type~equation,~but~received~F;Fho>8)7%FEFRFfn>8*7%FEFbpFfn O7&FHFeqFhqFcp>8(7#-%#opG6#FY>8--%%nopsG6#F]r>FeqFfn>FhqFfn>84Ffn?(8.FMFMFcr%%t rueGC%>82-T'6%&F]r6#F\sFE.83@$0&F`sFLFfn>Feq7$-F`r6#FeqFjs@$0&&&F`sFOFOFOFbpC$> Fhq7$-F`r6#FhqFct>Fjr7$-F`r6#FjrFgs@$Fin@%F\o@%FcoC%>8+-_T)%1FromListToNormalG6 #7%FEFRFeq>8,-Fdu6#7%FEFbpFhqO7&FHFbuFjuFjr@%FfpC%>Fbu-_Feu%:FromListToPartialF ractionGFgu>Fju-FdvF\vOF_v@$F\qO7&FHFhuF]vFjrYFbqF[wF;F;6*%6_thismoduledefiniti onGF;%.DecompositionGc.Decomposition&:-155%0ReduceOneFactorGc0ReduceOneFactor&: -160%%ListGc%List&:-1526$%*protectedG/%+modulenameGc*Reduction&:-153 M7R0 I&:-169f*6$%"MG%"nG6&%"iG%"mG%"pG%"rG6"6"C$?(8$"""F1""#%%trueGC&>8%-%%randG6#;" "'"%+5>8&-%)ithprimeG6#-F6F->8'-T%6$9$F>@$/FD9%O<"-_%.LinearAlgebraG%*NullSpace G6#-_FP%*TransposeG6#FHF-F-6&%6_thismoduledefinitionGF-%2LowerBoundForRankGc2Lo werBoundForRank&:-173/%+modulenameGc+Telescoper&:-154 M7R0 I&:-178f*6&%"LG%"FG%"xG%"yG60%"lG%"GG%"RG%"tG%"iG%$de1G%#c1G%$nu1G%$de2G%#c2G%$ nu2G%$de3G%#c3G%$nu3G6"6"C&>6$8%8&6$&9$6#"""&FA6#""#>8$-%%nopsG6#F=?(8(FCFCFH%% trueGC'>6%8)8*8+6%&&9%6#FMFB&&FWFEFB&FenFE>6%8,8-8.6%&&F=FYFB&&F^oFEFB&F`oFE>6% 8/80816%&&F>FYFB&&FioFEFB&F[pFE>8'-%)TestzeroG6#,(-%%diffG6$*(FSFCFTFCFR!""9&FC -Fdp6$*(FjnFCF[oFCFinFgp9'Fgp*(FeoFCFfoFCFdoFgpFgp@$/F^p%&falseGOF`qFNF9F96$%6_ thismoduledefinitionGF9/%+modulenameGc+Telescoper&:-154 M7R0 I&:-187=6"%&falseGE\[lD6$Q-type_of_leftF$%"bG%1shift+dual_shiftGQ0rational_inde tsF$<%%"aGF)%"xGQ-right_indetsF$<'%#DxG%#SaG%#SbG%#TaG%#TbG6$Q.left_of_rightF$F 2F-6$Q+inverse_ofF$F3F56$F9F2F4Q*functionsF$<"Q+all_indetsF$<*F1F2F3F4F5F-F)F.Q 5non_inv_right_indetsF$<%F1F2F3Q4non_alg_poly_indetsF$F06$Q.right_of_leftF$F.F1 6$F7F4F-Q,type_structF$<%/%%diffG7$F1F./F*7%F2F4F-/F*7%F3F5F)6$FCF)F36$F7F1F.Q, left_indetsF$F,Q.rough_productF$f*6$%"pG%"qG6$%,Ore_algebraG%/first_operatorG6# %WCopyright~(c)~1996-2002~Frederic~Chyzak,~INRIA,~FranceGF$C%>8$-%#opG6$""!9!>8 %&&&Fgn6#Q,commutationF$6#F?6#"""-%'expandG6#-&Fao6&Q(productF$F^oQ.rational_ca seF$Q(generalF$6%9$9%&Fgn6$Q&extraF$F^oF$F$F$6$F(F.FHQ2polynomial_indetsF$F0F]p f*FS6#FW6#FZF$C$>FgnFhn-%(collectG6&-&Fgn6#FQ6$FapFbp&Fgn6#FA.%,distributedG%'n ormalGF$6#FgqF$Q0non_comm_indetsF$F>Fcoc,commutation&:-2176$FCF-F26$FepF26(F-F2 c,Ore_algebra&:-187F3F^pQ,terminationF$6$FepF16(F.F1F_rF2F^pF_pQ,comm_indetsF$F ,Q)q_indetsF$F<6$F7F5F)6$FepF36%F)F3F_rQ%typeF$Q1SkewParamAlgebraF$6$F(F-F*6$F7 F3F)Q2CreationArgumentsF$6&F[rF,FFgnFhn-F^q6&FapFdqFfqc4rational_nor malizer&:-218F$FiqF$Q6known_monomial_ordersF$=F$F%E\[l"6$F_r-%'lexdegG6$7$F4F57 %F2F3F1c/monomial_order&:-180F$ M7R0 I&:-205f*6%%"BG%"xG%$varG6+%#deG%"MG%"mG%"TG%"iG%"lG%"FG%"uG%"SG6"6"C0>8&-%%nop sG6#9$>8$&F:6#""">8%7#-%#opG6$;""#F6F:>F6,&F6F?!""F?>8'-%&tableG6#7"?(8(F?F?F6% %trueG>&FL6#FR-T%6%7&&&FAFVF>F<&Ffn6#FGFR9%9&>8*FM>&F\oF>&&FLF>F>>8+&F`oFhn?(FR FGF?F6FSC$>&F\oFV-T'6%Fbo&FUF>Fjn>Fbo&FUFhn>&F\o6#,&F6F?F?F?7$&&&FL6#F6FhnF>&Fd pFhn>8)Fap?(FRFapFJF?FS@%/&FgoFhn""!>Fip,&FipF?FJF?[7#-%$seqG6$Fgo/FR;F?FipF3F3 6(%6_thismoduledefinitionGF3%3DiffSimpleFractionGc3DiffSimpleFraction&:-206%5Su mOfSimpleFractionsGc5SumOfSimpleFractions&:-208/%+modulenameGc%List&:-152 M7R0 I&:-196f*6%%"LG%"bG%"xG6(%"nG%#npG%"rG%"iG%#L1G%#L2G6"6"C)>8$-%%nopsG6#9$@$/-%' degreeG6$9%9&""!OF?@$/F3"""O-%$remG6%&F76#FCF=F>>8%-%&floorG6#,$F3#FC""#>8(7#-% $seqG6$&F76#8'/FZ;FCFK>8)7#-FV6$FX/FZ;,&FKFCFCFCF3>8&-FF6%*&-T%6%FSF=F>FC-Feo6% FhnF=F>FCF=F>F0F06&%6_thismoduledefinitionGF0%/MergeRemainderGc/MergeRemainder& :-1966$%*protectedG/%+modulenameGc)Division&:-151 M7R0 I&:-198f*6$%"PG%"QG6&%$varG%"pG%"iG%"RG6"6"C'>8$&9$6#""">8%-%'normalG6#,&&F26#" "#F4&9%F8'F??(8&F4F4-%%nopsG6#&F26#""$%%trueG>FA-T%6$&FG6#FCFA7%F0F6&FAFHF- F-6&%6_thismoduledefinitionGF-%*AddBranchGc*AddBranch&:-2036$%*protectedG/%+mod ulenameGc%List&:-152 M7R0 I&:-160f*6%%"LG%"xG%"tG61%"fG%#dfG%"gG%"rG%"nG%"BG%"CG%"iG%"uG%#nsG%#csG%#ppG%# C1G%#B1G%$tstG6"6"C/>8$&9$6#""">8%-%%diffG6$F<9%>8&7">8'&F>6#""#>8(-%%nopsG6#F> @$/FPFNC$@$/9#""$C$-%&gcdexG6'F9&7$FjnF\oO7$FH7$F8,""!?(8+FP !""FZ%%trueGC(>8-,&FdoF@*&&&F>6#FgoF?F@&F`pFMF@F@>8.-%(contentG6%F\pFF.F\p>80-% $remG6%*&FjnF@-F\q6%F\pFBFFF@FBFF>81-F\q6%*&F\oF@-F\q6%F\pFFH7$7$*(Fd pF@-Ffp6%FbqFF.8/F@,&FNF@FgoFhoFhoF_r-%#opG6#FH>Fdo-%'normalG6#*&FdpF@,&FjpF@*& -FD6$FbqFFF@,&FgoF@!"#F@FhoF@F@>FK7$F<7$-Ffp6%,&FdoF@*&&FLF?F@&FLFMF@F@FFF^rF_r @$FX>F^oF_o>FH7$F8$&9$6#""">8 %&F76#""#>8&-_T%%/MergeRemainderG6%7$F59%F;9&>8'-_FC%.ExactDivisionG6&-%'normal G6#,&F5F9*&F@F9-%%diffG6$F;FHF9!""F;F9FH>8)-FP6#,&-FU6$F@FHF9FJF97$,$F@FWFYF2F2 6&%6_thismoduledefinitionGF2%)DivisionGc)Division&:-151/%+modulenameGc+Telescop er&:-154 M7R0 I&:-170f*6&%"lG%"cG%"WG%"GG6%%"TG%"HG%"iG6"6"C'>8$-%&tableG6#7"?(8&""!"""9$%%tr ueG>&F16#F7-_T%%/ScalarMultiplyG6$&9&F>&9'F>>8%&F16#F8?(F7F9F9F:F;>FI-_FA%7AddT woPartialFractionsG6$F=FI-F@6$*$9%!""FIF.F.6&%6_thismoduledefinitionGF.%%ListGc %List&:-152/%+modulenameGc+Telescoper&:-154 M7R0 I&:-195f*6'%"LG%"gG%"CG%"xG%"tG6%%"sG%"hG%"fG6"6"C%>8$-T%6%9&9%9'@$/9#""&C%>8%- %$mulG6$&9$6#%"iG/FF;"""-%%nopsG6#FD>8&,&FIFI*&F?FIF2FI!"">9(-T'6%FNF7F8F2F/F/6 (%6_thismoduledefinitionGF/%/MergeRemainderGc/MergeRemainder&:-196%.ExactDivisi onGc.ExactDivision&:-1936$%*protectedG/%+modulenameGc)Division&:-151 M7R0 I&:-197f*6$%"fG%"LG69%"cG%#deG%#nuG%"nG%$varG%"pG%"FG%"mG%"iG%"MG%#dsG%"rG%#drG %#nrG%"lG%"GG%#npG%"NG%%newfG%#cpG%#FpG%"kG%"RG6"6"C*>6&8$8%8&8'6&&9$6#"""&FJ6# ""#&FJ6#""$&FJ6#""%>6%8(8)8*6%&9%FK&FgnFN&FgnFQ@$/FF""!OFgn>88F\o>8+-%%nopsG6#F Z?(8,FLFLFao%%trueGC'>8-&FZ6#Ffo>8.&FjoFK>8/-%'normalG6#*&F^pFLFE!"">6$80816$-% &denomG6#Fap-%&numerGF^q@$3/-%'degreeG6$FipFXF\o/-Feq6$FjpFXF\oC'>FD-Fcp6#*&FDF LFapFfp>82-Fco6#Fjo@%2,&F`rFLFfpFLFG>837%-%#opGFbr-%"$G6$7$FLF\o,&FGFLF`rFfp7$F DFFC&>85&Fjo6#,&FGFLFLFL>84-Fcp6#,&*&&FcsFKFL&FcsFNFLFL*&FDFLFFFLFL@%/FhsF\o>86 F^sC$>87-%(contentG6%FhsFX.Fhs>Fct7$FftFhs@%3Fat/F`rFfsC&-%&printG6#%%hereG>Fgr 7#-Fjr6$;FLFerFjo>89-Fco6#Fgr?(F@FLFLF@32FLF[v/&&Fgr6#F[vFNF\oC$>Fgr7#-Fjr6$;FL ,&F[vFLFfpFLFgr>F[vF[w>Fgr7%-Fjr6$;FLFGFjoFct-Fjr6$;,&FGFLFOFLF`rFjo@%2F\vFO>F_ o7$-Fjr6$;FL,&FfoFLFfpFLFZ-Fjr6$;,&FfoFLFLFLFaoFZ>F_o7%FjwFgrF^x[@%/F_oF\o>8:7% FXFY7$-FjrFdo7%FE-F\s6$F^s,&FGFLFfpFLF`s>Fhx7%FXFYF_oFhxF@F@6$%6_thismoduledefi nitionGF@6$%*protectedG/%+modulenameGc%List&:-152 M7R0 I&:-188f*6'%"RG%"fG%"xG%"yG%#DxG6"6"F*-%)TestzeroG6#,&-T%6&&9$6#"""9%9&9(F6-%%d iffG6$&F46#""#9'!""F*F*6&%6_thismoduledefinitionGF*%'ApplyLGc'ApplyL&:-1906$%*p rotectedG/%+modulenameGc3RationalZeilberger&:-156 M7R0 I&:-206f*6%%"FG%"xG%$varG6*%"cG%#deG%#nuG%"mG%#npG%#cpG%#csG%#nsG6"6"C+>6&8$8%8 &8'6&&9$6#"""&F<6#""#&F<6#""$&F<6#""%@$/F8""!O7$7$F>FJFM>8(-%$remG6&,$*&F8F>-%% diffG6$F79%F>!""F79&.%"qG>FO-%)primpartG6%FOFZ.8)>F\o*(F6F>F9F>F\oF>>8+-Fin6%,( *&-FV6$F6FXF>F8F>F>*&F6F>-FV6$F8FXF>F>*(F6F>F9F>FfnF>F>FZ.8*@$/F`oFJ>F\pF>@$/FO FJ>F\oF>7$7$F\pF`o7$F\oFOF2F26$%6_thismoduledefinitionGF2/%+modulenameGc%List&: -152 M7R0 I&:-159f*6%%#L1G%#L2G%"xG6-%"QG%"VG%"kG%#VpG%"gG%#QsG%#CsG%#BsG%"CG%"BG%"mG6"6" C(>6%8$8%8&6%&9$6#"""&F>6#""#&F>6#""$>6$8,8-6$&9%F?&FMFB>8'-%%diffG6$F:9&>8(""! ?(8.F;!""FC%%trueGC'>8)*&F9F@,&F@F@FYFZFZ>6$8*8+6$-%$remG6%*&FIF@-Fao6%FhnFPFTF @FPFT-Fao6%*&FJF@-Fao6%FhnF:FTF@F:FT>FV,&FVF@*&F^oF@)F:,&FYF@FZF@FZF@>F9-%'norm alG6#,&*&FjnF@F]oF@F@-FR6$F^oFTFZ@$/F9FW[7%FVF9F:F5F56$%6_thismoduledefinitionG F5/%+modulenameGc*Reduction&:-153 M7R0 I&:-210"""6" M7R0 I&:-217=6"%&falseGE\[lF6$Q-type_of_leftF$%"bG%1shift+dual_shiftGQ-right_indetsF $<'%#DxG%#SaG%#SbG%#TaG%#TbG6&Q(productF$F-Q.rational_caseF$Q,terminationF$&c.p roduct_table&:-2196%%%diffGF4F56$Q.left_of_rightF$F.%"aG6$Q+inverse_ofF$F/F16$F >F.F0Q+all_indetsF$<*F-F.F/F0F1F8$-%'normalG6#9$>8%-%(collectG6&-%&numerG6#F/<%%"aG%"bG%"xG.%,distributed G&c,ground_ring&:-2206#Q+normalizerF,>8&-F76&-%&denomGF;F6$T#T%6$9$"""?(T'F/F/T)%%trueGC$>F+-%'lcoeffG6%F+&T+6#F 1.T->F,*&F,F/F=F/F*F&F&6.%#lcGc#lc&:-209%#lmGc#lm&:-210%"iGc"i&:-211%"NGc"N&:-2 12%%varsGc%vars&:-213%$lmtGc$lmt&:-214F& M7R0 I&:-214"""6" M7R0 I&:-219_c-OA_Internals&:-221%.product_tableG/%+modulenameGF$ M7R0 I&:-220=6"%&falseGE\[l*Q1algebraic_indetsF$<"Q+all_indetsF$F(Q,type_structF$F(Q 6transcendental_indetsF$F(Q*zero_testF$f*6#%"xGF$6$%)operatorG%&arrowGF$-%#ifG6 %/9$""!%%trueGF%F$F$F$Q%typeF$%+GroundRingGQ/characteristicF$F8Q2CreationArgume ntsF$6%F8F(F(Q+normalizerF$f*F.F$6$F1F2F$F7F$F$F$F$ M7R0 I&:-221_%,Ore_algebraG%-OA_InternalsG6$%*protectedG/%+modulenameGF$