Generate.pair.fst: def of bend-kit-property@0.4.0.0
Import: import bend-kit-property@0.4.0.0/generate.bend as Generate
Lines 163-165 of bend-kit-property@0.4.0.0/generate.bend: https://jend.leeeet.dev/read.txt?path=bend-kit-property@0.4.0.0/generate.bend&start_line=163&end_line=165

import Base
import bend-kit-random@0.1.0.1/random.bend as Rand

def pair.fst(~A: Type, ~B: Type, ~gb: Rand.Rng -> B & Rand.Rng, ar: A & Rand.Rng) -> (A & B) & Rand.Rng:
  (a, r) = ar
  pair.snd(~A, ~B, a, gb(r))

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Sigma
  https://jend.leeeet.dev/definition.txt?path=bend-kit-property@0.4.0.0/generate.bend&name=pair.snd
  https://jend.leeeet.dev/definition.txt?path=bend-kit-random@0.1.0.1/random.bend&name=Rng