fact: Definition ZTautoChecker (f : BFormula (Formula Z) isProp) (w: list (Psatz Z)) : bool := @tauto_checker (Formula Z) (NFormula Z) unit (check_inconsistent 0 Z.eqb Z.leb) (nformula_plus_nformula 0 Z.add Z.eqb) (@cnf_normalise Z 0 1 Z.add Z.mul Z.sub Z.opp Z.eqb Z.leb unit) (@cnf_negate Z 0 1 Z.add Z.mul Z.sub Z.opp Z.eqb Z.leb unit) (Psatz Z) (fun cl => check_normalised_formulas 0 1 Z.add Z.mul Z.eqb Z.leb (List.map fst cl)) f w.
imports: elpi(elpi) Coq(QArith Ring) Coq.micromega(RingMicromega QMicromega EnvRing Tauto Lqa) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat choice seq) mathcomp(fintype finfun bigop order ssralg ssrnum ssrint) mathcomp.zify(ssrZ zify) mathcomp.algebra_tactics(common)