1 files changed, 8 insertions, 0 deletions
diff --git a/transfer/examples/bool.tr b/transfer/examples/bool.tr
new file mode 100644
index 000000000..291434a9f
--- /dev/null
+++ b/transfer/examples/bool.tr
@@ -0,0 +1,8 @@
+data Bool : Type where { True : Bool; False : Bool; } ;
+
+depif : (A:Type) -> (B:Type) -> (b:Bool) -> A -> B -> if Type b then A else B ;
+depif _ _ True x _ = x ;
+depif _ _ False _ y = y ;
+
+not : Bool -> Bool ;
+not b = if b then False else True ;