Logic.sfst: def of bend-collections-laws-crypto@1.0.0.0
Import: import bend-collections-laws-crypto@1.0.0.0/proofs/lib/logic.bend as Logic
Lines 111-115 of bend-collections-laws-crypto@1.0.0.0/proofs/lib/logic.bend: https://jend.leeeet.dev/read.txt?path=bend-collections-laws-crypto@1.0.0.0/proofs/lib/logic.bend&start_line=111&end_line=115

import Base

# Dependent pair projections (call results cannot be destructured directly).
def sfst(-A: Type, -B: @-x: A -> Type, p: Sigma<&1, &1, A, B>) -> A:
  match p:
    case Tuple{a, b}:
      a

Uses (1):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Sigma