proposition: Lemma tuple_pad_val k n (l:n.-tuple 'I_3) (H: n <= k): tval (tuple_pad l H) = tval l ++ (nseq (k - n) ord0).
proof: Proof. by rewrite /tuple_pad /tuple_padl tcast_val. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq choice fintype order bigop ssralg) mathcomp(div ssrnum ssrint rat prime path binomial) mathcomp(tuple finset) gaia(fibm)