fact: Definition prod_R_in_map (A A' : Type) (AR : Param2b0.Rel A A') (B B' : Type) (BR : Param2b0.Rel B B') : forall p p', prodR A A' AR B B' BR p p' -> prod_map A A' AR B B' BR p = p' := fun p p' r => match r with | pairR a a' aR b b' bR => @transport _ (fun t => (t, map BR b) = (a', b')) _ _ (R_in_map AR a a' aR)^ (@transport _ (fun t => (a', t) = (a', b')) _ _ (R_in_map BR b b' bR)^ idpath) end.
imports: Coq(ssreflect) HoTT(HoTT) Hierarchy