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