fact: Definition build_positive_atom_aux (a:atom) : option positive := match a with | Acop CO_xH => Some xH | Auop UO_xO a => option_map xO (build_positive a) | Auop UO_xI a => option_map xI (build_positive a) | _ => None end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz