let range_empty = function | Block | Index _ -> F.p_false | Range(_,n) -> F.p_icmp Cleq n (F.e_int 0)