fact: Definition build_positive := foldi (fun i cont h => build_positive_atom_aux cont (get_atom h)) 0 (PArray.length t_atom) (fun _ => None).
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz