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