Lemma minusSxx m : S m - m = 1. Proof. induction m as [|m IHm]. reflexivity. assumption. Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.PartA.