view paper/src/AgdaId.agda @ 118:05068a4d0b52

Fix specification
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Mon, 13 Feb 2017 17:39:10 +0900
parents 10a550bf7e4a
children
line wrap: on
line source

identity : (A : Set) -> A -> A
identity A x = x

identity-zero : Nat
identity-zero = identity Nat zero