fact: Fixpoint trunc_index_add@{} (m n : trunc_index) : trunc_index := match m with | -2 => n | m'.+1 => (trunc_index_add m' n).+1 end.
imports: Basics.Overture Basics.Contractible Basics.Equivalences Basics.Tactics Basics.Nat