~/jendhub

def pair.fst

bend-kit-property@0.4.0.0 · generate.bend:163

import bend-kit-property@0.4.0.0/generate.bend as Generate
import Base
import bend-kit-random@0.1.0.1/random.bend as Rand

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

Uses (4)

Used by (1)