Lemma stn_inhabited_implies_succ {n:nat} (i : ⟦ n ⟧%stn) : ∑ m, n = S m. Proof. destruct n as [| m]. - destruct i as [i le_i_0]. destruct (negnatlthn0 _ le_i_0). - exists m. apply idpath. Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.Combinatorics.Maybe. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Algebra.Domains_and_Fields. Require Import UniMath.Algebra.RigsAndRings.