fact: Definition ap (alpha : t) := alpha <> zero /\ (forall beta gamma, beta o< alpha -> gamma o< alpha -> beta + gamma o< alpha).
imports: Coq(Arith Compare_dec Lia) hydras(Simple_LexProd ON_Generic ON_mult ON_Omega Compat815)