let
is_free_function v = isFunctionType v.vtype
&&
v.vname = name_of_free