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

Implement subtraction on the binary naturals (#45)

Browse Source
This commit is contained in:
Patrick Stevens
2019-09-22 08:36:41 +01:00
committed by GitHub
parent d4ebcc04ce
commit b92e6b2dd8
8 changed files with 922 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Maybe.agda
View File

@@ -35,5 +35,5 @@ module Maybe where
noNotYes : {a : _} {A : Set a} {b : A} → (no ≡ yes b) → False
noNotYes ()
mapMaybePreservesNo : {a b : _} {A : Set a} {B : Set b} (f : A → B) (x : Maybe A) → mapMaybe f x ≡ no → x ≡ no
mapMaybePreservesNo f no pr = refl
mapMaybePreservesNo : {a b : _} {A : Set a} {B : Set b} {f : A → B} {x : Maybe A} → mapMaybe f x ≡ no → x ≡ no
mapMaybePreservesNo {f = f} {no} pr = refl