159 files changed, 1965 insertions, 47 deletions

diff --git a/testdata/language-features/adt/adt02.reject.out b/testdata/language-features/adt/adt02.reject.out
index f2fa47dd..97a3c5f1 100644
--- a/testdata/language-features/adt/adt02.reject.out
+++ b/testdata/language-features/adt/adt02.reject.out
@@ -4,3 +4,89 @@ with
 'Int
 
 in 
+
+------------ trace
+'Data3 :: Type
+Data3 :: 'Bool -> 'Char -> 'Bool->'Data3
+Data31 :: 'Int -> 'String -> 'Int->'Data3
+'Data3Case :: (b : 'Data3->Type) -> (c:'Bool -> d:'Char -> e:'Bool -> b (Data3 c d e)) -> (g:'Int -> h:'String -> i:'Int -> b (Data31 g h i)) -> k:'Data3 -> b k
+match'Data3 :: (b : Type->Type) -> b 'Data3 -> d:Type -> b d -> b d
+infer:  \(a : _:'Type) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (e : _:'Type) -> labelend e) (\_:'Type _:'Type (h : _:'Type) -> labelend h) a
+infer:  \(a : _:'Type : Type) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (e : _:'Type) -> labelend e) (\_:'Type _:'Type (h : _:'Type) -> labelend h) a
+infer:  \(b : (\a:'Type -> a) : Type) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+focus:  \(b : (\a:Type -> a) : Type) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+infer:  \(b : \a->a : Type) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+focus:  \(b : \a->a : Type) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+focus:  \(b : (\a -> a:Type)) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+focus:  \(c : (\a b:'Unit -> a)) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (g : _:'Type) -> labelend g) (\_:'Type _:'Type (j : _:'Type) -> labelend j) c
+focus:  \(b : \a->a) -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+focus:  \a b:a -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+infer:  \a b:a -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+infer:  \a b:a -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+infer:  \a b:a -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+infer:  \a b:a -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+infer:  \a b:a -> 'Data3Case (\_:'Type -> _:'Type) (\_:'Type _:'Type (f : _:'Type) -> labelend f) (\_:'Type _:'Type (i : _:'Type) -> labelend i) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\_:'Type -> _:'Type) (\_:'Type _:'Type (j : _:'Type) -> labelend j) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+check:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) ((\_:'Type -> _:'Type) :: 'Data3->Type) (\_:'Type _:'Type (i : _:'Type) -> labelend i) (\_:'Type _:'Type (l : _:'Type) -> labelend l) b
+check:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 -> _:'Type :: Type) (\_:'Type _:'Type (j : _:'Type) -> labelend j) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+infer:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 -> _:'Type : Type) (\_:'Type _:'Type (j : _:'Type) -> labelend j) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+infer:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 -> (\h:'Type -> h) : Type) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 -> (\h:Type -> h) : Type) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+infer:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 -> \h->h : Type) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 -> \h->h : Type) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 h -> h:Type) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 h i:'Unit -> h) (\_:'Type _:'Type (l : _:'Type) -> labelend l) (\_:'Type _:'Type (o : _:'Type) -> labelend o) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g:'Data3 -> \h->h) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g h:'Data3 -> g) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'Data3Case c d e f) (\g h:Type -> g) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type g:Type -> 'Data3Case d e f g) (\h:Type -> c)) (\_:'Type _:'Type (k : _:'Type) -> labelend k) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\_:'Type _:'Type (j : _:'Type) -> labelend j) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\_:'Type _:'Type (j : _:'Type) -> labelend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) ((\_:'Type _:'Type (j : _:'Type) -> labelend j) :: 'Bool -> 'Char -> 'Bool->c)) (\_:'Type _:'Type (j : _:'Type) -> labelend j) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool -> (\_:'Type (j : _:'Type) -> labelend j) :: 'Char -> 'Bool->c)) (\_:'Type _:'Type (k : _:'Type) -> labelend k) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char -> (\(j : _:'Type) -> labelend j) :: 'Bool->c)) (\_:'Type _:'Type (l : _:'Type) -> labelend l) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char j:'Bool -> labelend j :: c)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char j:'Bool -> labEnd j::c)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char j:'Bool -> labEnd j:c)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char j:'Bool -> labEnd j:c)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char j:'Bool -> labEnd \(k : c~'Bool)->j)) (\_:'Type _:'Type (n : _:'Type) -> labelend n) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char j:'Bool -> labEnd (\c:='Bool -> j))) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char j:'Bool c:='Bool -> labEnd j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char j:'Bool c:='Bool -> labend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char c:='Bool j:'Bool -> labend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool i:'Char c:='Bool j:Type -> labend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool c:='Bool i:'Char j:Type -> labend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\h:'Bool c:='Bool i:Type j:Type -> labend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\c:='Bool h:'Bool i:Type j:Type -> labend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> c) d e f) (\c:='Bool h:Type i:Type j:Type -> labend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c c:='Bool -> (\d:Type e:Type f:Type -> 'Data3Case (\g:Type -> 'Bool) d e f) (\h:Type i:Type j:Type -> labend j)) (\_:'Type _:'Type (m : _:'Type) -> labelend m) b
+focus:  \a b:a -> (\c c:='Bool d:Type e:Type -> 'Data3Case (\f:Type -> 'Bool) (\g:Type h:Type i:Type -> labend i) d e) (\_:'Type _:'Type (l : _:'Type) -> labelend l) b
+focus:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) (\_:'Type _:'Type (k : _:'Type) -> labelend k) b
+check:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) ((\_:'Type _:'Type (k : _:'Type) -> labelend k) :: 'Int -> 'String -> 'Int->'Bool) b
+check:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) (\i:'Int -> (\_:'Type (k : _:'Type) -> labelend k) :: 'String -> 'Int->'Bool) b
+check:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) (\i:'Int j:'String -> (\(k : _:'Type) -> labelend k) :: 'Int->'Bool) b
+check:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) (\i:'Int j:'String k:'Int -> labelend k :: 'Bool) b
+check:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) (\i:'Int j:'String k:'Int -> labEnd k::'Bool) b
+infer:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) (\i:'Int j:'String k:'Int -> labEnd k:'Bool) b
+focus:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) (\i:'Int j:'String k:'Int -> labEnd k:'Bool) b
+focus:  \a b:a -> (\c:Type d:Type -> 'Data3Case (\e:Type -> 'Bool) (\f:Type g:Type h:Type -> labend h) c d) (\i:'Int j:'String k:'Int -> labEnd \(l : 'Empty "can not unify\n\ESC[32m'Bool\ESC[m\nwith\n\ESC[32m'Int\ESC[m\n")->k) b
+!type error: can not unify
+'Bool
+with
+'Int
+
+in 
+
+------------ tooltips
+testdata/language-features/adt/adt02.reject.lc 2:6-2:11  Type
+testdata/language-features/adt/adt02.reject.lc 2:6-5:25  Type
+testdata/language-features/adt/adt02.reject.lc 2:6-7:11  Type
+testdata/language-features/adt/adt02.reject.lc 2:6-10:20  Type
+testdata/language-features/adt/adt02.reject.lc 3:5-3:10  Bool -> Char -> Bool->Data3 | Data3 | Type
+testdata/language-features/adt/adt02.reject.lc 3:21-3:25  Type
+testdata/language-features/adt/adt02.reject.lc 4:21-4:25  Type
+testdata/language-features/adt/adt02.reject.lc 5:21-5:25  Type
+testdata/language-features/adt/adt02.reject.lc 7:5-7:11  Data3 | Int -> String -> Int->Data3 | Type
+testdata/language-features/adt/adt02.reject.lc 8:17-8:20  Type
+testdata/language-features/adt/adt02.reject.lc 9:17-9:23  Type
+testdata/language-features/adt/adt02.reject.lc 10:17-10:20  Type
diff --git a/testdata/language-features/adt/adt03.reject.out b/testdata/language-features/adt/adt03.reject.out
index cd56212b..1c9583cc 100644
--- a/testdata/language-features/adt/adt03.reject.out
+++ b/testdata/language-features/adt/adt03.reject.out
@@ -1,3 +1,10 @@
 can't find: a in testdata/language-features/adt/adt03.reject.lc:2:20:
 data Data3 = Data3 a b c
-                   ^
\ No newline at end of file
+                   ^
+------------ trace
+'Data3 :: Type
+infer:  a -> b -> c->'Data3 : Type
+infer:  a:Type -> (b -> c->'Data3 : 'Type) : Type
+!can't find: a in testdata/language-features/adt/adt03.reject.lc:2:20
+------------ tooltips
+testdata/language-features/adt/adt03.reject.lc 2:6-2:11  Type
diff --git a/testdata/language-features/adt/adt04.reject.out b/testdata/language-features/adt/adt04.reject.out
index cdcbef0a..76f0f5be 100644
--- a/testdata/language-features/adt/adt04.reject.out
+++ b/testdata/language-features/adt/adt04.reject.out
@@ -1,3 +1,10 @@
 can't find: a in testdata/language-features/adt/adt04.reject.lc:2:27:
 data Data3 = Data3 { x :: a , y :: b , z :: c }
-                          ^
\ No newline at end of file
+                          ^
+------------ trace
+'Data3 :: Type
+infer:  a -> b -> c->'Data3 : Type
+infer:  a:Type -> (b -> c->'Data3 : 'Type) : Type
+!can't find: a in testdata/language-features/adt/adt04.reject.lc:2:27
+------------ tooltips
+testdata/language-features/adt/adt04.reject.lc 2:6-2:11  Type
diff --git a/testdata/language-features/adt/gadt01.reject.out b/testdata/language-features/adt/gadt01.reject.out
index 8c5cc2ae..a993010b 100644
--- a/testdata/language-features/adt/gadt01.reject.out
+++ b/testdata/language-features/adt/gadt01.reject.out
@@ -1 +1,8 @@
-illegal data definition (parameters are not uniform)
\ No newline at end of file
+illegal data definition (parameters are not uniform)
+------------ trace
+'M3 :: Type -> 'String->Type
+!illegal data definition (parameters are not uniform)
+------------ tooltips
+testdata/language-features/adt/gadt01.reject.lc 5:6-5:8  Type -> String->Type
+testdata/language-features/adt/gadt01.reject.lc 5:15-5:19  Type
+testdata/language-features/adt/gadt01.reject.lc 5:27-5:33  Type
diff --git a/testdata/language-features/adt/gadt02.reject.out b/testdata/language-features/adt/gadt02.reject.out
index 9c00b1fd..f13ebe8e 100644
--- a/testdata/language-features/adt/gadt02.reject.out
+++ b/testdata/language-features/adt/gadt02.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/adt/gadt02.reject.lc:2:9:
 unexpected 'T'
-expecting end of input
\ No newline at end of file
+expecting end of input
+------------ trace
+!testdata/language-features/adt/gadt02.reject.lc:2:9:
+unexpected 'T'
+expecting end of input
diff --git a/testdata/language-features/adt/gadt03.reject.out b/testdata/language-features/adt/gadt03.reject.out
index 8c5cc2ae..82c15741 100644
--- a/testdata/language-features/adt/gadt03.reject.out
+++ b/testdata/language-features/adt/gadt03.reject.out
@@ -1 +1,30 @@
-illegal data definition (parameters are not uniform)
\ No newline at end of file
+illegal data definition (parameters are not uniform)
+------------ trace
+'M2 :: Type -> 'String->Type
+Value2 :: {a} -> a -> {c:'String} -> 'M2 a c
+'M2Case :: {a} -> (d : b:'String -> 'M2 a b -> Type) -> (e:a -> {f:'String} -> d f (Value2 e f)) -> {h:'String} -> (i : 'M2 a h) -> d h i
+match'M2 :: (b : Type->Type) -> (c:Type -> d:'String -> b ('M2 c d)) -> f:Type -> b f -> b f
+'M3 :: Type -> 'String->Type
+!illegal data definition (parameters are not uniform)
+------------ tooltips
+testdata/language-features/adt/gadt03.reject.lc 2:6-2:8  Type | Type -> String->Type
+testdata/language-features/adt/gadt03.reject.lc 2:6-3:35  Type
+testdata/language-features/adt/gadt03.reject.lc 2:15-2:19  Type
+testdata/language-features/adt/gadt03.reject.lc 2:24-2:30  Type
+testdata/language-features/adt/gadt03.reject.lc 2:24-2:38  Type
+testdata/language-features/adt/gadt03.reject.lc 2:34-2:38  Type
+testdata/language-features/adt/gadt03.reject.lc 3:3-3:9  M2 V3 V0 | {a} -> a -> {c:String} -> M2 a c
+testdata/language-features/adt/gadt03.reject.lc 3:3-3:35  Type
+testdata/language-features/adt/gadt03.reject.lc 3:13-3:14  Type
+testdata/language-features/adt/gadt03.reject.lc 3:13-3:35  Type
+testdata/language-features/adt/gadt03.reject.lc 3:18-3:35  Type
+testdata/language-features/adt/gadt03.reject.lc 3:29-3:31  Type -> String->Type
+testdata/language-features/adt/gadt03.reject.lc 3:29-3:33  String->Type
+testdata/language-features/adt/gadt03.reject.lc 3:29-3:35  Type
+testdata/language-features/adt/gadt03.reject.lc 3:32-3:33  Type
+testdata/language-features/adt/gadt03.reject.lc 3:34-3:35  String | V1
+testdata/language-features/adt/gadt03.reject.lc 5:6-5:8  Type -> String->Type
+testdata/language-features/adt/gadt03.reject.lc 5:15-5:19  Type
+testdata/language-features/adt/gadt03.reject.lc 5:24-5:30  Type
+testdata/language-features/adt/gadt03.reject.lc 5:24-5:38  Type
+testdata/language-features/adt/gadt03.reject.lc 5:34-5:38  Type
diff --git a/testdata/language-features/adt/gadt04.reject.out b/testdata/language-features/adt/gadt04.reject.out
index 365889c8..61bd1a2e 100644
--- a/testdata/language-features/adt/gadt04.reject.out
+++ b/testdata/language-features/adt/gadt04.reject.out
@@ -3,4 +3,45 @@ already defined Value at testdata/language-features/adt/gadt04.reject.lc:6:3:
   ^^^^^
  and at testdata/language-features/adt/gadt04.reject.lc:3:3:
   Value :: a -> forall m . M a m
-  ^^^^^
\ No newline at end of file
+  ^^^^^
+------------ trace
+'M :: Type -> 'String->Type
+Value :: {a} -> a -> {c:'String} -> 'M a c
+'MCase :: (d : a:Type -> b:'String -> 'M a b -> Type) -> ({e} -> f:e -> {g:'String} -> d e g (Value e f g)) -> {i} -> {j:'String} -> (k : 'M i j) -> d i j k
+match'M :: (b : Type->Type) -> (c:Type -> d:'String -> b ('M c d)) -> f:Type -> b f -> b f
+'M2 :: Type -> 'String->Type
+Value :: {a} -> a -> {c:'String} -> 'M2 a c
+!already defined Value at testdata/language-features/adt/gadt04.reject.lc:6:3
+ and at testdata/language-features/adt/gadt04.reject.lc:3:3
+------------ tooltips
+testdata/language-features/adt/gadt04.reject.lc 2:6-2:7  Type | Type -> String->Type
+testdata/language-features/adt/gadt04.reject.lc 2:6-3:33  Type
+testdata/language-features/adt/gadt04.reject.lc 2:11-2:15  Type
+testdata/language-features/adt/gadt04.reject.lc 2:19-2:25  Type
+testdata/language-features/adt/gadt04.reject.lc 2:19-2:33  Type
+testdata/language-features/adt/gadt04.reject.lc 2:29-2:33  Type
+testdata/language-features/adt/gadt04.reject.lc 3:3-3:8  M V2 V0 | {a} -> a -> {c:String} -> M a c
+testdata/language-features/adt/gadt04.reject.lc 3:3-3:33  Type
+testdata/language-features/adt/gadt04.reject.lc 3:12-3:13  V1
+testdata/language-features/adt/gadt04.reject.lc 3:12-3:33  Type
+testdata/language-features/adt/gadt04.reject.lc 3:17-3:33  Type
+testdata/language-features/adt/gadt04.reject.lc 3:28-3:29  Type -> String->Type
+testdata/language-features/adt/gadt04.reject.lc 3:28-3:31  String->Type
+testdata/language-features/adt/gadt04.reject.lc 3:28-3:33  Type
+testdata/language-features/adt/gadt04.reject.lc 3:30-3:31  Type
+testdata/language-features/adt/gadt04.reject.lc 3:30-3:33  M V2 V0 -> Type
+testdata/language-features/adt/gadt04.reject.lc 3:32-3:33  String | V1
+testdata/language-features/adt/gadt04.reject.lc 5:6-5:8  Type -> String->Type
+testdata/language-features/adt/gadt04.reject.lc 5:12-5:16  Type
+testdata/language-features/adt/gadt04.reject.lc 5:20-5:26  Type
+testdata/language-features/adt/gadt04.reject.lc 5:20-5:34  Type
+testdata/language-features/adt/gadt04.reject.lc 5:30-5:34  Type
+testdata/language-features/adt/gadt04.reject.lc 6:3-6:8  {a} -> a -> {c:String} -> M2 a c
+testdata/language-features/adt/gadt04.reject.lc 6:12-6:13  V1
+testdata/language-features/adt/gadt04.reject.lc 6:12-6:34  Type
+testdata/language-features/adt/gadt04.reject.lc 6:17-6:34  Type
+testdata/language-features/adt/gadt04.reject.lc 6:28-6:30  Type -> String->Type
+testdata/language-features/adt/gadt04.reject.lc 6:28-6:32  String->Type
+testdata/language-features/adt/gadt04.reject.lc 6:28-6:34  Type
+testdata/language-features/adt/gadt04.reject.lc 6:31-6:32  Type
+testdata/language-features/adt/gadt04.reject.lc 6:33-6:34  V1
diff --git a/testdata/language-features/as-pattern/as-pattern02.reject.out b/testdata/language-features/as-pattern/as-pattern02.reject.out
index 4d60dbcb..6e20413d 100644
--- a/testdata/language-features/as-pattern/as-pattern02.reject.out
+++ b/testdata/language-features/as-pattern/as-pattern02.reject.out
@@ -1,3 +1,9 @@
 multiple pattern vars:
 x is defined at testdata/language-features/as-pattern/as-pattern02.reject.lc 2:6-2:7
 x is defined at testdata/language-features/as-pattern/as-pattern02.reject.lc 2:3-2:4
+
+------------ trace
+!multiple pattern vars:
+x is defined at testdata/language-features/as-pattern/as-pattern02.reject.lc 2:6-2:7
+x is defined at testdata/language-features/as-pattern/as-pattern02.reject.lc 2:3-2:4
+
diff --git a/testdata/language-features/basic-list/list01.out b/testdata/language-features/basic-list/list01.out
index 6ca83aa0..965841b3 100644
--- a/testdata/language-features/basic-list/list01.out
+++ b/testdata/language-features/basic-list/list01.out
@@ -1,4 +1,8 @@
 main is not found
+------------ trace
+value1 :: {a} -> 'List a
+value2 :: {a} -> {b : 'Num a} -> 'List a
+value3 :: 'List 'Char
 ------------ tooltips
 testdata/language-features/basic-list/list01.lc 1:1-1:7  {a} -> List a
 testdata/language-features/basic-list/list01.lc 1:10-1:12  {a} -> List a
diff --git a/testdata/language-features/basic-list/list02.out b/testdata/language-features/basic-list/list02.out
index 078475d7..5ebde853 100644
--- a/testdata/language-features/basic-list/list02.out
+++ b/testdata/language-features/basic-list/list02.out
@@ -1,4 +1,8 @@
 main is not found
+------------ trace
+value1 :: {a} -> 'List a
+value2 :: {a} -> {b : 'Num a} -> 'List a
+value3 :: 'List 'Char
 ------------ tooltips
 testdata/language-features/basic-list/list02.lc 1:1-1:7  {a} -> List a
 testdata/language-features/basic-list/list02.lc 1:10-2:4  {a} -> List a
diff --git a/testdata/language-features/basic-list/list03.reject.out b/testdata/language-features/basic-list/list03.reject.out
index d5a33d36..f5ad67d8 100644
--- a/testdata/language-features/basic-list/list03.reject.out
+++ b/testdata/language-features/basic-list/list03.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-list/list03.reject.lc:2:1:
 expecting expression
-wrong indentation
\ No newline at end of file
+wrong indentation
+------------ trace
+!testdata/language-features/basic-list/list03.reject.lc:2:1:
+expecting expression
+wrong indentation
diff --git a/testdata/language-features/basic-list/list04.reject.out b/testdata/language-features/basic-list/list04.reject.out
index 6f169a95..02ee2348 100644
--- a/testdata/language-features/basic-list/list04.reject.out
+++ b/testdata/language-features/basic-list/list04.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-list/list04.reject.lc:2:1:
 expecting expression
-wrong indentation
\ No newline at end of file
+wrong indentation
+------------ trace
+!testdata/language-features/basic-list/list04.reject.lc:2:1:
+expecting expression
+wrong indentation
diff --git a/testdata/language-features/basic-list/list05.reject.out b/testdata/language-features/basic-list/list05.reject.out
index 821b377d..4a4087cc 100644
--- a/testdata/language-features/basic-list/list05.reject.out
+++ b/testdata/language-features/basic-list/list05.reject.out
@@ -1,4 +1,9 @@
 testdata/language-features/basic-list/list05.reject.lc:2:1:
 unexpected end of input
 expecting expression
-wrong indentation
\ No newline at end of file
+wrong indentation
+------------ trace
+!testdata/language-features/basic-list/list05.reject.lc:2:1:
+unexpected end of input
+expecting expression
+wrong indentation
diff --git a/testdata/language-features/basic-list/list06.reject.out b/testdata/language-features/basic-list/list06.reject.out
index 7bcc0c09..47f8f104 100644
--- a/testdata/language-features/basic-list/list06.reject.out
+++ b/testdata/language-features/basic-list/list06.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-list/list06.reject.lc:1:10:
 unexpected ','
-expecting expression
\ No newline at end of file
+expecting expression
+------------ trace
+!testdata/language-features/basic-list/list06.reject.lc:1:10:
+unexpected ','
+expecting expression
diff --git a/testdata/language-features/basic-list/list07.reject.out b/testdata/language-features/basic-list/list07.reject.out
index 330be399..7a29dae2 100644
--- a/testdata/language-features/basic-list/list07.reject.out
+++ b/testdata/language-features/basic-list/list07.reject.out
@@ -4,3 +4,162 @@ with
 'Char
 
 in builtin Nil
+
+------------ trace
+infer:  labelend (Cons (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd (Cons (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd (Cons (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd (Cons (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {_ : _:'Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+check:  labEnd (Cons {(_ : _:'Type) :: Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd (Cons {(_ : _:'Type) : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd (Cons {\(a : _:'Type)->a : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd (Cons {\(b : (\a:'Type -> a))->b : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {\(b : (\a:Type -> a))->b : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd (Cons {\(b : \a->a)->b : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {\(b : \a->a)->b : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {(\a b:a -> b) : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd (Cons {(\a b:a -> b) : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {(\a b:a -> b) : Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {\a b:a -> b:Type} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {\a b:a -> \(c : Type~a)->b} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {\a b:a a:=Type -> b} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {\a a:=Type -> \b->b} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (Cons {\a->a} (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons {a}) (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (\a->Cons (fromInt 1) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt 1)) (Cons 1.2 (Cons 'a' Nil)))
+check:  labEnd ((\a -> Cons (fromInt 1 :: a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons (fromInt 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {_ : _:'Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+check:  labEnd ((\a -> Cons (fromInt {(_ : _:'Type) :: Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons (fromInt {(_ : _:'Type) : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons (fromInt {\(b : _:'Type)->b : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons (fromInt {\(c : (\b:'Type -> b))->c : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {\(c : (\b:Type -> b))->c : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons (fromInt {\(c : \b->b)->c : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {\(c : \b->b)->c : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {(\b c:b -> c) : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons (fromInt {(\b c:b -> c) : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {(\b c:b -> c) : Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {\b c:b -> c:Type} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {\b c:b -> \(d : Type~b)->c} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {\b c:b b:=Type -> c} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {\b b:=Type -> \c->c} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (fromInt {\b->b} 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt {b}) 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b) 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {_ : _:'Type} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+check:  labEnd ((\a -> Cons ((\b -> fromInt b {(_ : _:'Type) :: 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {(_ : _:'Type) : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {\(c : _:'Type)->c : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {\(d : (\c:'Type -> c))->d : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\(d : (\c:Type -> c))->d : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {\(d : \c->c)->d : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\(d : \c->c)->d : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {(\c d:c -> d) : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {(\c d:c -> d) : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {(\c d:c -> d) : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\c d:c -> d : 'Num b} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\c d:c -> \(e : 'Num b ~ c)->d} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\c d:c -> \(c := 'Num b)->d} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\c (c := 'Num b) -> \(d : 'Num b)->d} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\(c : 'Num b)->c} 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> (\(c : 'Num b) -> fromInt b {c}) 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b -> (\(c : 'Num b) -> fromInt b c) 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+check:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1::'Int) : a)) (Cons 1.2 (Cons 'a' Nil)))
+infer:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1:'Int) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1:'Int) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c (\d:'Unit -> 1)) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1) : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (\b (c : 'Num b) -> fromInt b c 1 : a)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (\b (c : 'Num b) (d : a~b) -> fromInt b c 1)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (\b (c : 'Num b) b:=a -> fromInt a c 1)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (\b b:=a (c : 'Num a) -> fromInt a c 1)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a -> Cons (\(b : 'Num a) -> fromInt a b 1)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a (b : 'Num a) -> Cons (fromInt a b 1)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd ((\a (b : 'Num a) -> Cons (fromInt a b 1)) (Cons 1.2 (Cons 'a' Nil)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons 1.2 (Cons 'a' Nil)))
+check:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons 1.2 (Cons 'a' Nil) :: 'List a))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons 1.2 (Cons 'a' Nil) : 'List a))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {_ : _:'Type} 1.2 (Cons 'a' Nil) : 'List a))
+check:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {(_ : _:'Type) :: Type} 1.2 (Cons 'a' Nil) : 'List a))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {(_ : _:'Type) : Type} 1.2 (Cons 'a' Nil) : 'List a))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\(c : _:'Type)->c : Type} 1.2 (Cons 'a' Nil) : 'List a))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\(d : (\c:'Type -> c))->d : Type} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\(d : (\c:Type -> c))->d : Type} 1.2 (Cons 'a' Nil) : 'List a))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\(d : \c->c)->d : Type} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\(d : \c->c)->d : Type} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {(\c d:c -> d) : Type} 1.2 (Cons 'a' Nil) : 'List a))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {(\c d:c -> d) : Type} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {(\c d:c -> d) : Type} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\c d:c -> d:Type} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\c d:c -> \(e : Type~c)->d} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\c d:c c:=Type -> d} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\c c:=Type -> \d->d} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons {\c->c} 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c -> Cons {c}) 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\c->Cons 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c -> Cons 1.2) (Cons 'a' Nil) : 'List a))
+check:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c -> Cons 1.2::c) (Cons 'a' Nil) : 'List a))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c -> Cons 1.2:c) (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c -> Cons 1.2:c) (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c -> Cons \(d : c~'Float)->1.2) (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c -> Cons (\c:='Float -> 1.2)) (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c c:='Float -> Cons 1.2) (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\c c:='Float -> Cons 1.2) (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons 1.2 (Cons 'a' Nil) : 'List a))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\(c : a~'Float) -> Cons 1.2) (Cons 'a' Nil)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) ((\a:='Float -> Cons 1.2) (Cons 'a' Nil)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons 'a' Nil)))
+check:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons 'a' Nil :: 'List 'Float)))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons 'a' Nil : 'List 'Float)))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {_ : _:'Type} 'a' Nil : 'List 'Float)))
+check:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {(_ : _:'Type) :: Type} 'a' Nil : 'List 'Float)))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {(_ : _:'Type) : Type} 'a' Nil : 'List 'Float)))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\(c : _:'Type)->c : Type} 'a' Nil : 'List 'Float)))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\(d : (\c:'Type -> c))->d : Type} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\(d : (\c:Type -> c))->d : Type} 'a' Nil : 'List 'Float)))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\(d : \c->c)->d : Type} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\(d : \c->c)->d : Type} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {(\c d:c -> d) : Type} 'a' Nil : 'List 'Float)))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {(\c d:c -> d) : Type} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {(\c d:c -> d) : Type} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\c d:c -> d:Type} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\c d:c -> \(e : Type~c)->d} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\c d:c c:=Type -> d} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\c c:=Type -> \d->d} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons {\c->c} 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c -> Cons {c}) 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (\c->Cons 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c -> Cons 'a') Nil : 'List 'Float)))
+check:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c -> Cons 'a'::c) Nil : 'List 'Float)))
+infer:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c -> Cons 'a':c) Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c -> Cons 'a':c) Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c -> Cons \(d : c~'Char)->'a') Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c -> Cons (\c:='Char -> 'a')) Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c c:='Char -> Cons 'a') Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\c c:='Char -> Cons 'a') Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 (Cons 'a' Nil : 'List 'Float)))
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (\a:='Float -> Cons 1.2 ((\(c : 'Empty "can not unify\n\ESC[32m'Float\ESC[m\nwith\n\ESC[32m'Char\ESC[m\n") -> Cons 'a') Nil)))
+!type error: can not unify
+'Float
+with
+'Char
+
+in builtin Nil
+
+------------ tooltips
+testdata/language-features/basic-list/list07.reject.lc 1:10-1:11  V1
+testdata/language-features/basic-list/list07.reject.lc 1:12-1:15  Float
+testdata/language-features/basic-list/list07.reject.lc 1:16-1:19  Char
diff --git a/testdata/language-features/basic-list/list08.out b/testdata/language-features/basic-list/list08.out
index 36f905d9..fb69fb70 100644
--- a/testdata/language-features/basic-list/list08.out
+++ b/testdata/language-features/basic-list/list08.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'List 'Float
 ------------ tooltips
 testdata/language-features/basic-list/list08.lc 1:1-1:6  List Float
 testdata/language-features/basic-list/list08.lc 1:9-1:16  List Float
diff --git a/testdata/language-features/basic-list/list09.out b/testdata/language-features/basic-list/list09.out
index a64ddd90..4ac018ac 100644
--- a/testdata/language-features/basic-list/list09.out
+++ b/testdata/language-features/basic-list/list09.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'List 'Float
 ------------ tooltips
 testdata/language-features/basic-list/list09.lc 1:1-1:6  List Float
 testdata/language-features/basic-list/list09.lc 1:9-1:16  List Float
diff --git a/testdata/language-features/basic-list/list10.reject.out b/testdata/language-features/basic-list/list10.reject.out
index 8f1376a7..6c108119 100644
--- a/testdata/language-features/basic-list/list10.reject.out
+++ b/testdata/language-features/basic-list/list10.reject.out
@@ -4,3 +4,144 @@ with
 'Float
 
 in builtin Nil
+
+------------ trace
+infer:  labelend (Cons (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd (Cons (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+check:  labEnd (('List 'Int :: Type) : ??)
+infer:  labEnd (('List 'Int : Type) : ??)
+focus:  labEnd (('List 'Int : Type) : ??)
+focus:  labEnd ((\a:'Unit -> 'List) 'Int : ??)
+focus:  labEnd ('List 'Int : ??)
+check:  labEnd ('List 'Int::Type : ??)
+infer:  labEnd ('List 'Int:Type : ??)
+focus:  labEnd ('List 'Int:Type : ??)
+focus:  labEnd ('List (\a:'Unit -> 'Int) : ??)
+focus:  labEnd ('List 'Int : ??)
+focus:  labEnd ('List 'Int : ??)
+check:  labEnd (Cons (fromInt 1) (Cons 1.2 Nil) :: 'List 'Int)
+infer:  labEnd (Cons (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd (Cons (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {_ : _:'Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+check:  labEnd (Cons {(_ : _:'Type) :: Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd (Cons {(_ : _:'Type) : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd (Cons {\(a : _:'Type)->a : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd (Cons {\(b : (\a:'Type -> a))->b : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {\(b : (\a:Type -> a))->b : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd (Cons {\(b : \a->a)->b : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {\(b : \a->a)->b : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {(\a b:a -> b) : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd (Cons {(\a b:a -> b) : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {(\a b:a -> b) : Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {\a b:a -> b:Type} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {\a b:a -> \(c : Type~a)->b} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {\a b:a a:=Type -> b} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {\a a:=Type -> \b->b} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (Cons {\a->a} (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons {a}) (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (\a->Cons (fromInt 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt 1)) (Cons 1.2 Nil) : 'List 'Int)
+check:  labEnd ((\a -> Cons (fromInt 1 :: a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons (fromInt 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {_ : _:'Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+check:  labEnd ((\a -> Cons (fromInt {(_ : _:'Type) :: Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons (fromInt {(_ : _:'Type) : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons (fromInt {\(b : _:'Type)->b : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons (fromInt {\(c : (\b:'Type -> b))->c : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {\(c : (\b:Type -> b))->c : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons (fromInt {\(c : \b->b)->c : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {\(c : \b->b)->c : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {(\b c:b -> c) : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons (fromInt {(\b c:b -> c) : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {(\b c:b -> c) : Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {\b c:b -> c:Type} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {\b c:b -> \(d : Type~b)->c} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {\b c:b b:=Type -> c} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {\b b:=Type -> \c->c} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (fromInt {\b->b} 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt {b}) 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b) 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {_ : _:'Type} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+check:  labEnd ((\a -> Cons ((\b -> fromInt b {(_ : _:'Type) :: 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {(_ : _:'Type) : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {\(c : _:'Type)->c : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {\(d : (\c:'Type -> c))->d : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\(d : (\c:Type -> c))->d : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {\(d : \c->c)->d : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\(d : \c->c)->d : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {(\c d:c -> d) : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons ((\b -> fromInt b {(\c d:c -> d) : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {(\c d:c -> d) : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\c d:c -> d : 'Num b} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\c d:c -> \(e : 'Num b ~ c)->d} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\c d:c -> \(c := 'Num b)->d} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\c (c := 'Num b) -> \(d : 'Num b)->d} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> fromInt b {\(c : 'Num b)->c} 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> (\(c : 'Num b) -> fromInt b {c}) 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b -> (\(c : 'Num b) -> fromInt b c) 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+check:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1::'Int) : a)) (Cons 1.2 Nil) : 'List 'Int)
+infer:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1:'Int) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1:'Int) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c (\d:'Unit -> 1)) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons ((\b (c : 'Num b) -> fromInt b c 1) : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (\b (c : 'Num b) -> fromInt b c 1 : a)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (\b (c : 'Num b) (d : a~b) -> fromInt b c 1)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (\b (c : 'Num b) b:=a -> fromInt a c 1)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (\b b:=a (c : 'Num a) -> fromInt a c 1)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a -> Cons (\(b : 'Num a) -> fromInt a b 1)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a (b : 'Num a) -> Cons (fromInt a b 1)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd ((\a (b : 'Num a) -> Cons (fromInt a b 1)) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (\a (b : 'Num a) -> Cons (fromInt a b 1) (Cons 1.2 Nil) : 'List 'Int)
+focus:  labEnd (\a (b : 'Num a) -> (\(c : 'Int~a) -> Cons (fromInt a b 1)) (Cons 1.2 Nil))
+focus:  labEnd (\a (b : 'Num a) -> (\a:='Int -> Cons 1) (Cons 1.2 Nil))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons 1.2 Nil))
+check:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons 1.2 Nil :: 'List 'Int))
+infer:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons 1.2 Nil : 'List 'Int))
+infer:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {_ : _:'Type} 1.2 Nil : 'List 'Int))
+check:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {(_ : _:'Type) :: Type} 1.2 Nil : 'List 'Int))
+infer:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {(_ : _:'Type) : Type} 1.2 Nil : 'List 'Int))
+infer:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\(c : _:'Type)->c : Type} 1.2 Nil : 'List 'Int))
+infer:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\(d : (\c:'Type -> c))->d : Type} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\(d : (\c:Type -> c))->d : Type} 1.2 Nil : 'List 'Int))
+infer:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\(d : \c->c)->d : Type} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\(d : \c->c)->d : Type} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {(\c d:c -> d) : Type} 1.2 Nil : 'List 'Int))
+infer:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {(\c d:c -> d) : Type} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {(\c d:c -> d) : Type} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\c d:c -> d:Type} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\c d:c -> \(e : Type~c)->d} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\c d:c c:=Type -> d} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\c c:=Type -> \d->d} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons {\c->c} 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c -> Cons {c}) 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (\c->Cons 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c -> Cons 1.2) Nil : 'List 'Int))
+check:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c -> Cons 1.2::c) Nil : 'List 'Int))
+infer:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c -> Cons 1.2:c) Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c -> Cons 1.2:c) Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c -> Cons \(d : c~'Float)->1.2) Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c -> Cons (\c:='Float -> 1.2)) Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c c:='Float -> Cons 1.2) Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\c c:='Float -> Cons 1.2) Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 (Cons 1.2 Nil : 'List 'Int))
+focus:  labEnd (\a (b : 'Num a) a:='Int -> Cons 1 ((\(c : 'Empty "can not unify\n\ESC[32m'Int\ESC[m\nwith\n\ESC[32m'Float\ESC[m\n") -> Cons 1.2) Nil))
+!type error: can not unify
+'Int
+with
+'Float
+
+in builtin Nil
+
+------------ tooltips
+testdata/language-features/basic-list/list10.reject.lc 1:10-1:11  V1
+testdata/language-features/basic-list/list10.reject.lc 1:12-1:15  Float
+testdata/language-features/basic-list/list10.reject.lc 1:20-1:25  Type
+testdata/language-features/basic-list/list10.reject.lc 1:21-1:24  Type
diff --git a/testdata/language-features/basic-list/list11.out b/testdata/language-features/basic-list/list11.out
index a9ddb798..f447dd7c 100644
--- a/testdata/language-features/basic-list/list11.out
+++ b/testdata/language-features/basic-list/list11.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: {a} -> {b : 'Num a} -> 'List a
 ------------ tooltips
 testdata/language-features/basic-list/list11.lc 1:1-1:6  {a} -> {b : Num a} -> List a
 testdata/language-features/basic-list/list11.lc 1:9-1:10  V1
diff --git a/testdata/language-features/basic-list/list12.out b/testdata/language-features/basic-list/list12.out
index 840ebd6a..fb253041 100644
--- a/testdata/language-features/basic-list/list12.out
+++ b/testdata/language-features/basic-list/list12.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: {a} -> {b : 'Num a} -> 'List a
 ------------ tooltips
 testdata/language-features/basic-list/list12.lc 1:1-1:6  {a} -> {b : Num a} -> List a
 testdata/language-features/basic-list/list12.lc 1:9-1:10  V1
diff --git a/testdata/language-features/basic-list/list13.out b/testdata/language-features/basic-list/list13.out
index cc92303b..b3a4a01b 100644
--- a/testdata/language-features/basic-list/list13.out
+++ b/testdata/language-features/basic-list/list13.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'List 'Char
 ------------ tooltips
 testdata/language-features/basic-list/list13.lc 1:1-1:6  List Char
 testdata/language-features/basic-list/list13.lc 1:9-1:12  Char
diff --git a/testdata/language-features/basic-list/list14.reject.out b/testdata/language-features/basic-list/list14.reject.out
index befa6180..85d77268 100644
--- a/testdata/language-features/basic-list/list14.reject.out
+++ b/testdata/language-features/basic-list/list14.reject.out
@@ -6,3 +6,89 @@ with
 in testdata/language-features/basic-list/list14.reject.lc:1:17:
 value = 'h':'i':()
                 ^^
+
+------------ trace
+infer:  labelend (Cons 'h' (Cons 'i' Tuple0))
+infer:  labEnd (Cons 'h' (Cons 'i' Tuple0))
+infer:  labEnd (Cons 'h' (Cons 'i' Tuple0))
+infer:  labEnd (Cons 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {_ : _:'Type} 'h' (Cons 'i' Tuple0))
+check:  labEnd (Cons {(_ : _:'Type) :: Type} 'h' (Cons 'i' Tuple0))
+infer:  labEnd (Cons {(_ : _:'Type) : Type} 'h' (Cons 'i' Tuple0))
+infer:  labEnd (Cons {\(a : _:'Type)->a : Type} 'h' (Cons 'i' Tuple0))
+infer:  labEnd (Cons {\(b : (\a:'Type -> a))->b : Type} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {\(b : (\a:Type -> a))->b : Type} 'h' (Cons 'i' Tuple0))
+infer:  labEnd (Cons {\(b : \a->a)->b : Type} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {\(b : \a->a)->b : Type} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {(\a b:a -> b) : Type} 'h' (Cons 'i' Tuple0))
+infer:  labEnd (Cons {(\a b:a -> b) : Type} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {(\a b:a -> b) : Type} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {\a b:a -> b:Type} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {\a b:a -> \(c : Type~a)->b} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {\a b:a a:=Type -> b} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {\a a:=Type -> \b->b} 'h' (Cons 'i' Tuple0))
+focus:  labEnd (Cons {\a->a} 'h' (Cons 'i' Tuple0))
+focus:  labEnd ((\a -> Cons {a}) 'h' (Cons 'i' Tuple0))
+focus:  labEnd (\a->Cons 'h' (Cons 'i' Tuple0))
+focus:  labEnd ((\a -> Cons 'h') (Cons 'i' Tuple0))
+check:  labEnd ((\a -> Cons 'h'::a) (Cons 'i' Tuple0))
+infer:  labEnd ((\a -> Cons 'h':a) (Cons 'i' Tuple0))
+focus:  labEnd ((\a -> Cons 'h':a) (Cons 'i' Tuple0))
+focus:  labEnd ((\a -> Cons \(b : a~'Char)->'h') (Cons 'i' Tuple0))
+focus:  labEnd ((\a -> Cons (\a:='Char -> 'h')) (Cons 'i' Tuple0))
+focus:  labEnd ((\a a:='Char -> Cons 'h') (Cons 'i' Tuple0))
+focus:  labEnd ((\a a:='Char -> Cons 'h') (Cons 'i' Tuple0))
+focus:  labEnd (Cons 'h' (Cons 'i' Tuple0))
+check:  labEnd (Cons 'h' (Cons 'i' Tuple0 :: 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons 'i' Tuple0 : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {_ : _:'Type} 'i' Tuple0 : 'List 'Char))
+check:  labEnd (Cons 'h' (Cons {(_ : _:'Type) :: Type} 'i' Tuple0 : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {(_ : _:'Type) : Type} 'i' Tuple0 : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {\(a : _:'Type)->a : Type} 'i' Tuple0 : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {\(b : (\a:'Type -> a))->b : Type} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\(b : (\a:Type -> a))->b : Type} 'i' Tuple0 : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {\(b : \a->a)->b : Type} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\(b : \a->a)->b : Type} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {(\a b:a -> b) : Type} 'i' Tuple0 : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {(\a b:a -> b) : Type} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {(\a b:a -> b) : Type} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a b:a -> b:Type} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a b:a -> \(c : Type~a)->b} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a b:a a:=Type -> b} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a a:=Type -> \b->b} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a->a} 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons {a}) 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (\a->Cons 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons 'i') Tuple0 : 'List 'Char))
+check:  labEnd (Cons 'h' ((\a -> Cons 'i'::a) Tuple0 : 'List 'Char))
+infer:  labEnd (Cons 'h' ((\a -> Cons 'i':a) Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons 'i':a) Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons \(b : a~'Char)->'i') Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons (\a:='Char -> 'i')) Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a a:='Char -> Cons 'i') Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a a:='Char -> Cons 'i') Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons 'i' Tuple0 : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a:'Unit -> Cons 'i') Tuple0))
+focus:  labEnd (Cons 'h' (Cons 'i' Tuple0))
+check:  labEnd (Cons 'h' (Cons 'i' (Tuple0 :: 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Tuple0 : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Tuple0 : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' \(a : 'Empty "can not unify\n\ESC[32m'List 'Char\ESC[m\nwith\n\ESC[32m'Tuple0\ESC[m\n")->Tuple0))
+!type error: can not unify
+'List 'Char
+with
+'Tuple0
+
+in testdata/language-features/basic-list/list14.reject.lc:1:17
+
+------------ tooltips
+testdata/language-features/basic-list/list14.reject.lc 1:9-1:12  Char
+testdata/language-features/basic-list/list14.reject.lc 1:9-1:13  List Char -> List Char
+testdata/language-features/basic-list/list14.reject.lc 1:12-1:13  {a} -> a -> List a -> List a
+testdata/language-features/basic-list/list14.reject.lc 1:13-1:16  Char
+testdata/language-features/basic-list/list14.reject.lc 1:13-1:17  List Char -> List Char
+testdata/language-features/basic-list/list14.reject.lc 1:16-1:17  {a} -> a -> List a -> List a
+testdata/language-features/basic-list/list14.reject.lc 1:17-1:19  Tuple0
diff --git a/testdata/language-features/basic-list/list15.reject.out b/testdata/language-features/basic-list/list15.reject.out
index 7491f8e8..518ab256 100644
--- a/testdata/language-features/basic-list/list15.reject.out
+++ b/testdata/language-features/basic-list/list15.reject.out
@@ -6,3 +6,119 @@ with
 in testdata/language-features/basic-list/list15.reject.lc:1:20:
 value = 'h':'i':():[]
                    ^^
+
+------------ trace
+infer:  labelend (Cons 'h' (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {_ : _:'Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+check:  labEnd (Cons {(_ : _:'Type) :: Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd (Cons {(_ : _:'Type) : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd (Cons {\(a : _:'Type)->a : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd (Cons {\(b : (\a:'Type -> a))->b : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {\(b : (\a:Type -> a))->b : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd (Cons {\(b : \a->a)->b : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {\(b : \a->a)->b : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {(\a b:a -> b) : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd (Cons {(\a b:a -> b) : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {(\a b:a -> b) : Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {\a b:a -> b:Type} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {\a b:a -> \(c : Type~a)->b} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {\a b:a a:=Type -> b} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {\a a:=Type -> \b->b} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons {\a->a} 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd ((\a -> Cons {a}) 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (\a->Cons 'h' (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd ((\a -> Cons 'h') (Cons 'i' (Cons Tuple0 Nil)))
+check:  labEnd ((\a -> Cons 'h'::a) (Cons 'i' (Cons Tuple0 Nil)))
+infer:  labEnd ((\a -> Cons 'h':a) (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd ((\a -> Cons 'h':a) (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd ((\a -> Cons \(b : a~'Char)->'h') (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd ((\a -> Cons (\a:='Char -> 'h')) (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd ((\a a:='Char -> Cons 'h') (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd ((\a a:='Char -> Cons 'h') (Cons 'i' (Cons Tuple0 Nil)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil)))
+check:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil) :: 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil) : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {_ : _:'Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+check:  labEnd (Cons 'h' (Cons {(_ : _:'Type) :: Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {(_ : _:'Type) : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {\(a : _:'Type)->a : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {\(b : (\a:'Type -> a))->b : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\(b : (\a:Type -> a))->b : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {\(b : \a->a)->b : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\(b : \a->a)->b : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {(\a b:a -> b) : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+infer:  labEnd (Cons 'h' (Cons {(\a b:a -> b) : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {(\a b:a -> b) : Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a b:a -> b:Type} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a b:a -> \(c : Type~a)->b} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a b:a a:=Type -> b} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a a:=Type -> \b->b} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons {\a->a} 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons {a}) 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (\a->Cons 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons 'i') (Cons Tuple0 Nil) : 'List 'Char))
+check:  labEnd (Cons 'h' ((\a -> Cons 'i'::a) (Cons Tuple0 Nil) : 'List 'Char))
+infer:  labEnd (Cons 'h' ((\a -> Cons 'i':a) (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons 'i':a) (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons \(b : a~'Char)->'i') (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a -> Cons (\a:='Char -> 'i')) (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a a:='Char -> Cons 'i') (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a a:='Char -> Cons 'i') (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil) : 'List 'Char))
+focus:  labEnd (Cons 'h' ((\a:'Unit -> Cons 'i') (Cons Tuple0 Nil)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil)))
+check:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil :: 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil : 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {_ : _:'Type} Tuple0 Nil : 'List 'Char)))
+check:  labEnd (Cons 'h' (Cons 'i' (Cons {(_ : _:'Type) :: Type} Tuple0 Nil : 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons {(_ : _:'Type) : Type} Tuple0 Nil : 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons {\(a : _:'Type)->a : Type} Tuple0 Nil : 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons {\(b : (\a:'Type -> a))->b : Type} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {\(b : (\a:Type -> a))->b : Type} Tuple0 Nil : 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons {\(b : \a->a)->b : Type} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {\(b : \a->a)->b : Type} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {(\a b:a -> b) : Type} Tuple0 Nil : 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' (Cons {(\a b:a -> b) : Type} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {(\a b:a -> b) : Type} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {\a b:a -> b:Type} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {\a b:a -> \(c : Type~a)->b} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {\a b:a a:=Type -> b} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {\a a:=Type -> \b->b} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons {\a->a} Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' ((\a -> Cons {a}) Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (\a->Cons Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' ((\a -> Cons Tuple0) Nil : 'List 'Char)))
+check:  labEnd (Cons 'h' (Cons 'i' ((\a -> Cons Tuple0::a) Nil : 'List 'Char)))
+infer:  labEnd (Cons 'h' (Cons 'i' ((\a -> Cons Tuple0:a) Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' ((\a -> Cons Tuple0:a) Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' ((\a -> Cons \(b : a~'Tuple0)->Tuple0) Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' ((\a -> Cons (\a:='Tuple0 -> Tuple0)) Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' ((\a a:='Tuple0 -> Cons Tuple0) Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' ((\a a:='Tuple0 -> Cons Tuple0) Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' (Cons Tuple0 Nil : 'List 'Char)))
+focus:  labEnd (Cons 'h' (Cons 'i' ((\(a : 'Empty "can not unify\n\ESC[32m'Char\ESC[m\nwith\n\ESC[32m'Tuple0\ESC[m\n") -> Cons Tuple0) Nil)))
+!type error: can not unify
+'Char
+with
+'Tuple0
+
+in testdata/language-features/basic-list/list15.reject.lc:1:20
+
+------------ tooltips
+testdata/language-features/basic-list/list15.reject.lc 1:9-1:12  Char
+testdata/language-features/basic-list/list15.reject.lc 1:9-1:13  List Char -> List Char
+testdata/language-features/basic-list/list15.reject.lc 1:12-1:13  {a} -> a -> List a -> List a
+testdata/language-features/basic-list/list15.reject.lc 1:13-1:16  Char
+testdata/language-features/basic-list/list15.reject.lc 1:13-1:17  List Char -> List Char
+testdata/language-features/basic-list/list15.reject.lc 1:16-1:17  {a} -> a -> List a -> List a
+testdata/language-features/basic-list/list15.reject.lc 1:17-1:19  Tuple0
+testdata/language-features/basic-list/list15.reject.lc 1:17-1:20  List Tuple0 -> List Tuple0
+testdata/language-features/basic-list/list15.reject.lc 1:19-1:20  {a} -> a -> List a -> List a
diff --git a/testdata/language-features/basic-list/list16.reject.out b/testdata/language-features/basic-list/list16.reject.out
index 5f26cbf1..6c99607b 100644
--- a/testdata/language-features/basic-list/list16.reject.out
+++ b/testdata/language-features/basic-list/list16.reject.out
@@ -6,3 +6,53 @@ with
 in testdata/language-features/basic-list/list16.reject.lc:1:13:
 value = 'h':'i'
             ^^^
+
+------------ trace
+infer:  labelend (Cons 'h' 'i')
+infer:  labEnd (Cons 'h' 'i')
+infer:  labEnd (Cons 'h' 'i')
+infer:  labEnd (Cons 'h' 'i')
+focus:  labEnd (Cons 'h' 'i')
+focus:  labEnd (Cons {_ : _:'Type} 'h' 'i')
+check:  labEnd (Cons {(_ : _:'Type) :: Type} 'h' 'i')
+infer:  labEnd (Cons {(_ : _:'Type) : Type} 'h' 'i')
+infer:  labEnd (Cons {\(a : _:'Type)->a : Type} 'h' 'i')
+infer:  labEnd (Cons {\(b : (\a:'Type -> a))->b : Type} 'h' 'i')
+focus:  labEnd (Cons {\(b : (\a:Type -> a))->b : Type} 'h' 'i')
+infer:  labEnd (Cons {\(b : \a->a)->b : Type} 'h' 'i')
+focus:  labEnd (Cons {\(b : \a->a)->b : Type} 'h' 'i')
+focus:  labEnd (Cons {(\a b:a -> b) : Type} 'h' 'i')
+infer:  labEnd (Cons {(\a b:a -> b) : Type} 'h' 'i')
+focus:  labEnd (Cons {(\a b:a -> b) : Type} 'h' 'i')
+focus:  labEnd (Cons {\a b:a -> b:Type} 'h' 'i')
+focus:  labEnd (Cons {\a b:a -> \(c : Type~a)->b} 'h' 'i')
+focus:  labEnd (Cons {\a b:a a:=Type -> b} 'h' 'i')
+focus:  labEnd (Cons {\a a:=Type -> \b->b} 'h' 'i')
+focus:  labEnd (Cons {\a->a} 'h' 'i')
+focus:  labEnd ((\a -> Cons {a}) 'h' 'i')
+focus:  labEnd (\a->Cons 'h' 'i')
+focus:  labEnd ((\a -> Cons 'h') 'i')
+check:  labEnd ((\a -> Cons 'h'::a) 'i')
+infer:  labEnd ((\a -> Cons 'h':a) 'i')
+focus:  labEnd ((\a -> Cons 'h':a) 'i')
+focus:  labEnd ((\a -> Cons \(b : a~'Char)->'h') 'i')
+focus:  labEnd ((\a -> Cons (\a:='Char -> 'h')) 'i')
+focus:  labEnd ((\a a:='Char -> Cons 'h') 'i')
+focus:  labEnd ((\a a:='Char -> Cons 'h') 'i')
+focus:  labEnd (Cons 'h' 'i')
+check:  labEnd (Cons 'h' ('i' :: 'List 'Char))
+infer:  labEnd (Cons 'h' ('i' : 'List 'Char))
+focus:  labEnd (Cons 'h' ('i' : 'List 'Char))
+focus:  labEnd (Cons 'h' \(a : 'Empty "can not unify\n\ESC[32m'List 'Char\ESC[m\nwith\n\ESC[32m'Char\ESC[m\n")->'i')
+!type error: can not unify
+'List 'Char
+with
+'Char
+
+in testdata/language-features/basic-list/list16.reject.lc:1:13
+
+------------ tooltips
+testdata/language-features/basic-list/list16.reject.lc 1:9-1:12  Char
+testdata/language-features/basic-list/list16.reject.lc 1:9-1:13  List Char -> List Char
+testdata/language-features/basic-list/list16.reject.lc 1:12-1:13  {a} -> a -> List a -> List a
+testdata/language-features/basic-list/list16.reject.lc 1:13-1:16  Char
diff --git a/testdata/language-features/basic-list/listcomp01.out b/testdata/language-features/basic-list/listcomp01.out
index f9053dd2..e5d0ba2d 100644
--- a/testdata/language-features/basic-list/listcomp01.out
+++ b/testdata/language-features/basic-list/listcomp01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'List 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-list/listcomp01.lc 1:1-1:6  List Tuple0
 testdata/language-features/basic-list/listcomp01.lc 1:9-1:34  List Tuple0
diff --git a/testdata/language-features/basic-list/listcomp02.out b/testdata/language-features/basic-list/listcomp02.out
index 4ade3a2f..a2835375 100644
--- a/testdata/language-features/basic-list/listcomp02.out
+++ b/testdata/language-features/basic-list/listcomp02.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+l :: 'List 'Tuple0
+value :: 'List 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-list/listcomp02.lc 1:1-1:2  List Tuple0
 testdata/language-features/basic-list/listcomp02.lc 1:5-1:18  List Tuple0
diff --git a/testdata/language-features/basic-list/listcomp03.out b/testdata/language-features/basic-list/listcomp03.out
index 001484be..9d31c0b3 100644
--- a/testdata/language-features/basic-list/listcomp03.out
+++ b/testdata/language-features/basic-list/listcomp03.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'List 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-list/listcomp03.lc 1:1-1:6  List Tuple0
 testdata/language-features/basic-list/listcomp03.lc 1:9-1:41  List Tuple0
diff --git a/testdata/language-features/basic-list/listcomp04.out b/testdata/language-features/basic-list/listcomp04.out
index ebf9b00a..87bebdaf 100644
--- a/testdata/language-features/basic-list/listcomp04.out
+++ b/testdata/language-features/basic-list/listcomp04.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+l :: 'List 'Tuple0
+value :: 'List 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-list/listcomp04.lc 1:1-1:2  List Tuple0
 testdata/language-features/basic-list/listcomp04.lc 1:5-1:18  List Tuple0
diff --git a/testdata/language-features/basic-list/listcomp05.out b/testdata/language-features/basic-list/listcomp05.out
index c4c03e58..8163ffcc 100644
--- a/testdata/language-features/basic-list/listcomp05.out
+++ b/testdata/language-features/basic-list/listcomp05.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'List 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-list/listcomp05.lc 1:1-1:6  List Tuple0
 testdata/language-features/basic-list/listcomp05.lc 1:9-1:39  List Tuple0
diff --git a/testdata/language-features/basic-list/listcomp06.out b/testdata/language-features/basic-list/listcomp06.out
index 02b0300a..1231475f 100644
--- a/testdata/language-features/basic-list/listcomp06.out
+++ b/testdata/language-features/basic-list/listcomp06.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+value1 :: 'List 'Tuple0
+value2 :: 'List 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-list/listcomp06.lc 1:1-1:7  List Tuple0
 testdata/language-features/basic-list/listcomp06.lc 1:10-1:46  List Tuple0
diff --git a/testdata/language-features/basic-list/listcomp07.out b/testdata/language-features/basic-list/listcomp07.out
index 9721ad28..f753d50a 100644
--- a/testdata/language-features/basic-list/listcomp07.out
+++ b/testdata/language-features/basic-list/listcomp07.out
@@ -1,4 +1,8 @@
 main is not found
+------------ trace
+value1 :: 'List 'Tuple0
+value2 :: 'List 'Tuple0
+value3 :: 'List 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-list/listcomp07.lc 1:1-1:7  List Tuple0
 testdata/language-features/basic-list/listcomp07.lc 1:10-6:11  List Tuple0
diff --git a/testdata/language-features/basic-list/listcomp08.reject.out b/testdata/language-features/basic-list/listcomp08.reject.out
index 3c21bdc9..8cde0e3b 100644
--- a/testdata/language-features/basic-list/listcomp08.reject.out
+++ b/testdata/language-features/basic-list/listcomp08.reject.out
@@ -6,3 +6,87 @@ with
 in testdata/language-features/basic-list/listcomp08.reject.lc:1:23:
 value = [x | x <- [], "not Bool"]
                       ^^^^^^^^^^
+
+------------ trace
+infer:  labelend (concatMap (\(a : _:'Type) -> primIfThenElse "not Bool" (Cons a Nil) Nil) Nil)
+infer:  labEnd (concatMap (\(a : _:'Type) -> primIfThenElse "not Bool" (Cons a Nil) Nil) Nil)
+infer:  labEnd (concatMap (\(a : _:'Type) -> primIfThenElse "not Bool" (Cons a Nil) Nil) Nil)
+infer:  labEnd (concatMap (\(a : _:'Type) -> primIfThenElse "not Bool" (Cons a Nil) Nil) Nil)
+focus:  labEnd (concatMap (\(a : _:'Type) -> primIfThenElse "not Bool" (Cons a Nil) Nil) Nil)
+focus:  labEnd (concatMap {_ : _:'Type} (\(a : _:'Type) -> primIfThenElse "not Bool" (Cons a Nil) Nil) Nil)
+check:  labEnd (concatMap {(_ : _:'Type) :: Type} (\(a : _:'Type) -> primIfThenElse "not Bool" (Cons a Nil) Nil) Nil)
+infer:  labEnd (concatMap {(_ : _:'Type) : Type} (\(a : _:'Type) -> primIfThenElse "not Bool" (Cons a Nil) Nil) Nil)
+infer:  labEnd (concatMap {\(a : _:'Type)->a : Type} (\(b : _:'Type) -> primIfThenElse "not Bool" (Cons b Nil) Nil) Nil)
+infer:  labEnd (concatMap {\(b : (\a:'Type -> a))->b : Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+focus:  labEnd (concatMap {\(b : (\a:Type -> a))->b : Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+infer:  labEnd (concatMap {\(b : \a->a)->b : Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+focus:  labEnd (concatMap {\(b : \a->a)->b : Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+focus:  labEnd (concatMap {(\a b:a -> b) : Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+infer:  labEnd (concatMap {(\a b:a -> b) : Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+focus:  labEnd (concatMap {(\a b:a -> b) : Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+focus:  labEnd (concatMap {\a b:a -> b:Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+focus:  labEnd (concatMap {\a b:a -> \(c : Type~a)->b} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil) Nil)
+focus:  labEnd (concatMap {\a b:a a:=Type -> b} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+focus:  labEnd (concatMap {\a a:=Type -> \b->b} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) Nil)
+focus:  labEnd (concatMap {\a->a} (\(b : _:'Type) -> primIfThenElse "not Bool" (Cons b Nil) Nil) Nil)
+focus:  labEnd ((\a -> concatMap {a}) (\(b : _:'Type) -> primIfThenElse "not Bool" (Cons b Nil) Nil) Nil)
+focus:  labEnd ((\a -> concatMap a) (\(b : _:'Type) -> primIfThenElse "not Bool" (Cons b Nil) Nil) Nil)
+focus:  labEnd ((\a -> concatMap a (\(b : _:'Type) -> primIfThenElse "not Bool" (Cons b Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {_ : _:'Type} (\(b : _:'Type) -> primIfThenElse "not Bool" (Cons b Nil) Nil)) Nil)
+check:  labEnd ((\a -> concatMap a {(_ : _:'Type) :: Type} (\(b : _:'Type) -> primIfThenElse "not Bool" (Cons b Nil) Nil)) Nil)
+infer:  labEnd ((\a -> concatMap a {(_ : _:'Type) : Type} (\(b : _:'Type) -> primIfThenElse "not Bool" (Cons b Nil) Nil)) Nil)
+infer:  labEnd ((\a -> concatMap a {\(b : _:'Type)->b : Type} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil)) Nil)
+infer:  labEnd ((\a -> concatMap a {\(c : (\b:'Type -> b))->c : Type} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {\(c : (\b:Type -> b))->c : Type} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+infer:  labEnd ((\a -> concatMap a {\(c : \b->b)->c : Type} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {\(c : \b->b)->c : Type} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {(\b c:b -> c) : Type} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+infer:  labEnd ((\a -> concatMap a {(\b c:b -> c) : Type} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {(\b c:b -> c) : Type} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {\b c:b -> c:Type} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {\b c:b -> \(d : Type~b)->c} (\(e : _:'Type) -> primIfThenElse "not Bool" (Cons e Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {\b c:b b:=Type -> c} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {\b b:=Type -> \c->c} (\(d : _:'Type) -> primIfThenElse "not Bool" (Cons d Nil) Nil)) Nil)
+focus:  labEnd ((\a -> concatMap a {\b->b} (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil)) Nil)
+focus:  labEnd ((\a -> (\b -> concatMap a {b}) (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil)) Nil)
+focus:  labEnd ((\a -> (\b -> concatMap a b) (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil)) Nil)
+check:  labEnd ((\a b -> concatMap a b ((\(c : _:'Type) -> primIfThenElse "not Bool" (Cons c Nil) Nil) :: a -> 'List b)) Nil)
+check:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse "not Bool" (Cons c Nil) Nil :: 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {_ : _:'Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+check:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {(_ : _:'Type) :: Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {(_ : _:'Type) : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\(d : _:'Type)->d : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\(e : (\d:'Type -> d))->e : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\(e : (\d:Type -> d))->e : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\(e : \d->d)->e : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\(e : \d->d)->e : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {(\d e:d -> e) : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {(\d e:d -> e) : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {(\d e:d -> e) : Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\d e:d -> e:Type} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\d e:d -> \(f : Type~d)->e} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\d e:d d:=Type -> e} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\d d:=Type -> \e->e} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> primIfThenElse {\d->d} "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> (\d -> primIfThenElse {d}) "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> (\d -> primIfThenElse d) "not Bool" (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> (\d -> primIfThenElse d "not Bool") (Cons c Nil) Nil : 'List b)) Nil)
+check:  labEnd ((\a b -> concatMap a b (\c:a -> (\d -> primIfThenElse d "not Bool"::'Bool) (Cons c Nil) Nil : 'List b)) Nil)
+infer:  labEnd ((\a b -> concatMap a b (\c:a -> (\d -> primIfThenElse d "not Bool":'Bool) (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> (\d -> primIfThenElse d "not Bool":'Bool) (Cons c Nil) Nil : 'List b)) Nil)
+focus:  labEnd ((\a b -> concatMap a b (\c:a -> (\d -> primIfThenElse d \(e : 'Empty "can not unify\n\ESC[32m'Bool\ESC[m\nwith\n\ESC[32m'String\ESC[m\n")->"not Bool") (Cons c Nil) Nil : 'List b)) Nil)
+!type error: can not unify
+'Bool
+with
+'String
+
+in testdata/language-features/basic-list/listcomp08.reject.lc:1:23
+
+------------ tooltips
+testdata/language-features/basic-list/listcomp08.reject.lc 1:10-1:33  V1 -> List V1
+testdata/language-features/basic-list/listcomp08.reject.lc 1:23-1:33  String
diff --git a/testdata/language-features/basic-list/listcomp09.out b/testdata/language-features/basic-list/listcomp09.out
index dfb10524..91ad2305 100644
--- a/testdata/language-features/basic-list/listcomp09.out
+++ b/testdata/language-features/basic-list/listcomp09.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value1 :: {a} -> 'List 'Tuple0->'String
 ------------ tooltips
 testdata/language-features/basic-list/listcomp09.lc 1:1-1:7  {a} -> List Tuple0->String
 testdata/language-features/basic-list/listcomp09.lc 1:10-1:36  List Tuple0->String
diff --git a/testdata/language-features/basic-values/bool01.out b/testdata/language-features/basic-values/bool01.out
index 0acc9e27..5e43b4e6 100644
--- a/testdata/language-features/basic-values/bool01.out
+++ b/testdata/language-features/basic-values/bool01.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+value1 :: 'Bool
+value2 :: 'Bool
 ------------ tooltips
 testdata/language-features/basic-values/bool01.lc 1:1-1:7  Bool
 testdata/language-features/basic-values/bool01.lc 1:10-1:14  Bool
diff --git a/testdata/language-features/basic-values/case01.out b/testdata/language-features/basic-values/case01.out
index c312ad05..70d58b87 100644
--- a/testdata/language-features/basic-values/case01.out
+++ b/testdata/language-features/basic-values/case01.out
@@ -1,4 +1,11 @@
 main is not found
+------------ trace
+value1 :: 'Tuple0
+value2 :: 'Tuple0
+value3 :: 'Tuple0
+value4 :: 'Tuple0
+value5 :: 'Tuple0
+value6 :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/case01.lc 1:1-1:7  Tuple0
 testdata/language-features/basic-values/case01.lc 1:10-1:29  Tuple0
diff --git a/testdata/language-features/basic-values/case02.out b/testdata/language-features/basic-values/case02.out
index 6758ca71..f58893ee 100644
--- a/testdata/language-features/basic-values/case02.out
+++ b/testdata/language-features/basic-values/case02.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+value1 :: {a} -> {b : 'Eq a} -> {c : 'Num a}->'Tuple0
+value2 :: {a} -> {b : 'Eq a} -> {c : 'Num a} -> {d : 'Eq a} -> {e : 'Num a}->'String
 ------------ tooltips
 testdata/language-features/basic-values/case02.lc 1:1-1:7  {a} -> {b : Eq a} -> {c : Num a}->Tuple0
 testdata/language-features/basic-values/case02.lc 1:10-3:10  Tuple0
diff --git a/testdata/language-features/basic-values/case03.reject.out b/testdata/language-features/basic-values/case03.reject.out
index fae6e385..6c701d13 100644
--- a/testdata/language-features/basic-values/case03.reject.out
+++ b/testdata/language-features/basic-values/case03.reject.out
@@ -3,3 +3,184 @@ in testdata/language-features/basic-values/case03.reject.lc:1:10:
 value1 = case () of
   1 -> ()
   _ -> ()
+
+------------ trace
+infer:  labelend ((\(a : _:'Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) a)) Tuple0)
+infer:  labEnd ((\(a : _:'Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) a)) Tuple0)
+infer:  labEnd ((\(a : _:'Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) a)) Tuple0)
+infer:  labEnd ((\(a : _:'Type : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) a)) Tuple0)
+infer:  labEnd ((\(b : (\a:'Type -> a) : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\(b : (\a:Type -> a) : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\(b : \a->a : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\(b : \a->a : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\(b : (\a -> a:Type)) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\(c : (\a b:'Unit -> a)) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) c)) Tuple0)
+focus:  labEnd ((\(b : \a->a) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\_:'Type -> _:'Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) ((\_:'Type -> _:'Type) :: 'Bool->Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> _:'Type :: Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> _:'Type : Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> (\h:'Type -> h) : Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> (\h:Type -> h) : Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h : Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h : Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool h -> h:Type) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool h i:'Unit -> h) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g h:'Bool -> g) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g h:Type -> g) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type g:Type -> 'BoolCase d e f g) (\h:Type -> c)) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0 Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0) Tuple0 (== (fromInt 1) b)) Tuple0)
+check:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0::c) Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0:c) Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0:c) Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) \(h : c~'Tuple0)->Tuple0) Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Tuple0 -> Tuple0)) Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c c:='Tuple0 -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> 'Tuple0) d e f) Tuple0) Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c c:='Tuple0 d:Type e:Type -> 'BoolCase (\f:Type -> 'Tuple0) Tuple0 d e) Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) Tuple0 (== (fromInt 1) b)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) Tuple0::'Tuple0 (== (fromInt 1) b)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) Tuple0:'Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) Tuple0:'Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) (\f:'Unit -> Tuple0) (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) Tuple0 (== (fromInt 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== (fromInt 1) b)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== (fromInt 1) b :: 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== (fromInt 1) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {_ : _:'Type} (fromInt 1) b : 'Bool)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {(_ : _:'Type) :: Type} (fromInt 1) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {(_ : _:'Type) : Type} (fromInt 1) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\(e : _:'Type)->e : Type} (fromInt 1) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\(f : (\e:'Type -> e))->f : Type} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\(f : (\e:Type -> e))->f : Type} (fromInt 1) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\(f : \e->e)->f : Type} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\(f : \e->e)->f : Type} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {(\e f:e -> f) : Type} (fromInt 1) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {(\e f:e -> f) : Type} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {(\e f:e -> f) : Type} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\e f:e -> f:Type} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\e f:e -> \(g : Type~e)->f} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\e f:e e:=Type -> f} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\e e:=Type -> \f->f} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (== {\e->e} (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == {e}) (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e) (fromInt 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {_ : _:'Type} (fromInt 1)) b : 'Bool)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {(_ : _:'Type) :: 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {(_ : _:'Type) : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\(f : _:'Type)->f : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\(g : (\f:'Type -> f))->g : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\(g : (\f:Type -> f))->g : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\(g : \f->f)->g : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\(g : \f->f)->g : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {(\f g:f -> g) : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {(\f g:f -> g) : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {(\f g:f -> g) : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\f g:f -> g : 'Eq e} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\f g:f -> \(h : 'Eq e ~ f)->g} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\f g:f -> \(f := 'Eq e)->g} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\f (f := 'Eq e) -> \(g : 'Eq e)->g} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> == e {\(f : 'Eq e)->f} (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> (\(f : 'Eq e) -> == e {f}) (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e -> (\(f : 'Eq e) -> == e f) (fromInt 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt 1)) b : 'Bool)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt 1 :: e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {_ : _:'Type} 1 : e)) b : 'Bool)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {(_ : _:'Type) :: Type} 1 : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {(_ : _:'Type) : Type} 1 : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\(g : _:'Type)->g : Type} 1 : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\(h : (\g:'Type -> g))->h : Type} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\(h : (\g:Type -> g))->h : Type} 1 : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\(h : \g->g)->h : Type} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\(h : \g->g)->h : Type} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {(\g h:g -> h) : Type} 1 : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {(\g h:g -> h) : Type} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {(\g h:g -> h) : Type} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\g h:g -> h:Type} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\g h:g -> \(i : Type~g)->h} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\g h:g g:=Type -> h} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\g g:=Type -> \h->h} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (fromInt {\g->g} 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt {g}) 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g) 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {_ : _:'Type} 1) : e)) b : 'Bool)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {(_ : _:'Type) :: 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {(_ : _:'Type) : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\(h : _:'Type)->h : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\(i : (\h:'Type -> h))->i : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\(i : (\h:Type -> h))->i : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\(i : \h->h)->i : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\(i : \h->h)->i : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {(\h i:h -> i) : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {(\h i:h -> i) : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {(\h i:h -> i) : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\h i:h -> i : 'Num g} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\h i:h -> \(j : 'Num g ~ h)->i} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\h i:h -> \(h := 'Num g)->i} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\h (h := 'Num g) -> \(i : 'Num g)->i} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> fromInt g {\(h : 'Num g)->h} 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> (\(h : 'Num g) -> fromInt g {h}) 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g -> (\(h : 'Num g) -> fromInt g h) 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g (h : 'Num g) -> fromInt g h 1) : e)) b : 'Bool)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g (h : 'Num g) -> fromInt g h 1::'Int) : e)) b : 'Bool)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g (h : 'Num g) -> fromInt g h 1:'Int) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g (h : 'Num g) -> fromInt g h 1:'Int) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g (h : 'Num g) -> fromInt g h (\i:'Unit -> 1)) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g (h : 'Num g) -> fromInt g h 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f ((\g (h : 'Num g) -> fromInt g h 1) : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (\g (h : 'Num g) -> fromInt g h 1 : e)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (\g (h : 'Num g) (i : e~g) -> fromInt g h 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (\g (h : 'Num g) g:=e -> fromInt e h 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (\g g:=e (h : 'Num e) -> fromInt e h 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) -> == e f (\(g : 'Num e) -> fromInt e g 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) ((\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1)) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1) b : 'Bool)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) -> (\h:'Unit -> == e f (fromInt e g 1)) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1) b)) Tuple0)
+check:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1) b::e)) Tuple0)
+infer:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1) b:e)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1) b:e)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1) \(h : e~a)->b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) -> == e f (fromInt e g 1) (\e:=a -> b))) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) e:=a -> == a f (fromInt a g 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) (g : 'Num e) e:=a -> == a f (fromInt a g 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e (f : 'Eq e) e:=a (g : 'Num a) -> == a f (fromInt a g 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\e e:=a (f : 'Eq a) (g : 'Num a) -> == a f (fromInt a g 1) b)) Tuple0)
+focus:  labEnd ((\a b:a -> (\c:Type -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 c) (\(e : 'Eq a) (f : 'Num a) -> == a e (fromInt a f 1) b)) Tuple0)
+focus:  labEnd ((\a b:a (c : 'Eq a) (d : 'Num a) -> (\e:Type -> 'BoolCase (\f:Type -> 'Tuple0) Tuple0 Tuple0 e) (== a c (fromInt a d 1) b)) Tuple0)
+focus:  labEnd ((\a b:a (c : 'Eq a) (d : 'Num a) -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a c (fromInt a d 1) b)) Tuple0)
+focus:  labEnd ((\a (b : 'Eq a) (c : 'Num a) d:a -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a b (fromInt a c 1) d)) Tuple0)
+focus:  labEnd ((\a (b : 'Eq a) (c : 'Num a) d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a b (fromInt a c 1) d)) Tuple0)
+focus:  labEnd (\a (b : 'Eq a) (c : 'Num a) -> (\d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a b (fromInt a c 1) d)) Tuple0)
+check:  labEnd (\a (b : 'Eq a) (c : 'Num a) -> (\d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a b (fromInt a c 1) d)) Tuple0::a)
+infer:  labEnd (\a (b : 'Eq a) (c : 'Num a) -> (\d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a b (fromInt a c 1) d)) Tuple0:a)
+focus:  labEnd (\a (b : 'Eq a) (c : 'Num a) -> (\d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a b (fromInt a c 1) d)) Tuple0:a)
+focus:  labEnd (\a (b : 'Eq a) (c : 'Num a) -> (\d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a b (fromInt a c 1) d)) \(f : a~'Tuple0)->Tuple0)
+focus:  labEnd (\a (b : 'Eq a) (c : 'Num a) -> (\d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (== a b (fromInt a c 1) d)) (\a:='Tuple0 -> Tuple0))
+focus:  labEnd (\a (b : 'Eq a) (c : 'Num a) a:='Tuple0 -> (\d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 Tuple0 (undefined ('Tuple0 -> 'Tuple0->'Bool) (undefined 'Int->'Tuple0 1) d)) Tuple0)
+focus:  labEnd (\a (b : 'Eq a) (c : 'Num a) a:='Tuple0 -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 (undefined ('Tuple0 -> 'Tuple0->'Bool) (undefined 'Int->'Tuple0 1) Tuple0))
+focus:  labEnd (\a (b : 'Eq a) a:='Tuple0 (c : 'Empty "no instance of 'Num on ???") -> 'BoolCase (\d:Type -> 'Tuple0) Tuple0 Tuple0 (undefined ('Tuple0 -> 'Tuple0->'Bool) (undefined 'Int->'Tuple0 1) Tuple0))
+!type error: no instance of 'Num on ???
+in testdata/language-features/basic-values/case03.reject.lc:1:10
+
+------------ tooltips
+testdata/language-features/basic-values/case03.reject.lc 1:10-3:10  Tuple0
+testdata/language-features/basic-values/case03.reject.lc 1:15-1:17  Tuple0
+testdata/language-features/basic-values/case03.reject.lc 2:8-2:10  Tuple0
+testdata/language-features/basic-values/case03.reject.lc 2:8-3:10  Bool->Tuple0
+testdata/language-features/basic-values/case03.reject.lc 3:8-3:10  Tuple0
diff --git a/testdata/language-features/basic-values/case04.reject.out b/testdata/language-features/basic-values/case04.reject.out
index 357a7f96..86bcc273 100644
--- a/testdata/language-features/basic-values/case04.reject.out
+++ b/testdata/language-features/basic-values/case04.reject.out
@@ -6,3 +6,60 @@ with
 in testdata/language-features/basic-values/case04.reject.lc:2:8:
   1 -> '1'
        ^^^
+
+------------ trace
+infer:  labelend ((\(a : _:'Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) a)) (fromInt 1))
+infer:  labEnd ((\(a : _:'Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) a)) (fromInt 1))
+infer:  labEnd ((\(a : _:'Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) a)) (fromInt 1))
+infer:  labEnd ((\(a : _:'Type : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) a)) (fromInt 1))
+infer:  labEnd ((\(b : (\a:'Type -> a) : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\(b : (\a:Type -> a) : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\(b : \a->a : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\(b : \a->a : Type) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\(b : (\a -> a:Type)) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\(c : (\a b:'Unit -> a)) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) c)) (fromInt 1))
+focus:  labEnd ((\(b : \a->a) -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> 'BoolCase (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\_:'Type -> _:'Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+check:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) ((\_:'Type -> _:'Type) :: 'Bool->Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+check:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> _:'Type :: Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> _:'Type : Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> (\h:'Type -> h) : Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> (\h:Type -> h) : Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h : Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h : Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool h -> h:Type) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool h i:'Unit -> h) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g h:'Bool -> g) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g h:Type -> g) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type g:Type -> 'BoolCase d e f g) (\h:Type -> c)) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0 '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0) '1' (== (fromInt 1) b)) (fromInt 1))
+check:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0::c) '1' (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0:c) '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) Tuple0:c) '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) \(h : c~'Tuple0)->Tuple0) '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Tuple0 -> Tuple0)) '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c c:='Tuple0 -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> 'Tuple0) d e f) Tuple0) '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c c:='Tuple0 d:Type e:Type -> 'BoolCase (\f:Type -> 'Tuple0) Tuple0 d e) '1' (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) '1' (== (fromInt 1) b)) (fromInt 1))
+check:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) '1'::'Tuple0 (== (fromInt 1) b)) (fromInt 1))
+infer:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) '1':'Tuple0 (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) '1':'Tuple0 (== (fromInt 1) b)) (fromInt 1))
+focus:  labEnd ((\a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Tuple0) Tuple0 c d) \(f : 'Empty "can not unify\n\ESC[32m'Tuple0\ESC[m\nwith\n\ESC[32m'Char\ESC[m\n")->'1' (== (fromInt 1) b)) (fromInt 1))
+!type error: can not unify
+'Tuple0
+with
+'Char
+
+in testdata/language-features/basic-values/case04.reject.lc:2:8
+
+------------ tooltips
+testdata/language-features/basic-values/case04.reject.lc 2:8-2:11  Char
+testdata/language-features/basic-values/case04.reject.lc 3:8-3:10  Tuple0
diff --git a/testdata/language-features/basic-values/case05.out b/testdata/language-features/basic-values/case05.out
index d648ca93..21c1f5ee 100644
--- a/testdata/language-features/basic-values/case05.out
+++ b/testdata/language-features/basic-values/case05.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: {a} -> {b : 'Eq a} -> {c : 'Num a} -> a->'Char
 ------------ tooltips
 testdata/language-features/basic-values/case05.lc 1:1-1:6  {a} -> {b : Eq a} -> {c : Num a} -> a->Char
 testdata/language-features/basic-values/case05.lc 1:11-2:11  Char
diff --git a/testdata/language-features/basic-values/case06.out b/testdata/language-features/basic-values/case06.out
index 1e0208bb..5c2857a0 100644
--- a/testdata/language-features/basic-values/case06.out
+++ b/testdata/language-features/basic-values/case06.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: {a} -> {b : 'Eq a} -> {c : 'Num a} -> a->'Char
 ------------ tooltips
 testdata/language-features/basic-values/case06.lc 1:1-1:6  {a} -> {b : Eq a} -> {c : Num a} -> a->Char
 testdata/language-features/basic-values/case06.lc 1:11-3:11  Char
diff --git a/testdata/language-features/basic-values/data01.out b/testdata/language-features/basic-values/data01.out
index d84b92aa..71e63817 100644
--- a/testdata/language-features/basic-values/data01.out
+++ b/testdata/language-features/basic-values/data01.out
@@ -1,4 +1,23 @@
 main is not found
+------------ trace
+'A :: Type
+B :: 'A
+C :: 'A
+D :: 'A
+'ACase :: (b : 'A->Type) -> b B -> b C -> b D -> f:'A -> b f
+match'A :: (b : Type->Type) -> b 'A -> d:Type -> b d -> b d
+'E :: Type
+F :: 'E
+G :: 'Tuple0->'E
+H :: 'E
+'ECase :: (b : 'E->Type) -> b F -> (d:'Tuple0 -> b (G d)) -> b H -> g:'E -> b g
+match'E :: (b : Type->Type) -> b 'E -> d:Type -> b d -> b d
+'D1 :: Type
+C1 :: 'D1
+C2 :: 'Tuple0->'D1
+C3 :: 'D1
+'D1Case :: (b : 'D1->Type) -> b C1 -> (d:'Tuple0 -> b (C2 d)) -> b C3 -> g:'D1 -> b g
+match'D1 :: (b : Type->Type) -> b 'D1 -> d:Type -> b d -> b d
 ------------ tooltips
 testdata/language-features/basic-values/data01.lc 1:6-1:7  Type
 testdata/language-features/basic-values/data01.lc 1:6-1:13  Type
diff --git a/testdata/language-features/basic-values/data02.reject.out b/testdata/language-features/basic-values/data02.reject.out
index 78dbd88f..b5f349a0 100644
--- a/testdata/language-features/basic-values/data02.reject.out
+++ b/testdata/language-features/basic-values/data02.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/data02.reject.lc:1:6:
 unexpected 'd'
-expecting uppercase ident
\ No newline at end of file
+expecting uppercase ident
+------------ trace
+!testdata/language-features/basic-values/data02.reject.lc:1:6:
+unexpected 'd'
+expecting uppercase ident
diff --git a/testdata/language-features/basic-values/data03.reject.out b/testdata/language-features/basic-values/data03.reject.out
index b20af35a..28dd835b 100644
--- a/testdata/language-features/basic-values/data03.reject.out
+++ b/testdata/language-features/basic-values/data03.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/data03.reject.lc:1:10:
 unexpected 'd'
-expecting uppercase ident
\ No newline at end of file
+expecting uppercase ident
+------------ trace
+!testdata/language-features/basic-values/data03.reject.lc:1:10:
+unexpected 'd'
+expecting uppercase ident
diff --git a/testdata/language-features/basic-values/def01.out b/testdata/language-features/basic-values/def01.out
index 1f81f287..8d940c97 100644
--- a/testdata/language-features/basic-values/def01.out
+++ b/testdata/language-features/basic-values/def01.out
@@ -1,4 +1,8 @@
 main is not found
+------------ trace
+unit :: 'Tuple0
+fun1 :: {a} -> {b} -> {c : 'Num b} -> a->b
+fun2 :: {a} -> {b} -> {c} -> {d} -> {e} -> a -> b -> c -> d -> e->'Char
 ------------ tooltips
 testdata/language-features/basic-values/def01.lc 1:1-1:5  Tuple0
 testdata/language-features/basic-values/def01.lc 1:8-1:10  Tuple0
diff --git a/testdata/language-features/basic-values/def02.reject.out b/testdata/language-features/basic-values/def02.reject.out
index 51c85026..70ff66c1 100644
--- a/testdata/language-features/basic-values/def02.reject.out
+++ b/testdata/language-features/basic-values/def02.reject.out
@@ -1,3 +1,9 @@
 multiple pattern vars:
 x is defined at testdata/language-features/basic-values/def02.reject.lc 1:8-1:9
 x is defined at testdata/language-features/basic-values/def02.reject.lc 1:6-1:7
+
+------------ trace
+!multiple pattern vars:
+x is defined at testdata/language-features/basic-values/def02.reject.lc 1:8-1:9
+x is defined at testdata/language-features/basic-values/def02.reject.lc 1:6-1:7
+
diff --git a/testdata/language-features/basic-values/def03.out b/testdata/language-features/basic-values/def03.out
index e90abd53..48739e24 100644
--- a/testdata/language-features/basic-values/def03.out
+++ b/testdata/language-features/basic-values/def03.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: {a} -> {b : 'Eq a} -> {c : 'Num a} -> {d : 'Eq a} -> {e : 'Num a} -> a->'Char
 ------------ tooltips
 testdata/language-features/basic-values/def03.lc 1:1-1:4  {a} -> {b : Eq a} -> {c : Num a} -> {d : Eq a} -> {e : Num a} -> a->Char
 testdata/language-features/basic-values/def03.lc 1:9-1:12  Char
diff --git a/testdata/language-features/basic-values/def04.out b/testdata/language-features/basic-values/def04.out
index 0535096f..8a9dacfe 100644
--- a/testdata/language-features/basic-values/def04.out
+++ b/testdata/language-features/basic-values/def04.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+fun :: {a} -> {b : 'Eq a} -> {c : 'Num a} -> {d : 'Eq a} -> {e : 'Num a} -> a->'Char
+fun2 :: {a} -> {b} -> {c : 'Eq a} -> {d : 'Num a} -> {e : 'Eq a} -> {f : 'Num a} -> a -> b->'Char
 ------------ tooltips
 testdata/language-features/basic-values/def04.lc 1:1-1:4  {a} -> {b : Eq a} -> {c : Num a} -> {d : Eq a} -> {e : Num a} -> a->Char
 testdata/language-features/basic-values/def04.lc 1:9-1:12  Char
diff --git a/testdata/language-features/basic-values/def05.reject.out b/testdata/language-features/basic-values/def05.reject.out
index d154a88c..a2c8c27c 100644
--- a/testdata/language-features/basic-values/def05.reject.out
+++ b/testdata/language-features/basic-values/def05.reject.out
@@ -1,2 +1,5 @@
 testdata/language-features/basic-values/def05.reject.lc:4:1:
-different number of arguments of fun at testdata/language-features/basic-values/def05.reject.lc 1:1-1:4
\ No newline at end of file
+different number of arguments of fun at testdata/language-features/basic-values/def05.reject.lc 1:1-1:4
+------------ trace
+!testdata/language-features/basic-values/def05.reject.lc:4:1:
+different number of arguments of fun at testdata/language-features/basic-values/def05.reject.lc 1:1-1:4
diff --git a/testdata/language-features/basic-values/def06.reject.out b/testdata/language-features/basic-values/def06.reject.out
index 17983359..5db5da9c 100644
--- a/testdata/language-features/basic-values/def06.reject.out
+++ b/testdata/language-features/basic-values/def06.reject.out
@@ -1,2 +1,5 @@
 testdata/language-features/basic-values/def06.reject.lc:5:1:
-different number of arguments of fun2 at testdata/language-features/basic-values/def06.reject.lc 1:1-1:5
\ No newline at end of file
+different number of arguments of fun2 at testdata/language-features/basic-values/def06.reject.lc 1:1-1:5
+------------ trace
+!testdata/language-features/basic-values/def06.reject.lc:5:1:
+different number of arguments of fun2 at testdata/language-features/basic-values/def06.reject.lc 1:1-1:5
diff --git a/testdata/language-features/basic-values/def07.reject.out b/testdata/language-features/basic-values/def07.reject.out
index b341ff79..a8c509d2 100644
--- a/testdata/language-features/basic-values/def07.reject.out
+++ b/testdata/language-features/basic-values/def07.reject.out
@@ -3,4 +3,19 @@ fun _ = '_'
 ^^^
  and at testdata/language-features/basic-values/def07.reject.lc:1:1:
 fun 1 = '1'
-^^^
\ No newline at end of file
+^^^
+------------ trace
+fun :: {a} -> {b : 'Eq a} -> {c : 'Num a} -> {d : 'Eq a} -> {e : 'Num a} -> a->'Char
+fun2 :: {a} -> {b} -> {c : 'Eq a} -> {d : 'Num a} -> a -> b->'Char
+fun :: {a} -> a->'Char
+!already defined fun at testdata/language-features/basic-values/def07.reject.lc:4:1
+ and at testdata/language-features/basic-values/def07.reject.lc:1:1
+------------ tooltips
+testdata/language-features/basic-values/def07.reject.lc 1:1-1:4  {a} -> {b : Eq a} -> {c : Num a} -> {d : Eq a} -> {e : Num a} -> a->Char
+testdata/language-features/basic-values/def07.reject.lc 1:9-1:12  Char
+testdata/language-features/basic-values/def07.reject.lc 1:9-2:12  Bool->Char
+testdata/language-features/basic-values/def07.reject.lc 2:9-2:12  Char
+testdata/language-features/basic-values/def07.reject.lc 3:1-3:5  {a} -> {b} -> {c : Eq a} -> {d : Num a} -> a -> b->Char
+testdata/language-features/basic-values/def07.reject.lc 3:12-3:15  Char
+testdata/language-features/basic-values/def07.reject.lc 4:1-4:4  {a} -> a->Char
+testdata/language-features/basic-values/def07.reject.lc 4:9-4:12  Char
diff --git a/testdata/language-features/basic-values/deforder01.out b/testdata/language-features/basic-values/deforder01.out
index 34a069d5..f0e01c94 100644
--- a/testdata/language-features/basic-values/deforder01.out
+++ b/testdata/language-features/basic-values/deforder01.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+x :: 'Char
+y :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/deforder01.lc 1:1-1:2  Char
 testdata/language-features/basic-values/deforder01.lc 1:5-1:8  Char
diff --git a/testdata/language-features/basic-values/deforder02.out b/testdata/language-features/basic-values/deforder02.out
index f28a5a82..0466faf4 100644
--- a/testdata/language-features/basic-values/deforder02.out
+++ b/testdata/language-features/basic-values/deforder02.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+x :: 'Char
+y :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/deforder02.lc 1:1-1:2  Char
 testdata/language-features/basic-values/deforder02.lc 1:5-1:6  Char
diff --git a/testdata/language-features/basic-values/deforder03.out b/testdata/language-features/basic-values/deforder03.out
index abb1237a..e4f758ce 100644
--- a/testdata/language-features/basic-values/deforder03.out
+++ b/testdata/language-features/basic-values/deforder03.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/deforder03.lc 1:1-1:6  Char
 testdata/language-features/basic-values/deforder03.lc 1:17-1:19  Tuple0
diff --git a/testdata/language-features/basic-values/deforder04.out b/testdata/language-features/basic-values/deforder04.out
index 80836aae..5c9a24e7 100644
--- a/testdata/language-features/basic-values/deforder04.out
+++ b/testdata/language-features/basic-values/deforder04.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/deforder04.lc 1:1-1:6  Char
 testdata/language-features/basic-values/deforder04.lc 1:17-1:18  Tuple0
diff --git a/testdata/language-features/basic-values/deforder05.out b/testdata/language-features/basic-values/deforder05.out
index 7851de6d..b09d51d9 100644
--- a/testdata/language-features/basic-values/deforder05.out
+++ b/testdata/language-features/basic-values/deforder05.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/deforder05.lc 1:1-1:6  Char
 testdata/language-features/basic-values/deforder05.lc 1:9-1:12  Char
diff --git a/testdata/language-features/basic-values/deforder06.out b/testdata/language-features/basic-values/deforder06.out
index 2619b3e0..d3782235 100644
--- a/testdata/language-features/basic-values/deforder06.out
+++ b/testdata/language-features/basic-values/deforder06.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/deforder06.lc 1:1-1:6  Char
 testdata/language-features/basic-values/deforder06.lc 1:9-1:12  Char
diff --git a/testdata/language-features/basic-values/fixity01.out b/testdata/language-features/basic-values/fixity01.out
index 4b05a9ff..eb0e5fc2 100644
--- a/testdata/language-features/basic-values/fixity01.out
+++ b/testdata/language-features/basic-values/fixity01.out
@@ -1,4 +1,9 @@
 main is not found
+------------ trace
+funL :: {a} -> {b} -> a -> b->a
+funR :: {a} -> {b} -> a -> b->a
+<<<< :: {a} -> {b} -> a -> b->a
+>>>> :: {a} -> {b} -> a -> b->b
 ------------ tooltips
 testdata/language-features/basic-values/fixity01.lc 1:1-1:5  {a} -> {b} -> a -> b->a
 testdata/language-features/basic-values/fixity01.lc 1:12-1:13  V3
diff --git a/testdata/language-features/basic-values/fixity02.out b/testdata/language-features/basic-values/fixity02.out
index 96c6b4d0..a530d87a 100644
--- a/testdata/language-features/basic-values/fixity02.out
+++ b/testdata/language-features/basic-values/fixity02.out
@@ -1,4 +1,25 @@
 main is not found
+------------ trace
+funL :: {a} -> {b} -> a -> b->a
+funR :: {a} -> {b} -> a -> b->b
+<@ :: {a} -> {b} -> a -> b->a
+@> :: {a} -> {b} -> a -> b->b
+value1 :: 'Float
+value2 :: 'Float
+value3 :: 'Float
+value4 :: 'Float
+value5 :: 'String
+value6 :: 'Char
+value7 :: 'String
+value8 :: 'Tuple0
+funValue1 :: 'Float
+funValue2 :: 'Float
+funValue3 :: 'Float
+funValue4 :: 'Float
+funValue5 :: 'String
+funValue6 :: 'Char
+funValue7 :: 'String
+funValue8 :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/fixity02.lc 1:1-1:5  {a} -> {b} -> a -> b->a
 testdata/language-features/basic-values/fixity02.lc 1:12-1:13  V3
diff --git a/testdata/language-features/basic-values/if01.out b/testdata/language-features/basic-values/if01.out
index f04bb9f9..dcdc09f5 100644
--- a/testdata/language-features/basic-values/if01.out
+++ b/testdata/language-features/basic-values/if01.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+value1 :: 'Tuple0
+value2 :: 'Float
 ------------ tooltips
 testdata/language-features/basic-values/if01.lc 1:1-1:7  Tuple0
 testdata/language-features/basic-values/if01.lc 1:10-1:33  Tuple0
diff --git a/testdata/language-features/basic-values/if03.reject.out b/testdata/language-features/basic-values/if03.reject.out
index b9503d90..d9e5b957 100644
--- a/testdata/language-features/basic-values/if03.reject.out
+++ b/testdata/language-features/basic-values/if03.reject.out
@@ -6,3 +6,43 @@ with
 in testdata/language-features/basic-values/if03.reject.lc:1:13:
 value1 = if () then () else ()
             ^^
+
+------------ trace
+infer:  labelend (primIfThenElse Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {_ : _:'Type} Tuple0 Tuple0 Tuple0)
+check:  labEnd (primIfThenElse {(_ : _:'Type) :: Type} Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse {(_ : _:'Type) : Type} Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse {\(a : _:'Type)->a : Type} Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse {\(b : (\a:'Type -> a))->b : Type} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {\(b : (\a:Type -> a))->b : Type} Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse {\(b : \a->a)->b : Type} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {\(b : \a->a)->b : Type} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {(\a b:a -> b) : Type} Tuple0 Tuple0 Tuple0)
+infer:  labEnd (primIfThenElse {(\a b:a -> b) : Type} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {(\a b:a -> b) : Type} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {\a b:a -> b:Type} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {\a b:a -> \(c : Type~a)->b} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {\a b:a a:=Type -> b} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {\a a:=Type -> \b->b} Tuple0 Tuple0 Tuple0)
+focus:  labEnd (primIfThenElse {\a->a} Tuple0 Tuple0 Tuple0)
+focus:  labEnd ((\a -> primIfThenElse {a}) Tuple0 Tuple0 Tuple0)
+focus:  labEnd ((\a -> primIfThenElse a) Tuple0 Tuple0 Tuple0)
+focus:  labEnd ((\a -> primIfThenElse a Tuple0) Tuple0 Tuple0)
+check:  labEnd ((\a -> primIfThenElse a Tuple0::'Bool) Tuple0 Tuple0)
+infer:  labEnd ((\a -> primIfThenElse a Tuple0:'Bool) Tuple0 Tuple0)
+focus:  labEnd ((\a -> primIfThenElse a Tuple0:'Bool) Tuple0 Tuple0)
+focus:  labEnd ((\a -> primIfThenElse a \(b : 'Empty "can not unify\n\ESC[32m'Bool\ESC[m\nwith\n\ESC[32m'Tuple0\ESC[m\n")->Tuple0) Tuple0 Tuple0)
+!type error: can not unify
+'Bool
+with
+'Tuple0
+
+in testdata/language-features/basic-values/if03.reject.lc:1:13
+
+------------ tooltips
+testdata/language-features/basic-values/if03.reject.lc 1:13-1:15  Tuple0
diff --git a/testdata/language-features/basic-values/if04.reject.out b/testdata/language-features/basic-values/if04.reject.out
index c4b4edd2..78a1afb7 100644
--- a/testdata/language-features/basic-values/if04.reject.out
+++ b/testdata/language-features/basic-values/if04.reject.out
@@ -6,3 +6,61 @@ with
 in testdata/language-features/basic-values/if04.reject.lc:1:31:
 value1 = if True then () else '_'
                               ^^^
+
+------------ trace
+infer:  labelend (primIfThenElse True Tuple0 '_')
+infer:  labEnd (primIfThenElse True Tuple0 '_')
+infer:  labEnd (primIfThenElse True Tuple0 '_')
+infer:  labEnd (primIfThenElse True Tuple0 '_')
+infer:  labEnd (primIfThenElse True Tuple0 '_')
+focus:  labEnd (primIfThenElse True Tuple0 '_')
+focus:  labEnd (primIfThenElse {_ : _:'Type} True Tuple0 '_')
+check:  labEnd (primIfThenElse {(_ : _:'Type) :: Type} True Tuple0 '_')
+infer:  labEnd (primIfThenElse {(_ : _:'Type) : Type} True Tuple0 '_')
+infer:  labEnd (primIfThenElse {\(a : _:'Type)->a : Type} True Tuple0 '_')
+infer:  labEnd (primIfThenElse {\(b : (\a:'Type -> a))->b : Type} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {\(b : (\a:Type -> a))->b : Type} True Tuple0 '_')
+infer:  labEnd (primIfThenElse {\(b : \a->a)->b : Type} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {\(b : \a->a)->b : Type} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {(\a b:a -> b) : Type} True Tuple0 '_')
+infer:  labEnd (primIfThenElse {(\a b:a -> b) : Type} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {(\a b:a -> b) : Type} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {\a b:a -> b:Type} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {\a b:a -> \(c : Type~a)->b} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {\a b:a a:=Type -> b} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {\a a:=Type -> \b->b} True Tuple0 '_')
+focus:  labEnd (primIfThenElse {\a->a} True Tuple0 '_')
+focus:  labEnd ((\a -> primIfThenElse {a}) True Tuple0 '_')
+focus:  labEnd ((\a -> primIfThenElse a) True Tuple0 '_')
+focus:  labEnd ((\a -> primIfThenElse a True) Tuple0 '_')
+check:  labEnd ((\a -> primIfThenElse a True::'Bool) Tuple0 '_')
+infer:  labEnd ((\a -> primIfThenElse a True:'Bool) Tuple0 '_')
+focus:  labEnd ((\a -> primIfThenElse a True:'Bool) Tuple0 '_')
+focus:  labEnd ((\a -> primIfThenElse a (\b:'Unit -> True)) Tuple0 '_')
+focus:  labEnd ((\a -> primIfThenElse a True) Tuple0 '_')
+focus:  labEnd ((\a -> primIfThenElse a True) Tuple0 '_')
+focus:  labEnd ((\a -> primIfThenElse a True Tuple0) '_')
+check:  labEnd ((\a -> primIfThenElse a True Tuple0::a) '_')
+infer:  labEnd ((\a -> primIfThenElse a True Tuple0:a) '_')
+focus:  labEnd ((\a -> primIfThenElse a True Tuple0:a) '_')
+focus:  labEnd ((\a -> primIfThenElse a True \(b : a~'Tuple0)->Tuple0) '_')
+focus:  labEnd ((\a -> primIfThenElse a True (\a:='Tuple0 -> Tuple0)) '_')
+focus:  labEnd ((\a a:='Tuple0 -> primIfThenElse 'Tuple0 True Tuple0) '_')
+focus:  labEnd ((\a a:='Tuple0 -> primIfThenElse 'Tuple0 True Tuple0) '_')
+focus:  labEnd (primIfThenElse 'Tuple0 True Tuple0 '_')
+check:  labEnd (primIfThenElse 'Tuple0 True Tuple0 '_'::'Tuple0)
+infer:  labEnd (primIfThenElse 'Tuple0 True Tuple0 '_':'Tuple0)
+focus:  labEnd (primIfThenElse 'Tuple0 True Tuple0 '_':'Tuple0)
+focus:  labEnd (primIfThenElse 'Tuple0 True Tuple0 \(a : 'Empty "can not unify\n\ESC[32m'Tuple0\ESC[m\nwith\n\ESC[32m'Char\ESC[m\n")->'_')
+!type error: can not unify
+'Tuple0
+with
+'Char
+
+in testdata/language-features/basic-values/if04.reject.lc:1:31
+
+------------ tooltips
+testdata/language-features/basic-values/if04.reject.lc 1:13-1:17  Bool
+testdata/language-features/basic-values/if04.reject.lc 1:13-1:25  Tuple0->Tuple0
+testdata/language-features/basic-values/if04.reject.lc 1:23-1:25  Tuple0
+testdata/language-features/basic-values/if04.reject.lc 1:31-1:34  Char
diff --git a/testdata/language-features/basic-values/indentation01.out b/testdata/language-features/basic-values/indentation01.out
index a0ba4d19..5136fc74 100644
--- a/testdata/language-features/basic-values/indentation01.out
+++ b/testdata/language-features/basic-values/indentation01.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+tuple1 :: 'Tuple0
+tuple2 :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/indentation01.lc 1:1-1:7  Tuple0
 testdata/language-features/basic-values/indentation01.lc 1:10-1:12  Tuple0
diff --git a/testdata/language-features/basic-values/indentation02.out b/testdata/language-features/basic-values/indentation02.out
index b6510ce2..21e8f789 100644
--- a/testdata/language-features/basic-values/indentation02.out
+++ b/testdata/language-features/basic-values/indentation02.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+tuple1 :: 'Tuple0
+tuple2 :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/indentation02.lc 1:3-1:9  Tuple0
 testdata/language-features/basic-values/indentation02.lc 1:12-1:14  Tuple0
diff --git a/testdata/language-features/basic-values/indentation03.reject.out b/testdata/language-features/basic-values/indentation03.reject.out
index d7b765a3..8b9c4420 100644
--- a/testdata/language-features/basic-values/indentation03.reject.out
+++ b/testdata/language-features/basic-values/indentation03.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/indentation03.reject.lc:2:10:
 unexpected '='
-expecting end of input
\ No newline at end of file
+expecting end of input
+------------ trace
+!testdata/language-features/basic-values/indentation03.reject.lc:2:10:
+unexpected '='
+expecting end of input
diff --git a/testdata/language-features/basic-values/indentation04.reject.out b/testdata/language-features/basic-values/indentation04.reject.out
index 4286f549..eb87cf2a 100644
--- a/testdata/language-features/basic-values/indentation04.reject.out
+++ b/testdata/language-features/basic-values/indentation04.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/indentation04.reject.lc:2:2:
 unexpected 't'
-expecting end of input
\ No newline at end of file
+expecting end of input
+------------ trace
+!testdata/language-features/basic-values/indentation04.reject.lc:2:2:
+unexpected 't'
+expecting end of input
diff --git a/testdata/language-features/basic-values/infix01.out b/testdata/language-features/basic-values/infix01.out
index 57c395cf..4af2bd86 100644
--- a/testdata/language-features/basic-values/infix01.out
+++ b/testdata/language-features/basic-values/infix01.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+fun :: {a} -> {b} -> a -> b->'Tuple0
+value :: {a} -> {b} -> a -> b->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/infix01.lc 1:1-1:4  {a} -> {b} -> a -> b->Tuple0
 testdata/language-features/basic-values/infix01.lc 1:11-1:13  Tuple0
diff --git a/testdata/language-features/basic-values/infix02.out b/testdata/language-features/basic-values/infix02.out
index bcb993af..d0e35e34 100644
--- a/testdata/language-features/basic-values/infix02.out
+++ b/testdata/language-features/basic-values/infix02.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+fun :: {a} -> {b} -> {c} -> a -> b -> c->'Tuple0
+value :: {a} -> {b} -> {c} -> a -> b -> c->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/infix02.lc 1:1-1:4  {a} -> {b} -> {c} -> a -> b -> c->Tuple0
 testdata/language-features/basic-values/infix02.lc 1:13-1:15  Tuple0
diff --git a/testdata/language-features/basic-values/infix03.out b/testdata/language-features/basic-values/infix03.out
index 86dbea4f..df850166 100644
--- a/testdata/language-features/basic-values/infix03.out
+++ b/testdata/language-features/basic-values/infix03.out
@@ -1,4 +1,12 @@
 main is not found
+------------ trace
+'D :: Type
+D2 :: 'Tuple0 -> 'Tuple0->'D
+D3 :: 'Tuple0 -> 'Tuple0 -> 'Tuple0->'D
+'DCase :: (b : 'D->Type) -> (c:'Tuple0 -> d:'Tuple0 -> b (D2 c d)) -> (f:'Tuple0 -> g:'Tuple0 -> h:'Tuple0 -> b (D3 f g h)) -> j:'D -> b j
+match'D :: (b : Type->Type) -> b 'D -> d:Type -> b d -> b d
+d2 :: 'Tuple0 -> 'Tuple0->'D
+d3 :: 'Tuple0 -> 'Tuple0 -> 'Tuple0->'D
 ------------ tooltips
 testdata/language-features/basic-values/infix03.lc 1:6-1:7  Type
 testdata/language-features/basic-values/infix03.lc 1:6-1:18  Type
diff --git a/testdata/language-features/basic-values/infix04.reject.out b/testdata/language-features/basic-values/infix04.reject.out
index 74aeb21b..111f5948 100644
--- a/testdata/language-features/basic-values/infix04.reject.out
+++ b/testdata/language-features/basic-values/infix04.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/infix04.reject.lc:3:14:
 unexpected '`'
-expecting end of input
\ No newline at end of file
+expecting end of input
+------------ trace
+!testdata/language-features/basic-values/infix04.reject.lc:3:14:
+unexpected '`'
+expecting end of input
diff --git a/testdata/language-features/basic-values/lambda01.out b/testdata/language-features/basic-values/lambda01.out
index 97b39e37..238549fb 100644
--- a/testdata/language-features/basic-values/lambda01.out
+++ b/testdata/language-features/basic-values/lambda01.out
@@ -1,4 +1,9 @@
 main is not found
+------------ trace
+fun1 :: {a} -> a->'Tuple0
+fun2 :: {a} -> a->'Tuple0
+fun3 :: {a} -> a->'Tuple0
+fun4 :: {a} -> {b} -> {c} -> {d} -> {e} -> {f} -> {g} -> {h} -> {i} -> a -> b -> c -> d -> e -> f -> g -> h -> i->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/lambda01.lc 1:1-1:5  {a} -> a->Tuple0
 testdata/language-features/basic-values/lambda01.lc 1:14-1:16  Tuple0
diff --git a/testdata/language-features/basic-values/lambda02.reject.out b/testdata/language-features/basic-values/lambda02.reject.out
index 96b56132..a500c0e8 100644
--- a/testdata/language-features/basic-values/lambda02.reject.out
+++ b/testdata/language-features/basic-values/lambda02.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/lambda02.reject.lc:1:1:
 unexpected 'f'
-expecting end of input or operator definition
\ No newline at end of file
+expecting end of input or operator definition
+------------ trace
+!testdata/language-features/basic-values/lambda02.reject.lc:1:1:
+unexpected 'f'
+expecting end of input or operator definition
diff --git a/testdata/language-features/basic-values/lambda03.out b/testdata/language-features/basic-values/lambda03.out
index d0dfa607..dcca4352 100644
--- a/testdata/language-features/basic-values/lambda03.out
+++ b/testdata/language-features/basic-values/lambda03.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+fun1 :: {a} -> {b} -> {c} -> a -> b -> c->b
+fun2 :: {a} -> {b} -> {c} -> {d} -> a -> b -> c -> d->a
 ------------ tooltips
 testdata/language-features/basic-values/lambda03.lc 1:1-1:5  {a} -> {b} -> {c} -> a -> b -> c->b
 testdata/language-features/basic-values/lambda03.lc 1:22-1:23  V3
diff --git a/testdata/language-features/basic-values/let01.out b/testdata/language-features/basic-values/let01.out
index 273dc3c5..71622998 100644
--- a/testdata/language-features/basic-values/let01.out
+++ b/testdata/language-features/basic-values/let01.out
@@ -1,4 +1,10 @@
 main is not found
+------------ trace
+value1 :: {a} -> {b : 'Num a}->a
+value2 :: {a} -> {b : 'Num a}->a
+value3 :: {a} -> {b : 'Num a}->a
+value4 :: {a} -> {b : 'Num a}->a
+value5 :: {a} -> {b : 'Num a}->a
 ------------ tooltips
 testdata/language-features/basic-values/let01.lc 1:1-1:7  {a} -> {b : Num a}->a
 testdata/language-features/basic-values/let01.lc 3:1-3:7  {a} -> {b : Num a}->a
diff --git a/testdata/language-features/basic-values/let02.out b/testdata/language-features/basic-values/let02.out
index 08431d3d..6c839e85 100644
--- a/testdata/language-features/basic-values/let02.out
+++ b/testdata/language-features/basic-values/let02.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/let02.lc 1:1-1:6  Tuple0
 testdata/language-features/basic-values/let02.lc 2:11-2:13  Tuple0
diff --git a/testdata/language-features/basic-values/literal01.out b/testdata/language-features/basic-values/literal01.out
index ff9332af..8bc84e87 100644
--- a/testdata/language-features/basic-values/literal01.out
+++ b/testdata/language-features/basic-values/literal01.out
@@ -1,4 +1,14 @@
 main is not found
+------------ trace
+intValue1 :: {a} -> {b : 'Num a}->a
+intValue2 :: {a} -> {b : 'Num a}->a
+intValue3 :: {a} -> {b : 'Num a}->a
+floatValue1 :: 'Float
+floatValue2 :: 'Float
+charValue :: 'Char
+stringValue1 :: 'String
+stringValue2 :: 'String
+natValue :: {a} -> {b : 'Num a}->a
 ------------ tooltips
 testdata/language-features/basic-values/literal01.lc 1:1-1:10  {a} -> {b : Num a}->a
 testdata/language-features/basic-values/literal01.lc 2:1-2:10  {a} -> {b : Num a}->a
diff --git a/testdata/language-features/basic-values/operator01.out b/testdata/language-features/basic-values/operator01.out
index 126d54fa..454ec7cd 100644
--- a/testdata/language-features/basic-values/operator01.out
+++ b/testdata/language-features/basic-values/operator01.out
@@ -1,4 +1,9 @@
 main is not found
+------------ trace
+#$# :: {a} -> {b} -> a -> b->'Tuple0
+$$# :: {a} -> {b} -> a -> b->'Tuple0
+$$$# :: {a} -> {b} -> a -> b->'Tuple0
+$$$ :: {a} -> {b} -> a -> b->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/operator01.lc 1:3-1:6  {a} -> {b} -> a -> b->Tuple0
 testdata/language-features/basic-values/operator01.lc 1:11-1:13  Tuple0
diff --git a/testdata/language-features/basic-values/operator02.reject.out b/testdata/language-features/basic-values/operator02.reject.out
index 929e71f5..971ce465 100644
--- a/testdata/language-features/basic-values/operator02.reject.out
+++ b/testdata/language-features/basic-values/operator02.reject.out
@@ -3,4 +3,17 @@ a #$# b = ()
   ^^^
  and at testdata/language-features/basic-values/operator02.reject.lc:1:3:
 a #$# b = ()
-  ^^^
\ No newline at end of file
+  ^^^
+------------ trace
+#$# :: {a} -> {b} -> a -> b->'Tuple0
+fun :: {a} -> a->'Tuple0
+#$# :: {a} -> {b} -> a -> b->'Tuple0
+!already defined #$# at testdata/language-features/basic-values/operator02.reject.lc:3:3
+ and at testdata/language-features/basic-values/operator02.reject.lc:1:3
+------------ tooltips
+testdata/language-features/basic-values/operator02.reject.lc 1:3-1:6  {a} -> {b} -> a -> b->Tuple0
+testdata/language-features/basic-values/operator02.reject.lc 1:11-1:13  Tuple0
+testdata/language-features/basic-values/operator02.reject.lc 2:1-2:4  {a} -> a->Tuple0
+testdata/language-features/basic-values/operator02.reject.lc 2:9-2:11  Tuple0
+testdata/language-features/basic-values/operator02.reject.lc 3:3-3:6  {a} -> {b} -> a -> b->Tuple0
+testdata/language-features/basic-values/operator02.reject.lc 3:11-3:13  Tuple0
diff --git a/testdata/language-features/basic-values/operator03.reject.out b/testdata/language-features/basic-values/operator03.reject.out
index 20248e7e..d0e555bc 100644
--- a/testdata/language-features/basic-values/operator03.reject.out
+++ b/testdata/language-features/basic-values/operator03.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/operator03.reject.lc:1:1:
 unexpected 'a'
-expecting end of input or operator definition
\ No newline at end of file
+expecting end of input or operator definition
+------------ trace
+!testdata/language-features/basic-values/operator03.reject.lc:1:1:
+unexpected 'a'
+expecting end of input or operator definition
diff --git a/testdata/language-features/basic-values/operator04.reject.out b/testdata/language-features/basic-values/operator04.reject.out
index 5537b846..7ff5147d 100644
--- a/testdata/language-features/basic-values/operator04.reject.out
+++ b/testdata/language-features/basic-values/operator04.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/operator04.reject.lc:1:1:
 unexpected 'a'
-expecting end of input or operator definition
\ No newline at end of file
+expecting end of input or operator definition
+------------ trace
+!testdata/language-features/basic-values/operator04.reject.lc:1:1:
+unexpected 'a'
+expecting end of input or operator definition
diff --git a/testdata/language-features/basic-values/operator05.out b/testdata/language-features/basic-values/operator05.out
index 37e55c1c..d5f2131f 100644
--- a/testdata/language-features/basic-values/operator05.out
+++ b/testdata/language-features/basic-values/operator05.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value1 :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/operator05.lc 1:1-1:7  Tuple0
 testdata/language-features/basic-values/operator05.lc 1:24-1:26  Tuple0
diff --git a/testdata/language-features/basic-values/operator06.out b/testdata/language-features/basic-values/operator06.out
index a861c01e..65d0246b 100644
--- a/testdata/language-features/basic-values/operator06.out
+++ b/testdata/language-features/basic-values/operator06.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value1 :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/operator06.lc 1:1-1:7  Tuple0
 testdata/language-features/basic-values/operator06.lc 1:10-1:12  Tuple0
diff --git a/testdata/language-features/basic-values/redefine01.reject.out b/testdata/language-features/basic-values/redefine01.reject.out
index a5335520..12046fac 100644
--- a/testdata/language-features/basic-values/redefine01.reject.out
+++ b/testdata/language-features/basic-values/redefine01.reject.out
@@ -3,4 +3,17 @@ unit = ()
 ^^^^
  and at testdata/language-features/basic-values/redefine01.reject.lc:1:1:
 unit = ()
-^^^^
\ No newline at end of file
+^^^^
+------------ trace
+unit :: 'Tuple0
+tuple :: 'Tuple0
+unit :: 'Tuple0
+!already defined unit at testdata/language-features/basic-values/redefine01.reject.lc:3:1
+ and at testdata/language-features/basic-values/redefine01.reject.lc:1:1
+------------ tooltips
+testdata/language-features/basic-values/redefine01.reject.lc 1:1-1:5  Tuple0
+testdata/language-features/basic-values/redefine01.reject.lc 1:8-1:10  Tuple0
+testdata/language-features/basic-values/redefine01.reject.lc 2:1-2:6  Tuple0
+testdata/language-features/basic-values/redefine01.reject.lc 2:9-2:11  Tuple0
+testdata/language-features/basic-values/redefine01.reject.lc 3:1-3:5  Tuple0
+testdata/language-features/basic-values/redefine01.reject.lc 3:8-3:10  Tuple0
diff --git a/testdata/language-features/basic-values/redefine02.reject.out b/testdata/language-features/basic-values/redefine02.reject.out
index 479c56a6..39430955 100644
--- a/testdata/language-features/basic-values/redefine02.reject.out
+++ b/testdata/language-features/basic-values/redefine02.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/redefine02.reject.lc:3:8:
 expecting expression
-redefined x at testdata/language-features/basic-values/redefine02.reject.lc 1:12-1:13
\ No newline at end of file
+redefined x at testdata/language-features/basic-values/redefine02.reject.lc 1:12-1:13
+------------ trace
+!testdata/language-features/basic-values/redefine02.reject.lc:3:8:
+expecting expression
+redefined x at testdata/language-features/basic-values/redefine02.reject.lc 1:12-1:13
diff --git a/testdata/language-features/basic-values/redefine03.reject.out b/testdata/language-features/basic-values/redefine03.reject.out
index 3daeca8c..edfcce60 100644
--- a/testdata/language-features/basic-values/redefine03.reject.out
+++ b/testdata/language-features/basic-values/redefine03.reject.out
@@ -1,2 +1,5 @@
 testdata/language-features/basic-values/redefine03.reject.lc:4:1:
-redefined x at testdata/language-features/basic-values/redefine03.reject.lc 2:9-2:10
\ No newline at end of file
+redefined x at testdata/language-features/basic-values/redefine03.reject.lc 2:9-2:10
+------------ trace
+!testdata/language-features/basic-values/redefine03.reject.lc:4:1:
+redefined x at testdata/language-features/basic-values/redefine03.reject.lc 2:9-2:10
diff --git a/testdata/language-features/basic-values/shadowing01.out b/testdata/language-features/basic-values/shadowing01.out
index 39d454e5..78f02ed9 100644
--- a/testdata/language-features/basic-values/shadowing01.out
+++ b/testdata/language-features/basic-values/shadowing01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/shadowing01.lc 1:1-1:6  Char
 testdata/language-features/basic-values/shadowing01.lc 2:11-2:14  Char
diff --git a/testdata/language-features/basic-values/shadowing02.out b/testdata/language-features/basic-values/shadowing02.out
index 0d886f51..09696b46 100644
--- a/testdata/language-features/basic-values/shadowing02.out
+++ b/testdata/language-features/basic-values/shadowing02.out
@@ -1,4 +1,8 @@
 main is not found
+------------ trace
+c :: {a} -> {b : 'Num a}->a
+world :: 'String
+value2 :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/shadowing02.lc 1:1-1:2  {a} -> {b : Num a}->a
 testdata/language-features/basic-values/shadowing02.lc 2:1-2:6  String
diff --git a/testdata/language-features/basic-values/shadowing03.out b/testdata/language-features/basic-values/shadowing03.out
index 8a224525..64539fb3 100644
--- a/testdata/language-features/basic-values/shadowing03.out
+++ b/testdata/language-features/basic-values/shadowing03.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+x :: {a} -> {b} -> a -> b->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/shadowing03.lc 1:1-1:2  {a} -> {b} -> a -> b->Tuple0
 testdata/language-features/basic-values/shadowing03.lc 1:9-1:11  Tuple0
diff --git a/testdata/language-features/basic-values/shadowing04.out b/testdata/language-features/basic-values/shadowing04.out
index 91e72e21..ee76e57b 100644
--- a/testdata/language-features/basic-values/shadowing04.out
+++ b/testdata/language-features/basic-values/shadowing04.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+__ :: {a} -> {b} -> a -> b->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/shadowing04.lc 1:1-1:3  {a} -> {b} -> a -> b->Tuple0
 testdata/language-features/basic-values/shadowing04.lc 1:11-1:13  Tuple0
diff --git a/testdata/language-features/basic-values/tuple01.out b/testdata/language-features/basic-values/tuple01.out
index 94ddefa3..5c591a9c 100644
--- a/testdata/language-features/basic-values/tuple01.out
+++ b/testdata/language-features/basic-values/tuple01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+unit :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/tuple01.lc 1:1-1:5  Tuple0
 testdata/language-features/basic-values/tuple01.lc 1:8-1:10  Tuple0
diff --git a/testdata/language-features/basic-values/tuple02.out b/testdata/language-features/basic-values/tuple02.out
index 928ad0d1..847bc4ee 100644
--- a/testdata/language-features/basic-values/tuple02.out
+++ b/testdata/language-features/basic-values/tuple02.out
@@ -1,4 +1,8 @@
 main is not found
+------------ trace
+tuple1 :: {a} -> {b : 'Num a} -> 'Tuple5 a 'Float 'Char 'String 'Tuple0
+tuple2 :: 'Tuple2 'Tuple0 'Tuple0
+tuple3 :: 'Tuple2 ('Tuple2 'String 'Char) 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/tuple02.lc 1:1-1:7  {a} -> {b : Num a} -> Tuple5 a Float Char String Tuple0
 testdata/language-features/basic-values/tuple02.lc 1:10-1:33  Tuple5 V1 Float Char String Tuple0
diff --git a/testdata/language-features/basic-values/typesig01.out b/testdata/language-features/basic-values/typesig01.out
index 9dffd2e6..00c7fd81 100644
--- a/testdata/language-features/basic-values/typesig01.out
+++ b/testdata/language-features/basic-values/typesig01.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+value1 :: 'Char
+value2 :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/typesig01.lc 1:11-1:15  Type
 testdata/language-features/basic-values/typesig01.lc 2:1-2:7  Char
diff --git a/testdata/language-features/basic-values/typesig02.out b/testdata/language-features/basic-values/typesig02.out
index e8fbfa8d..b9d5e913 100644
--- a/testdata/language-features/basic-values/typesig02.out
+++ b/testdata/language-features/basic-values/typesig02.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+value1 :: 'Char
+value2 :: 'Char
 ------------ tooltips
 testdata/language-features/basic-values/typesig02.lc 1:1-1:7  Char
 testdata/language-features/basic-values/typesig02.lc 1:10-1:13  Char
diff --git a/testdata/language-features/basic-values/typesig03.out b/testdata/language-features/basic-values/typesig03.out
index 89068e23..0ae5725b 100644
--- a/testdata/language-features/basic-values/typesig03.out
+++ b/testdata/language-features/basic-values/typesig03.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+fun1 :: {a} -> {b} -> {c} -> a -> b -> c->'Tuple0
+fun2 :: {a} -> {b} -> {c} -> a -> b -> c->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/typesig03.lc 1:9-1:10  V5
 testdata/language-features/basic-values/typesig03.lc 1:9-1:26  Type
diff --git a/testdata/language-features/basic-values/typesig04.out b/testdata/language-features/basic-values/typesig04.out
index 80406f80..d497b9e3 100644
--- a/testdata/language-features/basic-values/typesig04.out
+++ b/testdata/language-features/basic-values/typesig04.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+fun1 :: {a} -> {b} -> {c} -> a -> b->c -> 'Tuple0
+fun2 :: {a} -> {b} -> {c} -> a -> b->c -> 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/typesig04.lc 1:9-1:10  V5
 testdata/language-features/basic-values/typesig04.lc 1:9-1:28  Type
diff --git a/testdata/language-features/basic-values/typesig05.out b/testdata/language-features/basic-values/typesig05.out
index a8d61bf4..07a8d216 100644
--- a/testdata/language-features/basic-values/typesig05.out
+++ b/testdata/language-features/basic-values/typesig05.out
@@ -1,4 +1,11 @@
 main is not found
+------------ trace
+funL :: {a} -> {b} -> a -> b->a
+funR :: {a} -> {b} -> a -> b->b
+value1 :: 'Char
+value2 :: 'String
+value3 :: 'Char
+value4 :: 'String
 ------------ tooltips
 testdata/language-features/basic-values/typesig05.lc 1:1-1:5  {a} -> {b} -> a -> b->a
 testdata/language-features/basic-values/typesig05.lc 1:12-1:13  V3
diff --git a/testdata/language-features/basic-values/typesig06.out b/testdata/language-features/basic-values/typesig06.out
index f5ea0a54..f9454255 100644
--- a/testdata/language-features/basic-values/typesig06.out
+++ b/testdata/language-features/basic-values/typesig06.out
@@ -1,4 +1,9 @@
 main is not found
+------------ trace
+funL :: {a} -> {b} -> a -> b->a
+<@ :: {a} -> {b} -> a -> b->a
+value1 :: 'String
+value2 :: 'String
 ------------ tooltips
 testdata/language-features/basic-values/typesig06.lc 1:1-1:5  {a} -> {b} -> a -> b->a
 testdata/language-features/basic-values/typesig06.lc 1:12-1:13  V3
diff --git a/testdata/language-features/basic-values/typesig07.out b/testdata/language-features/basic-values/typesig07.out
index 9a9cf28a..2efd57d6 100644
--- a/testdata/language-features/basic-values/typesig07.out
+++ b/testdata/language-features/basic-values/typesig07.out
@@ -1,4 +1,11 @@
 main is not found
+------------ trace
+value1 :: 'Int
+value2 :: 'Int
+value3 :: 'Int
+value4 :: 'Tuple0 -> 'Tuple0->'Tuple0
+@@@ :: 'Tuple0 -> 'Tuple0->'Tuple0
+value6 :: 'Tuple0 -> 'Tuple0->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/typesig07.lc 1:27-1:30  Type
 testdata/language-features/basic-values/typesig07.lc 3:1-3:7  Int
diff --git a/testdata/language-features/basic-values/typesig08.reject.out b/testdata/language-features/basic-values/typesig08.reject.out
index e28976d0..0cba15d4 100644
--- a/testdata/language-features/basic-values/typesig08.reject.out
+++ b/testdata/language-features/basic-values/typesig08.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/typesig08.reject.lc:1:1:
 unexpected 'v'
-expecting end of input or typed ident
\ No newline at end of file
+expecting end of input or typed ident
+------------ trace
+!testdata/language-features/basic-values/typesig08.reject.lc:1:1:
+unexpected 'v'
+expecting end of input or typed ident
diff --git a/testdata/language-features/basic-values/typesig09.reject.out b/testdata/language-features/basic-values/typesig09.reject.out
index d85c1eab..ae4b5954 100644
--- a/testdata/language-features/basic-values/typesig09.reject.out
+++ b/testdata/language-features/basic-values/typesig09.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/typesig09.reject.lc:1:1:
 unexpected 'v'
-expecting end of input or typed ident
\ No newline at end of file
+expecting end of input or typed ident
+------------ trace
+!testdata/language-features/basic-values/typesig09.reject.lc:1:1:
+unexpected 'v'
+expecting end of input or typed ident
diff --git a/testdata/language-features/basic-values/typesyn01.out b/testdata/language-features/basic-values/typesyn01.out
index b9130142..3e2d214b 100644
--- a/testdata/language-features/basic-values/typesyn01.out
+++ b/testdata/language-features/basic-values/typesyn01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+'MyUnit :: Type
 ------------ tooltips
 testdata/language-features/basic-values/typesyn01.lc 1:6-1:12  Type
 testdata/language-features/basic-values/typesyn01.lc 1:15-1:17  Type
diff --git a/testdata/language-features/basic-values/typesyn02.out b/testdata/language-features/basic-values/typesyn02.out
index 4199e7c1..417facac 100644
--- a/testdata/language-features/basic-values/typesyn02.out
+++ b/testdata/language-features/basic-values/typesyn02.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+'MyUnit :: Type
+fun :: {a} -> a -> 'Tuple0->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/typesyn02.lc 1:6-1:12  Type
 testdata/language-features/basic-values/typesyn02.lc 1:15-1:17  Type
diff --git a/testdata/language-features/basic-values/typesyn03.reject.out b/testdata/language-features/basic-values/typesyn03.reject.out
index 53f16b3f..6e4373da 100644
--- a/testdata/language-features/basic-values/typesyn03.reject.out
+++ b/testdata/language-features/basic-values/typesyn03.reject.out
@@ -3,4 +3,14 @@ type MyUnit = ()
      ^^^^^^
  and at testdata/language-features/basic-values/typesyn03.reject.lc:1:6:
 type MyUnit = ()
-     ^^^^^^
\ No newline at end of file
+     ^^^^^^
+------------ trace
+'MyUnit :: Type
+'MyUnit :: Type
+!already defined 'MyUnit at testdata/language-features/basic-values/typesyn03.reject.lc:2:6
+ and at testdata/language-features/basic-values/typesyn03.reject.lc:1:6
+------------ tooltips
+testdata/language-features/basic-values/typesyn03.reject.lc 1:6-1:12  Type
+testdata/language-features/basic-values/typesyn03.reject.lc 1:15-1:17  Type
+testdata/language-features/basic-values/typesyn03.reject.lc 2:6-2:12  Type
+testdata/language-features/basic-values/typesyn03.reject.lc 2:15-2:17  Type
diff --git a/testdata/language-features/basic-values/typesyn04.reject.out b/testdata/language-features/basic-values/typesyn04.reject.out
index d1b582e9..d7fe48a4 100644
--- a/testdata/language-features/basic-values/typesyn04.reject.out
+++ b/testdata/language-features/basic-values/typesyn04.reject.out
@@ -3,4 +3,14 @@ type MyUnit = ()
      ^^^^^^
  and at testdata/language-features/basic-values/typesyn04.reject.lc:1:6:
 type MyUnit = ()
-     ^^^^^^
\ No newline at end of file
+     ^^^^^^
+------------ trace
+'MyUnit :: Type
+'MyUnit :: Type
+!already defined 'MyUnit at testdata/language-features/basic-values/typesyn04.reject.lc:2:6
+ and at testdata/language-features/basic-values/typesyn04.reject.lc:1:6
+------------ tooltips
+testdata/language-features/basic-values/typesyn04.reject.lc 1:6-1:12  Type
+testdata/language-features/basic-values/typesyn04.reject.lc 1:15-1:17  Type
+testdata/language-features/basic-values/typesyn04.reject.lc 2:6-2:12  Type
+testdata/language-features/basic-values/typesyn04.reject.lc 2:15-2:17  Type
diff --git a/testdata/language-features/basic-values/where01.out b/testdata/language-features/basic-values/where01.out
index e7ac122a..6dfabd94 100644
--- a/testdata/language-features/basic-values/where01.out
+++ b/testdata/language-features/basic-values/where01.out
@@ -1,4 +1,16 @@
 main is not found
+------------ trace
+value1 :: 'Tuple0
+value2 :: 'Tuple0
+value3 :: 'Tuple0
+value4 :: 'Tuple0
+value5 :: 'Tuple0
+value6 :: 'Tuple0
+value7 :: 'Tuple0
+value8 :: 'Tuple0
+value9 :: 'Tuple0
+value10 :: 'Tuple0
+value11 :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/where01.lc 1:1-1:7  Tuple0
 testdata/language-features/basic-values/where01.lc 1:10-1:12  Tuple0
diff --git a/testdata/language-features/basic-values/where02.reject.out b/testdata/language-features/basic-values/where02.reject.out
index a7a50cdb..835dd06f 100644
--- a/testdata/language-features/basic-values/where02.reject.out
+++ b/testdata/language-features/basic-values/where02.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/where02.reject.lc:4:5:
 unexpected '='
-expecting end of input
\ No newline at end of file
+expecting end of input
+------------ trace
+!testdata/language-features/basic-values/where02.reject.lc:4:5:
+unexpected '='
+expecting end of input
diff --git a/testdata/language-features/basic-values/where03.reject.out b/testdata/language-features/basic-values/where03.reject.out
index 87af7cec..efc900b5 100644
--- a/testdata/language-features/basic-values/where03.reject.out
+++ b/testdata/language-features/basic-values/where03.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/basic-values/where03.reject.lc:4:2:
 unexpected 'y'
-expecting end of input
\ No newline at end of file
+expecting end of input
+------------ trace
+!testdata/language-features/basic-values/where03.reject.lc:4:2:
+unexpected 'y'
+expecting end of input
diff --git a/testdata/language-features/basic-values/where04.out b/testdata/language-features/basic-values/where04.out
index df9eab9d..5f026ff7 100644
--- a/testdata/language-features/basic-values/where04.out
+++ b/testdata/language-features/basic-values/where04.out
@@ -1,4 +1,8 @@
 main is not found
+------------ trace
+value1 :: 'Tuple0
+value2 :: 'Tuple0
+value3 :: 'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/where04.lc 1:1-1:7  Tuple0
 testdata/language-features/basic-values/where04.lc 1:18-1:19  Tuple0
diff --git a/testdata/language-features/basic-values/where05.out b/testdata/language-features/basic-values/where05.out
index b8885a1c..cd1ac74e 100644
--- a/testdata/language-features/basic-values/where05.out
+++ b/testdata/language-features/basic-values/where05.out
@@ -1,4 +1,9 @@
 main is not found
+------------ trace
+value1 :: {a} -> {b : 'Eq a} -> {c : 'Num a}->'Tuple0
+value2 :: {a} -> {b : 'Eq a} -> {c : 'Num a}->'Tuple0
+value3 :: {a} -> {b : 'Eq a} -> {c : 'Num a}->'Tuple0
+value4 :: {a} -> {b : 'Eq a} -> {c : 'Num a}->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/where05.lc 1:1-1:7  {a} -> {b : Eq a} -> {c : Num a}->Tuple0
 testdata/language-features/basic-values/where05.lc 1:10-3:10  Tuple0
diff --git a/testdata/language-features/basic-values/where06.reject.out b/testdata/language-features/basic-values/where06.reject.out
index 2ef694f2..704fc983 100644
--- a/testdata/language-features/basic-values/where06.reject.out
+++ b/testdata/language-features/basic-values/where06.reject.out
@@ -1,2 +1,5 @@
 testdata/language-features/basic-values/where06.reject.lc:7:1:
-redefined x at testdata/language-features/basic-values/where06.reject.lc 3:1-3:2
\ No newline at end of file
+redefined x at testdata/language-features/basic-values/where06.reject.lc 3:1-3:2
+------------ trace
+!testdata/language-features/basic-values/where06.reject.lc:7:1:
+redefined x at testdata/language-features/basic-values/where06.reject.lc 3:1-3:2
diff --git a/testdata/language-features/basic-values/wildcard01.out b/testdata/language-features/basic-values/wildcard01.out
index 3853bbc2..52e7b6b8 100644
--- a/testdata/language-features/basic-values/wildcard01.out
+++ b/testdata/language-features/basic-values/wildcard01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+funUnit :: {a} -> a->'Tuple0
 ------------ tooltips
 testdata/language-features/basic-values/wildcard01.lc 1:1-1:8  {a} -> a->Tuple0
 testdata/language-features/basic-values/wildcard01.lc 1:13-1:15  Tuple0
diff --git a/testdata/language-features/comment/comment05.reject.out b/testdata/language-features/comment/comment05.reject.out
index 843e91f9..b40aa61f 100644
--- a/testdata/language-features/comment/comment05.reject.out
+++ b/testdata/language-features/comment/comment05.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/comment/comment05.reject.lc:4:1:
 unexpected '-'
-expecting "class", "data", "infix", "infixl", "infixr", "instance", "type", end of input, lhs, operator definition, pattern, type family, type instance, or typed ident
\ No newline at end of file
+expecting "class", "data", "infix", "infixl", "infixr", "instance", "type", end of input, lhs, operator definition, pattern, type family, type instance, or typed ident
+------------ trace
+!testdata/language-features/comment/comment05.reject.lc:4:1:
+unexpected '-'
+expecting "class", "data", "infix", "infixl", "infixr", "instance", "type", end of input, lhs, operator definition, pattern, type family, type instance, or typed ident
diff --git a/testdata/language-features/guard/guard01.out b/testdata/language-features/guard/guard01.out
index 836af983..08d55d07 100644
--- a/testdata/language-features/guard/guard01.out
+++ b/testdata/language-features/guard/guard01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Tuple0
 ------------ tooltips
 testdata/language-features/guard/guard01.lc 1:1-1:6  Tuple0
 testdata/language-features/guard/guard01.lc 1:9-1:13  Bool
diff --git a/testdata/language-features/guard/guard02.reject.out b/testdata/language-features/guard/guard02.reject.out
index c86f000d..93ab7ae2 100644
--- a/testdata/language-features/guard/guard02.reject.out
+++ b/testdata/language-features/guard/guard02.reject.out
@@ -6,3 +6,93 @@ with
 in testdata/language-features/guard/guard02.reject.lc:2:12:
   | True = ()
            ^^
+
+------------ trace
+infer:  'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+infer:  'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+infer:  'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+infer:  'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+infer:  'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+check:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) ((\_:'Type -> _:'Type) :: 'Bool->Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+check:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> _:'Type :: Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+infer:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> _:'Type : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+infer:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> (\f:'Type -> f) : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> (\f:Type -> f) : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+infer:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> \f->f : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> \f->f : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool f -> f:Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool f g:'Unit -> f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> \f->f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e f:'Bool -> e) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e f:Type -> e) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type e:Type -> 'BoolCase b c d e) (\f:Type -> a)) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False)) (labelend Tuple0) True
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False :: a)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\_:'Type -> _:'Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) ((\_:'Type -> _:'Type) :: 'Bool->Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool -> _:'Type :: Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool -> _:'Type : Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool -> (\k:'Type -> k) : Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool -> (\k:Type -> k) : Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool -> \k->k : Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool -> \k->k : Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool k -> k:Type) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool k l:'Unit -> k) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j:'Bool -> \k->k) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j k:'Bool -> j) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type g:Type h:Type i:Type -> 'BoolCase f g h i) (\j k:Type -> j) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type i:Type j:Type -> 'BoolCase g h i j) (\k:Type -> f)) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f g:Type h:Type i:Type -> 'BoolCase (\j:Type -> f) g h i) (labelend undefined) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type i:Type -> 'BoolCase (\j:Type -> f) g h i) (labelend undefined)) (labelend "") False : a)) (labelend Tuple0) True
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type i:Type -> 'BoolCase (\j:Type -> f) g h i) (labelend undefined :: f)) (labelend "") False : a)) (labelend Tuple0) True
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type i:Type -> 'BoolCase (\j:Type -> f) g h i) (labEnd undefined::f)) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type i:Type -> 'BoolCase (\j:Type -> f) g h i) (labEnd (undefined f))) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type i:Type -> 'BoolCase (\j:Type -> f) g h i) (labend (undefined f))) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (labelend "") False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (labelend "")) False : a)) (labelend Tuple0) True
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (labelend "" :: f)) False : a)) (labelend Tuple0) True
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (labEnd ""::f)) False : a)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (labEnd "":f)) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (labEnd "":f)) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (labEnd \(j : f~'String)->"")) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (labEnd (\f:='String -> ""))) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (\f:='String -> labEnd "")) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f -> (\g:Type h:Type -> 'BoolCase (\i:Type -> f) (labend (undefined f)) g h) (\f:='String -> labend "")) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f f:='String -> (\g:Type h:Type -> 'BoolCase (\i:Type -> 'String) (labend (undefined 'String)) g h) (labend "")) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f f:='String g:Type -> 'BoolCase (\h:Type -> 'String) (labend (undefined 'String)) (labend "") g) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\f:Type -> 'BoolCase (\g:Type -> 'String) (labend (undefined 'String)) (labend "") f) False : a)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\(f : a~'String) g:Type -> 'BoolCase (\h:Type -> 'String) (labend (undefined 'String)) (labend "") g) False)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) ((\a:='String f:Type -> 'BoolCase (\g:Type -> 'String) (labend (undefined 'String)) (labend "") f) False)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (\a:='String -> (\f:Type -> 'BoolCase (\g:Type -> 'String) (labend (undefined 'String)) (labend "") f) False)) (labelend Tuple0) True
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (\a:='String -> (\f:Type -> 'BoolCase (\g:Type -> 'String) (labend (undefined 'String)) (labend "") f) False::'Bool)) (labelend Tuple0) True
+infer:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (\a:='String -> (\f:Type -> 'BoolCase (\g:Type -> 'String) (labend (undefined 'String)) (labend "") f) False:'Bool)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (\a:='String -> (\f:Type -> 'BoolCase (\g:Type -> 'String) (labend (undefined 'String)) (labend "") f) False:'Bool)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (\a:='String -> (\f:Type -> 'BoolCase (\g:Type -> 'String) (labend (undefined 'String)) (labend "") f) (\h:'Unit -> False))) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (\a:='String -> (\f:Type -> 'BoolCase (\g:Type -> 'String) (labend (undefined 'String)) (labend "") f) False)) (labelend Tuple0) True
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (\a:='String -> labend (undefined 'String))) (labelend Tuple0) True
+focus:  (\a a:='String -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> 'String) b c d) (labend (undefined 'String))) (labelend Tuple0) True
+focus:  (\a a:='String b:Type c:Type -> 'BoolCase (\d:Type -> 'String) (labend (undefined 'String)) b c) (labelend Tuple0) True
+focus:  (\a:Type b:Type -> 'BoolCase (\c:Type -> 'String) (labend (undefined 'String)) a b) (labelend Tuple0) True
+check:  (\a:Type b:Type -> 'BoolCase (\c:Type -> 'String) (labend (undefined 'String)) a b) (labelend Tuple0 :: 'String) True
+check:  (\a:Type b:Type -> 'BoolCase (\c:Type -> 'String) (labend (undefined 'String)) a b) (labEnd Tuple0::'String) True
+infer:  (\a:Type b:Type -> 'BoolCase (\c:Type -> 'String) (labend (undefined 'String)) a b) (labEnd Tuple0:'String) True
+focus:  (\a:Type b:Type -> 'BoolCase (\c:Type -> 'String) (labend (undefined 'String)) a b) (labEnd Tuple0:'String) True
+focus:  (\a:Type b:Type -> 'BoolCase (\c:Type -> 'String) (labend (undefined 'String)) a b) (labEnd \(d : 'Empty "can not unify\n\ESC[32m'String\ESC[m\nwith\n\ESC[32m'Tuple0\ESC[m\n")->Tuple0) True
+!type error: can not unify
+'String
+with
+'Tuple0
+
+in testdata/language-features/guard/guard02.reject.lc:2:12
+
+------------ tooltips
+testdata/language-features/guard/guard02.reject.lc 2:12-2:14  Tuple0
+testdata/language-features/guard/guard02.reject.lc 3:5-3:10  Bool
+testdata/language-features/guard/guard02.reject.lc 3:5-3:15  String
+testdata/language-features/guard/guard02.reject.lc 3:13-3:15  String
diff --git a/testdata/language-features/guard/guard03.out b/testdata/language-features/guard/guard03.out
index a089657e..3f240c28 100644
--- a/testdata/language-features/guard/guard03.out
+++ b/testdata/language-features/guard/guard03.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'String
 ------------ tooltips
 testdata/language-features/guard/guard03.lc 1:1-1:6  String
 testdata/language-features/guard/guard03.lc 2:5-2:9  Bool
diff --git a/testdata/language-features/guard/guard04.out b/testdata/language-features/guard/guard04.out
index 32a56e10..c76efc74 100644
--- a/testdata/language-features/guard/guard04.out
+++ b/testdata/language-features/guard/guard04.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'String
 ------------ tooltips
 testdata/language-features/guard/guard04.lc 1:1-1:6  String
 testdata/language-features/guard/guard04.lc 2:5-2:9  Bool
diff --git a/testdata/language-features/guard/guard05.reject.out b/testdata/language-features/guard/guard05.reject.out
index 22fcb6c1..503ca8c3 100644
--- a/testdata/language-features/guard/guard05.reject.out
+++ b/testdata/language-features/guard/guard05.reject.out
@@ -6,3 +6,57 @@ with
 in testdata/language-features/guard/guard05.reject.lc:1:9:
 value | () = "wrong"
         ^^
+
+------------ trace
+infer:  'BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "wrong") Tuple0
+infer:  'BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "wrong") Tuple0
+infer:  'BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "wrong") Tuple0
+infer:  'BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "wrong") Tuple0
+infer:  'BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\_:'Type -> _:'Type) (labelend undefined) (labelend "wrong") Tuple0
+check:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) ((\_:'Type -> _:'Type) :: 'Bool->Type) (labelend undefined) (labelend "wrong") Tuple0
+check:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> _:'Type :: Type) (labelend undefined) (labelend "wrong") Tuple0
+infer:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> _:'Type : Type) (labelend undefined) (labelend "wrong") Tuple0
+infer:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> (\f:'Type -> f) : Type) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> (\f:Type -> f) : Type) (labelend undefined) (labelend "wrong") Tuple0
+infer:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> \f->f : Type) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> \f->f : Type) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool f -> f:Type) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool f g:'Unit -> f) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e:'Bool -> \f->f) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e f:'Bool -> e) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a:Type b:Type c:Type d:Type -> 'BoolCase a b c d) (\e f:Type -> e) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a -> (\b:Type c:Type d:Type e:Type -> 'BoolCase b c d e) (\f:Type -> a)) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (labelend undefined) (labelend "wrong") Tuple0
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (labelend undefined)) (labelend "wrong") Tuple0
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (labelend undefined :: a)) (labelend "wrong") Tuple0
+check:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (labEnd undefined::a)) (labelend "wrong") Tuple0
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (labEnd (undefined a))) (labelend "wrong") Tuple0
+focus:  (\a -> (\b:Type c:Type d:Type -> 'BoolCase (\e:Type -> a) b c d) (labend (undefined a))) (labelend "wrong") Tuple0
+focus:  (\a b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (labelend "wrong") Tuple0
+focus:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (labelend "wrong")) Tuple0
+check:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (labelend "wrong" :: a)) Tuple0
+check:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (labEnd "wrong"::a)) Tuple0
+infer:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (labEnd "wrong":a)) Tuple0
+focus:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (labEnd "wrong":a)) Tuple0
+focus:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (labEnd \(e : a~'String)->"wrong")) Tuple0
+focus:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (labEnd (\a:='String -> "wrong"))) Tuple0
+focus:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (\a:='String -> labEnd "wrong")) Tuple0
+focus:  (\a -> (\b:Type c:Type -> 'BoolCase (\d:Type -> a) (labend (undefined a)) b c) (\a:='String -> labend "wrong")) Tuple0
+focus:  (\a a:='String -> (\b:Type c:Type -> 'BoolCase (\d:Type -> 'String) (labend (undefined 'String)) b c) (labend "wrong")) Tuple0
+focus:  (\a a:='String b:Type -> 'BoolCase (\c:Type -> 'String) (labend (undefined 'String)) (labend "wrong") b) Tuple0
+focus:  (\a:Type -> 'BoolCase (\b:Type -> 'String) (labend (undefined 'String)) (labend "wrong") a) Tuple0
+check:  (\a:Type -> 'BoolCase (\b:Type -> 'String) (labend (undefined 'String)) (labend "wrong") a) Tuple0::'Bool
+infer:  (\a:Type -> 'BoolCase (\b:Type -> 'String) (labend (undefined 'String)) (labend "wrong") a) Tuple0:'Bool
+focus:  (\a:Type -> 'BoolCase (\b:Type -> 'String) (labend (undefined 'String)) (labend "wrong") a) Tuple0:'Bool
+focus:  (\a:Type -> 'BoolCase (\b:Type -> 'String) (labend (undefined 'String)) (labend "wrong") a) \(c : 'Empty "can not unify\n\ESC[32m'Bool\ESC[m\nwith\n\ESC[32m'Tuple0\ESC[m\n")->Tuple0
+!type error: can not unify
+'Bool
+with
+'Tuple0
+
+in testdata/language-features/guard/guard05.reject.lc:1:9
+
+------------ tooltips
+testdata/language-features/guard/guard05.reject.lc 1:9-1:11  Tuple0
+testdata/language-features/guard/guard05.reject.lc 1:14-1:21  String
diff --git a/testdata/language-features/guard/guard06.out b/testdata/language-features/guard/guard06.out
index e5d34851..b1d4e64a 100644
--- a/testdata/language-features/guard/guard06.out
+++ b/testdata/language-features/guard/guard06.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Tuple0
 ------------ tooltips
 testdata/language-features/guard/guard06.lc 1:1-1:6  Tuple0
 testdata/language-features/guard/guard06.lc 1:9-1:18  Bool
diff --git a/testdata/language-features/guard/guard07.out b/testdata/language-features/guard/guard07.out
index 49ff4d32..94f6b321 100644
--- a/testdata/language-features/guard/guard07.out
+++ b/testdata/language-features/guard/guard07.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'String
 ------------ tooltips
 testdata/language-features/guard/guard07.lc 1:1-1:6  String
 testdata/language-features/guard/guard07.lc 1:7-1:11  Bool
diff --git a/testdata/language-features/guard/guard08.out b/testdata/language-features/guard/guard08.out
index 28455f56..0fb1cbe1 100644
--- a/testdata/language-features/guard/guard08.out
+++ b/testdata/language-features/guard/guard08.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'String
 ------------ tooltips
 testdata/language-features/guard/guard08.lc 1:1-1:6  String
 testdata/language-features/guard/guard08.lc 1:7-1:11  Bool
diff --git a/testdata/language-features/guard/guard09.out b/testdata/language-features/guard/guard09.out
index 3d5a4e4c..58167221 100644
--- a/testdata/language-features/guard/guard09.out
+++ b/testdata/language-features/guard/guard09.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'String
 ------------ tooltips
 testdata/language-features/guard/guard09.lc 1:1-1:6  String
 testdata/language-features/guard/guard09.lc 1:7-1:11  Bool
diff --git a/testdata/language-features/guard/guard10.reject.out b/testdata/language-features/guard/guard10.reject.out
index bf0c6c95..def53d7b 100644
--- a/testdata/language-features/guard/guard10.reject.out
+++ b/testdata/language-features/guard/guard10.reject.out
@@ -1,3 +1,7 @@
 testdata/language-features/guard/guard10.reject.lc:2:1:
 unexpected '|'
-expecting "class", "data", "infix", "infixl", "infixr", "instance", "type", end of input, lhs, operator definition, pattern, type family, type instance, or typed ident
\ No newline at end of file
+expecting "class", "data", "infix", "infixl", "infixr", "instance", "type", end of input, lhs, operator definition, pattern, type family, type instance, or typed ident
+------------ trace
+!testdata/language-features/guard/guard10.reject.lc:2:1:
+unexpected '|'
+expecting "class", "data", "infix", "infixl", "infixr", "instance", "type", end of input, lhs, operator definition, pattern, type family, type instance, or typed ident
diff --git a/testdata/language-features/guard/guard11.out b/testdata/language-features/guard/guard11.out
index f41b910b..7fa45b09 100644
--- a/testdata/language-features/guard/guard11.out
+++ b/testdata/language-features/guard/guard11.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: 'Bool->'String
 ------------ tooltips
 testdata/language-features/guard/guard11.lc 1:1-1:4  Bool->String
 testdata/language-features/guard/guard11.lc 2:5-2:6  V1
diff --git a/testdata/language-features/guard/guard12.reject.out b/testdata/language-features/guard/guard12.reject.out
index e356d64e..f39309aa 100644
--- a/testdata/language-features/guard/guard12.reject.out
+++ b/testdata/language-features/guard/guard12.reject.out
@@ -6,3 +6,103 @@ with
 in testdata/language-features/guard/guard12.reject.lc:1:13:
 fun x | x = () | otherwise = 'a'
             ^^
+
+------------ trace
+infer:  \(a : _:'Type) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) a
+infer:  \(a : _:'Type : Type) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) a
+infer:  \(b : (\a:'Type -> a) : Type) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \(b : (\a:Type -> a) : Type) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \(b : \a->a : Type) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \(b : \a->a : Type) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \(b : (\a -> a:Type)) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \(c : (\a b:'Unit -> a)) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) c
+focus:  \(b : \a->a) -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \a b:a -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \a b:a -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \a b:a -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \a b:a -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \a b:a -> 'BoolCase (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\_:'Type -> _:'Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+check:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) ((\_:'Type -> _:'Type) :: 'Bool->Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+check:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> _:'Type :: Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> _:'Type : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> (\h:'Type -> h) : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> (\h:Type -> h) : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+infer:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h : Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool h -> h:Type) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool h i:'Unit -> h) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g:'Bool -> \h->h) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g h:'Bool -> g) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type e:Type f:Type -> 'BoolCase c d e f) (\g h:Type -> g) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type g:Type -> 'BoolCase d e f g) (\h:Type -> c)) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise)) (labelend Tuple0) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise :: c)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ('BoolCase (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\_:'Type -> _:'Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) ((\_:'Type -> _:'Type) :: 'Bool->Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool -> _:'Type :: Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool -> _:'Type : Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool -> (\m:'Type -> m) : Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool -> (\m:Type -> m) : Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool -> \m->m : Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool -> \m->m : Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool m -> m:Type) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool m n:'Unit -> m) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l:'Bool -> \m->m) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l m:'Bool -> l) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type i:Type j:Type k:Type -> 'BoolCase h i j k) (\l m:Type -> l) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type k:Type l:Type -> 'BoolCase i j k l) (\m:Type -> h)) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h i:Type j:Type k:Type -> 'BoolCase (\l:Type -> h) i j k) (labelend undefined) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type k:Type -> 'BoolCase (\l:Type -> h) i j k) (labelend undefined)) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type k:Type -> 'BoolCase (\l:Type -> h) i j k) (labelend undefined :: h)) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type k:Type -> 'BoolCase (\l:Type -> h) i j k) (labEnd undefined::h)) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type k:Type -> 'BoolCase (\l:Type -> h) i j k) (labEnd (undefined h))) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type k:Type -> 'BoolCase (\l:Type -> h) i j k) (labend (undefined h))) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (labelend 'a') otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (labelend 'a')) otherwise : c)) (labelend Tuple0) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (labelend 'a' :: h)) otherwise : c)) (labelend Tuple0) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (labEnd 'a'::h)) otherwise : c)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (labEnd 'a':h)) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (labEnd 'a':h)) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (labEnd \(l : h~'Char)->'a')) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (labEnd (\h:='Char -> 'a'))) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (\h:='Char -> labEnd 'a')) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h -> (\i:Type j:Type -> 'BoolCase (\k:Type -> h) (labend (undefined h)) i j) (\h:='Char -> labend 'a')) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h h:='Char -> (\i:Type j:Type -> 'BoolCase (\k:Type -> 'Char) (labend (undefined 'Char)) i j) (labend 'a')) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h h:='Char i:Type -> 'BoolCase (\j:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') i) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\h:Type -> 'BoolCase (\i:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') h) otherwise : c)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\(h : c~'Char) i:Type -> 'BoolCase (\j:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') i) otherwise)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) ((\c:='Char h:Type -> 'BoolCase (\i:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') h) otherwise)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Char -> (\h:Type -> 'BoolCase (\i:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') h) otherwise)) (labelend Tuple0) b
+check:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Char -> (\h:Type -> 'BoolCase (\i:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') h) otherwise::'Bool)) (labelend Tuple0) b
+infer:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Char -> (\h:Type -> 'BoolCase (\i:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') h) otherwise:'Bool)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Char -> (\h:Type -> 'BoolCase (\i:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') h) True:'Bool)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Char -> (\h:Type -> 'BoolCase (\i:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') h) (\j:'Unit -> True))) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Char -> (\h:Type -> 'BoolCase (\i:Type -> 'Char) (labend (undefined 'Char)) (labend 'a') h) True)) (labelend Tuple0) b
+focus:  \a b:a -> (\c -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> c) d e f) (\c:='Char -> labend 'a')) (labelend Tuple0) b
+focus:  \a b:a -> (\c c:='Char -> (\d:Type e:Type f:Type -> 'BoolCase (\g:Type -> 'Char) d e f) (labend 'a')) (labelend Tuple0) b
+focus:  \a b:a -> (\c c:='Char d:Type e:Type -> 'BoolCase (\f:Type -> 'Char) (labend 'a') d e) (labelend Tuple0) b
+focus:  \a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Char) (labend 'a') c d) (labelend Tuple0) b
+check:  \a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Char) (labend 'a') c d) (labelend Tuple0 :: 'Char) b
+check:  \a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Char) (labend 'a') c d) (labEnd Tuple0::'Char) b
+infer:  \a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Char) (labend 'a') c d) (labEnd Tuple0:'Char) b
+focus:  \a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Char) (labend 'a') c d) (labEnd Tuple0:'Char) b
+focus:  \a b:a -> (\c:Type d:Type -> 'BoolCase (\e:Type -> 'Char) (labend 'a') c d) (labEnd \(f : 'Empty "can not unify\n\ESC[32m'Char\ESC[m\nwith\n\ESC[32m'Tuple0\ESC[m\n")->Tuple0) b
+!type error: can not unify
+'Char
+with
+'Tuple0
+
+in testdata/language-features/guard/guard12.reject.lc:1:13
+
+------------ tooltips
+testdata/language-features/guard/guard12.reject.lc 1:13-1:15  Tuple0
+testdata/language-features/guard/guard12.reject.lc 1:18-1:27  Bool
+testdata/language-features/guard/guard12.reject.lc 1:18-1:33  Char
+testdata/language-features/guard/guard12.reject.lc 1:30-1:33  Char
diff --git a/testdata/language-features/guard/guard13.out b/testdata/language-features/guard/guard13.out
index a7ed9d91..66454293 100644
--- a/testdata/language-features/guard/guard13.out
+++ b/testdata/language-features/guard/guard13.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: 'Bool->'Tuple0
 ------------ tooltips
 testdata/language-features/guard/guard13.lc 1:1-1:4  Bool->Tuple0
 testdata/language-features/guard/guard13.lc 1:7-1:8  V1
diff --git a/testdata/language-features/guard/guard14.out b/testdata/language-features/guard/guard14.out
index 54db63f5..4d3d87b7 100644
--- a/testdata/language-features/guard/guard14.out
+++ b/testdata/language-features/guard/guard14.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Tuple0
 ------------ tooltips
 testdata/language-features/guard/guard14.lc 1:1-1:6  Tuple0
 testdata/language-features/guard/guard14.lc 1:17-1:21  Bool
diff --git a/testdata/language-features/guard/guard15.out b/testdata/language-features/guard/guard15.out
index 4e9c4936..39a32bd8 100644
--- a/testdata/language-features/guard/guard15.out
+++ b/testdata/language-features/guard/guard15.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: 'Tuple0
 ------------ tooltips
 testdata/language-features/guard/guard15.lc 1:1-1:6  Tuple0
 testdata/language-features/guard/guard15.lc 1:9-1:11  Tuple0
diff --git a/testdata/language-features/guard/guard16.out b/testdata/language-features/guard/guard16.out
index 92a1d76f..1bb7ed36 100644
--- a/testdata/language-features/guard/guard16.out
+++ b/testdata/language-features/guard/guard16.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+value :: {a} -> {b : 'Eq a} -> {c : 'Num a}->'Tuple0
 ------------ tooltips
 testdata/language-features/guard/guard16.lc 1:1-1:6  {a} -> {b : Eq a} -> {c : Num a}->Tuple0
 testdata/language-features/guard/guard16.lc 1:9-3:10  Tuple0
diff --git a/testdata/language-features/module/Hello01.out b/testdata/language-features/module/Hello01.out
index 4a75d8a2..6d911abc 100644
--- a/testdata/language-features/module/Hello01.out
+++ b/testdata/language-features/module/Hello01.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+hello :: 'String
+world :: 'String
 ------------ tooltips
 testdata/language-features/module/Hello01.lc 3:1-3:6  String
 testdata/language-features/module/Hello01.lc 3:9-3:16  String
diff --git a/testdata/language-features/module/ModulePackage/SubModule01.out b/testdata/language-features/module/ModulePackage/SubModule01.out
index 552ec94a..5d80d9f9 100644
--- a/testdata/language-features/module/ModulePackage/SubModule01.out
+++ b/testdata/language-features/module/ModulePackage/SubModule01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+hello :: 'String
 ------------ tooltips
 testdata/language-features/module/ModulePackage/SubModule01.lc 3:1-3:6  String
 testdata/language-features/module/ModulePackage/SubModule01.lc 3:9-3:16  String
diff --git a/testdata/language-features/module/Moduledef02.reject.out b/testdata/language-features/module/Moduledef02.reject.out
index 9b34f38b..5ee63b0c 100644
--- a/testdata/language-features/module/Moduledef02.reject.out
+++ b/testdata/language-features/module/Moduledef02.reject.out
@@ -1,3 +1,3 @@
 testdata/language-features/module/Moduledef02.reject.lc:2:1:
 unexpected end of input
-expecting "where" or '('
\ No newline at end of file
+expecting "where" or '('
diff --git a/testdata/language-features/module/Moduledef03.reject.out b/testdata/language-features/module/Moduledef03.reject.out
index 8a61dd85..848d1159 100644
--- a/testdata/language-features/module/Moduledef03.reject.out
+++ b/testdata/language-features/module/Moduledef03.reject.out
@@ -1,3 +1,3 @@
 testdata/language-features/module/Moduledef03.reject.lc:1:8:
 unexpected 'm'
-expecting module name
\ No newline at end of file
+expecting module name
diff --git a/testdata/language-features/module/Moduledef04.reject.out b/testdata/language-features/module/Moduledef04.reject.out
index b949fc7b..d3fa3e4d 100644
--- a/testdata/language-features/module/Moduledef04.reject.out
+++ b/testdata/language-features/module/Moduledef04.reject.out
@@ -1,3 +1,3 @@
 testdata/language-features/module/Moduledef04.reject.lc:1:8:
 unexpected 'm'
-expecting module name
\ No newline at end of file
+expecting module name
diff --git a/testdata/language-features/module/Moduledef05.reject.out b/testdata/language-features/module/Moduledef05.reject.out
index f0a43dac..8dac151c 100644
--- a/testdata/language-features/module/Moduledef05.reject.out
+++ b/testdata/language-features/module/Moduledef05.reject.out
@@ -1,3 +1,3 @@
 testdata/language-features/module/Moduledef05.reject.lc:3:1:
 unexpected 'h'
-expecting "where" or '('
\ No newline at end of file
+expecting "where" or '('
diff --git a/testdata/language-features/module/Moduledef06.out b/testdata/language-features/module/Moduledef06.out
index 6287b54e..421619b1 100644
--- a/testdata/language-features/module/Moduledef06.out
+++ b/testdata/language-features/module/Moduledef06.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+hello :: 'String
 ------------ tooltips
 testdata/language-features/module/Moduledef06.lc 3:1-3:6  String
 testdata/language-features/module/Moduledef06.lc 3:9-3:16  String
diff --git a/testdata/language-features/module/Moduledef07.out b/testdata/language-features/module/Moduledef07.out
index 5be09755..87502a46 100644
--- a/testdata/language-features/module/Moduledef07.out
+++ b/testdata/language-features/module/Moduledef07.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+hello :: 'String
 ------------ tooltips
 testdata/language-features/module/Moduledef07.lc 5:1-5:6  String
 testdata/language-features/module/Moduledef07.lc 5:9-5:16  String
diff --git a/testdata/language-features/module/Moduledef11.reject.out b/testdata/language-features/module/Moduledef11.reject.out
index 1c71c838..43c5b5b5 100644
--- a/testdata/language-features/module/Moduledef11.reject.out
+++ b/testdata/language-features/module/Moduledef11.reject.out
@@ -1,3 +1,3 @@
 testdata/language-features/module/Moduledef11.reject.lc:1:8:
 unexpected '1'
-expecting module name
\ No newline at end of file
+expecting module name
diff --git a/testdata/language-features/module/Moduledef12.reject.out b/testdata/language-features/module/Moduledef12.reject.out
index 738ba12a..f1098d5f 100644
--- a/testdata/language-features/module/Moduledef12.reject.out
+++ b/testdata/language-features/module/Moduledef12.reject.out
@@ -1,3 +1,3 @@
 testdata/language-features/module/Moduledef12.reject.lc:1:8:
 unexpected '&'
-expecting module name
\ No newline at end of file
+expecting module name
diff --git a/testdata/language-features/module/Moduledef13.out b/testdata/language-features/module/Moduledef13.out
index f6ff90ef..75e35b24 100644
--- a/testdata/language-features/module/Moduledef13.out
+++ b/testdata/language-features/module/Moduledef13.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+hello :: 'String
 ------------ tooltips
 testdata/language-features/module/Moduledef13.lc 3:1-3:6  String
 testdata/language-features/module/Moduledef13.lc 3:9-3:16  String
diff --git a/testdata/language-features/module/TypeSyn01Mod.out b/testdata/language-features/module/TypeSyn01Mod.out
index 74690ade..d1af6425 100644
--- a/testdata/language-features/module/TypeSyn01Mod.out
+++ b/testdata/language-features/module/TypeSyn01Mod.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+'MyUnit :: Type
 ------------ tooltips
 testdata/language-features/module/TypeSyn01Mod.lc 2:6-2:12  Type
 testdata/language-features/module/TypeSyn01Mod.lc 2:15-2:17  Type
diff --git a/testdata/language-features/module/import01.out b/testdata/language-features/module/import01.out
index aad58356..0f691e51 100644
--- a/testdata/language-features/module/import01.out
+++ b/testdata/language-features/module/import01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+x :: 'String
 ------------ tooltips
 testdata/language-features/module/import01.lc 3:1-3:2  String
 testdata/language-features/module/import01.lc 3:5-3:10  String
diff --git a/testdata/language-features/module/import02.reject.out b/testdata/language-features/module/import02.reject.out
index c643646b..9a3f7bd4 100644
--- a/testdata/language-features/module/import02.reject.out
+++ b/testdata/language-features/module/import02.reject.out
@@ -1,3 +1,7 @@
 can't find: hello2 in testdata/language-features/module/import02.reject.lc:4:5:
 x = hello2
-    ^^^^^^
\ No newline at end of file
+    ^^^^^^
+------------ trace
+infer:  labelend hello2
+infer:  labEnd hello2
+!can't find: hello2 in testdata/language-features/module/import02.reject.lc:4:5
diff --git a/testdata/language-features/module/import03.reject.out b/testdata/language-features/module/import03.reject.out
index 775b67cb..76410065 100644
--- a/testdata/language-features/module/import03.reject.out
+++ b/testdata/language-features/module/import03.reject.out
@@ -1,3 +1,7 @@
 can't find: world in testdata/language-features/module/import03.reject.lc:3:5:
 x = world
-    ^^^^^
\ No newline at end of file
+    ^^^^^
+------------ trace
+infer:  labelend world
+infer:  labEnd world
+!can't find: world in testdata/language-features/module/import03.reject.lc:3:5
diff --git a/testdata/language-features/module/import04.reject.out b/testdata/language-features/module/import04.reject.out
index ede369bd..5980131e 100644
--- a/testdata/language-features/module/import04.reject.out
+++ b/testdata/language-features/module/import04.reject.out
@@ -3,4 +3,11 @@ hello = "hello"
 ^^^^^
  and at testdata/language-features/module/Hello01.lc:3:1:
 hello = "hello"
-^^^^^
\ No newline at end of file
+^^^^^
+------------ trace
+hello :: 'String
+!already defined hello at testdata/language-features/module/import04.reject.lc:4:1
+ and at testdata/language-features/module/Hello01.lc:3:1
+------------ tooltips
+testdata/language-features/module/import04.reject.lc 4:1-4:6  String
+testdata/language-features/module/import04.reject.lc 4:9-4:16  String
diff --git a/testdata/language-features/module/import05.out b/testdata/language-features/module/import05.out
index 660eeb7b..c618c024 100644
--- a/testdata/language-features/module/import05.out
+++ b/testdata/language-features/module/import05.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+x :: 'String
 ------------ tooltips
 testdata/language-features/module/import05.lc 3:6-3:12  Type
 testdata/language-features/module/import05.lc 4:1-4:2  String
diff --git a/testdata/language-features/module/import06.out b/testdata/language-features/module/import06.out
index 707cfa68..8ed501a5 100644
--- a/testdata/language-features/module/import06.out
+++ b/testdata/language-features/module/import06.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+hello :: 'Tuple0
+x :: 'String
 ------------ tooltips
 testdata/language-features/module/import06.lc 3:1-3:6  Tuple0
 testdata/language-features/module/import06.lc 3:9-3:11  Tuple0
diff --git a/testdata/language-features/module/import07.out b/testdata/language-features/module/import07.out
index 4d9e8864..a813f0f9 100644
--- a/testdata/language-features/module/import07.out
+++ b/testdata/language-features/module/import07.out
@@ -1,4 +1,7 @@
 main is not found
+------------ trace
+hello :: 'Tuple0
+x :: 'String
 ------------ tooltips
 testdata/language-features/module/import07.lc 3:1-3:6  Tuple0
 testdata/language-features/module/import07.lc 3:9-3:11  Tuple0
diff --git a/testdata/language-features/module/import08.out b/testdata/language-features/module/import08.out
index eaf70740..efb5abf7 100644
--- a/testdata/language-features/module/import08.out
+++ b/testdata/language-features/module/import08.out
@@ -1,4 +1,9 @@
 main is not found
+------------ trace
+value :: 'Tuple0
+g :: 'Char
+h :: 'String
+w :: 'String
 ------------ tooltips
 testdata/language-features/module/import08.lc 3:1-3:6  Tuple0
 testdata/language-features/module/import08.lc 3:9-3:11  Tuple0
diff --git a/testdata/language-features/module/import09.out b/testdata/language-features/module/import09.out
index bc2e9215..15e350d5 100644
--- a/testdata/language-features/module/import09.out
+++ b/testdata/language-features/module/import09.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: {a} -> a -> 'Tuple0->'Tuple0
 ------------ tooltips
 testdata/language-features/module/import09.lc 3:8-3:9  V1
 testdata/language-features/module/import09.lc 3:8-3:29  Type
diff --git a/testdata/language-features/module/import10.reject.out b/testdata/language-features/module/import10.reject.out
index 96853649..350a770d 100644
--- a/testdata/language-features/module/import10.reject.out
+++ b/testdata/language-features/module/import10.reject.out
@@ -3,4 +3,11 @@ type MyUnit = ()
      ^^^^^^
  and at testdata/language-features/module/TypeSyn01Mod.lc:2:6:
 type MyUnit = ()
-     ^^^^^^
\ No newline at end of file
+     ^^^^^^
+------------ trace
+'MyUnit :: Type
+!already defined 'MyUnit at testdata/language-features/module/import10.reject.lc:3:6
+ and at testdata/language-features/module/TypeSyn01Mod.lc:2:6
+------------ tooltips
+testdata/language-features/module/import10.reject.lc 3:6-3:12  Type
+testdata/language-features/module/import10.reject.lc 3:15-3:17  Type
diff --git a/testdata/language-features/module/import11.reject.out b/testdata/language-features/module/import11.reject.out
index 00e09d98..9ab1e98d 100644
--- a/testdata/language-features/module/import11.reject.out
+++ b/testdata/language-features/module/import11.reject.out
@@ -3,4 +3,11 @@ type MyUnit = ()
      ^^^^^^
  and at testdata/language-features/module/TypeSyn01Mod.lc:2:6:
 type MyUnit = ()
-     ^^^^^^
\ No newline at end of file
+     ^^^^^^
+------------ trace
+'MyUnit :: Type
+!already defined 'MyUnit at testdata/language-features/module/import11.reject.lc:3:6
+ and at testdata/language-features/module/TypeSyn01Mod.lc:2:6
+------------ tooltips
+testdata/language-features/module/import11.reject.lc 3:6-3:12  Type
+testdata/language-features/module/import11.reject.lc 3:15-3:17  Type
diff --git a/testdata/language-features/module/import12.out b/testdata/language-features/module/import12.out
index c10155d0..f158db78 100644
--- a/testdata/language-features/module/import12.out
+++ b/testdata/language-features/module/import12.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: 'String
 ------------ tooltips
 testdata/language-features/module/import12.lc 4:1-4:4  String
 testdata/language-features/module/import12.lc 4:7-4:12  String
diff --git a/testdata/language-features/module/import13.out b/testdata/language-features/module/import13.out
index a7591cd6..0b4deb36 100644
--- a/testdata/language-features/module/import13.out
+++ b/testdata/language-features/module/import13.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: 'String
 ------------ tooltips
 testdata/language-features/module/import13.lc 4:1-4:4  String
 testdata/language-features/module/import13.lc 4:7-4:12  String
diff --git a/testdata/language-features/module/import14.out b/testdata/language-features/module/import14.out
index 56bf1a11..8d1e2208 100644
--- a/testdata/language-features/module/import14.out
+++ b/testdata/language-features/module/import14.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: 'String
 ------------ tooltips
 testdata/language-features/module/import14.lc 4:1-4:4  String
 testdata/language-features/module/import14.lc 4:7-4:12  String
diff --git a/testdata/language-features/module/import15.out b/testdata/language-features/module/import15.out
index 311a8378..80c15bc6 100644
--- a/testdata/language-features/module/import15.out
+++ b/testdata/language-features/module/import15.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: 'String
 ------------ tooltips
 testdata/language-features/module/import15.lc 3:1-3:4  String
 testdata/language-features/module/import15.lc 3:7-3:12  String
diff --git a/testdata/language-features/pattern/pattern01.out b/testdata/language-features/pattern/pattern01.out
index d0b70f5c..49e14ccf 100644
--- a/testdata/language-features/pattern/pattern01.out
+++ b/testdata/language-features/pattern/pattern01.out
@@ -1,4 +1,9 @@
 main is not found
+------------ trace
+fun1 :: {a} -> {b : 'Eq a} -> {c : 'Num a} -> a->'Char
+fun2 :: 'String->'Char
+fun3 :: 'Char->'Char
+fun4 :: 'Tuple0->'Char
 ------------ tooltips
 testdata/language-features/pattern/pattern01.lc 1:1-1:5  {a} -> {b : Eq a} -> {c : Num a} -> a->Char
 testdata/language-features/pattern/pattern01.lc 1:10-1:13  Char
diff --git a/testdata/language-features/pragma/pragma05.reject.out b/testdata/language-features/pragma/pragma05.reject.out
index eb782982..8e9ffaed 100644
--- a/testdata/language-features/pragma/pragma05.reject.out
+++ b/testdata/language-features/pragma/pragma05.reject.out
@@ -1,2 +1,2 @@
 testdata/language-features/pragma/pragma05.reject.lc:1:20:
-language extension expected instead of ABCDEF
\ No newline at end of file
+language extension expected instead of ABCDEF
diff --git a/testdata/language-features/pragma/pragma06.reject.out b/testdata/language-features/pragma/pragma06.reject.out
index d14e0097..13427392 100644
--- a/testdata/language-features/pragma/pragma06.reject.out
+++ b/testdata/language-features/pragma/pragma06.reject.out
@@ -1,2 +1,2 @@
 testdata/language-features/pragma/pragma06.reject.lc:1:18:
-language extension expected instead of abcd
\ No newline at end of file
+language extension expected instead of abcd
diff --git a/testdata/language-features/recursion/simplerec01.out b/testdata/language-features/recursion/simplerec01.out
index 9c566256..0fe9fad8 100644
--- a/testdata/language-features/recursion/simplerec01.out
+++ b/testdata/language-features/recursion/simplerec01.out
@@ -1,4 +1,6 @@
 main is not found
+------------ trace
+fun :: {a} -> {b : 'Num a} -> {c : 'Eq a} -> {d : 'Num a} -> a->'Char
 ------------ tooltips
 testdata/language-features/recursion/simplerec01.lc 1:1-1:4  {a} -> {b : Num a} -> {c : Eq a} -> {d : Num a} -> a->Char
 testdata/language-features/recursion/simplerec01.lc 1:9-1:12  Char
diff --git a/testdata/language-features/section/section01.out b/testdata/language-features/section/section01.out
index 90cd2beb..5c52acd3 100644
--- a/testdata/language-features/section/section01.out
+++ b/testdata/language-features/section/section01.out
@@ -1,4 +1,8 @@
 main is not found
+------------ trace
+!@! :: {a} -> {b} -> a -> b->'Tuple0
+value1 :: {a} -> {b} -> a -> b->'Tuple0
+value2 :: {a} -> {b} -> a -> b->'Tuple0
 ------------ tooltips
 testdata/language-features/section/section01.lc 1:3-1:6  {a} -> {b} -> a -> b->Tuple0
 testdata/language-features/section/section01.lc 1:11-1:13  Tuple0