(P : (forall i, A i / R i) -> Type) `{!forall g, IsHSet (P g)} (a : forall (f : forall i, A i), P (fun i => class_of (R i) (f i))) (E : forall (f f' : forall i, A i) (r : forall i, R i (f i) (f' i)), qglue_forall f f' r # a f = a f') (g : forall i, A i / R i) : P g. Proof. exact (chooseprop_quotient_ind P a E g).1. Defined.
Require Import