let()=Printf.printf"Non linear environment:\n%s\n"(Utils.string_of_list"\n"(fun(x,(l,ty))->Printf.sprintf"%s (%d): %s"xl(Lambda.type_to_stringtyf))env)in
raise(Error.Error(Error.Type_error(Error.Is_Used(Lambda.type_to_stringu_type(id_to_stringsg),"\"'a -> 'b\" or \"'a => 'b\" in order to enable application"),(fstu_loc,sndu_loc))))in
let()=Printf.printf"Non linear environment:\n%s\n"(Utils.string_of_list"\n"(fun(x,(l,ty))->Printf.sprintf"%s (%d): %s"xl(Lambda.type_to_stringtyf))env)in