Skip to content

Instantly share code, notes, and snippets.

@JakobBruenker
Created June 21, 2020 20:39
Show Gist options
  • Select an option

  • Save JakobBruenker/74ae7747632a3e7a02222dd1771ba6ab to your computer and use it in GitHub Desktop.

Select an option

Save JakobBruenker/74ae7747632a3e7a02222dd1771ba6ab to your computer and use it in GitHub Desktop.
Equality of Pairs
open import Agda.Builtin.Sigma
open import Agda.Builtin.Equality
lemma : ∀ {a b} {A : Set a} {B : A → Set b} {x x' : A} {p p' : B}
→ (x , p) ≡ (x' , p') → ((x ≡ x') , (p ≡ p'))
lemma = ?
{-
Checking Test (/home/user/agda/combinators/Test.agda).
/home/user/agda/combinators/Test.agda:4,64-65
A → Set b should be a sort, but it isn't
when checking that the expression B has type _6
-}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment