fact: Fixpoint find_var_aux h p (l:list Atom.atom) := match l with | nil => None | h' :: l => let p := Pos.pred p in if Atom.eqb h h' then Some p else find_var_aux h p l end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz