Definition concatenate'_r0 {X:UU} {m:nat} (f : ⟦m⟧ -> X) (g : ⟦0⟧ -> X) : concatenate' f g = transportb (λ n, ⟦n⟧ -> X) (natplusr0 m) f. Proof. intros. apply funextfun; intro i. unfold concatenate'. rewrite weqfromcoprodofstn_invmap_r0; simpl. clear g. apply transportb_fun'. Defined.
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.DecidablePropositions. Require Import UniMath.MoreFoundations.NegativePropositions.