fact: Definition P k : GFormula k -> Prop := match k as k return GFormula k -> Prop with | isProp => fun (bf:BFormula (Formula Z) isProp) => bounded_bformula (fst vm) bf -> (eval_f (Zeval_formula (interp_vmap vm)) bf <-> eval_f (Zeval_formula (interp_vmap vm')) bf) | isBool => fun (bf:BFormula (Formula Z) isBool) => bounded_bformula (fst vm) bf -> (eval_f (Zeval_formula (interp_vmap vm)) bf = eval_f (Zeval_formula (interp_vmap vm')) bf) end.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz