fact: Definition Qeval_formula (e:PolEnv Q) (k: Tauto.kind) (ff : Formula Q) := let (lhs,o,rhs) := ff in Qeval_op2 k o (Qeval_expr e lhs) (Qeval_expr e rhs).
imports: OrderedRing RingMicromega Refl QArith Qfield EnvRing