Skip to content

Commit 3da2a48

Browse files
committed
a quick and dirty fix to make the library type check with Agda 2.5.2
1 parent 6e78759 commit 3da2a48

File tree

2 files changed

+10
-1
lines changed

2 files changed

+10
-1
lines changed

.gitignore

+2
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
*~
2+
*.agdai

Data/List.agda

+8-1
Original file line numberDiff line numberDiff line change
@@ -7,8 +7,15 @@ open import OTT.Function.Elim
77

88
infixr 5 _∷_
99

10+
-- It was, but this breaks inference with Agda 2.5.2.
11+
-- list : ∀ {a} {α : Level a} -> Univ α -> Type₋₁ α
12+
-- list A = mu $ π (enum 2) (fromTuple (pos , (A ⇨ pos ⊛ pos)))
13+
1014
list : {a} {α : Level a} -> Univ α -> Type₋₁ α
11-
list A = mu $ π (enum 2) (fromTuple (pos , (A ⇨ pos ⊛ pos)))
15+
list A = mu $ π (enum 2) λ
16+
{ (tag nothing) -> pos
17+
; (tag (just _)) -> A ⇨ pos ⊛ pos
18+
}
1219

1320
List : {a} {α : Level a} -> Univ α -> Set
1421
List A = ⟦ list A ⟧

0 commit comments

Comments
 (0)