From 63abf29c05f4c3cc510ad56050542579084e63c3 Mon Sep 17 00:00:00 2001
From: Adam Megacz <megacz@cs.berkeley.edu>
Date: Tue, 5 Jul 2011 18:39:02 -0700
Subject: [PATCH] HaskStrongTypes: add TBool and TInt for convenience

---
 src/HaskStrongTypes.v |    3 +++
 1 file changed, 3 insertions(+)

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.
-- 
1.7.10.4