(*
   --------------------------------------------------------------------------
   title: Counterexample Example
   description: Verification that finds a counterexample
   order: 2
   --------------------------------------------------------------------------

   Concept: Verification that finds a counterexample

   Demonstrates what happens when you try to verify a false property. The
   verifier returns concrete values that disprove the property.

   Expected: Counterexample found with `x = 0, y = -1` ❌

   ============================================================================ *)

let add (x : int) (y : int) : int = x + y

verify (fun x y -> add x y >= x)
