fact: Record map_graph (A B : Type@{i}) (R : A -> B -> Type@{i}) := MapGraph{ _map : A -> B; _map_in_R : forall (a : A) (b : B), _map a = b -> R a b; _R_in_map : forall (a : A) (b : B), R a b -> _map a = b; _R_in_mapK : forall (a : A) (b : B), _map_in_R a b o _R_in_map a b == idmap}.
imports: Coq(ssreflect) HoTT(HoTT) HoTT_additions