proposition: Lemma Zeval_formula_compat : forall env k f, Tauto.hold k (Zeval_formula env k f) <-> Zeval_formula env Tauto.isProp f.
proof: Proof. intros env k; destruct k ; simpl. - tauto. - intros f; destruct f ; simpl. rewrite <- (Zeval_op2_hold Tauto.isBool). simpl. tauto. Qed.
imports: List Bool OrderedRing RingMicromega ZCoeff Refl ZArith_base ZArithRing Ztac EnvRing