msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Transfer: Ord extends Eq.

Browse Source
This commit is contained in:
bringert
2005-11-30 13:20:04 +00:00
parent b6ee983432
commit eaf65c4e6a
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
transfer/examples/overload.tr
View File

@@ -90,7 +90,8 @@ data Ordering : Type where
GT : Ordering GT : Ordering
Ord : Type -> Type Ord : Type -> Type
Ord A = sig { compare : A -> A -> Ordering } Ord A = sig eq : A -> A -> Bool
compare : A -> A -> Ordering
compare : (A : Type) -> Ord A -> A -> A -> Ordering compare : (A : Type) -> Ord A -> A -> A -> Ordering
compare _ d = d.compare compare _ d = d.compare