fact: Definition mult_fin_l (n:nat)(alpha : t) : t := match n, alpha with | 0, _ => zero | _, (0,0) => zero | n , (0,n') => (0, (n*n')%nat) | n, (n',p') => (n', (n * p')%nat) end.
imports: Coq(Arith Compare_dec Lia) hydras(Simple_LexProd ON_Generic ON_mult ON_Omega Compat815)