fact: Definition Formula_Q2Z (ff : Formula Q) : option (Formula Z) := omap2 (fun l r => Build_Formula l (Fop ff) r) (PExpr_Q2Z (Flhs ff)) (PExpr_Q2Z (Frhs ff)).
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)