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

Rem extra args from identity (#49)

Browse Source
This commit is contained in:
Patrick Stevens
2019-10-03 07:21:30 +01:00
committed by GitHub
parent 7ed41b0c09
commit 5af4030361
14 changed files with 165 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Lists/Lists.agda
View File

@@ -54,7 +54,7 @@ module Lists.Lists where
s : rev (rev l ++ [ x ] ) ≡ [ x ] ++ rev (rev l)
s = revIsHom (rev l) [ x ]
t : rev (rev l ++ [ x ] ) ≡ [ x ] ++ l
t = identityOfIndiscernablesRight (rev (rev l ++ (x :: []))) ([ x ] ++ rev (rev l)) ([ x ] ++ l) _≡_ s (applyEquality (λ n → [ x ] ++ n) (revRevIsId l))
t = identityOfIndiscernablesRight _≡_ s (applyEquality (λ n → [ x ] ++ n) (revRevIsId l))
fold : {a b : _} {A : Set a} {B : Set b} (f : A → B → B) → B → List A → B
fold f default [] = default