(bind-func xtm_equal (lambda (a:Rational b:i32) (xtm_equal:[i1,Rational,Rational]* a (Rat (i32toi64 b) 1))))