在agda中配对平等

Question

我有以下代码要证明：

data Pair (A : Set) (B : A → Set) : Set where
  pair : (a : A) → (B a) → Pair A B

pairEq : (A : Set) → (B : A → Set) → (a : A) → (b₁ b₂ : B a) → (pair {A} {B} a b₁ ≡ pair {A} {B} a b₂) → b₁ ≡ b₂
pairEq A B a b₁ b₂ refl = {!!}

我怎样才能证明这是agda？输入refl会导致错误。我该如何解决这个问题？

Answer 1

我自己做了：

data Pair (A : Set) (B : A → Set) : Set where
  pair : (a : A) → (B a) → Pair A B

pairEq : (A : Set) → (B : A → Set) → (a : A) → (b₁ b₂ : B a) → (pair {A} {B} a b₁ ≡ pair {A} {B} a b₂) → b₁ ≡ b₂
pairEq A B a .b b refl = refl