someFusionRules={{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{2}}],DualData[{1},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{2}}],DualData[{1},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{2}},{{1}}],DualData[{1},{1},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{2}},{{1}}],DualData[{1},{1},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1},{1}},{{0,1,0},{0,0,1}}],DualData[{1},{1},{2,1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1},{1}},{{0,1,0},{0,0,1}}],DualData[{1},{1},{2,1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1},{1}},{{0,1,1},{0,0,1}}],DualData[{1},{1},{1,2}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1},{1}},{{0,1,1},{0,0,1}}],DualData[{1},{1},{1,2}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{1,2,3}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{1,2,3}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{2,1,3}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{2,1,3}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1}},{{0,1},{0,1}}],DualData[{1},{1},{1,2}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1}},{{1,0},{0,1}},{{1,0},{0,1}}],DualData[{1},{1},{1,2},{2,1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,0,1},{0,0,1}}],DualData[{1},{1},{1,2,3}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,1,0},{0,0,1}},{{1,0},{0,1}}],DualData[{1},{1},{1,2,3},{2,1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,1},{0,1}},{{0,1}}],DualData[{1},{1},{1,2}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,1},{0,1}},{{0,1}}],DualData[{1},{1},{1,2}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{0,1},{0,1}},{{0,1,0},{1,0,1}}],DualData[{1},{1},{2,1,3}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{0,1},{0,1}},{{0,1,0},{1,0,1}}],DualData[{1},{1},{2,1,3}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,1},{0,1}},{{1,0,1}}],DualData[{1},{1},{1,2,3}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,1},{0,1}},{{1,0,1}}],DualData[{1},{1},{1,2,3}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,1},{0,1}},{{1,0,1}}],DualData[{1},{1},{1,2,3}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,1},{0,1}},{{0,1,0}},{{1}}],DualData[{1},{1},{1,2,3},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,0},{0,1},{0,1}},{{0,1,0,1}}],DualData[{1},{1},{1,4,3,2}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,1}},{{1}},{{1}}],DualData[{1},{1},{1},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,0},{0,1},{0,1}},{{0,1,0,1}}],DualData[{1},{1},{3,2,1,4}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,1}},{{1}},{{1}}],DualData[{1},{1},{1},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1},{1}},{{1,1},{0,1}}],DualData[{1},{1},{1},{1,2}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1},{1}},{{1,1},{0,1}}],DualData[{1},{1},{1},{1,2}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,1,1},{0,0,1}}],DualData[{1},{1},{1},{1,2}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,1,1},{0,0,1}}],DualData[{1},{1},{1},{1,2}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,1,0},{0,0,1}},{{1,0},{0,1}}],DualData[{1},{1},{1,3,2},{2,1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,1,0},{0,0,1}},{{1,0},{0,1}}],DualData[{1},{1},{1,3,2},{2,1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,1,0},{0,1,0},{0,0,1}},{{0,0,1}}],DualData[{1},{1},{1,2,3},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,1,0},{0,1,0},{0,0,1}},{{0,0,1}}],DualData[{1},{1},{1,2,3},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{0,1,0},{0,1,0},{0,0,1}},{{0,0,1}}],DualData[{1},{1},{1,2,3},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{1,2,3},{2,1,3}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{1,2,3},{1,2,3}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{1,2,3},{1,2,3}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{1,3,2},{1,3,2}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}},{{1,0,0},{0,1,0},{0,0,1}}],DualData[{1},{1},{1,3,2},{1,3,2}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,1}},{{1}},{{1}}],DualData[{1},{1},{1},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,1}},{{1}},{{1}}],DualData[{1},{1},{1},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,1},{0,1}},{{0,1,0}},{{1}}],DualData[{1},{1},{1,2,3},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,1},{0,1}},{{0,1,0}},{{1}}],DualData[{1},{1},{1,2,3},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,1},{0,1}},{{0,1,0}},{{1}}],DualData[{1},{1},{3,2,1},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1},{1}},{{1,0},{1,1},{0,1}},{{0,1,0}},{{1}}],DualData[{1},{1},{3,2,1},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}},{{1,0,0},{0,1,0}},{{1,0},{0,1}}],DualData[{1},{1},{1},{2,1,3},{2,1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1},{1},{1}},{{1,0,0},{0,1,0},{0,0,1}},{{1,0,0},{0,1,0}},{{1,0},{0,1}}],DualData[{1},{1},{1},{2,1,3},{2,1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1}},{{1,0},{0,1}},{{1,0},{1,1}},{{1,0}},{{1}}],DualData[{1},{1},{1,2},{1,2},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1},{1}},{{0,1},{0,1}},{{1,0},{1,0},{0,1}},{{0,1,0}},{{1}}],DualData[{1},{1},{1,2},{1,2,3},{1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1}},{{1}},{{1}},{{1},{1}},{{0,1},{0,1}}],DualData[{1},{1},{1},{1},{1,2}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1}},{{1}},{{1}},{{1},{1}},{{1,0},{0,1}},{{1,0},{0,1}}],DualData[{1},{1},{1},{1},{1,2},{2,1}]]},{BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1}},{{1},{1}},{{0,1},{0,1}},{{1,0}},{{1}}],DualData[{1},{1},{1},{1,2},{1}]],BigraphWithDuals[GradedBigraph[{{1}},{{1}},{{1}},{{1}},{{1}},{{1},{1}},{{1,0},{0,1}},{{1,0},{1,0},{0,1}},{{0,0,1}},{{1}}],DualData[{1},{1},{1},{1,2},{1,3,2},{1}]]}};

FindFusionRules@@someFusionRules[[1]]

SetDebugMode[False]

ReducedDimensionOfGenerator[someFusionRules[[4,1,1]]]

((N[%])^2)

Print[DisplayBigraph[#],FormalCodegreesInDimensionFieldTest@@#]&/@someFusionRules

DisplayBigraph[g=GraphFromString["bwd1v1v1v1v1v1p1p1v1x0x0p0x1x0v1x0v1v1duals1v1v1v1x2x3v1v1"]]

FormalCodegreesInDimensionFieldTest[g,g]