Inductive depprod1 (A : Type) (P : A -> Type) : Type :=
    dep_i1 : forall x : A, P x -> depprod1 A P.Inductive depprod1 (A : Type) (P : A -> Type) : Type :=
    dep_i1 : forall x : A, P x -> depprod1 A P.Definition PI11 (A : Type) (P : A -> Type) (c : depprod1 A P) :=
  match c with
  | dep_i1 a p => a
  end.Definition PI21 (A : Type) (P : A -> Type) (c : depprod1 A P) :=
  match c return (P (PI11 A P c)) with
  | dep_i1 a p => p
  end.

Lemma ex_rk : forall E : Ens, depprod1 _ (fun L : Ens => Ord L /\ IN E (Vee L)).