(var $k0 ((Int)))

(qualif Foo ((v Int)) ((v > 100)))

(constraint 
  (forall ((x Int) (x > 0))
    (and
     (forall ((v Int) (v = f x))
      (($k0 v)))
      (forall ((z Int) ($k0 z))
       ((z = f x))))))

(constant f (func(0, [Int;Int])))