* This method implements the function logic of the CAL function Cal.Utilities.DirectedGraph.mergeVerticesInternal
*/
public final RTValue f6S(RTValue $dictvarCal_Core_Prelude_Eq_3, RTValue graph, RTValue retainLoops, RTValue vertex1Num, RTValue vertex2Num, RTValue mergedVertex, RTExecutionContext $ec) throws CALExecutorException {
// Top level supercombinator logic
RTCons $case1 = ((RTCons)(java.lang.Object)graph.evaluate($ec));
// Cal.Utilities.DirectedGraph.DirectedGraph
// Decompose data type to access members.
TYPE_Directed_Graph.CAL_Directed_Graph $dcCaseVar1 =
((TYPE_Directed_Graph.CAL_Directed_Graph)(java.lang.Object)$case1);