# HG changeset patch
# User atton
# Date 1486962690 -32400
# Node ID f6d00a13f923a9fa4fadea0b6c9bc9a8523acadf
# Parent  4b26c802022973dbc57bd850ba57140e517eb433
Add ()

diff -r 4b26c8020229 -r f6d00a13f923 paper/src/AgdaModusPonens.agda
--- 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)