From: Adam Megacz <megacz@cs.berkeley.edu>
Date: Wed, 6 Jul 2011 01:39:02 +0000 (-0700)
Subject: HaskStrongTypes: add TBool and TInt for convenience
X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=commitdiff_plain;h=63abf29c05f4c3cc510ad56050542579084e63c3

HaskStrongTypes: add TBool and TInt for convenience
---

diff --git a/src/HaskStrongTypes.v b/src/HaskStrongTypes.v
index 46d74cc..4740acb 100644
--- a/src/HaskStrongTypes.v
+++ b/src/HaskStrongTypes.v
@@ -755,3 +755,6 @@ Definition typeToString {Γ}{κ}(ht:HaskType Γ κ) : string :=
 
 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.