{A : Type} `{IsPointedCat A} (a1 a2 : A) := [Hom a1 a2, zero_morphism].
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.