fact: Definition uncurry4 {A} {B : A -> Type} {C : forall x : A, B x -> Type} {D : forall (a : A) (b : B a) (c : C a b), Type} {E : forall (a : A) (b : B a) (c : C a b) (d : D a b c), Type} (f : forall s : tele (a : A) (b : B a) (c : C a b) in (D a b c), E s.1 s.2.1 s.2.2.1 s.2.2.2) : forall (x : A) (b : B x) (c : C x b) (d : D x b c), E x b c d := fun x b c d => f &(x , b , c & d).
imports: Equations Utf8 DepElimDec EqDecInstances