fact: Definition prod_map_in_R (A A' : Type) (AR : Param2a0.Rel A A') (B B' : Type) (BR : Param2a0.Rel B B') : forall p p', prod_map A A' AR B B' BR p = p' -> prodR A A' AR B B' BR p p' := fun p p' => match p with | (a, b) => match p' with | (a', b') => fun e => pairR A A' AR B B' BR a a' (map_in_R AR a a' (pair_inj1 A' B' (map AR a) a' (map BR b) b' e)) b b' (map_in_R BR b b' (pair_inj2 A' B' (map AR a) a' (map BR b) b' e)) end end.
imports: Coq(ssreflect) HoTT(HoTT) Hierarchy