projects
/
coq-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ac5be38
)
HaskStrongTypes: add TBool and TInt for convenience
author
Adam Megacz
<megacz@cs.berkeley.edu>
Wed, 6 Jul 2011 01:39:02 +0000
(18:39 -0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 29 Aug 2011 23:17:40 +0000
(16:17 -0700)
src/HaskStrongTypes.v
patch
|
blob
|
history
diff --git
a/src/HaskStrongTypes.v
b/src/HaskStrongTypes.v
index
46d74cc
..
4740acb
100644
(file)
--- a/
src/HaskStrongTypes.v
+++ b/
src/HaskStrongTypes.v
@@
-755,3
+755,6
@@
Definition typeToString {Γ}{κ}(ht:HaskType Γ κ) : string :=
Instance TypeToStringInstance {Γ} {κ} : ToString (HaskType Γ κ) :=
{ toString := typeToString }.
Instance TypeToStringInstance {Γ} {κ} : ToString (HaskType Γ κ) :=
{ toString := typeToString }.
+
+Definition TBool {Γ} : HaskType Γ ★ := fun TV ite => TyFunApp BoolTyCon _ _ TyFunApp_nil.
+Definition TInt {Γ} : HaskType Γ ★ := fun TV ite => TyFunApp IntTyCon _ _ TyFunApp_nil.