proposition: Lemma S3_small : ((S_[3] 0 = 0) * (S_[3] 1 = 2) * (S_[3] 2 = 5) * (S_[3] 3 = 9) * ( S_[3] 4 = 15) * (S_[3] 5 = 23) * (S_[3] 6 = 32))%type.
proof: Proof. by rewrite /dsum_alphaL /conv /= /dsum_alpha -!(big_mkord xpredT) unlock /=; compute. Qed.
imports: mathcomp(all_ssreflect finmap) hanoi(extra)