fact: Fixpoint multiplicity (c:T1) (a:T1) {struct a}: nat := match a with | zero => 0 | (cons a' n' b') => match T1_eq_dec c a' with | left _ => ( (S n') +(multiplicity c b'))%nat | right _ => multiplicity c b' end end.
imports: Arith Omega ArithRing More_nat EPSILON0