Property.report: def of bend-kit-property@0.4.0.0
Import: import bend-kit-property@0.4.0.0/property.bend as Property
Lines 108-116 of bend-kit-property@0.4.0.0/property.bend: https://jend.leeeet.dev/read.txt?path=bend-kit-property@0.4.0.0/property.bend&start_line=108&end_line=116

import Base

# Print the seed and draw index so a failing check can be replayed.
def report(~T: Type, ~show: T -> String, result: Maybe<&1, Failure<T>>) -> IO(Bool):
  match result:
    case None{}:
      IO.pure(Bool, True{})
    case Some{Failure{seed, trial, value}}:
      do IO<Bool>:
        IO.print("property failed: seed=" ++ U32.show(seed) ++ " trial=" ++ Nat.show(trial) ++ " counterexample=" ++ show(value))
        return False{}

Uses (12):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.bind
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.print
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.pure
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Maybe
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.show
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String.append
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.show
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Unit
  https://jend.leeeet.dev/definition.txt?path=bend-kit-property@0.4.0.0/property.bend&name=Failure