Unreachable branhces are removed, fixed a nasty bug in monomorphizer 😸

sample-programs/bubble-sort.chrf

@@ -0,0 +1,11 @@
+data List (a) where
+    Cons : a -> List (a) -> List (a)
+    Nil  : List (a)
+
+bubblesort : List (a) -> List (a)
+bubblesort xs = case xs of
+    Nil    => Nil
+    Cons x => case x of
+        Nil => Cons x Nil
+        Cons y => 
+

sample-programs/insertion-sort.chrf

@@ -0,0 +1,23 @@
+data List (a) where
+    Nil : List (a)
+    Cons : a -> List (a) -> List (a)
+
+insert : Int -> List (Int) -> List (Int)
+insert x xs = case xs of
+    Cons z zs => case (lt x z) of
+        True => Cons x (Cons z zs)
+        False => Cons z (insert x zs)
+    Nil => Cons x Nil
+        
+insertionSort : List (Int) -> List (Int)
+insertionSort xs = case xs of
+    Cons y ys => case ys of
+        _ => insert y (insertionSort ys)
+        Nil => xs
+    Nil => Nil
+
+main = head (insertionSort (Cons 5 (Cons 4 (Cons 3 (Cons 2 (Cons 1 Nil))))))
+
+head xs = case xs of
+    Cons x _ => x
+

sample-programs/mono-2.crf

@@ -5,6 +5,9 @@ data Either(a b) where
 unwrapLeft x = case x of
     Left y => y
 
+unwrapRight x = case x of
+    Right y => y
+
 wow = Left 5
 
 main = unwrapLeft wow