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