Require Import Basics.Overture.
(** * Graphs *) (** A [Graph] is a type [graph0] of points together with a type [graph1] of arrows between each points. *)
Record Graph := {
graph0 : Type;
graph1 : graph0 -> graph0 -> Type;
}.
Coercion graph0 : Graph >-> Sortclass.
Coercion graph1 : Graph >-> Funclass.