"Source: Text/Incidence/Graph.text";
"Line: 491";
"Date: Fri Sep 26 12:10:10 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Incidence/Graph.text, line: 491
// Example: H162E4 ()
print "Example: H162E4";
ei := GetEchoInput();
SetEchoInput(true);
D1 := Digraph< 5 | [1, 2], [1, 3], [1, 4],
                  [3, 2], [4, 3] >;
D1;
D1 := Digraph< 5 | [1, 2], [1, 3], [1, 4],
                  [3, 2], [4, 3] : SparseRep := true>;
M := MatrixRing(Integers(), 5);
D2 := Digraph< 5 | 
          M![ 0,1,1,1,0, 
              0,0,0,0,0, 
              0,1,0,0,0, 
              0,0,1,0,0,
              0,0,0,0,0 ] >; 
IsIsomorphic(D1, D2);
assert $1;
SetEchoInput(ei);
