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

Split out much more structure (#37)

Browse Source
This commit is contained in:
Patrick Stevens
2019-08-18 14:57:41 +01:00
committed by GitHub
parent 69389bb889
commit 1f26064502
52 changed files with 2137 additions and 2014 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Lists/Lists.agda
View File

@@ -2,7 +2,8 @@
open import LogicalFormulae
open import Functions
open import Numbers.Naturals -- for length
open import Numbers.Naturals.Naturals -- for length
open import Semirings.Definition
module Lists.Lists where
data List {a} (A : Set a) : Set a where
@@ -154,4 +155,4 @@ module Lists.Lists where
lengthRev : {a : _} {A : Set a} (l : List A) → length (rev l) ≡ length l
lengthRev [] = refl
lengthRev (x :: l) rewrite lengthConcat (rev l) (x :: []) | lengthRev l | additionNIsCommutative (length l) 1 = refl
lengthRev (x :: l) rewrite lengthConcat (rev l) (x :: []) | lengthRev l | Semiring.commutative ℕSemiring (length l) 1 = refl