fact: Definition omap2 {aT1 aT2 rT} (f : aT1 -> aT2 -> rT) o1 o2 := obind (fun a1 => omap (f a1) o2) o1.
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)