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