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