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

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.