GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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 = sig zero : A
plus : A -> A -> A
minus : A -> A -> A
one : A
times : A -> A -> A
div : A -> A -> A
mod : A -> A -> A
negate : A -> A
eq : A -> A -> Bool
compare : A -> A -> Ordering
Num A = sig zero : A
plus : A -> A -> A
minus : A -> A -> A
one : A
times : A -> A -> A
div : A -> A -> A
mod : A -> A -> A
negate : A -> A
eq : A -> A -> Bool
compare : A -> A -> Ordering
@@ -254,8 +254,8 @@ Num = sig zero : A
--
Add : Type -> Type
Add = sig zero : A
plus : A -> A -> A
Add A = sig zero : A
plus : A -> A -> A
zero : (A : Type) -> Add A -> A
zero _ d = d.zero
@@ -296,8 +296,8 @@ minus _ d = d.minus
--
Mul : Type -> Type
Mul = sig one : A
times : A -> A -> A
Mul A = sig one : A
times : A -> A -> A
one : (A : Type) -> Mul A -> A
one _ d = d.one
@@ -322,8 +322,8 @@ product A d = foldr A A d.times d.one
--
Div : Type -> Type
Div = sig div : A -> A -> A
mod : A -> A -> A
Div A = sig div : A -> A -> A
mod : A -> A -> A
div : (A : Type) -> Div A -> A -> A -> A
div _ d = d.div
@@ -347,7 +347,7 @@ mod _ d = d.mod
--
Neg : Type -> Type
Neg = sig negate : A -> A
Neg A = sig negate : A -> A
negate : (A : Type) -> Neg A -> A -> A
negate _ d = d.negate
@@ -451,8 +451,8 @@ show _ d = d.show
--
Monoid : Type -> Type
Monoid = sig mzero : A
mplus : A -> A -> A
Monoid A = sig mzero : A
mplus : A -> A -> A