GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 02:38:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

Transfer prelude: added missing type arguments to some type classes.

Browse Source
This commit is contained in:
bringert
2006-03-15 16:48:35 +00:00
parent 379a969f67
commit 5da597da36
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
transfer/lib/prelude.tra
View File

@@ -235,16 +235,16 @@ monad_Maybe =
-- --
Num : Type -> Type Num : Type -> Type
Num = sig zero : A Num A = sig zero : A
plus : A -> A -> A plus : A -> A -> A
minus : A -> A -> A minus : A -> A -> A
one : A one : A
times : A -> A -> A times : A -> A -> A
div : A -> A -> A div : A -> A -> A
mod : A -> A -> A mod : A -> A -> A
negate : A -> A negate : A -> A
eq : A -> A -> Bool eq : A -> A -> Bool
compare : A -> A -> Ordering compare : A -> A -> Ordering
@@ -254,8 +254,8 @@ Num = sig zero : A
-- --
Add : Type -> Type Add : Type -> Type
Add = sig zero : A Add A = sig zero : A
plus : A -> A -> A plus : A -> A -> A
zero : (A : Type) -> Add A -> A zero : (A : Type) -> Add A -> A
zero _ d = d.zero zero _ d = d.zero
@@ -296,8 +296,8 @@ minus _ d = d.minus
-- --
Mul : Type -> Type Mul : Type -> Type
Mul = sig one : A Mul A = sig one : A
times : A -> A -> A times : A -> A -> A
one : (A : Type) -> Mul A -> A one : (A : Type) -> Mul A -> A
one _ d = d.one one _ d = d.one
@@ -322,8 +322,8 @@ product A d = foldr A A d.times d.one
-- --
Div : Type -> Type Div : Type -> Type
Div = sig div : A -> A -> A Div A = sig div : A -> A -> A
mod : A -> A -> A mod : A -> A -> A
div : (A : Type) -> Div A -> A -> A -> A div : (A : Type) -> Div A -> A -> A -> A
div _ d = d.div div _ d = d.div
@@ -347,7 +347,7 @@ mod _ d = d.mod
-- --
Neg : Type -> Type Neg : Type -> Type
Neg = sig negate : A -> A Neg A = sig negate : A -> A
negate : (A : Type) -> Neg A -> A -> A negate : (A : Type) -> Neg A -> A -> A
negate _ d = d.negate negate _ d = d.negate
@@ -451,8 +451,8 @@ show _ d = d.show
-- --
Monoid : Type -> Type Monoid : Type -> Type
Monoid = sig mzero : A Monoid A = sig mzero : A
mplus : A -> A -> A mplus : A -> A -> A