{A : Type} `{In O A} `{IsConnected O A} : Contr A. Proof. apply (contr_equiv _ (to O A)^-1). Defined.
Require Import HoTT.Basics HoTT.Types. Require Import Equiv.BiInv Extensions HProp HFiber NullHomotopy Limits.Pullback. Require Import Homotopy.IdentitySystems. Require Import Colimits.Pushout.