Lemma nat_discern_unit m : nat_discern m m = unit. Proof. induction m as [|m IHm]. { reflexivity. } { simpl. apply IHm. } Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.PartA.