fact: Definition plus (alpha beta : t) : t := match alpha,beta with | (0, b), (0, b') => (0, b + b') | (0,0), y => y | x, (0,0) => x | (0, _b), (S n', b') => (S n', b') | (S n, b), (S n', b') => (S n + S n', b') | (S n, b), (0, b') => (S n, b + b') end.
imports: Coq(Arith Compare_dec Lia) hydras(Simple_LexProd ON_Generic ON_mult ON_Omega Compat815)