fact: Definition find_var (vm:vmap) h := let (count,map) := vm in match find_var_aux h count map with | Some p => (vm, p) | None => ((Pos.succ count,h::map), count) end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz