fact: Fixpoint from_vct_rec fuel lft vct := if fuel is fuel.+1 then if vct is v0 :: vct' then from_vct_rec fuel (BinNode lft (from_vct_rec fuel BinLeaf (take v0 vct'))) (drop v0 vct') else lft else BinLeaf.
imports: HB(structures) mathcomp(all_ssreflect) tools combclass ordtype