fact: Fixpoint bounded_pexpr (p:positive) (pe:PExpr Z) := match pe with | PEc _ => true | @PEX _ x => Zlt_bool (Zpos x) (Zpos p) | PEadd pe1 pe2 | PEsub pe1 pe2 | PEmul pe1 pe2 => bounded_pexpr p pe1 && bounded_pexpr p pe2 | PEopp pe => bounded_pexpr p pe | PEpow pe _ => bounded_pexpr p pe end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz