fact: Fixpoint size x := if x is cons a b c n d then (maxn (size a) (maxn (size b) (maxn (size c) (size d)))).+1 else 0.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(fintype bigop)