X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FHaskStrongTypes.v;h=4740acbd49235cd952d38a0a5892bd9aa942ed66;hp=46d74cce22722498e0b892864603b79133c1fbdb;hb=63abf29c05f4c3cc510ad56050542579084e63c3;hpb=ac5be38aa368d0de91245ce717447c19c40937ca

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.