<<SetReplace`r={{x,x,y},{x,z,u}}{{u,u,z},{y,v,z},{y,v,z}};hg=WolframModel[r,{{1,1,1},{1,1,1}},100,"FinalState"];g1=ResourceFunction["HypergraphToGraph"][hg];g2=ResourceFunction["HypergraphToGraph"][Flatten[If[Length[#]<3,{#},Partition[#,2,1]]&/@hg,1]];g3=Flatten[List[EdgeList[g2][[#,1]]EdgeList[g2][[#,2]]]&/@Range[Length[EdgeList[g2]]]];HypergraphPlot[hg]g1g2Graph[g3]