Mercurial > hg > Members > atton > agda-proofs

annotate sandbox/InferenceTypeComposition.agda @ 57:75f9f71f364a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trying define maybe-subtype
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Thu, 12 Jan 2017 01:04:59 +0000
parents 723532aa0592
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
23
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 module InferenceTypeComposition where
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 open import Relation.Binary.PropositionalEquality
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 infixl 30 _+++_
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 -- _+++_ : {A B C : Set} {equiv : B ≡ B} -> (A -> B) -> (B -> C) -> (A -> C)
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 _+++_ : {A B C : Set} -> (A -> B) -> (B -> C) -> (A -> C)
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 _+++_ f g = \x -> g (f x)
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 comp-sample : {A B C D : Set} -> (A -> B) -> (B -> C) -> (C -> D) -> (A -> D)
723532aa0592 Test Implicit inference equivalence of function composition
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 comp-sample f g h = f +++ g +++ h