(** We finally recover from K the Invariance by Substitution of Reflexive Equality Proofs *)

(* Specifications: *)
Lemma Streicher_K_on__eq_rect_eq_on (p : U) (P : U -> Type) (x : P p) :
Streicher_K_on_ p (fun h => x = rew -> [P] h in x)
-> Eq_rect_eq_on p P x.
Lemma Streicher_K__eq_rect_eq : Streicher_K_ -> Eq_rect_eq.
Proof (fun Streicher_K p P x =>
@Streicher_K_on__eq_rect_eq_on p P x (Streicher_K p _)).