let in_range i d p =
  match d with
    | None -> p
    | Some n -> 
        let k = e_var i in
        p_goal [ p_icmp Cleq e_zero k ; p_icmp Clt k (e_int n) ] p