Функция rifsimp в Maple.

[bdfn]

В библиотеке DEtools есть функция rifsimp, которая преобразует систему дифференциальных уравнений. Есть ли возможность увидеть, как она реализована в Maple (то есть увидеть явный код этой процедуры, чтобы понять, как она работает)?