{A B : pType} (f : A <~>* B) : f o* (pequiv_inverse f) ==* pmap_idmap. Proof. srefine (Build_pHomotopy _ _). 1: apply (eisretr f). pointed_reduce. unfold moveR_equiv_V. refine (eisadj f _ @ _). symmetry. exact (concat_p1 _ @ concat_p1 _ @ ap _ (concat_1p _)). Defined.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.