(A : Type@{u}) : trunc_index -> Type@{u} := | Build_Contr : forall (center : A) (contr : forall y, center = y), A minus_two | istrunc_S : forall {n:trunc_index}, (forall x y:A, (x = y) n) -> A (trunc_S n).