Polymorphic Universes i j.Polymorphic Record pprod : Type@{max (i, j)} := ppair
  { pfst : T
  ; psnd : U }.Polymorphic Record pprod : Type@{max (i, j)} := ppair
  { pfst : T
  ; psnd : U }.Polymorphic Record pprod : Type@{max (i, j)} := ppair
  { pfst : T
  ; psnd : U }.Polymorphic Record pprod : Type@{max (i, j)} := ppair
  { pfst : T
  ; psnd : U }.

Polymorphic Lemma eq_pair_rw : forall T U (a b : T) (c d : U) (pf : (ppair a c) = (ppair b d)), exists (pf' : a = b) (pf'' : c = d), pf = match pf' , pf'' with | eq_refl , eq_refl => eq_refl end.