[FIX] Epsilons in binders

printer.ml

@@ -46,7 +46,7 @@ let rec print_term out_fmter : tterm -> unit = function
       print_term t1
       print_term t2
   | Tabst (x, ty, body, rty) ->
-    Format.fprintf out_fmter "@[dk_obj_examples.Lambda@ (%a)@ (%a)@ (%a :@ %a =>@ %a)@]"
+    Format.fprintf out_fmter "@[dk_obj_examples.Lambda@ (%a)@ (%a)@ (%a :@ dk_obj.Expr (%a) =>@ %a)@]"
       print_ty ty
       print_ty rty
       print_id x
@@ -90,7 +90,7 @@ and print_domain out_fmter = function
       print_label l
       print_domain ll
 and print_meth out_fmter (Tmeth (x, ty, body, rty)) =
-  Format.fprintf out_fmter "@[(%a :@ %a => %a)@]"
+  Format.fprintf out_fmter "@[(%a :@ dk_obj.Expr (%a) => %a)@]"
     print_id x
     print_ty ty
     print_term body