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