fact: Definition interp_vmap (vm:vmap) p := match nth_error (snd vm) (nat_of_P (fst vm - p) - 1)%nat with | Some a => let (t,v) := interp_atom a in match Typ.cast t Typ.TZ with | Typ.Cast k => k (Typ.interp t_i) v | _ => 0%Z end | _ => 0%Z end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz