fact: Definition build_formula_atom vm (a:atom) := match a with | Abop op a1 a2 => match build_op2 op with | Some o => let (vm,pe1) := build_pexpr vm a1 in let (vm,pe2) := build_pexpr vm a2 in Some (vm, Build_Formula pe1 o pe2) | None => None end | _ => None end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz