{A B : pType} : A * B ->* A := Build_pMap (A * B) A fst idpath.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.