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