(*
   --------------------------------------------------------------------------
   title: Basic Verify Example
   description: Universal property verification that succeeds
   order: 1
   --------------------------------------------------------------------------

   Concept: Universal property verification that succeeds

   Shows how to use `verify` to prove a property holds for all inputs. The
   property states that adding two positive numbers always yields a positive
   result.

   Expected: Property proven ✅

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

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

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