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

Symmetry group action (#24)

Browse Source
This commit is contained in:
Patrick Stevens
2019-02-19 08:06:19 +00:00
committed by GitHub
parent 0650021db1
commit d2192c72d9
3 changed files with 59 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Lists/Lists.agda
View File

@@ -151,3 +151,7 @@ module Lists.Lists where
head : {a : _} {A : Set a} (l : List A) (pr : 0 <N length l) → A
head [] (le x ())
head (x :: l) pr = x
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