We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 6e78759 commit 3da2a48Copy full SHA for 3da2a48
.gitignore
@@ -0,0 +1,2 @@
1
+*~
2
+*.agdai
Data/List.agda
@@ -7,8 +7,15 @@ open import OTT.Function.Elim
7
8
infixr 5 _∷_
9
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
+
14
list : ∀ {a} {α : Level a} -> Univ α -> Type₋₁ α
-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
+ }
19
20
List : ∀ {a} {α : Level a} -> Univ α -> Set
21
List A = ⟦ list A ⟧
0 commit comments