{D1 D2 : Diagram G} (w : diagram_equiv D1 D2) : DiagramMap D2 D1. Proof. apply (Build_DiagramMap (fun i => (Build_Equiv _ _ _ (diag_equiv_isequiv w i))^-1)). intros i j f. apply (@comm_square_inverse _ _ _ _ _ _ (Build_Equiv _ _ _ (diag_equiv_isequiv w i)) (Build_Equiv _ _ _ (diag_equiv_isequiv w j))). intros x; apply DiagramMap_comm. Defined.
Require Import Basics. Require Import Types. Require Import HoTT.Tactics. Require Import Diagrams.CommutativeSquares. Require Import Diagrams.Graph.