proposition: Lemma sized_resized `(x : t a n) : sized (resized x) = x.
proof: Proof. unfold sized, resized. Import EqNotations. assert (∀ x, rew [t a] size_unsize n in rew <- [t a] size_unsize n in x = x). { now destruct (size_unsize n); simpl. } now rewrite H. Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor Category.Theory.Adjunction Category.Structure.Terminal Category.Structure.Cartesian Category.Structure.BiCCC Category.Instance.Fun Category.Instance.Coq Category.Instance.Sets Coq.Vectors.Vector