diff paper/src/AgdaParameterizedModule.agda @ 100:ebe838b83ada

Self review
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Sun, 12 Feb 2017 11:52:20 +0900
parents ef9730f3db8d
children
line wrap: on
line diff
--- a/paper/src/AgdaParameterizedModule.agda	Sun Feb 12 11:13:08 2017 +0900
+++ b/paper/src/AgdaParameterizedModule.agda	Sun Feb 12 11:52:20 2017 +0900
@@ -1,6 +1,7 @@
 module Sort (A : Set) (_<_ : A -> A -> Bool) where
-  sort : List A -> List A
-  sort = ...
+sort : List A -> List A
+sort = -- 実装は省略 ...
 
+-- Parameterized Module により N.sort や B.sort が可能
 open import Sort Nat  Nat._<_  as N
 open import Sort Bool Bool._<_ as B