issmall_equiv_issmall@{i1 j1 i2 j2 | i1 <= i2} {A : Type@{j1}} {B : Type@{j2}} (e : A <~> B) (sA : IsSmall@{i1 j1} A) : IsSmall@{i2 j2} B. Proof. exists (smalltype A). exact (e oE (equiv_smalltype A)). Defined.
Require Import Basics.Overture Basics.Equivalences Basics.Trunc Basics.Tactics