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