proposition: Lemma zero_le alpha : zero o<= alpha.
proof: Proof. destruct alpha as [i j]; destruct i. - destruct j. + right. + left; right; abstract lia. - left; left; abstract lia. Qed.
imports: Coq(Arith Compare_dec Lia) hydras(Simple_LexProd ON_Generic ON_mult ON_Omega Compat815)