patrick/agdaproofs
1
0
Fork 0
mirror of https://github.com/Smaug123/agdaproofs synced 2025-10-20 10:38:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Lots of speedups (#116)

Browse Source
This commit is contained in:
Patrick Stevens
2020-04-16 13:41:51 +01:00
committed by GitHub
parent 1bcb3f8537
commit 9b80058157
63 changed files with 1082 additions and 564 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Lists/Definition.agda
View File

@@ -1,16 +1,17 @@
{-# OPTIONS --safe --warning=error --without-K #-}
module Lists.Definition {a : _} where
module Lists.Definition where
data List (A : Set a) : Set a where
data List {a : _} (A : Set a) : Set a where
[] : List A
_::_ : (x : A) (xs : List A) → List A
infixr 10 _::_
{-# BUILTIN LIST List #-}
[_] : {A : Set a} → (a : A) → List A
[_] : {a : _} {A : Set a} → (a : A) → List A
[ a ] = a :: []
_++_ : {A : Set a} → List A → List A → List A
_++_ : {a : _} {A : Set a} → List A → List A → List A
[] ++ m = m
(x :: l) ++ m = x :: (l ++ m)