fact: Fixpoint bounded_bformula (p:positive) {k:kind} (bf:BFormula (Formula Z) k) : bool := match bf with | @TT _ _ _ _ _ | @FF _ _ _ _ _ | @X _ _ _ _ _ _ => true | A _ f _ => bounded_formula p f | AND bf1 bf2 | OR bf1 bf2 | IMPL bf1 _ bf2 => bounded_bformula p bf1 && bounded_bformula p bf2 | NOT bf => bounded_bformula p bf | IFF bf1 bf2 => bounded_bformula p bf1 && bounded_bformula p bf2 | EQ bf1 bf2 => bounded_bformula p bf1 && bounded_bformula p bf2 end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz