Commit eb338645 authored by Raphaël Cauderlier's avatar Raphaël Cauderlier
Browse files

[FIX] Epsilons in binders

parent 083c3ee9
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment