fact: Fixpoint T1succ (c:T1) : T1 := if c is cons a n b then if a == zero then cons zero n.+1 zero else cons a n (T1succ b) else one.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(fintype bigop)