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