Mercurial > hg > Papers > 2018 > nozomi-master
diff paper/src/AgdaModusPonens.agda @ 109:f6d00a13f923
Add ()
author | atton |
---|---|
date | Mon, 13 Feb 2017 14:11:30 +0900 |
parents | 9d154c48a1f6 |
children |
line wrap: on
line diff
--- a/paper/src/AgdaModusPonens.agda Mon Feb 13 13:59:20 2017 +0900 +++ b/paper/src/AgdaModusPonens.agda Mon Feb 13 14:11:30 2017 +0900 @@ -1,2 +1,2 @@ -f : {A B C : Set} -> (A -> B) × (B -> C) -> (A -> C) -f = (\p x -> snd p ((fst p) x)) +f : {A B C : Set} -> ((A -> B) × (B -> C)) -> (A -> C) +f = \p x -> (snd p) ((fst p) x)