def pair_eq

bend-collections-laws-crypto@1.0.0.0 · proofs/lib/logic.bend:101

import Base

101def pair_eq(-A: Type, -B: Type, a: A, b: B, c: A, d: B, ea: {a == c : A}, eb: {b == d : B}) -> {(a, b) == (c, d) : A & B}:
102  %ea : {(a, b) == (_, d) : A & B}
103  %eb : {(a, b) == (a, _) : A & B}
104  {==}